% Librarian A09-23,,!X, 8 >>2h9 BIO_CLOSE<BIO_OPEN? BIO_OPEN_ROABIO_READFz BIO_WRITEJJ CLU_BROADCAST\HCLU_MEMBERSHIPeDCL_ENVI_DEPTHgDCL_ENVI_PROCEDUREjNFILE_ATTRIBUTESo FOR_SIGNALsNFOR_STOPvLAN_FORMAT_HEADER{LAN_STARTUP_PRM~LBR_OUTPUT_MLB_MODULE LIB_AVAILABLE LIB_CHECKSUM2PLIB_COMPARE_BLOCKSLIB_COUNT_BITSRLIB_CVT_L_DELTA LIB_CVT_T_LLIB_FORMAT_PROTECTIONBLIB_GENERATE_SEED LIB_GET_INPUTU9 BIO_CLOSE<BIO_OPEN? BIO_OPEN_ROABIO_READFz BIO_WRITEJJ CLU_BROADCAST\HCLU_MEMBERSHIPeDCL_ENVI_DEPTHgDCL_ENVI_PROCEDUREgDCL___GET_PROCEDUREjNFILE_ATTRIBUTESo FOR_SIGNALsNFOR_STOPvLAN_FORMAT_HEADER{LAN_STARTUP_PRM~LBR_OUTPUT_MLB_MODULE LIB_AVAILABLE LIB_CHECKSUM2PLIB_COMPARE_BLOCKSLIB_COUNT_BITSRLIB_CVT_L_DELTA LIB_CVT_T_LLIB_FORMAT_PROTECTIONBLIB_GENERATE_SEEDO LIB_CHECKSUM2PLIB_COMPARE_BLOCKSLIB_COUNT_BITSRLIB_CVT_L_DELTA LIB_CVT_T_LLIB_FORMAT_PROTECTIONBLIB_GENERATE_SEED LIB_GET_INPUTVLIB_OUTPUT_BKTLIB_OUTPUT_FH2LIB_OUTPUT_HM2LIB_OUTPUT_SEG_TVLIB_OUTPUT_SEG_TZBLIB_OUTPUT_SEG_ZBLIB_PATCH_BLOCKLIB_PATCH_INPUT_INTEGERLIB_PATCH_VALID_BYTE LIB_RANDOM`LIB_SUB_ASC_TIMESLIB_VALIDATE_FH2 _KEYBOARD_ID _KEY_TABLE_IDf LIB_AVAILABLELIB_PATCH_BLOCKSTR_SUBSTITUTE SYS_POKE_END _KEY_TABLE_ID^LIB_COUNT_BITSRLIB_CVT_L_DELTA LIB_CVT_T_LLIB_FORMAT_PROTECTIONBLIB_GENERATE_SEED LIB_GET_INPUTVLIB_OUTPUT_BKTLIB_OUTPUT_FH2LIB_OUTPUT_HM2LIB_OUTPUT_SEG_TVLIB_OUTPUT_SEG_TZBLIB_OUTPUT_SEG_ZB LIB_RANDOM`LIB_SUB_ASC_TIMESLIB_VALIDATE_FH2 PATCH_BLOCK>STR_CHANGECASE \ STR_CMATCH3 STR_COLLAPSE7 STR_COMPRESS<, STR_ELEMENT? STR_EVALUATEN STR_JUST_LEFT]LIB_COMPARE_BLOCKS PATCH_BLOCK SYS_FIND_ETHER_DEVICE TECO_EDIT_THINGLCWLIB_PATCH_INPUT_INTEGERLIB_PATCH_VALID_BYTE LIB_RANDOM`LIB_SUB_ASC_TIMESLIB_VALIDATE_FH2 \ STR_CMATCH3 STR_COLLAPSE7 STR_COMPRESS<, STR_ELEMENT? STR_EVALUATEN STR_JUST_LEFTUSTR_JUST_RIGHT[STR_LEN> STR_LOWERCASE\ STR_MATCHb STR_SOUNDEXpSTR_SUBSTITUTEN STR_SUBTRACTSTR_TRIM> STR_UPPERCASE SYS_BROADCASTSYS_CHECK_SOFTWARE_EXPIRY1 _KEYBOARD_ID _KEY_TABLE_IDR>STR_CHANGECASE \ STR_CMATCH3 STR_COLLAPSE7 STR_COMPRESS<, STR_ELEMENT? STR_EVALUATEN STR_JUST_LEFTUSTR_JUST_RIGHT[STR_LEN\ STR_MATCHb STR_SOUNDEXpSTR_SUBSTITUTEN STR_SUBTRACTSTR_TRIM SYS_BROADCASTSYS_CHECK_SOFTWARE_EXPIRY1SYS_FIND_ETHER_DEVICESYS_GET_DISK_DEVICESpSYS_GET_TAPE_DEVICESHSYS_LOGIN_TYPE( SYS_MEMSIZE| SYS_PARSESYS_PEEKSYS_POKEqN STR_SUBTRACTSTR_TRIM> STR_UPPERCASE SYS_BROADCASTSYS_CHECK_SOFTWARE_EXPIRY1pSYS_DISABLE_ECHOpSYS_ENABLE_ECHOSYS_FIND_ETHER_DEVICESYS_GET_DISK_DEVICESpSYS_GET_TAPE_DEVICESH SYS_JOBTYPE( SYS_MEMSIZEHSYS_MODE| SYS_PARSESYS_PEEK SYS_PEEK_ENDSYS_POKE SYS_POKE_ENDOR SYS___PEEK_1 SYS___PEEK_2 SYS___POKE_1 SYS___POKE_2 _KEYBOARD_ID _KEY_TABLE_IDSYS_GET_DISK_DEVICESpSYS_GET_TAPE_DEVICESHSYS_LOGIN_TYPE( SYS_MEMSIZE| SYS_PARSESYS_PEEKSYS_POKEHSYS_SEND_OPERATORp SYS_TERM_ECHOSYS_TRAP_CONTROLCTECO_EDIT_THINGHSYS_SEND_OPERATORSYS_TRAP_CONTROLC SYS___PEEK_1 SYS___PEEK_2 SYS___POKE_1 SYS___POKE_2TECO_EDIT_THING _KEYBOARD_ID _KEY_TABLE_ID !"#$%&'()*+,-./012345678:1,V1-002GG BIO_CLOSEV1-002 2-JUN-2004 10:21Alpha BASIC V1.5-000 i$CODE$p$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J BIO_CLOSE =?G #9 C^~^~cGG&= C/&0[@;"TG8b@Zk=`BG"Ghb;TG1/@Zk4GPB"c4GXb/@ZkcG]G]}#k//& "&̂"4DG\ DBASIC$INIT4Tb# DBASIC$INIT4X@\ DBASIC$INIT4`G DBASIC$CLOSE4pb# DBASIC$CLOSE4@ DBASIC$CLOSE4G DBASIC$END4b#< DBASIC$END4@ DBASIC$END =0;=0 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$END DBASIC$CLOSE =|@ BIO_CLOSEE E=5 =-, BIO_CLOSEAlpha BASIC V1.5-000 = 44= BIO_CLOSE4=@87 =  = h hDBASIC$HANDLER DBASIC$INIT DBASIC$CLOSE DBASIC$END ww1F,V1-004FFBIO_OPENV1-004 2-JUN-2004 10:22>AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$4 _SYS_DATA _SYS_CODEP$LINKAGESYS$OPEN SYS$CONNECT0JBIO_OPEN =4= $ =4=   =>C~^^ ~(08 GG(M?C$0MBB8m$CG"YP K+9'C\pKO'"4G@Zk@MHmG4G@ZkG^ ~(08Ck44GxSYS$OPEN4<m#SYS$OPEN4t@xSYS$OPEN4|G SYS$CONNECT4m# SYS$CONNECT4@ SYS$CONNECT =0 @;=@ ="; SYS$OPEN"  SYS$CONNECT" ww1/M,V1-004II BIO_OPEN_ROV1-004 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$4 _SYS_DATA _SYS_CODEP$LINKAGESYS$OPEN SYS$CONNECT0AJ BIO_OPEN_RO =4= $ =4=   =>C~^^ ~(08 GG(MC$0MBB8m$CG"YP K"9'C\pKO'"4G@Zk@MHmG4G@ZkG^ ~(08Ck44GxSYS$OPEN4<m#SYS$OPEBN4t@xSYS$OPEN4|G SYS$CONNECT4m# SYS$CONNECT4@ SYS$CONNECT =0 ;=@ ="; SYS$OPEN"  SYS$CONNECT" ww1,V1-003FFBIO_READV1C-003 2-JUN-2004 10:21Alpha BASIC V1.5-000 i8$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JBIO_READ =@8?G#^y C~^~cGGG^/7} C//60[@;"8bTG@ZkPBc="]"tGXb@ZkpBG4Gxb8= C2_J1v JQF CD}$cc@Zkc4G"`Bhb@ZkcG]]}#k/& "&̂"4TGl DBASIC$INIT4`b# DBASIC$INIT4h@l DBASIC$INIT<lGLIB$ANALYZE_SDESC<b#LIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4GSYS$READ4Eb#SYS$READ4@SYS$READ4G DBASIC$END4b# DBASIC$END4@ DBASIC$END  =0;=0 7DBASIC$HANDLER= DBASIC$INIT;P LIB$ANALYZE_SDESC DBASIC$ENDSFYS$READ =|@BIO_READD D=4,+BIO_READAlpha BASIC V1.5-000 = 44=BIO_READ4=G?> $ = 8 =  DBASIC$HANDLERG DBASIC$INIT DBASIC$ENDSYS$READ LIB$ANALYZE_SDESC ww1 ,V1-003GG BIO_WRITEV1-003 2-JUN-2004 10:21Alpha BASIC V1.5-000 i8$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J BIO_WRITE =@8H?G#^y C~^~cGGG^/7} C//60[@;"8bTG@ZkPBc="]"tGXb@ZkpBG4Gxb8= C2v^JqS JQF C}(cc@Zkc4G"`Bhb@ZkcG]]}#k/& "&̂"4TGl DBASIC$INIT4`b# DBASIC$INIT4h@l DBASIC$INIT<lGLIIB$ANALYZE_SDESC<b#LIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4G SYS$WRITE4b# SYS$WRITE4@ SYS$WRITE4G DBASIC$END4b# DBASIC$END4@ DBASIC$END  =0J;=0 7DBASIC$HANDLER= DBASIC$INIT;P LIB$ANALYZE_SDESC DBASIC$END SYS$WRITE =|@ BIO_WRITEE E=5-, BIO_WRITEAlpha BASIC V1.5-000 = 4 K4= BIO_WRITE4=G?> $ = 8 =  DBASIC$HANDLER DBASIC$INIT DBASIC$END SYS$WRITE LIB$ANALYZE_SDESC ww1_,V1-002KK CLU_BROADCASTV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$LCODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC ` SYSBRDCSTSTUFF0J CLU_BROADCAST =#?G ^~(^0~8@H޴PX`>hcG`#GGy CG=} C[;"TGb@Zkc0B?$"4G! b=@Zk@BcG4GHb@Zk""xb%%e/cG"B3vM`J2J/@ZkPBG/@Zk@BcG4GHb@ZkBG "`B"G@ZkPBtGG@Zk/$d?""B3v`J2!H/@ZkPBG/@Zkc@Be 4G"C$}Hb @Zk@BGc4GHb/@Zk@Bc$4G"  ݰHb@ZkB @"="}]"tGb/@ZkB?$#V@"}! ="]"=tGb@ZkB?$T@"}! ="]"=tGb@ZkB?$"C! ="]"=tGb@ZkB?$#P@" } ! ="N]"=tGb@ZkK@B"="}$]"tGbc }@ZkB I@"="}]"tGb@ZkB"]"=btG/@ZkB"="]"tGb/@ZkBK@"="}]"tGb@Zk}?""B4G3v`J2H@@ZkB4GB"@ZkPBG/@Zk@Bc$Hb" @ZkBGN@"}TG="b@Zk`Bc "=" ݰ]"G}"hb/@Zk%?%)! DT///@Bc "4GHb@ZkBO% "="=]"tGb/@ZkB@"="]"tGb/@ZkB"c="]"(G4GGG Gb@ZkB"="bTG8@N@}@Zk`Bc %"" =="]"ݰG}"hb@Zk D/pBc"4Gxb@ZkcG ](]4G0}8@HݤPX`=hp#k//& "&̂"4dG| DBASIC$INIT4tb# DBASIC$INIT4Px@| DBASIC$INIT4G LIB$DATE_TIME4b# LIB$DATE_TIME4@ LIB$DATE_TIME, GSTR_LEN,b#STR_LEN, @STR_LEN4G OTS$MOVEM4@ OTS$MOVEM4G$OTS$FILL4 Q@$OTS$FILL, $G<STR_LEN,4b#STR_LEN, 8@<STR_LEN4<GXOTS$MOVE4T@XOTS$MOVE4XGhOTS$FILL4d@hOTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4GROTS$FILL4@OTS$FILL, GSTR_LEN,b#STR_LEN, @STR_LEN, GSTR_LEN,b#STR_LEN, @STR_LEN, G$STR_LEN,b#STR_LEN, @$STR_LEN4 $GTSSTR$LEFT4 Hb#STR$LEFT4 P@TSTR$LEFT4 TG STR$CONCAT4 |b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 Tb# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT0 0 4 GD STR$CONCAT4 4b# STR$CONCAT4 @@D STR$CONCAT4 DGl STR$CONCAT4 db# STR$CONCATU4 h@l STR$CONCAT4 pGSTR$LEFT4 b#STR$LEFT4 @STR$LEFT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @V STR$CONCAT4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G$OTS$FILL4 @$OTS$FILL, $GHSTR_LEN,0b#STR_LEN, D@HSTR_LEN4HGt STR$COPWY_DX4lb# STR$COPY_DX4p@t STR$COPY_DX4tG STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT, GSTR_LEN,b#STR_LEN, @STR_LEN4 G$STR$LEFT4 b#STR$LEFTX4 @$STR$LEFT4 $GTSTR$LEFT4 Hb#STR$LEFT4 P@TSTR$LEFT4TG SYS$BRKTHRU4b# SYS$BRKTHRU4@ SYS$BRKTHRU4G STR$COPY_DX4b# STR$COPY_DX4@ STRY$COPY_DX4G STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT4G, DBASIC$END4$b# DBASIC$END4(@, DBASIC$END@ @= ########## =OPA0:  DBASIC$END= ##########@=ZUnidentiP DBASIC$INIT= fied Mes p STR$COPY_DX8 OTS$MOVEM STR$LEFT STR$CONCAT=0 ;=p@ 7DBASIC$HANDLER= ; STR_LEN8OTS$FILL=  STR$ELEMENT=,(=sage [;@ LIB$DATE_TIME= ` SYS$BRKTHRU= 8OTS$MOVE =|@ CLU_BROADCASTI I=910 CLU_BROADCASTAlpha BASIC V1.5-0003 3= 44= CLU_BROADCAST4=\dd i  q w x  ~ ~  ܔ <     0 =  = 8 8DBASIC$HANDLER DBASIC$INITSTR$LEFT STR$CONCAT STR$COPY_DX DBASIC$END OTS$MOVEMOTS$FILLOTS$MOVE SYS$BRKTHRU STR$ELE]MENTSTR_LEN LIB$DATE_TIME ww1&b,V1-003LLCLU_MEMBERSHIPV1-003 2-JUN-2004 10:22Alpha BASIC V1.5-000 i($CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J`CLU_MEMBERSHIP =0(#?G^~^ ~(0cG^#GG9 C/= Cp[;TGxb"@ZkBGG"]="]"tGb@Zk@B$L@G TG="Hb@ZkB c"="tG]"b/@Zk$"="Gb}"0JFG]G@F]4JGݢݲGG]:v^K]Bc@Zk >///BcG4Gb@Zk0B"G]"tG8b@ZkPB D@"="tG]"Xb/@Zk0B"="8btG]" HH/@ZkPB_G="]"tGXb/@ZkBcGG="}"GGGb@Zk @B!D@="="TGHb/@ZkBGGc]"tGb@ZkBc"4Gb@ZkcG]]4G }(0@#k///& "&̂"4LGd DBASIC$INIT4Xb#` DBASIC$INIT4`@d DBASIC$INIT4dG STR$DUPL_CHAR4b#` STR$D`UPL_CHAR4@ STR$DUPL_CHAR4 G STR$COPY_DX4 b#` STR$COPY_DX4 @ STR$COPY_DX<GLIB$ANALYZE_SDESC<b#`LIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4b#` SYS$GETSYIW4lG| SYS$GETSYIW4ax@| SYS$GETSYIW,GSTR_LEN,b#`STR_LEN,@STR_LEN4 GSTR$LEFT4 b#`STR$LEFT4 @STR$LEFT4 G STR$CONCAT4b#` STR$CONCAT4 @ STR$CONCAT4 bG$STR$LEFT4 b#`STR$LEFT4 @$STR$LEFT4 $GD STR$CONCAT48b#` STR$CONCAT4 @@D STR$CONCAT4DGt SYS$GETSYIW4lb#` SYS$GETSYIW4p@t SYS$GETSYIW4 |G STR$COPY_DXc4 b#` STR$COPY_DX4 @ STR$COPY_DX4G STR_SUBTRACT4b#` STR_SUBTRACT4@ STR_SUBTRACT4G DBASIC$END4b#` DBASIC$END4@ DBASIC$END  DBASIC$END STR_SUBTRACTd;0 STR$DUPL_CHAR=,P SYS$GETSYIW=0;=@, 7DBASIC$HANDLER= STR$LEFT STR$COPY_DX STR$CONCAT=  DBASIC$INITSTR_LEN LIB$ANALYZE_SDESC =|e@CLU_MEMBERSHIPJ J=:21CLU_MEMBERSHIPAlpha BASIC V1.5-000' '= 4`4=CLU_MEMBERSHIP4=$ $  $ $  '  '  )  -  -  1  /  2 3 =  7  ?   = ( =  DBASIC$fHANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT STR$CONCAT DBASIC$END SYS$GETSYIW STR_SUBTRACTSTR_LEN LIB$ANALYZE_SDESC ww1,X1-002LLDCL_ENVI_DEPTHX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$g| _SYS_CODE@$LINKAGECTL$AG_CLIDATA PPD$L_PRCPRC_W_PROCLEVEL0JDCL_ENVI_DEPTH =|>C~^~G({0[8KCz C,H  K15@C 4GG~Ck.W JDä =0 ;=  ="7CTL$AG_CLIDATA7 PPD$L_PRC7PRC_W_PROCLEVEL whw1,X1-002PPDCL_ENVI_PROCEDUREX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_CODE$LINKAGE SYS$CMEXECCTL$AG_CLIDATA PPD$L_PRC PRC_L_IDFLNKIDF_L_FILENAME OTS$MOVEMOTS$FILL8JDCL_ENVI_PROCiEDURE8JHDCL___GET_PROCEDUREL L=>C~^ ( GG?G= }{`KfK05`C ]@0M8m@ CTG@ZkG (Ck|"  GG>C~^^ ~(08޴@HP>X^`~hGC8[@{H;KCz+CY @h,H C8 - I 4 A&HX[IG4qBGF>CG~AB@Zk~C >C([G~@Zk~C4GG^ ~(08ޤ@HjP>X^`~hCk.W JD4HG` SYS$CMEXEC4Lm# SYS$CMEXEC4\@` SYS$CMEXEC4GH OTS$MOVEM4D@H OTS$MOVEM4XGhOTS$FILL4d@hOTS$FILL =0 ;=0 ="k0  SYS$CMEXEC"H;=0;=p pOTS$FILL7 PPD$L_PRC7CTL$AG_CLIDATA7 PRC_L_IDFLNK OTS$MOVEM7IDF_L_FILENAME ww1i,X1-002MMFILE_ATTRIBUTESX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U l . ABS . . BLANK . $ABS$0 _SYS_DATA _SYS_CODE`$LINKAGESTR_LENSYS$OPEN SYS$CLOSE0JFILE_ATTRIBUTESP P=P== `OP4= H=P=,mT|4|=T4==X= ==(= =>C~^ GG== ](}08(-p4G((Q#,q>C^(">C0M8m@Zk(-C4G4q(GnGGzGPM4q,,>CXm@Zk(MCݢvJJ1UB `r]zwJJ1uB @MHmG>C4G@ZkCGCk ݢ\ }xKK1C?(RB(vV|\wJJ1B?0ݢQB0}\[ݢvJJ1B?8SB8]|ӀKK1C?}`TBڢز}{`KfK1aC?]@K|ӀKK15C?}`RXݢvJJ1UB?or]`KzwJJ1uB?ݢX}0KxKK1C?dҢPJܲ]z@KFK1AC}?hݢRJ}{`KfK1aCr?]@lK|ӀKK1Cg?}`XRR@KXݢvJJ1B\?hr]`KzwJJ15BQ? ݢOX }GJ,dGpSTR_LEN,hm#STR_LEN,l@pSTR_LEN4GSYS$OpPEN4m#SYS$OPEN4@SYS$OPEN4G SYS$CLOSE4m# SYS$CLOSE4 @ SYS$CLOSE =0 ;= ="""*;STR_LEN"  SYS$CLOSE" SYS$OPEN" ww1qE,V1-002HH FOR_SIGNALV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$`$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J FOR_SIGNAL =0#?G^~"^cGG/ TG@[0;Hb@ZkPB"c4GXb/@ZkcG]]4Gr#k///&̂"48GH DBASIC$INIT4@b# DBASIC$INIT4D@H DBASIC$INIT4HGd DBASIC$END4Xb# DBASIC$END4`@d DBASIC$END =0;=( 7DBASIC$HANDLER=;@s DBASIC$INIT DBASIC$END =|@ FOR_SIGNALF F=6.- FOR_SIGNALAlpha BASIC V1.5-000 = 44= FOR_SIGNAL4=&.+  =  = P PDBASIC$HAtNDLER DBASIC$INIT DBASIC$END ww1,V1-002FFFOR_STOPV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$`$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JFOR_STOP =0#?G^~"^cGGu/ TG@[0;Hb@ZkPB"c4GXb/@ZkcG]]4G#k///&̂"48GH DBASIC$INIT4@b# DBASIC$INIT4D@H DBASIC$INIT4HGd DBASIC$END4Xb# DBASIC$END4`@d DBASIC$END =0;=( v7DBASIC$HANDLER=;@ DBASIC$INIT DBASIC$END =|@FOR_STOPD D=4,+FOR_STOPAlpha BASIC V1.5-000 = 44=FOR_STOP4=&/, w  =  = P PDBASIC$HANDLER DBASIC$INIT DBASIC$END ww1,X1-002OOLAN_FORMAT_HEADERX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$f _SYS_DATA  _SYS_CODEH$LINKAGESYS$FAOL8JxLAN_FORMAT_HEADER =4=(!XB-!XB-!XB-!XB-!XB-!XB'4='!XB-!XB !XB !XB-!XB-!XB-!XB-!XB = >C~0^8@>H^P~X`h GG@?G4`C `C4GFUG@|" G08@>H^P~X`hCk0I4BG Jg AI/G @A.IK/vXKWJ 4 A\ KF XKGG @A?G>Gi//.iKwzK 4y AXKV JG zKFG> @A?/[/.K 4 AxKZ[KW JXG KGF @A>[?.|//J 4 AzJ[|KX KzG JGG? @A|?./V/J 4 A{J\KZ VKG JG[G @AV?? /.w/0M K 4 A|KVJ[ wKF K|Gw?>(}A ]GG8m@Zk ](}@Jd A/G[/.K 4 AxK @AZ[KGW JXG KGF @A>G[?G.|//J 4 AzJ[|KX KzG JGG? @A|?./V/J 4 A{J\KZ VKG JGz[G @AV?? /.w/ K|K 4 AVJ[ wKF K|GGw? @A>I/./IK 4 AvXKWJ\ KF XKGG @A?>i//.iK 4 AwzKXKV JG zKF8m>?(}A0M@Zk(}`J A.G/V/J 4 A{J @A\KGZ VKG JG[G @AV?G?AG /.w/ K 4 A|KVJ[ wKF KG|G @Aw?>I/./IKvXK 4 AWJ\ KF XKGG? @A>i//.iK 4 AwzKXKV JG zKGF @A>?/[/.K 4{ AxKZ[KW JXG KFG> @A[?.|//J 4 AzJ[|KX KzG JGG @A?|?./V/J{J 4 A\KZ VKG J[GGV?A? @A /.w/ K|K 4 AVJ[ wKF K|Gw?>>C^>C0M ~8m@ZkC4G4GDSYS$FAOL4<m#SYS$FAOL4@@DSYS$FAOL4m#SYS$FAOL4GSYS|$FAOL4@SYS$FAOL4GSYS$FAOL4m#SYS$FAOL4@SYS$FAOL =00 ;=p =""0 SYS$FAOL""; ww1b,X1-001MMLAN_STARTUP_PRMX1-}001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$& _SYS_DATA _SYS_CODEP$LINKAGE SYS$ASSIGNSYS$QIOW0JLAN_STARTUP_PRM\ \=0" Q  ` 4p p= >C~(^08 GG?G3u`C s`C `4GFTG@~|" G(08Ck/0M8m ]GG=G@Zk= ]( >CGC80GGGc_"<.C~(^08 GG==tG(PMXm@\"<<"0"@Zk8( @M=HmGG0"G@Zk(m-`M=hm4S"0"tG@Zk(M$Mm42"0"TG@Zk(m0M8m(S" 3"0"tG@Zk(Mm4G("@Zk(m0M8mtG(S" 3"0"@Zk( pMxm0"4G@ZkG(08Ck40GHLBR$INI_CONTROL44m#LBR$INI_CONTROL4D@HLBR$INI_CONTROL4PGpLBR$OPEN4Xm#LBR$OPEN4l@pLBR$OPEN4xGLBR$LOOKUP_KEY4m#LBR$LOOKUP_KEY4@LBR$LOOKUP_KEY4 GLBR$FIND4m#LBR$FIND4 @LBR$FIND4GLBR$GET_RECORD4m#LBR$GET_RECORD4@LBR$GET_RECORD4 GLIB$PUT_OUTPUT4 m#LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4GLBR$GET_RECORD4m#LBR$GET_RECORD4 @LBR$GET_RECORD4 G, LBR$CLOSE4 m# LBR$CLOSE4 (@, LBR$CLOSEX X=0( ;=@ ="; LBR$GET_RECORD"" LBR$OPEN"" LBR$INI_CONTROL"" LBR$LOOKUP_KEY"" LBR$CLOSE" LIB$PUT_OUTPUT" LBR$FIND" ww1$,X1-002KK LIB_AVAILABLEX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U   . ABS . . BLANK . $ABS$ _SYS_DATA _SYS_CODE$LINKAGESYS$FAOLIB$PUT_OUTPUTSYS$EXIT SYS$TRNLNM0J LIB_AVAILABLE =4= LNM$SYSTEM_TABLE 4= !AF_UNAVAILABLE 74=!AF_WHY_!UL)J4=8)This facility is temporarily unavailable.s=s4=s4=4=4=44= @ @=>C~^^ ~(08 GG({ KfK15`C/ ; <Pp@H:@PMXmCC{U"s5"GB@ZkA7@(ͦ0M8m4GTB@ZkG(ͦ`M0@hmCCC{V"s6"GB@ZkA!@( 0M8m4G"@Zk &DCG^ ~(08Ck|" GL @MHm0"4G@Zk>C^ GMmG"sU"GGG@ZkCk,XG|SYS$FAO,\m#SYS$FAO,x@|SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT,GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT4HG\SYS$EXIT4Lm#SYS$EXIT4X@\SYS$EXIT4 tG SYS$TRNLNM4 xm#p SYS$TRNLNM4 @ SYS$TRNLNM, ,=0 ;=@ ="; LIB$PUT_OUTPUT" SYS$EXIT"SYS$FAO"""SYS$FAO"""=0`; SYS$TRNLNM"""  ww1?m,X1-001KK LIB_CHECKSUM2X1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK .  _SYS_CODE@$LINKAGE OTS$DIV_I0J LIB_CHECKSUM2@ @=( >C~^^~ (G<CG1F"5CC6K!CG^~ (CkB@$C.Jw@@K#HzD3/Z 3KG. sHV JF>/V KFw@@K#HzDÐ =0 ;=0 ="0 OTS$DIV_I ww1,X1-002PPLIB_COMPARE_BLOCKSX1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 ix$CODE$$LINK$ $READ_ONLY$x $LITERAL$$ARRAY$DESC8J`LIB_COMPARE_BLOCKS =x#?G^~^ ~(08޴@HP>X^`~hpxcGp#GGy CGG} CTG"p[;xb@ZkBGG=""]"tGb@ZkBGc="]"tGb@ZkBGc="]"tGb@Zk0""="BbTG$,@ =@Zk@B"="}cG]"Hb@ZkB"="b]"tG@ZkPBc4GXb"@ZkG4G%G!///B4G"]"G}"Gb@Zk`B4Ghb"/@ZkCB"G@ G]"$G}"b C4G@Zk`B4G"hb@ZkC=]TG@!E G0$Bb C/"'BGB+9 BB,9@B="@Zk@Bc"="]"8^ ~ 4GG^~GG~G(0>Hb@ZkB"="b]"tG@ZkPBc4GXb"@Zk8@8@*1@!MA_0"B C%!TGb"="=@Zk@Bc"="]"GGHb/@ZkB"="btG]"@ZkPB"c4GXb/@ZkBc"4Gb@ZkcG]]4G }(08ݤ@HP=X]`}hpx#k//& "&̂"4|G DBASIC$INIT4b#` DBASIC$INIT4@ DBASIC$INIT4G STR$DUPL_CHAR4b#` STR$DUPL_CHAR4@ STR$DUPL_CHAR<GLIB$ANALYZE_SDESC<b#`LIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC<G LIB$ANALYZE_SDESC<b#`LIB$ANALYZE_SDESC<@ LIB$ANALYZE_SDESC4GD STR$COPY_DX4 b#` STR$COPY_DX4@@D STR$COPY_DX, DGhSYS$FAO, `b#`SYS$FAO, d@hSYS$FAO4 lGSTR$LEFT4 xb#`STR$LEFT4 @STR$LEFT4 GLIB$PUT_OUTPUT4b#`LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4G STR$LEN_EXTR4b#` STR$LEN_EXTR4@ STR$LEN_EXTR4G LIB$ICHAR4b#` LIB$ICHAR4@ LIB$ICHAR4GD STR$LEN_EXTR40b#` STR$LEN_EXTR4@@D STR$LEN_EXTR4DGX LIB$ICHAR4Pb#` LIB$ICHAR4T@X LIB$ICHAR4|G STR$COPY_DX4b#` STR$COPY_DX4@ STR$COPY_DX, GSYS$FAO, b#`SYS$FAO, @SYS$FAO4 G,STR$LEFT4 b#`STR$LEFT4 (@,STR$LEFT4 ,GDLIB$PUT_OUTPUT48b#`LIB$PUT_OUTPUT4 @@DLIB$PUT_OUTPUT4`G STR$COPY_DX4tb#` STR$COPY_DX4@ STR$COPY_DX, GSYS$FAO, b#`SYS$FAO, @SYS$FAO4 GSTR$LEFT4 b#`STR$LEFTp p4 @STR$LEFT4 GLIB$PUT_OUTPUT4b#`LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4G  DBASIC$END4b#` DBASIC$END4@  DBASIC$END  STR$DUPL_CHAR;  STR$LEN_EXTR LIB$ANALYZE_SDESC STR$COPY_DX STR$LEFT=0;=P? 7DBASIC$HANDLER=; SYS$FAO LIB$PUT_OUTPUT LIB$ICHAR DBASIC$INIT DBASIC$END =| @LIB_COMPARE_BLOCKS =h_ !UL difference!%S found !UL: !3UL = (!3UL,!3UL) !AF -- !AF [ Hex !4XL = (!2XL,!2XL) ]`= Differences in block !ULN N=>65LIB_COMPARE_BLOCKSAlpha BASIC V1.5-000 = 4`4= LIB_COMPARE_BLOCKS4=7/UUUUX[____i ii i umjjjj umpm wvpqm m h(@ = x =  DBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT STR$LEN_EXTR LIB$ICHAR DBASIC$ENDSYS$FAOLIB$PUT_OUTPUT LIB$ANALYZE_SDESC ww1,X1-002LLLIB_COUNT_BITSX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_CODE($LINKAGE0J LIB_COUNT_BITS =>C~^^~ (GGGPC~^^~ (0޴8@H>P^X~`h GG{ KfK2U`C[@\@[GCף&8C> "7JDG'O{#;dKG&G"G7JGPM>CG@ GGK&CD6H<CB@DBB@V@O'@XmK%CD'"H8CD#"E@OB_@<K&@޴K$CD"H6CD"D@B_@N%@CJ#CDB@CbB@$@C@ZkCG^~ (0ޤ8@H>P^X~`hCk|"  ,G|SYS$FAO,m#SYS$FAO,x@|SYS$FAO =0 ;=p/ ="0 OTS$DIV_I;PSYS$FAO""" ww1XP,V1-002II LIB_CVT_T_LV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i($CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0Jp LIB_CVT_T_L =0(#?G^~^~޴ (cG#GGY C/] C//p[P;"TGxb@ZkBGGc"=TGb/@Zk`B4G"c4Ghb/@Zk@BG4G4GTG"="]"}"GHb@Zk=4GB"0BG4GTG1v J0H@Zk@B"?tG=="]"G}"Hb@Zk=4GB"0BG1v J'HGGG@Zk//TG%/0B4GGB"GG@Zk/G/0B4GGB"GG@Zk/TG /0B4GGB"GG#/@Zk8DDGB"="]"b}"XD/ ݰG@ZkBc"GGGGb@ZkGIDB"=" ݰ]"Gb}"/@ZkBc"GGGGb@ZkG1XDB"=" ݰ]"Gb}"/@ZkBc"GGGGb@ZkGDB"="ݰ]"Gb}"/@ZkBc"GGGGb@ZkG  Bc"4Gb@ZkcG]G]}ݤ (0#/k///& "&̂"4dG| DBASIC$INIT4tb#p DBASIC$INIT4x@| DBASIC$INIT4|G STR$UPCASE4b#p STR$UPCASE4@ STR$UPCASE,GSTR_LEN,b#pSTR_LEN,@STR_LEN4 G STR$LEN_EXTR4b#p STR$LEN_EXTR4 @ STR$LEN_EXTR4 G(OTS$STRCMP_EQLP4 $@(OTS$STRCMP_EQLP4 (GX STR$LEN_EXTR4Pb#p STR$LEN_EXTR4 T@X STR$LEN_EXTR4 hGOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G$OTS$STRCMP_EQLP4 @$OTS$STRCMP_EQLP4 0Gd STR$POS_EXTR4 @b#p STR$POS_EXTR4 `@d STR$POS_EXTR4dG OTS$CVT_TB_L4b#p OTS$CVT_TB_L4@ OTS$CVT_TB_L4 G STR$POS_EXTR4 b#p STR$POS_EXTR4 @ STR$POS_EXTR4G OTS$CVT_TO_L4b#p OTS$CVT_TO_L4@ OTS$CVT_TO_L4 G$ STR$POS_EXTR4 b#p STR$POS_EXTR4 @$ STR$POS_EXTR4$GH OTS$CVT_TU_L4@b#p OTS$CVT_TU_L4D@H OTS$CVT_TU_L4 TG STR$POS_EXTR4 tb#p STR$POS_EXTR4 @ STR$POS_EXTR4G OTS$CVT_TZ_L4b#p OTS$CVT_TZ_L4@ OTS$CVT_TZ_L4G DBASIC$END4b#p DBASIC$END4@ DBASIC$ENDY Y OTS$CVT_TB_L=D  DBASIC$END OTS$CVT_TU_L STR$UPCASE=BX=%` STR$POS_EXTR=0;=08 7DBASIC$HANDLER=8OTS$STRCMP_EQLP STR$LEN_EXTR;STR_LEN DBASIC$INIT OTS$CVT_TO_L OTS$CVT_TZ_L=O= X =|@ LIB_CVT_T_LG G=7/. LIB_CVT_T_LAlpha BASIC V1.5-000G G= 4p4= LIB_CVT_T_L4=         W     4 = ( =   DBASIC$HANDLER DBASIC$INIT STR$LEN_EXTR STR$POS_EXTR DBASIC$ENDOTS$STRCMP_EQLPSTR_LEN STR$UPCASE OTS$CVT_TZ_L OTS$CVT_TU_L OTS$CVT_TO_L OTS$CVT_TB_L ww1Gt,V1-002SSLIB_FORMAT_PROTECTIONV1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . _SYS_CODE`$LINKAGE OTS$MOVEMOTS$FILL8JLIB_FORMAT_PROTECTION =>C~^^ ~(08GQ,0QH" CH 1@ G/G4 @zJ\KG?@ 1@ 4GG^ ~(08CkGTG/zJ4 @\KG?P@D 1@GG/zJ4 @\KG?@D 1@GG/zJ4 @\KG?AD 1@GG/zJ4 @\KG?CH 1@GG/zJ4 @\KG?BD 1@GTG/zJ4 @\KG?DD 1@GG/zJ4 @\KG?HD 1@GG/zJ4 @\KG?PD 1@GG/zJ4 @\KG?CH 1@GG/zJ4 @\KG?AH 1@}GTG/zJ4 @\KG?6AH 1@qGG/zJ4 @\KG?VAH 1@eGG/zJ4 @\KG?vAH 1@YGG/zJ4 @\KG?CH 1@MGG/zJ4 @\KG?AH 1@AGTG/zJ4 @\KG?AH 1@5GG/zJ4 @\KG?AH 1@)GG/zJ4 @\KG?AH 1@GG/zJ4 @\KG?CH 1@G4G/zJ4 @\KG?@;HGyGGP[`J>C4qB qBF~AB@Zk~C?>C0[DG~@Zk~CQ/\ QK\D4lG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL =0 ;=@< ="0OTS$FILLT;P OTS$MOVEM ww1k,X1-001OOLIB_GENERATE_SEEDX1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS  . . BLANK . $ABS$ _SYS_DATA| _SYS_CODEH$LINKAGE SYS$GETTIM8JLIB_GENERATE_SEED( (=8 8=|>C~^ ( GG K15`CG 0M4G8m@ @Zk@-4GGѢFG (Ck4,GD SYS$GETTIM48m# SYS$GETTIM4@@D SYS$GETTIM =0 ;=0 ="0  SYS$GETTIM"; ww18?,X1-002KK LIB_GET_INPUTX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA< _SYS_CODEx$LINKAGE0  _KEY_TABLE_ID0  _KEYBOARD_ID SMG$CREATE_KEY_TABLE(SMG$CREATE_VIRTUAL_KEYBOARD SMG$READ_COMPOSED_LINESMG$_EOFAMAC$EMUL_CALL0J LIB_GET_INPUT( (=x x=D<>C~(^08 GG== ](m[ @@M( Hm4G@Zk5(ͦ0M8m4GB@Zk.}TGtG{`KfK0[C >C0@>C0@>Cݢ(G޲G>CC~^GGGBC>CZ@pͦ^G`MhmG@ZkP ^0CC$z G(08Ck<8GLSMG$CREATE_KEY_TABLE<@m#SMG$CREATE_KEY_TABLE<H@LSMG$CREATE_KEY_TABLEDTGhSMG$CREATE_VIRTUAL_KEYBOARDDXm#SMG$CREATE_VIRTUAL_KEYBOARDDd@hSMG$CREATE_VIRTUAL_KEYBOARD4GAMAC$EMUL_CALL4m#AMAC$EMUL_CALL4@AMAC$EMUL_CALL, ,=0( ;=@ ="";0SMG$CREATE_VIRTUAL_KEYBOARD"(SMG$CREATE_KEY_TABLE"7SMG$_EOF`AMAC$EMUL_CALL7 SMG$READ_COMPOSED_LINE ww18,X1-002LLLIB_OUTPUT_BKTX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA _SYS_CODEP$LINKAGESYS$FAOLIB$PUT_OUTPUT0JLIB_OUTPUT_BKT =4=4=4=!39 Area/Index No. !UB!/!39
Freepointer !UW (!-!XW)!/!39 !19 Last !UB (!-!XB)!/!39 !19 Control !XB!/ =>C~^^ ~(08޴@H GG{ KfK15`C S |" G^ ~(08ޤ@HCkC>C B/.A@XKGW J@@WGC0^ (b ~@@B/ .XKW J@@WGC^/ /KZ KT@@GC. b/J\ vKF4@@CB^...B/JbW J( JF[ \K0MF8mCCX"8""@Zk(m@MC4G"Hm@Zk ,LGpSYS$FAO,Tm#SYS$FAO,l@pSYS$FAO4tGLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT =0 ;=P| =";SYS$FAO""" * LIB$PUT_OUTPUT" ww1f,X1-003LLLIB_OUTPUT_FH2X1-003 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$k _SYS_DATA _SYS_CODE$LINKAGESYS$FAOLIB$PUT_OUTPUTSTR_LENOTS$MOVE0JLIB_OUTPUT_FH2x x=4=4f=V4=V4>=8F4=H<!55Segment number !UW!/!10* File Identification : (!UW,!UW,!UW)!/!12* Extension File ID : (!UW,!UW,!UW)!/!13* Backlink File ID : (!UW,!UW,!UW)!/!19* File owner : !%U!/!8* Identification Offset : !UB!/!19* Map Offset : !UB!/!8* Access Control Offset : !UB!/!14* Reserved Offset : !UB4=!20* File name : !AF!/!16* File revision : !UW!/!16* Creation date : !%D!/!16* Revision date : !%D!/!18* Expiry date : !%D!/!18* Backup date : !%D&4=!14* File Protection : !XW!/!12* Record Protection : !XW!/!15* Map Area Inuse : !UB!/!18* Access Mode : !XB!/!19* Journaling : !XB!/!9* Recovery Unit Active : !XB!/!14* High-water mark : !ULx4=x!9* File characteristics : !XL!/!12* Record attributes : !XL !XL !XL !XL!/!33* !XL !XL !XL !XL!/!21* Checksum : !XW!/$ $ =>C~^^ ~(08޴@HP>X^`h GG{ KfK65`C|" G^ ~(08ޤ@HP>X^`hCkC>CH/.tAXKTAW J4AWGGCh^//KZ KGC`.h/J\ uKAFCXHP^<HF.Ih/J\ uKFC@DHTA8^TAB/E/KU KGC0h/.zKX JxGC(~A //KZ KGC TAA . H/J[ \KFAC. /J /S K(Z KFh.CW"{JxmzFpMC7">"@Zk(M8mC4G"0M@Zk(@MDv7!@W!@GGG@Zk@MGGG@Zk@M&ATGBATHB@Zkv MmGG@@@@W!f7"n"TG@Zk>C(޴@f|#\"~<"~"TG..{.JW J/{JFZ KXmzFPMCCC@Zk( 0M8mC"4G@ZkL( !1 @>C4 A>TGI.Lh/J\ uKFTACHHtA^;/>/KU K(GCW":.=/7""J8Z K@hFPMXmC@Zk(M8mC"0M4G@Zk//">CK(MU KGGZ"C:"0"h`M(~  h~$(hm,04h@Zk(m0MC4G"8m@Zk ,  m#SYS$FAO, G(SYS$FAO, $@(SYS$FAO4,m#LIB$PUT_OUTPUT4<GDLIB$PUT_OUTPUT4@@DLIB$PUT_OUTPUT4LGtOTS$MOVE4p@tOTS$MOVE4tGOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE, GSTR_LEN, m#STR_LEN, @STR_LEN,,m#SYS$FAO,4GHSYS$FAO,D@HSYS$FAO4LGdLIB$PUT_OUTPUT4Pm#LIB$PUT_OUTPUT4`@dLIB$PUT_OUTPUT,GSYS$FAO,m#SYS$FAO,@SYS$FAO4m#LIB$PUT_OUTPUT4G LIB$PUT_OUTPUT4@ LIB$PUT_OUTPUT,\GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT =0 ;=p' ="; LIB$PUT_OUTPUT"OTS$MOVESYS$FAO""" SYS$FAO""" * SYS$FAO"""  STR_LEN" ww1&,X1-003LLLIB_OUTPUT_HM2X1-003 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$) _SYS_DATA _SYS_CODE$LINKAGESYS$FAOLIB$PUT_OUTPUT0JLIB_OUTPUT_HM2  =4=4=4=ODS Version !UB.!UB!12* ClusterSize !10UB CheckSums !XW,!XW!/HomeLBN !10UL AltHomeLBN !10UL AltIdxLBN !10UL!/HomeVBN !10UW AltHomeVBN !10UW AltIdxVBN !10UW!/IBmapLBN !10UL IBmapVBN !10UW IBmapSize !10UW#4=Maximum files !10UW Reserved files !10UW Device type !10UW!/Relative Vol. !10UW Set count !10UW Window size !10UB!/Extend size !10UW LRU limit !10UB Volume char !6* !XW!/Serial number !10UL Volume owner !%UH4=XL!10!XL !14!XW !14!XW !14!XW_e4=pc!15!%D !15!%D!/!15!%D !15!%D]4=e]!24"!AF" !24"!AF"!/!24"!AF" !24"!AF"!/ =>C~^^ ~(08޴@H GG{ KfK15`C |" G^ ~(08ޤ@HCkC>C BB@4GP^//KV KTB@GCHb@~B8^//KV K#GC0b(~B ^TG@.B/J[ \KFA@C޶:/=/KV KGA@C./ b./J Z K(mwJFV KPMvF[";""XmCC@Zk(ͦ0M8mC"4G@Zk,>CTE@8Gb0~H@*B/-.XKW JH@WGC(^E/H/KZ KGC F.Ib/J\ vKD@FCDB^(TD@&.)b/J\ vK(ͦFxmCV"6"".%."JbX JpMF$C@Zk( 0M8mC"4G@Zk8¢>CF@(޶G6.9B/W"7"J0b[ \K@MF4HmC "@Zk(m0MC4G"8m@Zk(@MG@K@I@J@>CHmC޴CCW"7"]"G@Zk(0M8mC"4G@Zk#bC(m_#"#>CBCB`MGCG ޴["޶;""GCGtGhm@Zk(ͦ0M8mC"4G@Zk ,lGSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT, Tm#SYS$FAO, GSYS$FAO, @SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT,GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT, G`SYS$FAO,8m#SYS$FAO,\@`SYS$FAO4dG|LIB$PUT_OUTPUT4hm#LIB$PUT_OUTPUT4x@|LIB$PUT_OUTPUT,GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT =0 ;=P| ="; LIB$PUT_OUTPUT"SYS$FAO"""SYS$FAO"""SYS$FAO"""  SYS$FAO""" ww1,V1-002NNLIB_OUTPUT_SEG_TV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC8JPLIB_OUTPUT_SEG_T$ $=#?G^~^~ ޴(08>@^HcG#y CG=]/} C//TG"P[;Xb@Zk@BG =""]"tGHb@Zk0B="c]"tG8b@Zk==Bb`!#v`H @ #@PFFDG39`@dB@ZkGG7$ LB9F@="="bTG8B/BC69B BF6 B8B/)9B*9C@ZkBc"="]"GGGGb@Zk=pB"="xb]"tG=@Zk`Bc4Ghb"@Zk8@ @/_Bc"4Gb@ZkcG]]4G} ݤ(08=@]HP#k/& "&̂"4 |G DBASIC$INIT4 b#P DBASIC$INIT4 @ DBASIC$INIT4 G STR$DUPL_CHAR4 b#P STR$DUPL_CHAR4 @ STR$DUPL_CHAR<GLIB$ANALYZE_SDESC<b#PLIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4G, OTS$DIV_I_O4b#P OTS$DIV_I_O4(@, OTS$DIV_I_O4HG STR$COPY_DX4`b#P STR$COPY_DX4@ STR$COPY_DX,GSYS$FAO,b#PSYS$FAO,@SYS$FAO4GSTR$LEFT4b#PSTR$LEFT4@STR$LEFT4 GLIB$PUT_OUTPUT4b#PLIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4G, DBASIC$END4$b#P DBASIC$END4(@, DBASIC$END  STR$COPY_DX DBASIC$END= !6UL-[!AF]0;@ OTS$DIV_I_O=0;=PD 7DBASIC$HANDLER= LIB$ANALYZE_SDESC STR$DUPL_CHAR DBASIC$INIT LIB$PUT_OUTPUTSTR$LEFTSYS$FAO =|@LIB_OUTPUT_SEG_TL L=<43LIB_OUTPUT_SEG_TAlpha BASIC V1.5-000, ,= 4P4=LIB_OUTPUT_SEG_T4=___bbffgv | v w 7|| u0 =  =  DBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT DBASIC$END OTS$DIV_I_OSYS$FAOLIB$PUT_OUTPUT LIB$ANALYZE_SDESC ww1,V1-002PPLIB_OUTPUT_SEG_TZBV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC8JpLIB_OUTPUT_SEG_TZB` ` =#?G^~^~޴>^~cG#GGy C=]} C/[`;"TGb@ZkBG "]"tG@ZkB"b="G@ZkPBG="c]"tGXb@Zk=pBxb0!$vH"F $@ @rF$BAFF69@GB/@ZkGG/|%!/LB4G"]"}"Gb 8B=%AB59 A/89C49B C$GG8 C 8C] /@Zk0B4G"8b@ZkCY@A!9@A TG@=$ C/&@///B+A4G"49B `AGG]"}"b@Zk9A݄AFX0B= LA4G8b"@ZkC 8`A@ jA,$/ C+9`A@"B="TG="b/@ZkB"="c]"G}"b@ZkB"="b]"tG@ZkBc4Gb"@Zk8@ @/_Bc"4Gb@ZkcG]]4G}ݤ=]}#k///& "&̂"&"4tG DBASIC$INIT4b#p DBASIC$INIT4@ DBASIC$INIT4 GOTS$ZERO4 @OTS$ZERO4 G STR$DUPL_CHAR4 b#p STR$DUPL_CHAR4 @ STR$DUPL_CHAR<GLIB$ANALYZE_SDESC<b#pLIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4GD OTS$DIV_I_O4b#p OTS$DIV_I_O4@@D OTS$DIV_I_O4 hG STR$LEN_EXTR4b#p STR$LEN_EXTR4 @ STR$LEN_EXTR4G LIB$ICHAR4b#p LIB$ICHAR4@ LIB$ICHAR4 GX STR$LEN_EXTR4Pb#p STR$LEN_EXTR4 T@X STR$LEN_EXTR4hG LIB$ICHAR4xb#p LIB$ICHAR4@ LIB$ICHAR4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4GSYS$FAOL4b#pSYS$FAOL4@SYS$FAOL4GSTR$LEFT4b#pSTR$LEFT4@STR$LEFT4G4LIB$PUT_OUTPUT4(b#pLIB$PUT_OUTPUT40@4LIB$PUT_OUTPUT4DG\ DBASIC$END4Tb#p DBASIC$END4X@\ DBASIC$END  DBASIC$END STR$COPY_DXSYS$FAOL DBASIC$INIT8OTS$ZEROP STR$DUPL_CHAR STR$LEN_EXTR=0;=L 7DBASIC$HANDLER= LIB$ICHAR; LIB$ANALYZE_SDESC; OTS$DIV_I_OSTR$LEFTLIB$PUT_OUTPUT =|@LIB_OUTPUT_SEG_TZB> >=& [!#]-!5UL-[!XB!#(3XB)]N N=>65LIB_OUTPUT_SEG_TZBAlpha BASIC V1.5-000 = 4p4= LIB_OUTPUT_SEG_TZB4=@8ccccff kj pkjlkmu | | }} 0{@  =  = H HDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$LEN_EXTR LIB$ICHAR STR$COPY_DXSTR$LEFT DBASIC$ENDOTS$ZERO OTS$DIV_I_OSYS$FAOLLIB$PUT_OUTPUT LIB$ANALYZE_SDESC ww1E,V1-002OOLIB_OUTPUT_SEG_ZBV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC8J`LIB_OUTPUT_SEG_ZB\ \ =#?G^~^~޴>^~cG#GGy C=]} C/[`;"TGb@ZkBG "GtG]"@ZkBb"="@Zk=PBXb0!$vH"F $@ @rF%BAFF69@GB@ZkGGt%!/LB4G"G]"}"b 8B%A=99 A89C=G CF8 C/ 8C@Zk0B"4G8b@ZkC!9@AY@A TG@=$/ C%@//B+A4G"49B X`AGG]"}"b@Zk9A}AFX0B= LA4G8b"@ZkC 8`A@ jA,$/ C+9`A@"B="TG="b/@ZkpB"="c]"G}"xb@ZkB"="b]"tG@ZkBc4Gb"@Zk8@ @/_Bc"4Gb@ZkcG]]4G}ݤ=]}#k///& "&̂"&"4tG DBASIC$INIT4b#` DBASIC$INIT4@ DBASIC$INIT4GOTS$ZERO4@OTS$ZERO4 G STR$DUPL_CHAR4 b#` STR$DUPL_CHAR4 @ STR$DUPL_CHAR4G OTS$DIV_I_O4b#` OTS$DIV_I_O4@ OTS$DIV_I_O4 4G STR$LEN_EXTR4 Pb#` STR$LEN_EXTR4 @ STR$LEN_EXTR4 G LIB$ICHAR4b#` LIB$ICHAR4 @ LIB$ICHAR4 G STR$LEN_EXTR4 b#` STR$LEN_EXTR4 @ STR$LEN_EXTR4 G4 LIB$ICHAR4(b#` LIB$ICHAR4 0@4 LIB$ICHAR4`G STR$COPY_DX4xb#` STR$COPY_DX4@ STR$COPY_DX4GSYS$FAOL4b#`SYS$FAOL4@SYS$FAOL4GSTR$LEFT4b#`STR$LEFT4@STR$LEFT4GLIB$PUT_OUTPUT4b#`LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT4G  DBASIC$END4b#` DBASIC$END4@  DBASIC$END LIB$PUT_OUTPUTSTR$LEFT DBASIC$INIT8OTS$ZERO@ STR$DUPL_CHAR STR$LEN_EXTR=0;=L 7DBASIC$HANDLER=  LIB$ICHAR; OTS$DIV_I_O;SYS$FAOL STR$COPY_DX DBASIC$END =|@LIB_OUTPUT_SEG_ZB1 1=!6UL-[!XB!#(3XB)]M M==54LIB_OUTPUT_SEG_ZBAlpha BASIC V1.5-000| |= 4`4=LIB_OUTPUT_SEG_ZB4=`` ``dc idcedfn u u|vx}} t@  =  = ( (DBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$LEN_EXTR LIB$ICHAR STR$COPY_DXSTR$LEFT DBASIC$ENDOTS$ZERO OTS$DIV_I_OSYS$FAOLLIB$PUT_OUTPUT ww1e,X1-001HH LIB_RANDOMX1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U( ( . ABS . . BLANK . $ABS$ _SYS_DATA _SYS_CODEp$LINKAGEAMAC$FLT_CVTQF MTH$RANDOM AMAC$FLT_MULFAMAC$FLT_CVTFL0J LIB_RANDOM = >C~8^@^H~PX GG= =(]0}G K0`C% ]0B }[Hm"B@M0@@C@Zk0M8mC4G@Zk`MhmCC@ZkPMCXmC@ZkC 0]4G|bCG8@^H~PXCk4lm#AMAC$FLT_CVTQF4tGAMAC$FLT_CVTQF4@AMAC$FLT_CVTQF4G MTH$RANDOM4m# MTH$RANDOM4@ MTH$RANDOM4G AMAC$FLT_MULF4m# AMAC$FLT_MULF4@ AMAC$FLT_MULF4GAMAC$FLT_CVTFL4m#AMAC$FLT_CVTFL4@AMAC$FLT_CVTFL =08 ;=` =""0  MTH$RANDOM" AMAC$FLT_CVTQF AMAC$FLT_CVTFL  AMAC$FLT_MULF ww1B,X1-001OOLIB_SUB_ASC_TIMESX1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA4 _SYS_CODE`$LINKAGE SYS$BINTIM LIB$SUB_TIMES SYS$ASCTIM8JLIB_SUB_ASC_TIMES8 8=  =<4>C~(^08 GG (G K3u`C 4`= ]TG0M(-8m@Zk= ]*(>C0MBG>C ]TG >8m@Zk ]C(ͦPM ]tGXmBBG@Zk ](M>CG>CBCHm^>C@M^GG ~@ZkCG(08Ck4XGh SYS$BINTIM4`m# SYS$BINTIM4d@h SYS$BINTIM4|G SYS$BINTIM4m# SYS$BINTIM4@ SYS$BINTIM4G LIB$SUB_TIMES4m# LIB$SUB_TIMES4@ LIB$SUB_TIMES4m# SYS$ASCTIM4G SYS$ASCTIM4@ SYS$ASCTIM =0( ;=@ ="";  SYS$BINTIM"  SYS$ASCTIM""  LIB$SUB_TIMES"" ww1P,X1-001NNLIB_VALIDATE_FH2X1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA _SYS_CODE($LINKAGE8JLIB_VALIDATE_FH2 =>C~^^~ (GC4GGGCA/AKT @$HK#1`@T @DHRK1B "?G#C GG^~ (Ckb4G0`JF1B?FBF4GPJ1tB?FtBRG_4GpK1B?FBFpK1UC?"P K15 C?J?RK?"0 K8¢PKDPJ:C_GzDD4G1BB?FRG_/Y KYGd d=0 ;=0 =" ww1E",X1-002II PATCH_BLOCKX1-002 2-JUN-2004 10:22Alpha BASIC V1.5-0008 8i $CODE$9$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JLIB_PATCH_BLOCK8JLIB_PATCH_VALID_BYTE8JX LIB_PATCH_INPUT_INTEGER = p#?G^~^ ~(08޴@HP>X^`~hpx޵cG`#GGY CG/] C;h[TGpb"1"@ZkBtGx"="G]"tGb@ZkBG"="G]"tGb/@ZkBG =""]"tGb/@ZkxBK@"="$TGb @ZkHB"="c]"tGPb@ZkB"="cTGb@Zk=C!CD$$ $z %*!?%)! G 4G!///!///8BG]"}G}"@b"@Zk(B4G0b"/@ZkCx=|]@FGF$B C1v J0AJ`B"/  B4`F4G@Zk0BG/@Zk//x=|4GpB"B1v J0J/  B4G/@Zk0BG/@Zk$@8B"="* (@}tG]"@b@ZkBX "="=]"tGb@Zkx}|]B vH1v`JY@0J3v`JO ] BTF 9@"2AJ BG@Zk0BG@ZkC//xݢ/D|B" BTG6vJ0HYB"/419B] BTF@Zk0BG/@Zk+//8B"="]"}=tG@b@ZkB ]@"="=]"tGb@Zkx}|]B vH1v`JY@0J3v`J ] BTF 9@"2AJ BG@Zk0BG@Zkh"xB"="bTG+@=/@ZkBcx "="޵G]"GGGb@ZkB"="btG]"/@ZkHB"="c]"tGPb@ZkB"="]"}tGb@Zk=4GXB"BG1v J0I@Zk=!09 @ Fx/]B"="}tGbGB]"@Zk=4GB"BGtG1v J0H/@ZkBD"="}]"b@Zk=4GhB"BG1v J0H@ZkE/ GL/h"?#"xBb="A&@ =ݰTG@ZkB"c4Gb/@Zk5//,/" FE8B}"="]"tG@b/@ZkáG.vI A/ 9Ac=1v J B5aJ}]B. A4F2AJ3v`J@ .BG@Zk0BG@Zk=8 C"=8F=/xBK@ݱTG"="b@ZkHB"c="]"tGPb@ZkB"TG="cb@ZkC-C DqHBc4GPb"@ZkcG]]4G }(08ݤ@HP=X]`}hpxݥ#k//#?G^~^~cG#GY C=/] C//;0["8bTGl1"/@ZkGG4GG///="0"&@BTGHb*s"!0@"/ =G="}@ZkPB"c4GXb/@ZkBc"4Gb@ZkcG]G]}#/k///#?G^~^~cG#GGy CGG} C[X;"bTG@ZkhBGG]"ctGpb@ZkBGGGcTGb@ZkHBcG4GPb/@ZkC8BG]"W4G"tG@b@Zk=4GB"BGTG4GG1v J0H@Zk//B"]"Gb}"=B9=/@ZkB4G"b@ZkC@$ C*8B4G"]"=GtG@b@Zk=4GB"BG1v J0H@Zk///8B`"G@btG]"@ZkxB"cGTGb@ZkG}Bc4G"b@ZkcG]]}#/k///& "&̂"4G DBASIC$INIT4b# DBASIC$INIT4@ DBASIC$INIT4G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4@ STR$DUPL_CHAR4G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4@ STR$DUPL_CHAR4G4 STR$DUPL_CHAR4 (b# STR$DUPL_CHAR40@4 STR$DUPL_CHAR44Gd STR$COPY_DX4Tb# STR$COPY_DX4`@d STR$COPY_DX <'dGLIB_PATCH_INPUT_INTEGER<(|b#LIB_PATCH_INPUT_INTEGER<'@LIB_PATCH_INPUT_INTEGER<GLIB_PATCH_VALID_BYTE<b#LIB_PATCH_VALID_BYTE<@LIB_PATCH_VALID_BYTE4G, STR$LEN_EXTR4b# STR$LEN_EXTR4(@, STR$LEN_EXTR4,GD LIB$ICHAR44b# LIB$ICHAR4@@D LIB$ICHAR4!dG OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4!G OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4%G$ STR$COPY_R4&b# STR$COPY_R4% @$ STR$COPY_R4$GL STR$CONCAT4Db# STR$CONCAT4H@L STR$CONCAT4!\G OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4!G OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4%G4 STR$COPY_R4&,b# STR$COPY_R4%0@4 STR$COPY_R44G\ STR$CONCAT4Tb# STR$CONCAT4X@\ STR$CONCAT4!lG OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX,GSYS$FAO,b#SYS$FAO,@SYS$FAO4 GDSTR$LEFT4 ,b#STR$LEFT4 @@DSTR$LEFT<'DGdLIB_PATCH_INPUT_INTEGER<(\b#LIB_PATCH_INPUT_INTEGER<'`@dLIB_PATCH_INPUT_INTEGER4 dGSTR$LEFT4 b#STR$LEFT4 @STR$LEFT4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GSTR$LEFT4 b#STR$LEFT4 @STR$LEFT4 G$OTS$STRCMP_EQLP4 @$OTS$STRCMP_EQLP4 $GDSTR$LEFT4 <b#STR$LEFT4 @@DSTR$LEFT4 TGhOTS$STRCMP_EQLP4 d@hOTS$STRCMP_EQLP4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT 4%G$ STR$COPY_R4&b# STR$COPY_R4% @$ STR$COPY_R4!dG OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX<'GLIB_PATCH_INPUT_INTEGER<(b#LIB_PATCH_INPUT_INTEGER<'@LIB_PATCH_INPUT_INTEGER<GLIB_PATCH_VALID_BYTE<b#LIB_PATCH_VALID_BYTE<@LIB_PATCH_VALID_BYTE4,GD DBASIC$END48b# DBASIC$END4@@D DBASIC$END4G DBASIC$INIT4 b# DBASIC$INIT4 @ DBASIC$INIT4P G STR$COPY_DX4X b# STR$COPY_DX4 @ STR$COPY_DX4 G LIB$PUT_OUTPUT4 b#LIB$PUT_OUTPUT4 @ LIB$PUT_OUTPUT4 G DBASIC$END4 b# DBASIC$END4 @ DBASIC$END4D G\ DBASIC$INIT4P b#X DBASIC$INIT4X @\ DBASIC$INIT4\ G LIB_GET_INPUT4 b#X LIB_GET_INPUT4 @ LIB_GET_INPUT4 G STR_COLLAPSE4 b#X STR_COLLAPSE4 @ STR_COLLAPSE, G STR_LEN, b#XSTR_LEN, @ STR_LEN4 G STR$LEFT4 b#XSTR$LEFT4 @ STR$LEFT4  G$ OTS$STRCMP_EQLP4 @$ OTS$STRCMP_EQLP44 Gd STR$LEN_EXTR4D b#X STR$LEN_EXTR4` @d STR$LEN_EXTR4d Gx LIB$ICHAR4p b#X LIB$ICHAR4t @x LIB$ICHAR4 G STR$LEFT4 b#XSTR$LEFT4 @ STR$LEFT4 G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4  G STR$LEFT4  b#XSTR$LEFT4  @ STR$LEFT4 G4 LIB_CVT_T_L4, b#X LIB_CVT_T_L40 @4 LIB_CVT_T_L4< GT DBASIC$END4L b#X DBASIC$END4P @T DBASIC$END  STR$LEN_EXTR DBASIC$END=^0 DBASIC$INIT STR_COLLAPSE8OTS$STRCMP_EQLP=0 ;=0< 7DBASIC$HANDLER= STR$LEFT STR_LEN ; LIB_GET_INPUT LIB_CVT_T_L=' LIB$ICHAR=0;=(  7DBASIC$HANDLER=;@ STR$COPY_DXLIB$PUT_OUTPUT=ropSYS$FAO=E STR$CONCAT LIB_PATCH_VALID_BYTE STR$DUPL_CHAR8 OTS$MOVEM=0;=X 7DBASIC$HANDLER=8OTS$FILL% STR$COPY_R('LIB_PATCH_INPUT_INTEGER=Byte? (=+0=e8=   =(|p@LIB_PATCH_BLOCK|@LIB_PATCH_VALID_BYTE =|@LIB_PATCH_INPUT_INTEGER =8*%PATCH-E-BADBYTE, byte value out of bounds0=0$%PATCH-E-INVBYTE, invalid byte valueX=2*!3UL Old= (%x!2XL,%o!3OL) !3AS !3UL, New= G G=7/. PATCH_BLOCKAlpha BASIC V1.5-000, ,= 44=LIB_PATCH_BLOCK4=R R R R  V  Y 0  w  s  b  `  b  b  b  b  f  l  p  p  w  w  }  z  y  w             1 a C  _ J H =  = !44="LIB_PATCH_VALID_BYTE4=XPO     f f g   $ = P = $ 4X4=%LIB_PATCH_INPUT_INTEGER 4=zy n n n r u x x y  o8 n =  = 0 0DBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DX STR$LEN_EXTR LIB$ICHAR STR$COPY_R STR$CONCATSTR$LEFT DBASIC$ENDDBASIC$HANDLERDBASIC$HANDLEROTS$STRCMP_EQLP OTS$MOVEMOTS$FILLSYS$FAO LIB_PATCH_VALID_BYTE LIB_PATCH_INPUT_INTEGERLIB$PUT_OUTPUTSTR_LEN STR_COLLAPSE L IB_CVT_T_L LIB_GET_INPUT ww1Y,X1-002LLSTR_CHANGECASEX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$t _SYS_CODEp$LINKAGE OTS$MOVEMOTS$FILL0J STR_LOWERCASE0JPP STR_UPPERCASEd d =|t>C~^^ ~(08޴@HP>X^`~hGGGGG>C~^^ ~(08޴@HP>X^`~h;jCG4G K25@C @w KJ2UBR@S@T Qq@IR@O0IM K25C@I@IG4qB>CF@[G>CG qBAB~@Zk~DC 0[>CG~@Zk~CCDCC.@.J3B@C/4GCK2UOC_FSOCG.JVJGzJF>"1@@0`@_4GG^ ~(08ޤ@HP>X^`~ hCk|"  GL .J3B@/4GK2UCSC_FSG@.JWJF|KF>"1@@0`@_4G  OTS$MOVEM4@  OTS$MOVEM40GDOTS$FILL4@@DOTS$FILL =0 ;=p ="0OTS$FILL OTS$MOV EM=0P;=p ww1, CC STR_CMATCH 2-JUN-2004 10:22Alpha BASIC V1.5-000 iD$CODE$$LINK$D $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_CMATCH =#?G^~^~ ޴>^~ (0޵8@^cG#Gy C=]_} C`[;TGb"@ZkBGGGGGG" G4Gb@Zk 4G/hB4Gpb"@ZkB4G"b@ZkWCA/=B4G( P@AK@Ab/@ZkHB4G"Pb@ZkXB="GGtG`b@Zk 8@A]CA/B*9@A 4GG}="="]"tGb@ZkB="GtGb/@ZkB="GtGb/@Zk8B"="TG@b@ZkB!8B"=" C%]TGk!@b}@Zk8B*K@"=" ]_%TG]@b@Zk"="]"c}"G"Gb@8BTG "="@b@Zk8B" ="TG@b@Zk8BTG("="@b@Zk8BW@0"="}TG@b@Zk8B+K@8"="}]TG@b@Zk"c8="0]"(}"GGb"@8B@"="TG@b@Zk8BTG"@="@b@Zk}+v`I/ cM,vI A! A = W(](=W=@؃M0}0}W}HBX"PbTG"@Zk_ 4G/>///G 4G/t///B4Gb"@Zkk//88W/@TG/I/HBTGPb"0"@Zk@@W@T%W/&_H=H=GGG) A/`}4G/\`// 8@A LA?B4G]"="]"G}"b@ZkB4G"="]=]"}"Gb@Zk}=G=B3v`J2!H1v J0H/@Zk///HB"Pb("TG/@T@ZkHB""TGPb/@ZkG// 8@A @A/gB4G"]="]"Gb}"/@Zk}=G=hB3v`J2!H1v J0H/@ZkxB="]"4GtGb@Zk! @ACCP=PC@$ CW_%W&_X=X}]`@rF_HB8@TGPb"@"@ZkHB""TGPb/@ZkxB 9@A"="tG]"b@ZkXB"="]"tG`b@ZkB8@A"="tG]"b@ZkXB"="]"tG`b@ZkB4G"b@Zkk/*9@A&//xB!9@AH"="=tG]"b@ZkB4GP"="]]"tGb@ZkXBX"H="P]"tG`b@ZkB`"8@A="]"tGb@ZkXB"X="`]"tG`b@ZkB"4Gb@Zk/k///xB!9@h"="=tG]"b@ZkB4Gp"`="`h]h]"tGb@ZkXBx"h="p]"tG`b@ZkB"8@="]"tGb@ZkXB"x="]"tG`b@ZkB"4Gb@Zk/k///=8@ @/? HBTG"Pb8"@ZkBTG"=" b@Zk@//% P@0 @ +@&@#@QF3F x}4 @ppWx=W_/T%W &_]} @ @D8@BGGb4G@ZkLB"bDD/@Zkk//&9@HB "TGPb"/@Zk} 4Gp H3v`J GG///B4G"="]]"}"Gb@ZkB4G"="]=]"}"Gb@Zk=4G@B"BG1v J0HG8H@ZkhB8D4GGGG8B"@Zk GhBG5 GG=G!JG@ZkhB8DGGGG1v K4G@Zk8DB b"D/ ///@ZkC@/!(@$W#@/ CxB( Q @4GtG]"b@ZkCY@@C0D$ C 8@/ 8@A LA?/*9@AB) 'A"4Gb@Zk/k/// XL! @p"]@L#LAATWݵ]W=}W T T T/%W &_L4 BB"wLGb@Zk@ T/ ը  T@TWT/%W&_=]W}rSV(B0bPTV@Zk%WB4Gb"/&_=GE@Zkk/Bc4G"b@ZkcG]]4G}ݤ=]} (0ݥ@]8P#k/& "&̂"&"///#CTG^~^~޴[>cG#GGG;GGb"@1"@ZkBTG="b@Zk$GG0B8b4GtG vH!v HG#G/@ZkCc @#$ C/2 G//0B19 A"]"=GtG8b@ZkB"="GtGb/@Zk@B'A"]"GtGHb@ZkB="G]"tGb@Zk0B(AGGtG8b/@Zk C @#$ C =tl?BGTGb@ZkBc"4Gb@ZkcG]]}ݤ=#k4%|G DBASIC$INIT4&b# DBASIC$INIT4%@ DBASIC$INIT<'GDBASIC$RESTORE_DAT<(b#DBASIC$RESTORE_DAT<'@DBASIC$RESTORE_DAT4 G DBASIC$READ4 b# DBASIC$READ4 @ DBASIC$READ4 GDBASIC$IN_T_DX4b#DBASIC$IN_T_DX4 @DBASIC$IN_T_DX4 G4DBASIC$IN_T_DX4(b#DBASIC$IN_T_DX4 0@4DBASIC$IN_T_DX44GH DBASIC$IO_END4@b# DBASIC$IO_END4D@H DBASIC$IO_END4HGd STR$CONCAT4\b# STR$CONCAT4`@d STR$CONCAT4tG STR$COPY_R4b# STR$COPY_R4@ STR$COPY_R4G DBASIC$EDIT4b# DBASIC$EDIT4@ DBASIC$EDIT4G DBASIC$EDIT4b# DBASIC$EDIT4@ DBASIC$EDIT4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G, STR$COPY_DX4 b# STR$COPY_DX4(@, STR$COPY_DX4,GT STR$COPY_DX4Lb# STR$COPY_DX4P@T STR$COPY_DX4|G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G  STR$COPY_DX4b# STR$COPY_DX4@  STR$COPY_DX44GL STR$COPY_DX4Db# STR$COPY_DX4H@L STR$COPY_DX4LGd STR$COPY_DX4\b# STR$COPY_DX4`@d STR$COPY_DX<GDBASIC$INIT_GOSUB<b#DBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB<G$DBASIC$END_GOSUB<b#DBASIC$END_GOSUB< @$DBASIC$END_GOSUB<`GxDBASIC$INIT_GOSUB<hb#DBASIC$INIT_GOSUB<t@xDBASIC$INIT_GOSUB4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4G4 STR$LEN_EXTR4,b# STR$LEN_EXTR 40@4 STR$LEN_EXTR4HGdOTS$STRCMP_EQLP4`@dOTS$STRCMP_EQLP<xGDBASIC$INIT_GOSUB<b#DBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB<GDBASIC$INIT_GOSUB<b#DBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4G4OTS$STRCMP_LEQP40@4OTS$STRCMP_LEQP4 8GT DBASIC$INSTR4 Lb# DBASIC$INSTR4 P@T DBASIC$INSTR<GDBASIC$INIT_GOSUB<b#DBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB<GDBASIC$INIT_GOSUB<b#DBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB4GSTR$LEFT4 b#STR$LEFT4@STR$LEFT4G STR$CONCAT 4 b# STR$CONCAT4@ STR$CONCAT4!G8 STR$RIGHT4"0b# STR$RIGHT4!4@8 STR$RIGHT48GT STR$CONCAT4Lb# STR$CONCAT4P@T STR$CONCAT<TGhDBASIC$END_GOSUB<`b#!DBASIC$END_GOSUB<d@hDBASIC$END_GOSUB4GSTR$LEFT4 b#STR$LEFT4@STR$LEFT4G STR$COPY_R4b# STR$COPY_R4@ STR$COPY_R4G STR$CONCAT4b# STR$CONCAT"4@ STR$CONCAT4!G  STR$RIGHT4"b# STR$RIGHT4!@  STR$RIGHT4 G( STR$CONCAT4 b# STR$CONCAT4$@( STR$CONCAT<(G<DBASIC$END_GOSUB<4b#DBASIC$END_GOSUB<8#@<DBASIC$END_GOSUB4PGtSTR$LEFT4 lb#STR$LEFT4p@tSTR$LEFT4tG STR$COPY_R4b# STR$COPY_R4@ STR$COPY_R4G STR$CONCAT4b# STR$CONCAT4@ STR$CONCAT$4!G STR$RIGHT4"b# STR$RIGHT4!@ STR$RIGHT4G STR$CONCAT4b# STR$CONCAT4@ STR$CONCAT<G DBASIC$END_GOSUB< b#DBASIC$END_GOSUB< @ DBASIC$END_GOSUB<4 %GL DBASIC$INIT_GOSUB <@ b#DBASIC$INIT_GOSUB<H @L DBASIC$INIT_GOSUB<L Gd DBASIC$CHANGE_S_NA<\ b#DBASIC$CHANGE_S_NA<` @d DBASIC$CHANGE_S_NA4# G OTS$DIV_I_O4$ b# OTS$DIV_I_O4# @ OTS$DIV_I_O&< G$ DBASIC$END_GOSUB< b#DBASIC$END_GOSUB< @$ DBASIC$END_GOSUB<4 GT DBASIC$INIT_GOSUB<D b#DBASIC$INIT_GOSUB<P @T DBASIC$INIT_GOSUB4 G STR$LEN_EXTR4 b# STR$LEN_EXTR4 @ STR'$LEN_EXTR4 G STR$LEN_EXTR4 b# STR$LEN_EXTR4 @ STR$LEN_EXTR4) G OTS$STRCMP_LSSP4) @ OTS$STRCMP_LSSP4 G$ OTS$STRCMP_LEQP4 @$ OTS$STRCMP_LEQP4, GT OTS$STRCMP_LEQP4P @T OTS$STRCMP_LEQP4T G(x OTS$STRCMP_LEQP4t @x OTS$STRCMP_LEQP4-| G LIB$ICHAR4. b# LIB$ICHAR4- @ LIB$ICHAR4 G DBASIC$INSTR4 b# DBASIC$INSTR4 @ DBASIC$INSTR<$ G< DBASIC$END_GOSUB<4 b#DBASIC$END_GOSUB)<8 @< DBASIC$END_GOSUB4# G OTS$DIV_I_O4$ b# OTS$DIV_I_O4# @ OTS$DIV_I_O48 GH MATH$FLOOR_F4< b# MATH$FLOOR_F4D @H MATH$FLOOR_F<L Gx DBASIC$END_GOSUB<T b#DBASIC$END_GOSUB<*t @x DBASIC$END_GOSUB4+ G DBASIC$END4, b# DBASIC$END4+ @ DBASIC$END4%LG DBASIC$INIT4&b#P DBASIC$INIT4%@ DBASIC$INIT4G STR$COPY_DX4b#P STR$COPY_DX4@ STR+$COPY_DX4/G DBASIC$POS40b#P DBASIC$POS4/@ DBASIC$POS4 GDSTR$LEFT4 <b#PSTR$LEFT4@@DSTR$LEFT4DGd STR$CONCAT4Xb#P STR$CONCAT4`@d STR$CONCAT4!dG, STR$RIGHT4"b#P STR$RIGHT4!@ STR$RIGHT4G STR$CONCAT4b#P STR$CONCAT4@ STR$CONCAT4/G DBASIC$POS40b#P DBASIC$POS4/@ DBASIC$POS4G STR$COPY_DX4-b#P STR$COPY_DX 4@ STR$COPY_DX4+G  DBASIC$END4,b#P DBASIC$END4+@  DBASIC$ENDt tP;;8OTS$STRCMP_EQLP  DBASIC$CHANGE_S_NA MATH$FLOOR_F=ZH=AP. DBASIC$IO_END0;p DBASIC$READ DBASIC$INSTR DBASIC$IN_T_DX DBASIC$EDIT= STR$COPY_R=C STR$LEN_EXTR DBASIC$END_GOSUB=@=0;=PX 7DBASIC$HANDLER=@ STR$COPY_DX DBASIC$/INIT_GOSUB STR$CONCAT8OTS$STRCMP_LEQP=BSTR$LEFT! STR$RIGHTP;# OTS$DIV_I_O=_% DBASIC$INIT 'DBASIC$RESTORE_DAT;8OTS$STRCMP_LSSPP ;+ DBASIC$END- LIB$ICHAR;P; ;0;=0 ;=H 7DBASIC$HANDLER=/ DBASIC$POS =|  @ STR_CMATCH= A,SQZW, B,VNGH, C,XVDF, D,SFXCER, E,WRSD34, F,DGCVRT, G,FHVBTY, H,GJBNYU, I,UOJK89, J,HKNMUI, K,JLMIO, L,KOP, M,NJK, N,BMHJ, O,IPKL90, P,0OL, Q,12AW, R1,ETDF45, S,ADZXWE, T,RYFG56, U,YIHJ78, V,CBFG, W,QEAS23, X,ZCSD, Y,TUGH67, Z,ASX= d|@ SUBSTITUTEF F=6.- STR_CMATCHAlpha BASIC V1.5-000z z= 44= STR_CMATCH4= pp2pv~  K (ش ,            $A,Ds3 =  4P4= SUBSTITUTE 4=?76  " "Р4 &B8 = $ =   =  DBASIC$HANDLERDBASIC$HANDLER DBASIC$INIT DBASIC$RESTORE_DAT DBASIC$READDBASIC$IN_T_DX DBASIC$IO_END STR$CONCAT STR$COPY_R DBASIC$EDIT STR$COPY_4DX DBASIC$INIT_GOSUB STR$LEN_EXTR DBASIC$INSTR DBASIC$END_GOSUBSTR$LEFT STR$RIGHT DBASIC$CHANGE_S_NA LIB$ICHAR DBASIC$POS DBASIC$ENDOTS$STRCMP_EQLPOTS$STRCMP_LEQP OTS$DIV_I_OOTS$STRCMP_LSSP MATH$FLOOR_F ww1Y ,V1-003JJ STR_COLLAPSEV1-003 2-J5UN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_COLLAPSEx x= #?G^~^cG#Y CG=%] C&0[@;"TG8b@ZkPB=G"tGXb@ZkpBTG="xb/@Zk`Bc"4Ghb@ZkcG]]4G#k/&6 "&̂"4DG\ DBASIC$INIT4Tb# DBASIC$INIT4X@\ DBASIC$INIT4\Gx DBASIC$EDIT4pb# DBASIC$EDIT4t@x DBASIC$EDIT4xG STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX47G DBASIC$END4b# DBASIC$END4@ DBASIC$END =0;=$ 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$EDIT DBASIC$END STR$COPY_DX =| 8@ STR_COLLAPSEH H=80/ STR_COLLAPSEAlpha BASIC V1.5-000 = 44= STR_COLLAPSE4=)! 98 =  =  DBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX DBASIC$END ww1] P,V1-0029JJ STR_COMPRESSV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_COMPRESSx x= #?G^~^cG#Y CG=%] C&0[@;"TG8b@ZkPB=G"tGXb@ZkpBTG="xb/:@Zk`Bc"4Ghb@ZkcG]]4G#k/& "&̂"4DG\ DBASIC$INIT4Tb# DBASIC$INIT4X@\ DBASIC$INIT4\Gx DBASIC$EDIT4pb# DBASIC$EDIT4t@x DBASIC$EDIT4xG STR$COPY_DX4b# STR$COPY_DX;4@ STR$COPY_DX4G DBASIC$END4b# DBASIC$END4@ DBASIC$END =0;=$ 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$EDIT DBASIC$END STR$COPY_DX =<|@ STR_COMPRESSH H=80/ STR_COMPRESSAlpha BASIC V1.5-000 = 44= STR_COMPRESS4=)! 76 =  =  DBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX= DBASIC$END ww1=,V1-002II STR_ELEMENTV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$p$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_ELEMENT =?G# C^~^cGG>^~/# C$>0[@;TG8b"@Zk`BcG=]}hb@ZkPB"c4GXb/@ZkcG]]4G#k///& "&̂"4LGd DBASIC$INIT4Xb# DBASIC$INIT4`@d DBASIC$INIT4dG STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT4G D?BASIC$END4b# DBASIC$END4@ DBASIC$END =0;=, 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$END STR$ELEMENT =|@ @ STR_ELEMENTG G=7/. STR_ELEMENTAlpha BASIC V1.5-000 = 44= STR_ELEMENT4=)! A@ =  = h hDBASIC$HANDLER DBASIC$INIT DBASIC$END STR$ELEMENT ww1`,V1-006JJ STR_EVALUATEV1-006 2-JUNA-2004 10:22Alpha BASIC V1.5-000 i$CODE$@$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_EVALUATE =`#?G ^~(^0~8@H޴PX`>h^p~x޵cG#GG CGGG Cp[P;"TGxb@Zk`BGG4GcG4Ghb@ZkG// B d/=B_&G@R""="]TG G 4Gb@Zk/P 0A%! G!// A GBG"]"G}"b@Zk@B H@"="4GtGHb/@ZkC//-1AG 0AB"]]]"}"GGb/@Zk=ݡ4GB"0BG1v J0I@Zk//! 0@AGB"]"]G}"Gb@Zk=4GB"0BG1v J0H/@Zk///墬xBG"]"]G}"b@Zk=C4GB"0BGG1v J0H/@ZkBG"G]]"}"b@Zk=4GB"0BG1v J0H/@ZkE//HBG"]"]G}"b@Zk=4GB"0BGG1v J0I/@ZkBG"G]]"}"b@Zk=4GB"0BG1v J0H/@ZkE//BG"]"]G}"b@ZkB"cTG="b@Zk/// GGvì4G8B"0BGG0JE=G1v JG@Zk/ AUD/0B4GGB"GG@Zk/)/AI/0B4GGB"GG@Zk/ M=/0B4GGB"GG@Zk/ E1/0B4GGB"GG@Zk/ E%/0B4GGB"GG@Zk/ E/0B4GGB"GG@Zk/ ==[[`X/[= C AB @0A=="]"GGb}"@Zk PA HA//Bc4Gb"@ZkcG ]G(]0}8@HݤPX`=h]p}xEݥ#k//& "&̂"4 G DBASIC$INIT4b# DBASIC$INIT4 @ DBASIC$INIT, GSTR_LEN, b#STR_LEN, @STR_LEN4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4FPGx STR$POS_EXTR4pb# STR$POS_EXTR4t@x STR$POS_EXTR4 xG DBASIC$POS4 b# DBASIC$POS4 @ DBASIC$POS4G STR$POS_EXTR4b# STR$POS_EXTR4@ STR$POS_EXTR4GOTS$STRCMP_GEQLP4@OTS$STRCMP_EQLP44G\ STR$POS_EXTR4Tb# STR$POS_EXTR4X@\ STR$POS_EXTR4lGOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4G STR$POS_EXTR4b# STR$POS_EXTR4@ STR$POS_EXTR4GHOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4G STR$POS_EXTR4b# STR$POS_EXTR4@ STR$POS_EXTR4,GDOTS$STRCMP_EQLP4@@DOTS$STRCMP_EQLP4`G STR$POS_EXTR4b# STR$POS_EXTR4@ STR$POS_EXTR4IGOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4G STR$POS_EXTR4b# STR$POS_EXTR4@ STR$POS_EXTR4GOTS$STRCMP_EQLP 4@OTS$STRCMP_EQLP4 GH STR$POS_EXTR4@b# STR$POS_EXTR4D@H STR$POS_EXTRJ4HGd LIB_CVT_T_L4\b# LIB_CVT_T_L4`@d LIB_CVT_T_L4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP40GLOKTS$STRCMP_EQLP4H@LOTS$STRCMP_EQLP4`G|OTS$STRCMP_EQLP4x@|OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4$GT STR$POS_EXTR4Hb# STR$POS_EXTR4P@LT STR$POS_EXTR4lG DBASIC$END4xb# DBASIC$END4@ DBASIC$END\ \=-=q=*  DBASIC$END=!8=Q@=+-*/!&#P STR$COPY_DX=.hM=_p STR$POS_EXTR=0 ;=X 7DBASIC$HANDLER=8OTS$STRCMP_EQLP=+ DBASIC$POS; STR_LEN DBASIC$INIT=&=#=/=Z =z0N LIB_CVT_T_L =| @ STR_EVALUATEH H=80/ STR_EVALUATEAlpha BASIC V1.5-000 = 44= STR_EVALUATE4=%@>@$ FF R K N  gO g g  l l l q { { {  JYL =  =  DBASIC$HANDLER DBASIC$INIT STR$COPY_DX STR$POS_EXTR DBASIC$POS DBASIC$ENDOTS$STRCMP_EQLPSTR_LEN LIB_CVT_T_L ww1iY,V1-003KPK STR_JUST_LEFTV1-003 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_JUST_LEFT =#?G^~^~޴cG#GGy C=G/g} Ch`[p;TG"hb@ZkBc4Gb@Zk@B"]"tGQ=Hb%vH@Zk#}#0B8B0!H2H3v`J @1v J@ZkPBG@Zk*/@B4G"]"GtGHb@ZkG vH @/!9@c=1v J B5aJ}]0B @4F2AJ3v`J5@ BG@ZkPBG/@Zk8@ @/?Bc"4Gb@ZkcG]]4G}ݤ#k/& "&̂"4\Gt DBASIC$INIT4lb# DBASIC$INIT4p@t DBASIC$INITR, tGSTR_LEN, b#STR_LEN, @STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4SG$STR$LEFT4b#STR$LEFT4 @$STR$LEFT4`G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4 G DBASIC$END4 b# DBASIC$END4 @ DBASIC$ENTDL L=0;=4| 7DBASIC$HANDLER=8 OTS$MOVEM@STR$LEFT8OTS$FILL` DBASIC$INIT; DBASIC$END STR_LEN =|@ STR_JUSUT_LEFTI I=910 STR_JUST_LEFTAlpha BASIC V1.5-000 = 44= STR_JUST_LEFT4=aYXE FGIIIMN  =  =  DBASIC$HANDLER DBASIC$INITSTR$LEFT DBASIC$END OTS$MOVEMOTS$FILLSTR_LEN Vww1y\,V1-003LLSTR_JUST_RIGHTV1-003 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JSTR_JUST_RIGHTx x=#?G^~^~޴cG#GGy CG]/c} C//b`W[P;"TGhb@Zk@Bc4GHb@Zk#0B"]"=8btG!v H% @/@ZkBG="TGb@Zk4G,///0B4G"]"=GtG8b@ZkG vH @/!9@c=1v J B5aJ}]B @4F2AJ3v`J5@ BG@ZkpBG/@Zk8@ @/?Bc"4Gb@ZkcG]]4G}ݤ#k/& "&̂"4dG| DBASIC$INIT4tb# DBASIC$INITX4x@| DBASIC$INIT,|GSTR_LEN,b#STR_LEN,@STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4 G DBASIC$RSET4 b# DBASIC$RSET4 @ DBASIC$RSET4YGSTR$LEFT4 b#STR$LEFT4@STR$LEFT4 PGt OTS$MOVEM4 p@t OTS$MOVEM4tGOTS$FILL4@OTS$FILL4 G DBASIC$END4 b# DBASIC$END4 @ DBASIC$ENDZP P=0;=4| 7DBASIC$HANDLER=STR$LEFTSTR_LEN;` DBASIC$INIT8OTS$FILL DBASIC$END DBASIC$RSET8 OTS$MOVEM =|@STR_J[UST_RIGHTJ J=:21STR_JUST_RIGHTAlpha BASIC V1.5-000 = 44=STR_JUST_RIGHT4=E=<GIPQ  =  =  DBASIC$HANDLER DBASIC$INITSTR$LEFT DBASIC$RSET DBASIC$END OTS$MOVEMOTS$FILLSTR_LEN \ww1U3C,X1-002EESTR_LENX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_CODE($LINKAGE(JSTR_LEN =>C~^^ ~(GGPp@H@b@#1`@C/CK2DC@.J25B@/K@"1@@_ K25C@CG^ ]~(Ck/ KG25B@ K25C_QGd d=0 ;=0 =" ww1,V1-002GG STR_MATCHV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J^ STR_MATCH =#?G^~^~cG#GGY CG_] C//^P[`;"TGXb@Zk@BcG4GHb@Zk@BcG4GHb@Zk0BG"]"tG8b@Zk0BG"8b]"tG@ZkpBcTG"="xb@Zk=0BG"]"tG8b=/@Zk=G}dhB1v J2H0aH3v`J/@Zk7CGBc"4Gb@ZkcG]]}#k_///& "&̂"4TGl DBASIC$INIT4db# DBASIC$INIT4h@l DBASIC$INIT,lGSTR_LEN,|b#STR_LEN,@STR_LEN,GSTR_LEN,b#STR_LEN,@STR_LEN4GSTR$LEFT`4b#STR$LEFT4@STR$LEFT4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4 GSTR$MATCH_WILD4 b#STR$MATCH_WILD4 @STR$MATCH_WILD4 G4STR$LEFT4$b#aSTR$LEFT40@4STR$LEFT4HGdOTS$STRCMP_EQLP4`@dOTS$STRCMP_EQLP4 tG DBASIC$END4 b# DBASIC$END4 @ DBASIC$END  =0;=, 7DBASIC$HANDLER=STR$LEFTSTR_LENb DBASIC$INIT;8OTS$STRCMP_EQLP STR$MATCH_WILD DBASIC$END =|@ STR_MATCHE E=5-, STR_MATCHAlpha BASIC V1.5-000 = 44= STR_MATCH4=H@?EEFGI cJ0 =  =  DBASIC$HANDLER DBASIC$INITSTR$LEFT DBASIC$ENDOTS$STRCMP_EQLPSTR_LENSTR$MATCH_WILD ww1\nr, DD STR_SOUNDEX 2-JUN-2004 10:22Alpha BASIC V1.5-000 i $CODE$$LINK$ $READ_ONLY$ $LITERAL$d$ARRAY$DESC0J STR_SOUNDEX = #?G^~^~ (0޴8@HcG#Y CG=] C//[;"TGb@ZkB=G"tGb@ZkB4G"="}tG]"b@ZkBTG"="]"tGb@Zk8BTG"="@b@Zk8B$ O@" ="TG@b/@Zk8BI@$"="TG@b@Zk"c="]"}"GGeb"@8B"="TG@b@Zk8BTG"="@b@Zk8B"="TG@b@Zk8BU@"="TG@b/@Zk8BI@"="TG@b@Zk"="c]"}""GGbT@8BTG"="@b@Zk8B"TG="@b/@Zk8B "="TG@b@Zk8B N@("="TG@b/@Zk8BI@0"="TG@b@Zk"0="c(]" }""GGb$@8BTG8"="@b@Zk8B"TG8="@b/@Zk8B@"="TG@b@Zk8BO@H"="TG@b/@fZk8BI@P"="TG@b@Zk"P="cH]"@}""GGb@8BTGX"="@b@Zk8B"TGX="@b/@Zk8B`"="TG@b@Zk8B F@h"="TG@b/@Zk8BI@p"="TG@b@Zk"p="ch]"`}""GGb@8BTGx"="@b@Zk8B"TGx="@b/@Zk8B"="TG@b@Zk8BN@"="TG@b/@Zk8BI@"="TG@b@Zk"="c]"}""GGb@8BTG"="@b@Zk8B"TG="@bg/@Zk8B"="TG@b@Zk8BM@"="TG@b/@Zk8BI@"="TG@b@Zk"="c]"}""GGbd@8BTG"="@b@Zk8B"TG="@b/@Zk8B"="TG@b@Zk8B G@"="TG@b/@Zk8BI@"="TG@b@Zk"="c]"}""GGb4@8BTG"="@b@Zk8B"TG="@b/@Zk4G//8BTG"="@b@ZkBTG"="tG]"b/@ZkHB"="]"}tGPb@hZk"="c]"}""GGb@8BTG"="@b@Zk8B"TG="@b/@Zk8@]@/=BtG%9@tG="]"b!v H} @/ "/@Zk%vH4G$ %!///B"="]"ݰ}G}"b@ZkXB U@"="4GtG`b/@ZkCB[@="@tG]"b$ C/ "@Zk//XB Y@"="4GtG`b@ZkCB"="@]"tGb$/ C "@Zkg/=4G@B"iPBG1v J0HG8H@ZkPBG4GGGGB"@Zk GBZ@="]" "tGb@ZkFPB4GGB"GG!Q@tG@ZkB "="=]"b@Zk3/PB4GGB"GGtG/@ZkPBG4GGGGB"@Zk DBY@=" "b]"/@Zk//PB4GG`B"GGX@tG@ZkB"="=]"b@Zk8@ @S&9@8B="TG@b/@ZkhBc"4Gpb@ZkcG]]4G} (0ݤ8@HjP#k///& "&̂"//#CTG^~^~޴[>cG#GGG;GGb"@1"@Zk0BTG="8b@Zk$GGPBXb4GtG vH!v HG#G/@ZkCc @#$ C/2 G//B19 A"]"=GtGb@ZkB"="GtGb/@ZkB'A"]"GtGb@ZkB="G]"tGb@ZkPB(AGGtGXb/@Zk C @#$ C?0BkGTG8b@Zk`Bc"4Ghb@ZkcG]]}ݤ=#k4dG| DBASIC$INIT4tb# DBASIC$INIT4x@| DBASIC$INIT4|G DBASIC$EDIT4b# DBASIC$EDIT4@ DBASIC$EDIT4 GSTR$LEFT4 b#STR$LEFTl4 @STR$LEFT4G STR$RIGHT 4b# STR$RIGHT4@ STR$RIGHT4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G4 STR$COPY_DX4(b# STR$COPY_DX4 0@m4 STR$COPY_DX4 4G\ STR$COPY_DX4Tb# STR$COPY_DX4 X@\ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 nG STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 @GX STR$COPY_DXo4Pb# STR$COPY_DX4 T@X STR$COPY_DX4 XGt STR$COPY_DX4hb# STR$COPY_DX4 p@t STR$COPY_DX4 tG STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b#p STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G4 STR$COPY_DX4(b# STR$COPY_DX4 0q@4 STR$COPY_DX4 4GL STR$COPY_DX4Db# STR$COPY_DX4 H@L STR$COPY_DX4 LGt STR$COPY_DX4hb# STR$COPY_DX4 p@t STR$COPY_DX4 tG STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 rG STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G  STR$COPY_DX4b# STR$COPY_DX4 @  STR$COPY_DX4 G4 STR$COPY_sDX4(b# STR$COPY_DX4 0@4 STR$COPY_DX4 4GX STR$COPY_DX4Pb# STR$COPY_DX4 T@X STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b#t STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX 4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 u@ STR$COPY_DX4 @GX STR$COPY_DX4Pb# STR$COPY_DX4 T@X STR$COPY_DX4 XGt STR$COPY_DX4hb# STR$COPY_DX4 p@t STR$COPY_DX4 tG STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DXv4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G4w STR$COPY_DX4(b# STR$COPY_DX4 0@4 STR$COPY_DX4 4GL STR$COPY_DX4Db# STR$COPY_DX4 H@L STR$COPY_DX4 LGt STR$COPY_DX4hb# STR$COPY_DX4 p@t STR$COPY_DX4 tG STR$COPY_DX4xb# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$COPY_DX4b# STR$COPY_DX4 y@ STR$COPY_DX4GD STR$DUPL_CHAR48b# STR$DUPL_CHAR4@@D STR$DUPL_CHAR4DGh STR$COPY_R4`b# STR$COPY_R4d@h STR$COPY_R4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_zDX4 G STR$COPY_DX4b# STR$COPY_DX4 @ STR$COPY_DX4 GSTR$LEFT4 b#STR$LEFT4 @STR$LEFT4@Gh STR$LEN_EXTR4`b# STR$LEN_EXTR4d@h STR$LEN_EXTR4hG{ DBASIC$POS4b# DBASIC$POS4@ DBASIC$POS4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4G DBASIC$POS4 b# DBASIC$POS4 @ DBASIC$POS4 GH STR$CONCAT4 $ |b# STR$CONCAT4 D @H STR$CONCAT4` G| OTS$STRCMP_EQLP 4x @| OTS$STRCMP_EQLP4| G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G OTS$STRCMP_EQ}LP4 @ OTS$STRCMP_EQLP4 G STR$CONCAT4  b# STR$CONCAT4  @ STR$CONCAT4 GD OTS$STRCMP_EQLP4@ @D OTS$STRCMP_EQLP4D Gd OTS$STRCMP_EQLP4` @d OTS$STRCMP_EQLP4 h G STR$CONCAT4 b#~ STR$CONCAT4 @ STR$CONCAT4 G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$COPY_DX4 b# STR$COPY_DX4  @ STR$COPY_DX4 G, DBASIC$END4$ b# DBASIC$END4( @, DBASIC$END4 G DBASIC$INIT4 b# DBASIC$INIT4 @ DBASIC$INIT4 G$ STR$COPY_DX4 b# STR$COPY_DX4 @$ STR$COPY_DX44 Gd DBASIC$POS48 b# DBASIC$POS4` @d DBASIC$POS4 G STR$LEFT4 b#STR$LEFT4 @ STR$LEFT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$RIGHT4 b# STR$RIGHT4 @ STR$RIGHT4 G STR$CONCAT4 b# STR$CONCAT4  @ STR$CONCAT4 G4 DBASIC$POS4( b# DBASIC$POS40 @4 DBASIC$POS4 L Gd STR$COPY_DX4\ b# STR$COPY_DX4 ` @d  STR$COPY_DX4d G| DBASIC$END4t b# DBASIC$END4x @| DBASIC$ENDh h= CGJKQSXZD STR$COPY_R=BFPV(=R0 DBASIC$END=4H=NP=AX=I`;p DBASIC$EDIT STR$DUPL_CHAR=Y=U STR$LEFT STR$CONCAT;=0;=P< 7DBASIC$HANDLER= STR$COPY_DX=8OTS$STRCMP_EQLP DBASIC$POS=H8=W@=OP DBASIC$INIT STR$RIGHT=Ex=M=L=6=5=3=1 STR$LEN_EXTR=T=2=0 ;=H 7DBASIC$HANDLER=/ /=|(@ STR_SOUNDEX|@ SUBSTITUTEG G=7/. STR_SOUNDEXAlpha BASIC V1.5-000d d= 44= STR_SOUNDEX4=AAA M MUS U U Y Ys]aae eii0 =  44= SUBSTITUTE 4=;32zР488 = $ =   = X XDBASIC$HANDLERDBASIC$HANDLER DBASIC$INIT DBASIC$EDITSTR$LEFT STR$RIGHT STR$COPY_DX STR$DUPL_CHAR STR$COPY_R STR$LEN_EXTR DBASIC$POS STR$CONCAT DBASIC$ENDOTS$STRCMP_EQLP ww1q,V1-003LLSTR_SUBSTITUTEV1-003 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JSTR_SUBSTITUTE =#?G^~^~޴>^ ~(cG#GG CGGG C/TG"`[X;hb@Zk'vH(vI&)v I 4G 4G/l///@BG"]"]G}"Hb@Zk%=GGeB1v J0H2!H3v`J@Zk//#7vJ/` wA// 89`AG0B C&0vJ7 B 0A2AJ!!HpFfC3v`JG 7BF@ZkPBG/@ZkGG'@B4G"]"]G}"GHb@ZkG vH` `A!9`Ac=1v J B5aJ}]0B @4F2AJ3v`J5@ BG@ZkPBG@Zk4G4G/ B  @ GA/?pBc"4Gxb@ZkcG]]4G}ݤ=] }(0#/k///& "&̂"4|G DBASIC$INIT4b# DBASIC$INIT4@ DBASIC$INIT4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4LG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4G8 OTS$MOVEM44@8 OTS$MOVEM48GDOTS$FILL4@@DOTS$FILL4 dG| DBASIC$END4 tb# DBASIC$END4 x@| DBASIC$END$ $=0;=0H 7DBASIC$HANDLER=8 OTS$MOVEM@ STR$LEN_EXTR8OTS$FILL; DBASIC$INIT DBASIC$END8OTS$STRCMP_EQLP =|@STR_SUBSTITUTEJ J=:21STR_SUBSTITUTEAlpha BASIC V1.5-000 = 44=STR_SUBSTITUTE4=PHGOWԀVa@ =  =  DBASIC$HANDLER DBASIC$INIT STR$LEN_EXTR DBASIC$ENDOTS$STRCMP_EQLP OTS$MOVEMOTS$FILL ww1-,V1-002JJ STR_SUBTRACTV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_SUBTRACT =#?G^~^~cG#y CGG]R} C/R`[P;"TGhb@Zk0Bc4G8b@Zk@B=G4GtGHb@ZkCpBG@GTGxb$ C/ @Zk/B 9@"]"GtGb@ZkB"GbtG]"@@ZkB="]"tGb@ZkB"c4Gb/@ZkcG]]4G}#k/& "&̂"4TGl DBASIC$INIT4db# DBASIC$INIT4h@l DBASIC$INIT,lGSTR_LEN,|b#STR_LEN,@STR_LEN4G DBASIC$POS4b# DBASIC$POS4@ DBASIC$POS4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4 GSTR$LEFT4b#STR$LEFT4 @STR$LEFT4G, STR$RIGHT4b# STR$RIGHT4(@, STR$RIGHT4 ,GH STR$CONCAT4 @b# STR$CONCAT4 D@H STR$CONCAT4 HGd DBASIC$END4 Xb# DBASIC$END4 `@d DBASIC$ENDd d=0;=, 7DBASIC$HANDLER=STR_LEN DBASIC$POS;` DBASIC$INIT STR$COPY_DX STR$CONCAT DBASIC$END STR$LEFT STR$RIGHT =|@ STR_SUBTRACTH H=80/ STR_SUBTRACTAlpha BASIC V1.5-000 = 44= STR_SUBTRACT4=H@?CD EEJ =  =  DBASIC$HANDLER DBASIC$INIT DBASIC$POS STR$COPY_DXSTR$LEFT STR$RIGHT STR$CONCAT DBASIC$ENDSTR_LEN ww1/J,V1-002FFSTR_TRIMV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JSTR_TRIMx x= #?G^~^cG#Y CG=%] C&0[@;"TG8b@ZkPB=G"tGXb@ZkpBTG="xb/@Zk`Bc"4Ghb@ZkcG]]4G#k/& "&̂"4DG\ DBASIC$INIT4Tb# DBASIC$INIT4X@\ DBASIC$INIT4\Gx DBASIC$EDIT4pb# DBASIC$EDIT4t@x DBASIC$EDIT4xG STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G DBASIC$END4b# DBASIC$END4@ DBASIC$END =0;=$ 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$EDIT DBASIC$END STR$COPY_DX =|@STR_TRIMD D=4,+STR_TRIMAlpha BASIC V1.5-000 = 44=STR_TRIM4=)! 76  =  =  DBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX DBASIC$END ww1%,V1-002KK SYS_BROADCASTV1-002 2-JUN-2004 10:22Alpha BASIC V1.5-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC ` SYSBRDCSTSTUFF0J SYS_BROADCAST =#?G ^~(^0~8@H޴PX`>hcG`#GGy CG=} C[;"TGb@Zkc0B?$"4G! b=@Zk@BcG4GHb@Zk""xb%%e/cG"B3v`J2J/@ZkPBG/@Zk@BcG4GHb@ZkBG "`B"G@ZkPBtGG@Zk/$d?""B3v`J2!H/@ZkPBG/@Zkc@Be 4G"C$}Hb @Zk@BGc4GHb/@Zk@Bc$4G"  ݰHb@ZkB @"="}]"tGb/@ZkB?$#V@"}! ="]"=tGb@ZkB?$T@"}! ="]"=tGb@ZkB?$"C! ="]"=tGb@ZkB?$#P@" } ! ="]"=tGb@ZkK@B"="}$]"tGbc }@ZkB I@"="}]"tGb@ZkB"]"=btG/@ZkB"="]"tGb/@ZkBK@"="}]"tGb@Zk}?""B4G3v`J2H@@ZkB4GB"@ZkPBG/@Zk@Bc$Hb" @ZkBGN@"}TG="b@Zk`Bc "=" ݰ]"G}"hb/@Zk%?%)! DR///@Bc "4GHb@ZkB% "="=]"tGb/@ZkB@"="]"tGb/@ZkBc="G]"(4GGGG b@ZkB"="bTG8@N@}@Zk`B c%"" =="]"ݰG}"hb@Zk DpBc4Gxb"@ZkcG ](]4G0}8@HݤPX`=hp#/k///& "&̂"4dG| DBASIC$INIT4tb# DBASIC$INIT4x@| DBASIC$INIT4G LIB$DATE_TIME4b# LIB$DATE_TIME4@ LIB$DATE_TIME, GSTR_LEN,b#STR_LEN, @STR_LEN4G OTS$MOVEM4@ OTS$MOVEM4G$OTS$FILL4 @$OTS$FILL, $G<STR_LEN,4b#STR_LEN, 8@<STR_LEN4<GXOTS$MOVE4T@XOTS$MOVE4XGhOTS$FILL4d@hOTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL, GSTR_LEN,b#STR_LEN, @STR_LEN, GSTR_LEN,b#STR_LEN, @STR_LEN, G$STR_LEN,b#STR_LEN, @$STR_LEN4 $GTSTR$LEFT4 Hb#STR$LEFT4 P@TSTR$LEFT4 TG STR$CONCAT4 |b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT0 0 4 GD STR$CONCAT4 4b# STR$CONCAT4 @@D STR$CONCAT4 DGl STR$CONCAT4 db# STR$CONCAT4 h@l STR$CONCAT4 pGSTR$LEFT4 b#STR$LEFT4 @STR$LEFT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G$OTS$FILL4 @$OTS$FILL, $GHSTR_LEN,0b#STR_LEN, D@HSTR_LEN4HGt STR$COPY_DX4lb# STR$COPY_DX4p@t STR$COPY_DX4tG STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT, GSTR_LEN,b#STR_LEN, @STR_LEN4 G$STR$LEFT4 b#STR$LEFT4 @$STR$LEFT4 $GTSTR$LEFT4 Hb#STR$LEFT4 P@TSTR$LEFT4TG SYS$BRKTHRU4b# SYS$BRKTHRU4@ SYS$BRKTHRU4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT4 G$ DBASIC$END4b# DBASIC$END4 @$ DBASIC$END@ @= ########## =OPA0:  DBASIC$END= ##########@=UnidentiP DBASIC$INIT= fied Mes p STR$COPY_DX8 OTS$MOVEM STR$LEFT STR$CONCAT=0 ;=p@ 7DBASIC$HANDLER= ; STR_LEN8OTS$FILL=  STR$ELEMENT=,(=sage ;@ LIB$DATE_TIME= ` SYS$BRKTHRU= 8OTS$MOVE =|@ SYS_BROADCASTI I=910 SYS_BROADCASTAlpha BASIC V1.5-0002 2= 44= SYS_BROADCAST4=cc h  p v w  } } ~ ܘ <     8 =  = 8 8DBASIC$HANDLER DBASIC$INITSTR$LEFT STR$CONCAT STR$COPY_DX DBASIC$END OTS$MOVEMOTS$FILLOTS$MOVE SYS$BRKTHRU STR$ELEMENTSTR_LEN LIB$DATE_TIME ww1QК,X1-001XXSYS_CHECK_SOFTWARE_EXPIRY1X1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA _SYS_CODEP$LINKAGE SYS$NUMTIMSYS$EXIT@JSYS_CHECK_SOFTWARE_EXPIRY1& &=, ,=>C~ ^(^08 GG KTG2U`C$@PXC4@@0MG( 8m@Zk(mG3SR HHp@H@@`@@ H@@@4GG (^08Ck@MHm#"4G@Zk4DG\ SYS$NUMTIM4Tm# SYS$NUMTIM4X@\ SYS$NUMTIM4GSYS$EXIT4m#SYS$EXIT4@SYS$EXIT =0 ;=@ =";  SYS$NUMTIM" SYS$EXIT" ww1H,X1-003SSSYS_FIND_ETHER_DEVICEX1-003 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$u _SYS_DATAD _SYS_CODEp$LINKAGESYS$DEVICE_SCAN OTS$MOVEMOTS$FILL8JSYS_FIND_ETHER_DEVICE =  4=*M=@ 4=@ 4= 4=8 8=LD>C~ ^(^0~8@HPX GG(>C>0HP 0MHGGGG0BG@Zk>GGGC`MAhmAAAGA@Zk(ͦ>C@M>B0LvH2`JHG@Zk 0MG@Zk>CG (^0~8@HPXCk4PGxOTS$FILL4t@xOTS$FILL4GSYS$DEVICE_SCAN4m#SYS$DEVICE_SCAN4@SYS$DEVICE_SCAN4G OTS$MOVEM4@ OTS$MOVEM4G OTS$FILL4@ OTS$FILL =0 ;=`< =";OTS$FILL OTS$MOVEML;` SYS$DEVICE_SCAN""" ww1h,X1-006RRSYS_GET_DISK_DEVICESX1-006 2-JUN-2004 10:22Compaq C V6.5-001  $ABS$i$CODE$ $LITERAL$$LINK$$DATA$$BSS$ $READONLY_ADDR$ $READONLY$8JSYS_GET_DISK_DEVICES =#$?'&^~&9#^~""GG'X>0@{#P"4GG8B#1?J F>"X~G`FX~d$p~x~ ~# H>޲>#P ~~L^T\>`t>|>>// B0`@H"="GG(b]"@ZkB"="TGb@Zk/G//pBp"x="P]"GxbX}""0`@@Zk BH"="G]"G(b@Zk`B"x="]"tGhb@ZkG]?$]}D#/k,GSYS$FAO,b#SYS$FAO,@SYS$FAO<GLIB$DELETE_LOGICAL<b#LIB$DELETE_LOGICAL<@LIB$DELETE_LOGICAL40GXSYS$DEVICE_SCAN4Db#SYS$DEVICE_SCAN4T@XSYS$DEVICE_SCAN,XG|SYS$FAO,tb#SYS$FAO,x@|SYS$FAO4|GLIB$SET_LOGICAL4b#LIB$SET_LOGICAL4@LIB$SET_LOGICAL3 3=LNM$PROCESS_TABLE8 8=0";=8 SYS$FAO;= DISK_DEVICE_!ULP=*` LIB$SET_LOGICAL SYS$DEVICE_SCAN LIB$DELETE_LOGICALM M==54SYS_GET_DISK_DEVICESCompaq C V6.5-001 = !44="sys_get_disk_devices4=OG U U U U U U U   U U U U U  U U U U U U U U  U U U U  U U U U U U UC U U U U U U =  = h h LIB$DELETE_LOGICALLIB$SET_LOGICALSYS$DEVICE_SCANSYS$FAO $DELww10@{#P"TGG8B#1?J F>"X~G`FX~d$p~x~ ~# H>޲>#P ~~L^T\>`t>|>>// B0`@H"="GG(b]"@ZkB"="TGb@Zk/G//pBp"x="P]"GxbX}""0`@@Zk BH"="G]"G(b@Zk`B"x="]"tGhb@ZkG]?$]}D#/k,GSYS$FAO,b#SYS$FAO,@SYS$FAO<GLIB$DELETE_LOGICAL<b#LIB$DELETE_LOGICAL<@LIB$DELETE_LOGICAL40GXSYS$DEVICE_SCAN4Db#SYS$DEVICE_SCAN4T@XSYS$DEVICE_SCAN,XG|SYS$FAO,tb#SYS$FAO,x@|SYS$FAO4|GLIB$SET_LOGICAL4b#LIB$SET_LOGICAL4@LIB$SET_LOGICAL3 3=LNM$PROCESS_TABLE8 8=0";=8 SYS$FAO;= TAPE_DEVICE_!ULP=*` LIB$SET_LOGICAL SYS$DEVICE_SCAN LIB$DELETE_LOGICALM M==54SYS_GET_TAPE_DEVICESCompaq C V6.5-001 = !44="sys_get_tape_devices4=OG U U U U U U U   U U U U U  U U U U U U U U  U U  U U  U U U U U U UC U U U U U U =  = h h LIB$DELETE_LOGICALLIB$SET_LOGICALSYS$DEVICE_SCANSYS$FAO $DELww1[LP,X1-003LLSYS_LOGIN_TYPEX1-003 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA _SYS_CODEh$LINKAGE SYS$GETJPIW0J SYS_JOBTYPE0JH@SYS_MODEL L=4= = >C~^ ( GG##wS`K@M@CXRKG>C~^ (-iCG"#wS`K@M@CXRKG>CG>C=GGGG ~@0MC~8m@Zk=C K@M ҢG1B 4GG (Ck4G SYS$GETJPIW4m# SYS$GETJPIW4@ SYS$GETJPIW =0 ;=0 ="0  SYS$GETJPIW""";=0@;= 0 ww1+ ,X1-003II SYS_MEMSIZEX1-003 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$h _SYS_CODE($LINKAGE0J SYS_MEMSIZE =ph>C~^ >(^0~8G KG15@CC 4GG >(^0~8Ckd d=0 ;=@ =" ww1,X1-002GG SYS_PARSEX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA  _SYS_CODEH$LINKAGE SYS$PARSE0J SYS_PARSEh h=P== P4= H=P=`T=Z=\= =( >C~^^~ (0޴8@H GG@{ KfK3u`CG`0` G^~ (0ޤ8@HCk$# PpGG@ҠXwQ@HD0MXPKGGw1HX4G\t4GG8m4,4X0KG40@Zk|" G4G  SYS$PARSE4m# SYS$PARSE4@  SYS$PARSE =0 ;=P =""0  SYS$PARSE"; ww1,X1-002FFSYS_PEEKX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381UX X . ABS . . BLANK . $ABS$ _SYS_CODE$LINKAGE SYS$CMKRNL0JSYS_PEEK0JHp SYS___PEEK_10Jx SYS___PEEK_20J SYS_PEEK_END( (=>C~^ ( GG?G= =CTG0M8m@ @ZkG (CkGGG>C~(^08 GG?G= =]} CTGMm( @ZkG(08CkG>C~ ^(^0~8Gz KFK2U@C)@*@CGGGGGpD @BF11 BGG`GCGGGGpD11 B @B@GG`G4GG (^0~8Ck|"  GGG48GL SYS$CMKRNL4<m# SYS$CMKRNL4H@L SYS$CMKRNL4G SYS$CMKRNL4m#H SYS$CMKRNL4@ SYS$CMKRNL| |=0 ;=0 ="0  SYS$CMKRNL"H;=0( p;=@ ="""x;=0 ;=@ =0;= ww1Yz,X1-002FFSYS_POKEX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381UX X . ABS . . BLANK . $ABS$ _SYS_CODE$LINKAGE SYS$CMKRNL0JSYS_POKE0JHp SYS___POKE_10Jp SYS___POKE_20J SYS_POKE_END =>C~(^08 GG?G= =]} CTG0M8m@ @ZkG(08CkG>C~(^08 GG?G= =]} CTGMm @ZkG(08CkG>C~ ^(^0~8Gz KFK2U@C@@CGGGGGpD @BF11 BGG`CGb4GG (^0~8Ck|"  G4DGT SYS$CMKRNL4Hm# SYS$CMKRNL4P@T SYS$CMKRNL4G SYS$CMKRNL4m#H SYS$CMKRNL4@ SYS$CMKRNL| |=0( ;=@ ="""0  SYS$CMKRNL"H;=0(p;=@ p;=0 ;=@ ="=0;= ww1QjI,X1-002OOSYS_SEND_OPERATORX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$" _SYS_DATA _SYS_CODE`$LINKAGE SYS$SNDOPR OTS$MOVEMOTS$ZERO8JSYS_SEND_OPERATOR< <=4@ @=>C~^^~ (0޴8@HPX GG(ͦРGHBF4GF4GGEw1 KTAX0KAGwYK/E / -XKO IG YKTAE = ?Q/-wYK?"XKGO IG YK4qBEF= qB?ABxSHB(PMYR K8G(@ZkD 0M@ZkH6HmGR@KGY KCCxJ@M8GG6GGTG@ZkG^~ (0ޤ8@HPXCk4G( OTS$MOVEM4$@( OTS$MOVEM40G8OTS$ZERO44@8OTS$ZERO4@m# SYS$SNDOPR4\G| SYS$SNDOPR4x@| SYS$SNDOPR =0 ;=` =";OTS$ZERO  SYS$SNDOPR" OTS$MOVEM ww1,X1-002KK SYS_TERM_ECHOX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381UH H . ABS . . BLANK . $ABS$! _SYS_DATA, _SYS_CODE$LINKAGE SYS$ASSIGNSYS$QIOW SYS$DASSGN8JSYS_DISABLE_ECHO0J`0SYS_ENABLE_ECHOQ Q= 4= SYS$INPUT =4,>C~^^ ( GGG GG>C~^^ (-lCG4GG(PMXmG4BGG@ZkK( >CGC80G>GGGGG0ޢ48޶2 J8ޢ<0M ޶8m(@ZkC.<@(m4cC;/.:KW JY:KV JGCQG|K:?(->CG8"C0^GGGtGG0ޢ49޶G2 J8ޢ<0M8m ޶(@ZkC(m4G4bC@MHm2J@ZkG^ (Ck(-4#C.x/J\ xKWJ[ xKFCTFzJF JzGx?>4\Gx SYS$ASSIGN4`m# SYS$ASSIGN4t@x SYS$ASSIGN4GSYS$QIOW4m#SYS$QIOW4@SYS$QIOW4GSYS$QIOW4m#SYS$QIOW4@SYS$QIOW4G SYS$DASSGN4m# SYS$DASSGN4@ SYS$DASSGN =0 ;=0 =; SYS$QIOW"""  SYS$DASSGN"  SYS$ASSIGN""=00;=0 ww1P,X1-001OOSYS_TRAP_CONTROLCX1-001 2-JUN-2004 10:22AMAC V4.1-18-3381U  . ABS . . BLANK . $ABS$ _SYS_DATA  _SYS_CODEP$LINKAGE SYS$ASSIGNSYS$QIOW8JSYS_TRAP_CONTROLCK K=4=TT:x x=( >C~(^08 GG?G2U`C @4G_FS`CSG@|" G(08Ck/( 0M=GGtCGG8m@Zk=(m>C8G0GG#_" ;.taC;J`0ޢ4@MHm޶GG8ޢ< ޶(@ZkC/Z K:F4dG SYS$ASSIGN4m# SYS$ASSIGN4@ SYS$ASSIGN4GSYS$QIOW4m#SYS$QIOW4@SYS$QIOW =0( ;=@ =";  SYS$ASSIGN"" SYS$QIOW""" ww1o,X1-002MMTECO_EDIT_THINGX1-002 2-JUN-2004 10:22AMAC V4.1-18-3381Up p . ABS . . BLANK . $ABS$g _SYS_DATAx _SYS_CODE$LINKAGE TECO$INITTECO$LOAD_Q_REGLIB$PUT_OUTPUTTECO$DO_COMMANDTECO$LOAD_TEXT TECO$START TECO$GET_TEXT0JTECO_EDIT_THING =  4=0,2#8192ET4=X '4=0J6,7:W-1W-:4=5-use MX`` to invoke the screen edit function  =x>C~^ ^(~08 GG?G= =}`K05`C xKK0UC@AAݢVv@H>@ : }[{@H7@PMXmG@Zk(MHmGCCBC@MtG@Zk(ͦ0M8m4GTB@Zk(Mm4GC@Zk]M4G[]@m@Zk`M( hm4G@ZkpM xm4G@ZkG ^(~08Ck|"  GL 4G TECO$INIT4m# TECO$INIT4@ TECO$INIT4m#TECO$LOAD_Q_REG4GTECO$LOAD_Q_REG4@TECO$LOAD_Q_REG4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT4 GTECO$DO_COMMAND4 m#TECO$DO_COMMAND4 @TECO$DO_COMMAND4 GTECO$LOAD_TEXT4m#TECO$LOAD_TEXT4  @TECO$LOAD_TEXT4G$ TECO$START4m# TECO$START4 @$ TECO$START4 $G8 TECO$GET_TEXT4 ,m# TECO$GET_TEXT4 4@8 TECO$GET_TEXTX X=0 ;=@ ="; LIB$PUT_OUTPUT" TECO$LOAD_Q_REG""  TECO$INIT  TECO$START" TECO$GET_TEXT" TECO$DO_COMMAND" TECO$LOAD_TEXT" ww