% Librarian A09-16I2י~OK2י!> J EE>WK BIO_CLOSENBIO_OPENQ BIO_OPEN_ROSBIO_READX BIO_WRITE\ CLU_BROADCASTntCLU_MEMBERSHIPxCPUMONITORDEF$MAIN|*CPUMONITOR_AST<CPUMONITOR_GETJPICPUMONITOR_INITIALIZEvDCL_ENVI_DEPTHhDCL_ENVI_PROCEDUREFILE_ATTRIBUTESz FOR_SIGNALFOR_STOPnLAN_FORMAT_HEADERLAN_STARTUP_PRM"LBR_OUTPUT_MLB_MODULE LIB_AVAILABLE LIB_CHECKSUM2LIB_COMPARE_BLOCKSBLIB_COUNT_BITSYK BIO_CLOSENBIO_OPENQ BIO_OPEN_ROSBIO_READX BIO_WRITE\ CLU_BROADCASTntCLU_MEMBERSHIPxCPUMONITORDEF$MAIN|*CPUMONITOR_AST<CPUMONITOR_GETJPICPUMONITOR_INITIALIZEvDCL_ENVI_DEPTHhDCL_ENVI_PROCEDUREhDCL___GET_PROCEDUREFILE_ATTRIBUTESz FOR_SIGNALFOR_STOPnLAN_FORMAT_HEADERLAN_STARTUP_PRM"LBR_OUTPUT_MLB_MODULE LIB_AVAILABLE LIB_CHECKSUM2LIB_COMPARE_BLOCKSfnLAN_FORMAT_HEADERLAN_STARTUP_PRM"LBR_OUTPUT_MLB_MODULE LIB_AVAILABLE LIB_CHECKSUM2LIB_COMPARE_BLOCKSBLIB_COUNT_BITSLIB_CVT_L_DELTA LIB_CVT_T_L$LIB_FORMAT_PROTECTIONZLIB_GENERATE_SEED LIB_GET_INPUTLIB_OUTPUT_BKTLIB_OUTPUT_FH2bLIB_OUTPUT_HM26LIB_OUTPUT_SEG_T>LIB_OUTPUT_SEG_TZBbLIB_OUTPUT_SEG_ZB LIB_RANDOM>LIB_SUB_ASC_TIMES _KEYBOARD_ID _KEY_TABLE_ID]FOR_STOPLIB_OUTPUT_SEG_T STR_LOWERCASE SYS_MODE _KEY_TABLE_IDgLAN_STARTUP_PRM"LBR_OUTPUT_MLB_MODULE LIB_AVAILABLE LIB_CHECKSUM2LIB_COMPARE_BLOCKSBLIB_COUNT_BITSLIB_CVT_L_DELTA LIB_CVT_T_L$LIB_FORMAT_PROTECTIONZLIB_GENERATE_SEED LIB_GET_INPUTLIB_OUTPUT_BKTLIB_OUTPUT_FH2bLIB_OUTPUT_HM26LIB_OUTPUT_SEG_T>LIB_OUTPUT_SEG_TZBbLIB_OUTPUT_SEG_ZB LIB_RANDOM>LIB_SUB_ASC_TIMES"LIB_VALIDATE_FH2$ PATCH_BLOCKBSTR_CHANGECASEZLAN_FORMAT_HEADERLIB_OUTPUT_SEG_TZB STR_SUBTRACT TECO_EDIT_THINGLCCESg>LIB_OUTPUT_SEG_TZBbLIB_OUTPUT_SEG_ZB$LIB_PATCH_BLOCK$LIB_PATCH_INPUT_INTEGER$LIB_PATCH_VALID_BYTE LIB_RANDOM>LIB_SUB_ASC_TIMES"LIB_VALIDATE_FH2E STR_CMATCHm STR_COLLAPSEq STR_COMPRESSv STR_ELEMENTy STR_EVALUATE STR_JUST_LEFTtSTR_JUST_RIGHTSTR_LENB STR_LOWERCASED STR_MATCH STR_SOUNDEXlSTR_SUBSTITUTE STR_SUBTRACTB STR_UPPERCASE _KEYBOARD_ID _KEY_TABLE_ID\bLIB_OUTPUT_SEG_ZB LIB_RANDOM>LIB_SUB_ASC_TIMES"LIB_VALIDATE_FH2$ PATCH_BLOCKBSTR_CHANGECASEE STR_CMATCHm STR_COLLAPSEq STR_COMPRESSv STR_ELEMENTy STR_EVALUATE STR_JUST_LEFTtSTR_JUST_RIGHTSTR_LEND STR_MATCH STR_SOUNDEXlSTR_SUBSTITUTE STR_SUBTRACTSTR_TRIM,SYS_BECOME_INTERACTIVE SYS_BROADCASTdSYS_CHECK_SOFTWARE_EXPIRY1hSYS_FIND_ETHER_DEVICESYS_GET_DISK_DEVICESD STR_MATCH STR_SOUNDEXlSTR_SUBSTITUTE STR_SUBTRACTSTR_TRIMB STR_UPPERCASE,SYS_BECOME_INTERACTIVE,SYS_BECOME_INTERACTIVE_END SYS_BROADCASTdSYS_CHECK_SOFTWARE_EXPIRY1 hSYS_DISABLE_ECHO hSYS_ENABLE_ECHOhSYS_FIND_ETHER_DEVICESYS_GET_DISK_DEVICESSYS_GET_TAPE_DEVICES  SYS_JOBTYPE SYS_MEMSIZE SYS_MODEK_END,SYS___BECOME_INTERACTIVE SYS___PEEK_1 _KEYBOARD_ID _KEY_TABLE_IDSTR_TRIM,SYS_BECOME_INTERACTIVE SYS_BROADCASTdSYS_CHECK_SOFTWARE_EXPIRY1hSYS_FIND_ETHER_DEVICESYS_GET_DISK_DEVICESSYS_GET_TAPE_DEVICES SYS_LOGIN_TYPE SYS_MEMSIZEB SYS_PARSESYS_PEEKSYS_POKEtSYS_SEND_OPERATORSYS_SET_ACCOUNT vSYS_SET_USERNAME h SYS_TERM_ECHOSYS_TRAP_CONTROLC,TECO_EDIT_THINGB SYS_PARSESYS_PEEK SYS_PEEK_ENDSYS_POKE SYS_POKE_ENDtSYS_SEND_OPERATORSYS_SET_ACCOUNTSYS_SET_ACCOUNT_END vSYS_SET_USERNAME vSYS_SET_USERNAME_ENDSYS_TRAP_CONTROLC,SYS___BECOME_INTERACTIVE SYS___PEEK_1 SYS___PEEK_2 SYS___POKE_1 SYS___POKE_2SYS___SET_ACCOUNT vSYS___SET_USERNAME,TECO_EDIT_THING _KEYBOARD_ID _KEY_TABLE_ID !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJL1)Rʙ BB BIO_CLOSE 19-JAN-1996 14:10DEC BASIC V1.1-000( (i$CODE$p$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J BIO_CLOSEDBASIC$HANDLER DBASIC$INIT DBASIC$CLOSE DBASIC$END =0#?G~^^McGG9 C!= C$0B8b"@"TG@ZkTG`Bhb0"@Zk4Gc"PB4GXb@ZkGc]]#k& "= C&̂"4<GT DBASIC$INIT4@b# DBASIC$INIT4P@T DBASIC$INIT4dGx DBASIC$CLOSE4hb# DBASIC$CLOSE4t@x DBASIC$CLOSEN4G DBASIC$END4b# DBASIC$END4@ DBASIC$END =0;= 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$END DBASIC$CLOSE =| O@ BIO_CLOSEC C=3+* BIO_CLOSEDEC BASIC V1.1-000 = 44= BIO_CLOSE4=)!   8$$ $= ,4: := 4=  =  ww1T1יV1-004FFBIO_OPENV1-004 5-FEB-1996 09P:08AMAC V2.0-22 P$LINKAGE _SYS_CODE4 _SYS_DATA $ABS$ . BLANK . . ABS .SYS$OPEN SYS$CONNECT0JBIO_OPEN =0 ;=@ ="; SYS$OPEN"  SYS$CONNECT"  =Q>C~^^ ~(0 G8G(MC0MBB8m$C$G"YP K+9'C"\pK4GO'@Zk@MGHm4G@ZkG^ ~(08Ck40GxSYS$OPEN48m#SYS$OPEN4t@xSYS$OPEN4|G SYS$CONNECT4m# SYS$CONNECT4@ SYS$CONNECT R=4= $ =4=  ww1wU1יV1-004II BIO_OPEN_ROV1-004 5-FEB-1996 09:08AMAC V2.0-22 P$LINKAGE _SYS_CODE4 _SYS_DATA $ABS$ . BLANK . . ABS .SYS$OPEN SYS$CONNECTS0J BIO_OPEN_RO =0 ;=@ ="; SYS$OPEN"  SYS$CONNECT"  =>C~^^ ~(0 G8G(MC0MBB8m$C$G"YP K"9'C"\pK4GO'@Zk@MGHm4G@ZkG^ ~(08Ck40GxSYS$OPENT48m#SYS$OPEN4t@xSYS$OPEN4|G SYS$CONNECT4m# SYS$CONNECT4@ SYS$CONNECT =4= $ =4=  ww1vTʙ AABIOU_READ 19-JAN-1996 14:10DEC BASIC V1.1-000H Hi8$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JBIO_READDBASIC$HANDLER DBASIC$INIT DBASIC$ENDSYS$READ LIB$ANALYZE_SDESC =@8#?G~^^~cGGy C]G5} C80VB"8bTG@"@Zkc="PB]"tGXb@Zk8 #pJ1?J0F #]$CcpBGxb4G@Zkc"`B4Ghb@ZkGc]]}#k& "} C&̂"4HG` DBASIC$INIT4Pb# DBASIC$INIT4\@` DBASIC$INIT<xGLIB$ANALYZE_SDESC<b#LIB$ANALYZE_SDEWSC<@LIB$ANALYZE_SDESC4GSYS$READ4b#SYS$READ4@SYS$READ4G DBASIC$END4b# DBASIC$END4@ DBASIC$END  =0;= 7DBASIC$HANDLER=X DBASIC$INIT;P LIB$ANALYZE_SDESC DBASIC$ENDSYS$READ =|@BIO_READB B=2*)BIO_READDEC BASIC V1.1-000 = 44=BIO_READ4=5-,\ ] Y ]<$$ $= 04: := 4= 8 =  ww1.Vʙ BB BIO_WRITE 19-JAN-1996 14:10DEC BASIC V1.1-000H Hi8$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J BIO_WRITEZDBASIC$HANDLER DBASIC$INIT DBASIC$END SYS$WRITE LIB$ANALYZE_SDESC =@8#?G~^^~cGGy C]G5} C80B"8bTG@"@Zkc="PB]"tGXb@Zk8 #pSJ1v>J0F #](CcpBGxb4G@Zkc"`B4Ghb@ZkGc]]}#k& "} C&̂"4HG[` DBASIC$INIT4Pb# DBASIC$INIT4\@` DBASIC$INIT<xGLIB$ANALYZE_SDESC<b#LIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4G SYS$WRITE4b# SYS$WRITE4@ SYS$WRITE4G DBASI\C$END4b# DBASIC$END4@ DBASIC$END  =0;= 7DBASIC$HANDLER= DBASIC$INIT;P LIB$ANALYZE_SDESC DBASIC$END SYS$WRITE =| ]@ BIO_WRITEC C=3+* BIO_WRITEDEC BASIC V1.1-000 = 44= BIO_WRITE4=5-,\ ] ]<$$ $= 04: := 4= 8 =  ww1IXʙ FF CLU_BROADCAST 19-JAN-199^6 14:10DEC BASIC V1.1-000 il$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC ` SYSBRDCSTSTUFF0J CLU_BROADCASTDBASIC$HANDLER DBASIC$INITSTR$LEFT STR$CONCAT STR$COPY_DX DBASIC$END OTS$MOVEMOTS$FILLOTS$MOVE_ SYS$BRKTHRU STR$ELEMENTSTR_LEN LIB$DATE_TIME =tl#?G~^^~޴>cGGy C#GGG{} C~Bb""TG@Zkc$B 0¤"b4Gݰ@Zkc@BGHb4G@Zk ""b&&f G"GB8vKGG@ZkGB@ZkcG@B4GHb@ZkB"pB"G@ZktG %"e?"B!v HGG@ZkBG@`Zkc$@B"ݲ "Hb4G@ZkGcG@B4GHb@ZkG?%c& @B)!="Hb4G=@ZkPB "="Xb]"}tG@Zk?$B`b }! b"=="]"tG@Zk?$Bb }! b"=="]"tG@Zk"B="ݰ]"btGb @Zk$B }"b="]"tG@ZkB$`b } b"="]"tG@ZkB "b="]"tG@ZkPB"XbG]"tG@ZkB"b="]"tG@Zk"B="a}]"btG@Zk}"#<CB#v`HGGGGG?"@ZkBB"4G@ZkBG?""33BG@ZkGB@Zkc%@B !Hb"4G@Zk" BG"=="TGb@Zkc pB"%$==""]"xb}"G@Zk DQ#c& @B"=4GHb@Zk& PB"=="]"XbtG@ZkPB "="}]"XbtG@Zk##cB_"(G ="4GGG^]"bG@bZk"="BTGb8@"@ZkcpB &"="=="]"xb}"G@ZkD#cB"b4G@ZkGc4G]]}ݤ=#k& "} C&̂"~4dG| DBASIC$INIT4hb# DBASIC$INIT4x@| DBASIC$INIT4G LIB$DATE_TIME4b# LIB$DATE_TIME4c@ LIB$DATE_TIME, GSTR_LEN,b#STR_LEN, @STR_LEN4 G OTS$MOVEM4 @ OTS$MOVEM4G OTS$FILL4@ OTS$FILL, (G8STR_LEN,0b#STR_LEN, 4@8dSTR_LEN4<GPOTS$MOVE4L@POTS$MOVE4 hG| OTS$MOVEM4 x@| OTS$MOVEM4|GOTS$FILL4@OTS$FILL, GSTR_LEN,b#STR_LEN, @STR_LEN, GSTR_LEN,eb#STR_LEN, @STR_LEN, GSTR_LEN,b#STR_LEN, @STR_LEN4G,STR$LEFT4b#STR$LEFT4(@,STR$LEFT4 0G\ STR$CONCAT4 @b# STR$CONCAT4 X@\f STR$CONCAT4 `G STR$CONCAT4 pb# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 gG STR$CONCAT4 b# STR$CONCAT0 0 4 @ STR$CONCAT4 G8 STR$CONCAT4 b# STR$CONCAT4 4@8 STR$CONCAT48GXSTR$LEFT4@b#STR$LEFT4T@XSTR$LEFT4 XGt STR$CONCATh4 `b# STR$CONCAT4 p@t STR$CONCAT4 xG STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 Gi OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL, G4STR_LEN, b#STR_LEN, 0@4STR_LEN48G` STR$COPY_DX4Xb# STR$COPY_DX4\@` STR$COPY_DX4hG STR$ELEjMENT4b# STR$ELEMENT4@ STR$ELEMENT, GSTR_LEN,b#STR_LEN, @STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4G,STR$LEFT4 b#STR$LEFTk4(@,STR$LEFT48G| SYS$BRKTHRU4pb# SYS$BRKTHRU4x@| SYS$BRKTHRU4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G STR$ELEMENT4b# STR$ELEMENT4@ STRl$ELEMENT4G  DBASIC$END4b# DBASIC$END4@  DBASIC$END, ,= ########## =OPA0:  DBASIC$END= ##########@=UnidentiP DBASIC$INIT= fied Mes p STR$COPY_DX8OTS$FILL8 OTS$MOVEMm STR$CONCAT=0;= 7DBASIC$HANDLER= ; STR_LENSTR$LEFT=  STR$ELEMENT=,(=sage ;@ LIB$DATE_TIME= ` SYS$BRKTHRU= 8OTS$MOVE =n|@ CLU_BROADCASTG G=7/. CLU_BROADCASTDEC BASIC V1.1-000 = 44= CLU_BROADCAST4=bԀ {T } ܈        X$$ $=  oD4: := 4= l =  ww1[ʙ GGCLU_MEMBERSHIP 19-JAN-1996 14:10DEC BASIC V1.1-000 i($CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JpCLU_MEMBERSHIPDBASIC$HANDLER DBASIC$INpIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT STR$CONCAT DBASIC$ENDOTS$MOVEOTS$FILL SYS$GETSYIW STR_SUBTRACTSTR_LEN LIB$ANALYZE_SDESC =0(#?G~^^~cGG9 C#G= CB"bTG"@ZkB"hB"4G@ZkG`BG@ZkGpBG"="]"tG$xb @Zk@qB GHb="TG@Zk cB"b="]"tG@Zk_&="&="D=F=@D?'F@cBG="bG}"GGG@Zk 9GcGB4Gb@Zk0B"8bG]"tG@ZkPB "Xb="]"tG@Zk"0B="8b]" HtGH@ZkGPB="Xb]"tG@ZkcGB="Gb}"GGG@Zk @B" ="="HbTG@ZkcBGbG]"tG@ZkrcB"b4G@ZkGc4G]]}#k& "= CL&̂"H4HG` DBASIC$INIT4Pb#p DBASIC$INIT4\@` DBASIC$INIT4 `GtOTS$MOVE4 p@tOTS$MOVE4xGOTS$FILL4@OTS$FILL4G STR$DsUPL_CHAR4b#p STR$DUPL_CHAR4@ STR$DUPL_CHAR4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX<GLIB$ANALYZE_SDESC<b#pLIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4 hG SYS$GETSYIW4t xb#p SYS$GETSYIW4 @ SYS$GETSYIW,GSTR_LEN,b#pSTR_LEN,@STR_LEN4 GSTR$LEFT4b#pSTR$LEFT4 @STR$LEFT4G STR$CONCAT4b#p STR$CONCAT4u@ STR$CONCAT4 G,STR$LEFT4b#pSTR$LEFT4 (@,STR$LEFT40GH STR$CONCAT48b#p STR$CONCAT4D@H STR$CONCAT4 PGx SYS$GETSYIW4 `b#p SYS$GETSYIW4 t@x SYS$GETSYIWv4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4G STR_SUBTRACT4b#p STR_SUBTRACT4@ STR_SUBTRACT4G DBASIC$END4b#p DBASIC$END4@ DBASIC$END  LIBw$ANALYZE_SDESCSTR_LEN STR_SUBTRACT DBASIC$INIT8OTS$MOVE;=,` SYS$GETSYIW=0;= 7DBASIC$HANDLER= STR$LEFT STR$COPY_DX STR$CONCAT8OTS$FILL= STR$DUPL_CHAR DBASIC$END=  =x|@CLU_MEMBERSHIPH H=80/CLU_MEMBERSHIPDEC BASIC V1.1-000- -= 4p4=CLU_MEMBERSHIP4=U UUUU V V Z _ _ ^ ` ^ ^8 _ e n h  y@$$ $= 04: := 4= ( =  ww1m`^ʙ KKCPUMONITORDEF$MAIN 19-JAN-1996 14:10DEC BASIC V1.1-000( (it$CODE$`$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC CPUMONITOR8JzCPUMONITORDEF$MAINDBASIC$HANDLER DBASIC$INIT DBASIC$END CPUMONITOR_INITIALIZE CPUMONITOR_GETJPI SYS$SETIMR SYS$GETTIM SYS$GETJPIWSYS$FAO SYS$BINTIM LIB$SUB_TIMESLIB$PUT_OUTPUTLIB$EDIV =|t@#TG~^^cGG"@B0"Hb@ZkcPB"Xb4G@ZkGc4G]]#k4{,G< DBASIC$INIT44b# DBASIC$INIT48@< DBASIC$INIT4@GT DBASIC$END4Hb# DBASIC$END4P@T DBASIC$END =0;= 7DBASIC$HANDLER=;@ DBASIC$INIT DBA|SIC$END =|@ CPUMONITORDEFL L=<43CPUMONITORDEF$MAINDEC BASIC V1.1-000 = 44= CPUMONITORDEF$MAIN4= 78$ $= 4: := \4= t = } ww1Eaʙ GGCPUMONITOR_AST 19-JAN-1996 14:10DEC BASIC V1.1-000 i$CODE$H$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC CPUMONITOR0JCPUMONITOR_ASTDBASIC$HANDLER DBASIC$INIT STR$COPY_DX DBASIC$INIT~_GOSUB STR$DUPL_CHARSTR$LEFT DBASIC$END_GOSUB DBASIC$ENDSYS$EXIT CPUMONITOR_INITIALIZE CPUMONITOR_GETJPI SYS$SETIMR SYS$GETTIM SYS$GETJPIWSYS$FAO SYS$BINTIM LIB$SUB_TIMESLIB$PUT_OUTPUTLIB$EDIVCPUMONITOR_AST =#?G~^^~ (0cG#= C]G} CB0b"p"TGb@Zk_&1R"="8DBTGb`""]@Zkc"@B4GHb@Zk""G_&#0R"="G DRTGBb0"]"@Zkc@B"Hb4G@Zk""PBXbTG@Zk&6"B="bTG "@Zkc@B"Hb4G@Zk"&"B="TGbݲ@Zkc= B">= >="b]"}"""G@Zk"B4Gb@ZkkGGGBcB #"bGGGG@ZkcGB bG@Zk&L\"l#="TGrp 8BC BlbB"bs"}@Zk"B="]"tGb@Zk"c="B]"G=b>}@Zk"="`B]"hbtG HH@Zkc"@B4GHb@ZkB&"b="TG"@Zk"B="]"btG@Zkcc"B="b]"G@Zk"="`B]"hbtG%HH@Zkc"@B4GHb@Zkc "B4Gb@ZkGcB"b4G@ZkGc4G]]} (0@#k& " C&̂"4\Gx DBASIC$INIT4pb# DBASIC$INIT4t@x DBASIC$INIT4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX4 GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4 G$ STR$COPY_DX4 b# STR$COPY_DX4 @$ STR$COPY_DX4 (G<LIB$PUT_OUTPUT40b#LIB$PUT_OUTPUT4 8@<LIB$PUT_OUTPUT<DGTDBASIC$INIT_GOSUB<Hb#DBASIC$INIT_GOSUB<P@TDBASIC$INIT_GOSUB4 `G STR$COPY_DX4 hb# STR$COPY_DX4 @ STR$COPY_DX4 GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX<GCPUMONITOR_INITIALIZE<b#CPUMONITOR_INITIALIZE<@CPUMONITOR_INITIALIZE< G0DBASIC$END_GOSUB<(b#DBASIC$END_GOSUB<,@0DBASIC$END_GOSUB4PGp SYS$SETIMR4Xb# SYS$SETIMR4l@p SYS$SETIMR<xGCPUMONITOR_GETJPI<b#CPUMONITOR_GETJPI<@CPUMONITOR_GETJPI4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4 @ STR$DUPL_CHAR,GDSYS$FAO,,b#SYS$FAO,@@DSYS$FAO4PGpSTR$LEFT4Xb#STR$LEFT4l@pSTR$LEFT4 xGLIB$PUT_OUTPUT 4b#LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX4 G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4 @ STR$DUPL_CHAR,G SYS$FAO,b#SYS$FAO,@ SYS$FAO4G8STR$LEFT4 b#STR$LEFT44@8STR$LEFT4 @GPLIB$PUT_OUTPUT4Hb#LIB$PUT_OUTPUT4 L@PLIB$PUT_OUTPUT4XGhSYS$EXIT4`b#SYS$EXIT4d@hSYS$EXIT4xG DBASIC$END4b# DBASIC$END4@ DBASIC$END  DBASIC$END_GOSUB=SYS$EXIT SYS$SETIMR8;@;SYS$FAO STR$DUPL_CHAR;p STR$COPY_DX=0;=@< 7DBASIC$HANDLER=; LIB$PUT_OUTPUT DBASIC$INIT_GOSUBSTR$LEFT; DBASIC$INIT CPUMONITOR_GETJPI DBASIC$END CPUMONITOR_INITIALIZE7CPUMONITOR_AST =|@CPUMONITOR_AST =%CPUMONITOR-I-EXITING, exiting image...!/ Total CPU ticks = !UL!/ clockticks = !UL!/ CPU usage of !UL% exceeded on !UL consecutive occasions=h\!/%CPUMONITOR-I-PARAMS, PC=!XL, PSL=!XL, R0=!XL, R1=!XL!/!22* Parameter = !XL (!-!UL)(!-!SL)=@6-CPUMONITOR-I-CALLINIT, calling initialization routine0=ia%CPUMONITOR-W-NOTINIT, not initialized correctly%CPUMONITOR-W-BADVER, incorrect structure versionH H=80/CPUMONITOR_ASTDEC BASIC V1.1-000 = 44=CPUMONITOR_AST4=IArrt s x x4     v }             ;     D$$ $= <4: := 4=  =  ww1Edʙ JJCPUMONITOR_GETJPI 19-JAN-1996 14:10DEC BASIC V1.1-0008 8i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC CPUMONITOR8J`CPUMONITOR_GETJPIDBASIC$HANDLER DBASIC$INIT DBASIC$ENDOTS$MOVEOTS$FILL CPUMONITOR_INITIALIZE SYS$SETIMR SYS$GETTIM SYS$GETJPIWSYS$FAO SYS$BINTIM LIB$SUB_TIMESLIB$PUT_OUTPUTLIB$EDIV =#?G~^^~cG#G B"bTG@"@ZkB"HB"4G@ZktG8BG@Zk0bæ# ö(08#cG`B4Ghb@Zkc#"BGbGtG@Zk&&] # DF@="#"SF=BD&@BF ?$CAC=WF] '@#"="] &SGݲF}@CwF]WG}BcGBGbG}""GG@Zk$ cBC"b"G}"G@Zk# _W_%W&_cB@C"b #"GtG@Zk#( @HG J,cGF0 B N3 BLc07 CPc4C: zCTCC8 @BXJF0 BCBuN&6 CcL㢳 B35`BcHch#;Ch#LClCRClCP#pBp#TtâBtXcxBxcc"PB4GXb@ZkcG]4G]} #k& "-?&̂")48GP DBASIC$INIT4@b#` DBASIC$INIT4L@P DBASIC$INIT4PGdOTS$MOVE4`@dOTS$MOVE4 hGtOTS$FILL4 p@tOTS$FILL4G SYS$GETTIM4b#` SYS$GETTIM4@ SYS$GETTIM4 G LIB$SUB_TIMES4 b#` LIB$SUB_TIMES4 @ LIB$SUB_TIMES4G SYS$GETJPIW4b#` SYS$GETJPIW4@ SYS$GETJPIW4GLIB$EDIV4b#`LIB$EDIV4@LIB$EDIV4 (GD LIB$SUB_TIMES4 0b#` LIB$SUB_TIMES4 @@D LIB$SUB_TIMES4 @GP DBASIC$END4Hb#` DBASIC$END4 L@P DBASIC$END  SYS$GETJPIWLIB$EDIV=> ף0 DBASIC$INIT8OTS$MOVEP LIB$SUB_TIMES=0;=  7DBASIC$HANDLER=0;8OTS$FILL;= DBASIC$END SYS$GETTIM =|@CPUMONITOR_GETJPIK K=;32CPUMONITOR_GETJPIDEC BASIC V1.1-000 = 4`4=CPUMONITOR_GETJPI4=jbrr x x } ~ | | }   | }  }            \       < $ $= 04: := \4=  =  ww1rUgʙ NNCPUMONITOR_INITIALIZE 19-JAN-1996 14:10DEC BASIC V1.1-000 iP$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC CPUMONITOR8JpCPUMONITOR_INITIALIZEDBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX DBASIC$ENDOTS$MOVEOTS$FILLOTS$STRCMP_EQLP CPUMONITOR_GETJPI SYS$SETIMR SYS$GETTIM SYS$GETJPIWSYS$FAO SYS$BINTIM LIB$SUB_TIMESLIB$PUT_OUTPUTLIB$EDIVCPUMONITOR_ASTt t =XP#?G~^^ ~(cG#=!C]G}!CB"bTG`"@ZkB"B"4G@ZktGhBG@Zk"G=tG0bB!=b#@Zk"B="bTGtG@ZkGBB"G1vH@Zk B?'bP" 9#="="TG@Zkc#"@B"HbTG@Zk?&P" 1""B=TG=="b@Zkc#"@B"HbTG@Zk4GG B} B1C25@B2F TG]B 㲘J95 CG c=_&c"}2DF&!@"=6D?'F9@=cGBGbG}""GG@ZkGcGBb@Zk`dhlptx|㳌㳐㳔㳘pBcB#"bGGGG@Zkc"B4Gb@ZkcG]4G] }(0#k& "!CD&̂"@4 PGh DBASIC$INIT4 Xb#p DBASIC$INIT4 d@h DBASIC$INIT4hG|OTS$MOVE4x@|OTS$MOVE4GOTS$FILL4@OTS$FILL4 G DBASIC$EDIT4 b#p DBASIC$EDIT4 @ DBASIC$EDIT4 G DBASIC$EDIT4 b#p DBASIC$EDIT4 @ DBASIC$EDIT4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4 G( STR$COPY_DX4b#p STR$COPY_DX4 $@( STR$COPY_DX40GD SYS$BINTIM48b#p SYS$BINTIM4@@D SYS$BINTIM4 \Gx STR$COPY_DX4pb#p STR$COPY_DX4 t@x STR$COPY_DX4G SYS$BINTIM4b#p SYS$BINTIM4@ SYS$BINTIM4HGp SYS$GETJPIW4Pb#p SYS$GETJPIW4l@p SYS$GETJPIW<GCPUMONITOR_GETJPI<b#pCPUMONITOR_GETJPI<@CPUMONITOR_GETJPI4G SYS$SETIMR4b#p SYS$SETIMR4@ SYS$SETIMR4G DBASIC$END4b#p DBASIC$END4@ DBASIC$ENDP P8OTS$STRCMP_EQLP CPUMONITOR_GETJPI SYS$SETIMR8OTS$MOVE=@ DBASIC$INIT DBASIC$EDIT STR$COPY_DX=0;=0 7DBASIC$HANDLER= ; SYS$BINTIM= 0 00:05:00.00;8OTS$FILL7CPUMONITOR_AST DBASIC$END= SYS$GETJPIW =|@CPUMONITOR_INITIALIZEO O=?76CPUMONITOR_INITIALIZEDEC BASIC V1.1-000 = "4p4=#CPUMONITOR_INITIALIZE4=#                        <$$ $= 44: := 4= P =  ww1L/2יX1-002LLDCL_ENVI_DEPTHX1-002 5-FEB-1996 09:08AMAC V2.0-22 @$LINKAGE| _SYS_CODE $ABS$ . BLANK . . ABS .CTL$AG_CLIDATA PPD$L_PRCPRC_W_PROCLEVEL0JDCL_ENVI_DEPTH =0 ;=  ="7CTL$AG_CLIDATA7 PPD$L_PRC7PRC_W_PROCLEVEL =|>C~^~G({0[8KCz C,H  K15@C 4GG~Ck.W JD ww122יX1-002PPDCL_ENVI_PROCEDUREX1-002 5-FEB-1996 09:08AMAC V2.0-22 $LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS . SYS$CMEXECCTL$AG_CLIDATA PPD$L_PRC PRC_L_IDFLNKIDF_L_FILENAME OTS$MOVEMOTS$FILL8JDCL_ENVI_PROCEDURE8JPDCL___GET_PROCEDURE =0 ;=0 = "00P;@  SYS$CMEXEC"=0;=p OTS$FILL7 PPD$L_PRC7CTL$AG_CLIDATA7 PRC_L_IDFLNK OTS$MOVEM7IDF_L_FILENAMEL L=>C?G~^ G(G= }{`KfK05`C ]@@MC0 TGHm@ZkG (Ck|"  GG>C~^^ ~(08޴@HP>X^`~hG0[C8{@;KCz+CY @`, CH8 - I 4 A&IP[H>CG4qBF~GGAB@Zk~C >CG [~@Zk~C4GG^ ~(08ޤ@HP>X^`~hCk.W JD4HG` SYS$CMEXEC4Xm# SYS$CMEXEC4\@` SYS$CMEXEC4GH OTS$MOVEM4D@H OTS$MOVEM4\GhOTS$FILL4d@hOTS$FILL ww12יX1-002MMFILE_ATTRIBUTESX1-002 5-FEB-1996 09:08AMAC V2.0-22 `$LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS .STR_LENSYS$OPEN SYS$CLOSE0JFILE_ATTRIBUTES =0 ;= ="""*;STR_LEN"  SYS$CLOSE" SYS$OPEN" =>C~^G G== ](}0(-8Q#p"4Gq>C8m^0M>C@Zk4G(-C4qGGGzGPM4qXm,>C@Zk(MCݢvJJ1UB ]`rzwJJ1uB @MGHm>C4G@ZkC/GCkGG ݢ }\xKK1C?((RBvV|\wJJ1B?0ݢ0}QB\[ݢvJJ1B?88]SB|ӀKK1C?}`TBڢز}{`KfK1aC?]@K|ӀKK15C?}`RXݢvJJ1UB?r]`KzwJJ1uB?ݢX}0KxKK1C?dҢPJܲ]z@KFK1ACz?hݢRJ}{`KfK1aCo?]@lK|ӀKK1Cd?}`XRR@KXݢvJJ1BY?hr]`KzwJJ15BN? ݢLX }GG,\m#STR_LEN,dGpSTR_LEN,l@pSTR_LEN4GSYS$OPEN4m#SYS$OPEN4@SYS$OPEN4G SYS$CLOSE4m# SYS$CLOSE4 @ SYS$CLOSEP P=P== `OP4= H=P=,T|4|=<4==X= === ww1l[hʙ CC FOR_SIGNAL 19-JAN-1996 14:10DEC BASIC V1.1-000 i$CODE$`$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J FOR_SIGNALDBASIC$HANDLER DBASIC$INIT DBASIC$END =@#?G~^^cGG  @B"0"TGHb@Zkc"PB4GXb@ZkcG]4G]#k& "?&̂"40GH DBASIC$INIT4@b# DBASIC$INIT4D@H DBASIC$INIT4PG` DBASIC$END4Xb# DBASIC$END4\@` DBASIC$END =0;= 7DBASIC$HANDLER=;@ DBASIC$INIT DBASIC$END =|@ FOR_SIGNALD D=4,+ FOR_SIGNALDEC BASIC V1.1-000~ ~=  44= FOR_SIGNAL4=.8 $ $= (4: := l4=  =  ww18jʙ AAFOR_STOP 19-JAN-1996 14:10DEC BASIC V1.1-000 i$CODE$`$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JFOR_STOPDBASIC$HANDLER DBASIC$INIT DBASIC$END =@#?G~^^cGG  @B"0"TGHb@Zkc"PB4GXb@ZkcG]4G]#k& "?&̂"40GH DBASIC$INIT4@b# DBASIC$INIT4D@H DBASIC$INIT4PG` DBASIC$END4Xb# DBASIC$END4\@` DBASIC$END =0;= 7DBASIC$HANDLER=;@ DBASIC$INIT DBASIC$END =|@ FOR_STOPB B=2*)FOR_STOPDEC BASIC V1.1-000| |= 44=FOR_STOP4=/8 $ $= (4: := l4=  =  ww132יX1-002OOLAN_FORMAT_HEADERX1-002 5-FEB-1996 09:08AMAC V2.0-22 P$LINKAGE _SYS_CODEf _SYS_DATA $ABS$ . BLANK . . ABS .SYS$FAOL8JLAN_FORMAT_HEADER =00 ;=p ="";=@ SYS$FAOL"" =$>C~0^8@>H^P~X G`hG(?G4`C `C4GFUG@|" /G08@>H^P~X`hCkG0I4BGGG Jg AI/G @A.IK/ 4 AvXKWJ\ KF XKGG?> @Ai/G/G.iKXKwzKV JG zK 4 AF>?G/ @A[/.KZ[KxKW JXG K 4 AF>G[? @A.|//J[|KzJX KzG J 4 AG?|?G. @A/V/J\K{JZ VKG J 4 A[GV?G? @A /.w/ KVJ@M|K[ wKF K 4 A|Gw?>(}A ]GHmG@Zk ](}@Jd A/G @A[/K. 4 AxKZ[KW JXG KGF>[? @A.G|/G/GJ[|KzJX KzG J 4 AG?G|? @A./V/J\K{JZ VKG J 4 A[GV??G / @A.w/ KVJ|K[ wKF K 4 A|Gw?G> @AI/./IKWJvXK\ KF XK 4 AG?>Gi/ @A/.iKXKwzKV JG zKHm 4 AF>?@M(}A@Zk(}`J A.G @A/JV/ 4 A{J\KZ VKG JG[GV?? @A /G.Gw/A KVJ|K[ wKF K 4 A|Gw?G> @AI/G./IKWJvXK\ KF XK 4 AG?G> @Ai//.iKXKwzKV JG zK 4 AF>?G/ @A[/.KZ[KxKW JXG K 4 AF>G[? @A.|//J[|KzJX KzG J 4 AG?|?G. @A/V/J\K{JZ VKG J 4 A[GV?G?A / @A.w/ KVJ|K[ wKF K 4 A|Gw?>>CHm^>C@M ~@ZkC4G4GTSYS$FAOL4Hm#SYS$FAOL4P@TSYS$FAOL4m#SYS$FAOL4GSYS$FAOL4@SYS$FAOL4m#SYS$FAOL4GSYS$FAOL4 @SYS$FAOL =4=(!XB-!XB-!XB-!XB-!XB-!XB'4='!XB-!XB !XB !XB-!XB-!XB-!XB-!XB ww1 2יX1-001MMLAN_STARTUP_PRMX1-001 5-FEB-1996 09:08AMAC V2.0-22 `$LINKAGE _SYS_CODE& _SYS_DATA $ABS$ . BLANK . . ABS . SYS$ASSIGNSYS$QIOW0JLAN_STARTUP_PRM =0( ;=@ = ""00;@ SYS$QIOW"""  SYS$ASSIGN""t t=$>C~(^08 GG4G?Gs`C3u`CF TG `@|" /G(08CkPMG ]GXmG=@Zk= ]0 >CG8C0GGG<.c_"C~(^08G G==(tGPMXm@\"<<"0"@Zk8( G@MG=HmG0"@Zk(m-`M=tGhm4S"0"@Zk(M$MTGm42"0"@ZktG(m0M8m(S" 3"0"@Zk(4GMm("@ZktG(m0M8m(S" 3"0"@Zk( 4GpMxm0"@ZkG(08Ck40GHLBR$INI_CONTROL44m#LBR$INI_CONTROL4D@HLBR$INI_CONTROL4TGpLBR$OPEN4`m#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$CLOSE =4=SYS$LIBRARY:.MLB=4=4=$ ww192יX1-002KK LIB_AVAILABLEX1-002 5-FEB-1996 09:09AMAC V2.0-22  $LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS .SYS$FAOLIB$PUT_OUTPUTSYS$EXIT SYS$TRNLNM0J LIB_AVAILABLEt t=0 ;=@ =";=@ LIB$PUT_OUTPUT" SYS$EXIT"=pSYS$FAO"""SYS$FAO"""=0p; SYS$TRNLNM"""P P=>C~^^ ~(0 G8G({ KfK15`C0 = >Pp@H<@MCmC{U"s5"GB@ZkA;@ (ͦ4G@MHmTB@ZkG/(ͦ0@pMCxmCC{V"s6"GB@ZkA$@4G( @MHm"@Zk /&DCG^ ~(08Ck|" GL PM0"Xm4G@ZkGG>C^ GM"mGsU"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_OUTPUT4PGdSYS$EXIT4Xm#SYS$EXIT4`@dSYS$EXIT4 G SYS$TRNLNM4 m# SYS$TRNLNM4 @ SYS$TRNLNM =4= LNM$SYSTEM_TABLE 4= !AF_UNAVAILABLE 74=!AF_WHY_!UL)J4=8)This facility is temporarily unavailable.s=s4=s4=4=4=44=  ww1E2יX1-001KK LIB_CHECKSUM2X1-001 5-FEB-1996 09:09AMAC V2.0-22 @$LINKAGE  _SYS_CODE . BLANK . . ABS . OTS$DIV_I0J LIB_CHECKSUM2 =0 ;=0 ="0 OTS$DIV_I@ @=( >C~^^~ (G<C1FG6K"5C!CG^~ (CkB@$C.Jw@@K#HzD3/Z 3KG. sHV JF>/V KFw@@K#HzD ww1klʙ KKLIB_COMPARE_BLOCKS 19-JAN-1996 14:10DEC BASIC V1.1-000 i<$CODE$$LINK$ $READ_ONLY$x $LITERAL$$ARRAY$DESC8J`LIB_COMPARE_BLOCKSDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT STR$LEN_EXTR LIB$ICHAR DBASIC$ENDSYS$FAOLIB$PUT_OUTPUT LIB$ANALYZE_SDESC =D<#?G~^^~޴> ^(~08@cGGy Cp#GGG} CpB""xbTG@ZkGG"B="]"tG}b@Zkc`BGhb="]"tG@Zkc`BGhb="]"tG@Zk$P" @B"à="`! =TGHb@Zkc"B="b]"GG@Zk"0B="ݠ]"8btGݰ@Zkc"B4GbG4G@ZkB4G"bG=]"}"G@Zk"B4Gb@ZkB4G G"bG]"}"G@ZkB"b4G@Zk G*E=6 Pb&@B(BBs"}G"+9BHb,9 B"="TG@Zkc8^"0>="(]"BG ~ 4G~GG~Gb^@Zk"0B="]"8btG@Zkc"B4Gb@Zk8@8A C!I*C ME_@B"P"="HbTG=@ZkcB"b="]"GG@Zk0B"="8b]"tG@ZkcB"b4G@ZkcB"b4G@ZkGc4G]]}ݤ= ](}08@P#k& "} C&̂"4tG 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_SDESC4 G@ STR$COPY_DX48b#` STR$COPY_DX4 <@@ STR$COPY_DX,HGdSYS$FAO,Pb#`SYS$FAO,`@dSYS$FAO4 hGSTR$LEFT4 xb#`STR$LEFT4 @STR$LEFT4 GLIB$PUT_OUTPUT4 b#`LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4G STR$LEN_EXTR4b#` STR$LEN_EXTR4@ STR$LEN_EXTR4G LIB$ICHAR4b#` LIB$ICHAR4@ LIB$ICHAR4G STR$LEN_EXTR4b#` STR$LEN_EXTR4@ STR$LEN_EXTR4G, LIB$ICHAR4 b#` LIB$ICHAR4(@, LIB$ICHAR4 HG STR$COPY_DX4lb#` STR$COPY_DX4 @ STR$COPY_DX,GSYS$FAO,b#`SYS$FAO,@SYS$FAO4 GSTR$LEFT4 b#`STR$LEFT4 @STR$LEFT4 GLIB$PUT_OUTPUT4 b#`LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4 0GT STR$COPY_DX4@b#` STR$COPY_DX4 P@T STR$COPY_DX,XGxSYS$FAO,`b#`SYS$FAO,t@xSYS$FAO4 xGSTR$LEFT4 b#`STR$LEFT4 @STR$LEFT< <4 GLIB$PUT_OUTPUT4 b#`LIB$PUT_OUTPUT4 @LIB$PUT_OUTPUT4G DBASIC$END4b#` DBASIC$END4@ DBASIC$END  STR$DUPL_CHAR;  LIB$ICHAR STR$LEN_EXTRSYS$FAO LIB$PUT_OUTPUT=0;=P? 7DBASIC$HANDLER= STR$LEFT STR$COPY_DX; LIB$ANALYZE_SDESC 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 !ULL L=<43LIB_COMPARE_BLOCKSDEC BASIC V1.1-000 = 4`4= LIB_COMPARE_BLOCKS4=$UUU UUUX[___c il mpm mm m n omvqrmm hd$$ $= T4: :=  4= < =  ww1Eo\2יX1-002LLLIB_COUNT_BITSX1-002 5-FEB-1996 09:09AMAC V2.0-22 ($LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS .0JLIB_COUNT_BITSd d=0 ;=0 =" =>C~^^~ (GPGG/C~^^~ (0޴8@H>P^X~`h GG{ KfK2U`C[@\@[GPMCף&8C> "D7J'O{#;dKG&"7JGGGG>CG@ GGK&CD<CDB@O6HXmBB@V@'@K%CD'8CD#O<K"H"E@B_@&@޴K$CD6CD"HN"D@B_@%@CJ#CDB@bB@$@CC@ZkCG^~ (0ޤ8@H>P^X~`hCk|"  ,`G|SYS$FAO,m#SYS$FAO,x@|SYS$FAO\ \=4= !4UL !2ZL:!2ZL:!2ZL.!2ZL ww1tHoʙ DD LIB_CVT_T_L 19-JAN-1996 14:11DEC BASIC V1.1-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0Jp LIB_CVT_T_LDBASIC$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 =#?G~^^~޴cG#Y CGG] CpBP""xbTG@ZkcB"=TGb@Zk4Gc"`B4Ghb4GTG@Zk@B4G=GHb"=="]"}"G@Zk4G0BB"G1vH@Zk;@BTG4G=Hb"="]"}"G@ZktGݠ4G=B"0BG7vHGG@ZkTG!G0B4GGGB"G@ZkG0B4GGGB"G@ZkTG 0B4GGGB"G@Zk8DG#"DGXD B"="]"b}"G@Zkc"BGbGGG@ZkKGD B"="]"b}"G@Zkc"BGbGGG@Zk3GXD B"="]"b}"G@Zkc"BGbGGG@ZkGDB"="]"b}"G@Zkc"BGbGGG@ZkG c"B4Gb@ZkGc]]}ݤ#k& "] C&̂"4TGl DBASIC$INIT4`b#p DBASIC$INIT4h@l DBASIC$INIT4xG 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 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G< STR$LEN_EXTR4 b#p STR$LEN_EXTR4 8@< STR$LEN_EXTR4 PGhOTS$STRCMP_EQLP4 d@hOTS$STRCMP_EQLP4 xGOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G( STR$POS_EXTR4 b#p STR$POS_EXTR4 $@( STR$POS_EXTR40GL OTS$CVT_TB_L48b#p OTS$CVT_TB_L4H@L OTS$CVT_TB_L4 `G STR$POS_EXTR4 xb#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_EXTR4G  OTS$CVT_TU_L4b#p OTS$CVT_TU_L4@  OTS$CVT_TU_L4 GH STR$POS_EXTR4 8b#p STR$POS_EXTR4 D@H STR$POS_EXTR4PGl OTS$CVT_TZ_L4Xb#p OTS$CVT_TZ_L4h@l 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;=| 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_LE E=5-, LIB_CVT_T_LDEC BASIC V1.1-000 = 4p4= LIB_CVT_T_L4=  0     H$$ $= <4: := 4=  =  ww12יV1-002SSLIB_FORMAT_PROTECTIONV1-002 5-FEB-1996 09:09AMAC V2.0-22 `$LINKAGE _SYS_CODE . BLANK . . ABS . OTS$MOVEMOTS$FILL8JLIB_FORMAT_PROTECTION =0 ;=@< ="0OTS$FILL\;P OTS$MOVEM =>C~^^ ~(08GQ,0QH$ CH 1@ GG/zJ4 @\KG?@ 1@ G4GG^ ~(08CkGGTG/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@pGG/zJ4 @\KG?VAH 1@dGG/zJ4 @\KG?vAH 1@XGG/zJ4 @\KG?CH 1@LGG/zJ4 @\KG?AH 1@@GTG/zJ4 @\KG?AH 1@4GG/zJ4 @\KG?AH 1@(GG/zJ4 @\KG?AH 1@GG/zJ4 @\KG?CH 1@G4G/zJ4 @\KG?@;GHP[GyG>C`J~4qBF qBAB@Zk~C?>C0[D~G@Zk~CQ/\ QK\D4hG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL ww1{D2יX1-001OOLIB_GENERATE_SEEDX1-001 5-FEB-1996 09:09AMAC V2.0-22 P$LINKAGE| _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . SYS$GETTIM8JLIB_GENERATE_SEED =0 ;=0 =";=@  SYS$GETTIM"8 8=|>C~^ ( GG KG15`C @M4G( Hm@Zk4G(-GѢFG (Ck4,GD SYS$GETTIM4<m# SYS$GETTIM4@@D SYS$GETTIM( (= ww1 2יX1-002KK LIB_GET_INPUTX1-002 5-FEB-1996 09:09AMAC V2.0-22 $LINKAGE@ _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS .0  _KEY_TABLE_ID0  _KEYBOARD_ID SMG$CREATE_KEY_TABLE(SMG$CREATE_VIRTUAL_KEYBOARD SMG$READ_COMPOSED_LINESMG$_EOFAMAC$EMUL_CALL0J LIB_GET_INPUTP P=0( ;=@ ="";0SMG$CREATE_VIRTUAL_KEYBOARD"(SMG$CREATE_KEY_TABLE"7 SMG$READ_COMPOSED_LINE=z`7SMG$_EOFpAMAC$EMUL_CALL| |=H@>C~(^08G G== ](m[ @@M( 4GHm@Zk6(ͦ0M4G8mB@Zk/}TGtG{`KfK0[C >C0@>C0@Lݢ>C(G޲>CPͦG~C^GGG>CBCGxmGB^pM@Zk`^0CC$z G(08Ck<8GLSMG$CREATE_KEY_TABLE<Dm#SMG$CREATE_KEY_TABLE<H@LSMG$CREATE_KEY_TABLEDTGhSMG$CREATE_VIRTUAL_KEYBOARDD\m#SMG$CREATE_VIRTUAL_KEYBOARDDd@hSMG$CREATE_VIRTUAL_KEYBOARD4m#AMAC$EMUL_CALL4G AMAC$EMUL_CALL4@ AMAC$EMUL_CALL( (= ww1ɢ 2יX1-002LLLIB_OUTPUT_BKTX1-002 5-FEB-1996 09:09AMAC V2.0-22 `$LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS .SYS$FAOLIB$PUT_OUTPUT0JLIB_OUTPUT_BKT =0 ;=P| =";=@ LIB$PUT_OUTPUT"SYS$FAO""" * =>C~^^ ~(08޴@ GHG{ KfK15`C U |" G^ ~(08ޤ@HCkG>CCA@ B/.GXKW J@@WGC0^ (b ~B/@@ .XKW J@@WGC^/ /KZ KT@@GC. b/J\ vKFCB4@@^...B/JW J( Jb[ \KPMFFXmCCX"8""@Zk4G(mC@M"Hm@ZkG ,LGtSYS$FAO,Xm#SYS$FAO,p@tSYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT =4=4=4=!39 Area/Index No. !UB!/!39
Freepointer !UW (!-!XW)!/!39 !19 Last !UB (!-!XB)!/!39 !19 Control !XB!/ ww1f2יX1-003LLLIB_OUTPUT_FH2X1-003 5-FEB-1996 09:09AMAC V2.0-22 $LINKAGE _SYS_CODEk _SYS_DATA $ABS$ . BLANK . . ABS .SYS$FAOLIB$PUT_OUTPUTSTR_LENOTS$MOVE0JLIB_OUTPUT_FH2< <=0 ;=p' =";=@ LIB$PUT_OUTPUT"OTS$MOVESYS$FAO""" SYS$FAO""" * STR_LEN" SYS$FAO""" , , =>C~^^ ~(08޴@HP>X^` GhG{ KfK65`C|" G^ ~(08ޤ@HP>X^`hCkG>CCtAH/.TAGXKW J4AWGCh^//KZ KGC`.h/J\ uKAFCXHP^<HF.Ih/J\ uKFC@TADH8^B/TAE/KU KGC0h/.zKX JxGC(~A //KZ KGCTA  .A H/J[ \KFCA. / /JS K(Z KFh.CW"7"{Jm>"zFMC@Zk4G(MCHm"@M@ZkG(PMD@@v7!W!GG@ZkGPMGG@ZkTGPM&ABATHB@ZkGGTGv Mm@@@@W!f7"n"@ZkTG>C(@޴f|#\"~<".~".{.JW J/{JFCZ KhmCzF`MC@Zk4G( C@MHm"@ZkL( !1 @>C4 A>TGI.Lh/J\ uKTAFCHHtA^;/>/KU K(GCW":.7"=/"8JZ K@hhmF`MC@Zk4G(MCHm"@M@ZkG>C/"/(MKU KZ"GC0h:""pM(~  h~$xm(,04h@Zk4G(m@MC"Hm@ZkG , m#SYS$FAO,  G,SYS$FAO, (@,SYS$FAO48m#LIB$PUT_OUTPUT4@GHLIB$PUT_OUTPUT4D@HLIB$PUT_OUTPUT4TGxOTS$MOVE4t@xOTS$MOVE4|GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE, GSTR_LEN, m#STR_LEN, @STR_LEN,4m#SYS$FAO,@GLSYS$FAO,H@LSYS$FAO4XGhLIB$PUT_OUTPUT4\m#LIB$PUT_OUTPUT4d@hLIB$PUT_OUTPUT,m#SYS$FAO,GSYS$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_OUTPUTx 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!/ ww1m 2יX1-002LLLIB_OUTPUT_HM2X1-002 5-FEB-1996 09:09AMAC V2.0-22 $LINKAGE _SYS_CODE) _SYS_DATA $ABS$ . BLANK . . ABS .SYS$FAOLIB$PUT_OUTPUT0JLIB_OUTPUT_HM2 =0 ;=P| =";=@ LIB$PUT_OUTPUT"SYS$FAO"""SYS$FAO""" SYS$FAO""" SYS$FAO""" = >C~^^ ~(08޴@ GHG{ KfK15`C |" G^ ~(08ޤ@HCkGC>C BB@4GP^//KV KTB@GCHb@~B8^//KV K#GC0b(~B ^.TG@B/J[ \KFC޶:/A@=/KV KA@GC./ b./JZ K(mwJ FMV K["vF;""mCC@Zk4G(ͦC@MHm"@ZkG>C,TE@8b0~H@*B/-.XKW JH@WGC(^E/H/KZ KGC F.Ib/J\ vKD@FCDB^TD@(&.)b/J\ vK(ͦFC".V"%.6"b"J$X JpMxmFC@Zk4G( @MCHm"@ZkG>C8¢(F@޶6.9B/W"0b7"J4[ \KPM "FXmC@Zk4G(mC@M"Hm@ZkG(PM>CG@XmK@I@J@޴CCCW"7"]"@Zk4G(C@MHm"@Zk#_#bC(m>C"BC`M#B ޴GC޶G[";""hmGCGtG@Zk4G(ͦC@MHm"@ZkG , lGSYS$FAO, m#SYS$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,GSYS$FAO,m#SYS$FAO,@SYS$FAO4G LIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@ LIB$PUT_OUTPUT,(GdSYS$FAO,4m#SYS$FAO,`@dSYS$FAO4pGLIB$PUT_OUTPUT4tm#LIB$PUT_OUTPUT4|@LIB$PUT_OUTPUT,GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$PUT_OUTPUT4m#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT  =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"!/ ww1 1qʙ IILIB_OUTPUT_SEG_T 19-JAN-1996 14:11DEC BASIC V1.1-000 i|$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC8JPLIB_OUTPUT_SEG_TDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT DBASIC$END OTS$DIV_I_OSYS$FAOLIB$PUT_OUTPUT LIB$ANALYZE_SDESC =|#?G~^^~޴>^cGGy C#GGG~} CPB""TGXb@Zk@B?"G"]"=="}tGHb@ZkcG0B="8b]"tG@Zkc#v`H CBCb @ C!CD"DFe@09 BG@ZkG$4G LB#"="bTG8BB59B BBF)9B5 B8B*9B@ZkcB"b="]"GGGG@ZkpB"=="xb]"tG=@Zkc`B"hb4G@Zk8@ @_c"B4Gb@ZkcG]4G]}ݤ=] #k& "} C&̂"{4 hG DBASIC$INIT4 xb#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_O4@G STR$COPY_DX4Xb#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$END4b#P DBASIC$END4@ DBASIC$END  STR$COPY_DX DBASIC$END= !6UL-[!AF]0;@ OTS$DIV_I_O=0;=  7DBASIC$HANDLER= LIB$ANALYZE_SDESC STR$DUPL_CHAR DBASIC$INIT LIB$PUT_OUTPUTSTR$LEFTSYS$FAO =|@LIB_OUTPUT_SEG_TJ J=:21LIB_OUTPUT_SEG_TDEC BASIC V1.1-0002 2= 4P4=LIB_OUTPUT_SEG_T4=_ ___bbf f hgj usv |= vy||uX$$ $= H4: := $4= | =  ww1csʙ KKLIB_OUTPUT_SEG_TZB 19-JAN-1996 14:11DEC BASIC V1.1-000( (i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC8JLIB_OUTPUT_SEG_TZBDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$LEN_EXTR LIB$ICHAR STR$COPY_DXSTR$LEFT DBASIC$ENDOTS$MOVEOTS$FILL OTS$DIV_I_OSYS$FAOLLIB$PUT_OUTPUT LIB$ANALYZE_S DESC =0#?G~`^h^p~x޴>^~cGGy C#GGG} CBb"`"TG@Zk"BhB"4G@Zk@BGG@ZkB"G"="]"=tGb@ZkcGPB="Xb]"tG@ZkG vHB%"bC C @"F!C0C @0D$DrF@09BG@ZkG%Gn!_LB4Gb"G]"G TG G 8B%A69B B CF49 A6 B 8B]89 C=}}"@Zk"0B4G8b@Zk!9@A=J"!@ 8 AB4G="Gb]"}"G@ZkG9@@WV 0BM@8b"4G@Zk C 8`A jA 8A 8 A?+9`A,9A)9 AB="TGb"@ZkcB"b="]"}"G@ZkpB"="xb]"tG@ZkcB"b4G@Zk8@ @c"B4Gb@ZkcG`]4Gh]p}xݤ=]}#k& "} C5&̂"1&"4  tG DBASIC$INIT4 xb# DBASIC$INIT4 @ DBASIC$INIT4 GOTS$MOVE4 @OTS$MOVE4GOTS$FILL4@OTS$FILL4 G STR$DUPL_CHAR4b# STR$DUPL_CHAR4 @ STR$DUPL_ CHAR<GLIB$ANALYZE_SDESC<b#LIB$ANALYZE_SDESC<@LIB$ANALYZE_SDESC4G` OTS$DIV_I_O4$b# OTS$DIV_I_O4\@` OTS$DIV_I_O4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4 G LIB$ICHAR4b# LIB$ICHAR4@ LIB$ICHAR4GD STR$LEN_EXTR40b# STR$LEN_EXTR4@@D STR$LEN_EXTR4XGp LIB$ICHAR4`b# LIB$ICHAR4l@p LIB$ICHAR4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4GSYS$FAOL4b#SYS$FAOL4@SYS$FAOL4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT40G@ DBASIC$END48b# DBASIC$END4<@@ DBASIC$END   DBASIC$END OTS$DIV_I_OLIB$PUT_OUTPUTSYS$FAOL DBASIC$INIT8OTS$MOVE` STR$DUPL_CHAR STR$LEN_EXTR=0`;=? 7DBASIC$HANDLER= LIB$ICHAR8OTS$FILL LIB$ANALYZE_SDESC;=STR$LEFT STR$COPY_DX; =|@LIB_OUTPUT_SEG_TZB> >=& [!#]-!5UL-[!XB!#(3XB)]L L=<43LIB_OUTPUT_SEG_TZBDEC BASIC V1.1-000| |= 44= LIB_OUTPUT_SEG_TZB4=ccccff pkj qjkly||0{d$ $= T4: := L4=  =  ww1{uʙ JJLIB_OUTPUT_SEG_ZB 19-JAN-1996 14:11DEC BASIC V1.1-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC8J`LIB_OUTPUT_SEG_ZBDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$LEN_EXTR LIB$ICHAR STR$COPY_DXSTR$LEFT DBASIC$ENDOTS$MOVEOTS$FILL OTS$DIV_I_OSYS$FAOLLIB$PUT_OUTPUT = #?G~p^x^~޴>^~cGGy C#GGG} C`B""hbTG@Zk"@BB"4G@ZkBtGG@ZkPB? G="="Xb]"tG@ZkG vHpB%"xbC C @"F!C0C @0D$DrF@09BG@ZkG%Gh!_LB4Gb"G]"}"G TG G 8B%A69B B89 AF=6 B 8B=@Zk"0B4G8b@Zk!9@A=J"!@ 8 AB4G="Gb]"}"G@ZkG9@}@WV 0BM@8b"4G@Zk C 8`A jA 8A 8 A?+9`A,9A)9 AB="TGb"@ZkcB"b="]"}"G@ZkB"="b]"tG@ZkcB"b4G@Zk8@ @c"B4Gb@ZkcGp]4Gx]}ݤ=]}#k& "} CE&̂"A&"4tG DBASIC$INIT4b#` DBASIC$INIT4@ DBASIC$INIT4 GOTS$MOVE4 @OTS$MOVE4GOTS$FILL4@OTS$FILL4G STR$DUPL_CHAR4b#` STR$DUPL_CHAR4@ STR$DUPL_CHAR4G8 OTS$DIV_I_O4b#` OTS$DIV_I_O44@8 OTS$DIV_I_O4 TG STR$LEN_EXTR4 \b#` STR$LEN_EXTR4 @ STR$LEN_EXTR4 G LIB$ICHAR4 b#` LIB$ICHAR4 @ LIB$ICHAR4 G STR$LEN_EXTR4 b#` STR$LEN_EXTR4 @ STR$LEN_EXTR4 G0 LIB$ICHAR4 b#` LIB$ICHAR4 ,@0 LIB$ICHAR4XG| STR$COPY_DX4hb#` STR$COPY_DX4x@| 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  DBASIC$ENDLIB$PUT_OUTPUTSYS$FAOL=8;8OTS$FILLP STR$LEN_EXTR=0p;=? 7DBASIC$HANDLER= LIB$ICHAR8OTS$MOVE STR$DUPL_CHAR DBASIC$INIT OTS$DIV_I_OSTR$LEFT; STR$COPY_DX =|@LIB_OUTPUT_SEG_ZB1 1=!6UL-[!XB!#(3XB)]K K=;32LIB_OUTPUT_SEG_ZBDEC BASIC V1.1-000G G= 4`4=LIB_OUTPUT_SEG_ZB4=`` idc jcderuuxQz}0td$ $= T4: :=  4=  =  ww1 "2יX1-001HH LIB_RANDOMX1-001 5-FEB-1996 09:09AMAC V2.0-22 $LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . AMAC_FLT_SRC1 AMAC_FLT_DST AMAC_FLT_N_Z AMAC_FLT_R0 AMAC_FLT_R1AMAC_FLT_CVTLF MTH$RANDOM AMAC_FLT_SRC2 AMAC_FLT_MULFAMAC_FLT_CVTFL0J LIB_RANDOMx x=08 ;=` =""7 AMAC_FLT_N_Z7 AMAC_FLT_R07 AMAC_FLT_R17 AMAC_FLT_DST7 AMAC_FLT_SRC17 AMAC_FLT_SRC2`  AMAC_FLT_MULF AMAC_FLT_CVTFL AMAC_FLT_CVTLF  MTH$RANDOM"0 0=>C~8^@^H~PXG G= =(]0} KG0`CM ]0CH ݢrHM0ͦG(M"|C80@@ZM@-m<@Zk4G8M0m@ :Mxm@ZkP0MH8 P-G|`MC(mhm8@ZkPm0ͦ8H {8mpM<x;(M@-H xm@Zk0M@ͦ 8 V4G|0]8bCG8@^H~PXCk4GAMAC_FLT_CVTLF4m#AMAC_FLT_CVTLF4@AMAC_FLT_CVTLF4G MTH$RANDOM4m# MTH$RANDOM4@ MTH$RANDOM4G  AMAC_FLT_MULF4m# AMAC_FLT_MULF4@  AMAC_FLT_MULF4$GPAMAC_FLT_CVTFL4Hm#AMAC_FLT_CVTFL4L @PAMAC_FLT_CVTFL ww1:x$2יX1-001OOLIB_SUB_ASC_TIMESX1-001 5-FEB-1996 09:09AMAC V2.0-22 p$LINKAGE4 _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . SYS$BINTIM LIB$SUB_TIMES SYS$ASCTIM8JLIB_SUB_ASC_TIMES !=0( ;=@ ="";=@  SYS$BINTIM"  SYS$ASCTIM""  LIB$SUB_TIMES"" =<4>C~(^08 GG( G K 3u`C4`@MTG=(-Hm ]@Zk= ]*(>C@MGHmTGB>C ] >@Zk ]C(ͦ`MtG ]hmBBG@Zk ]>C(MXm"G>CBC^PM>CG^ ~G@ZkCG(08Ck4LGh 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$ASCTIM8 8=  ww1&%2יX1-001NNLIB_VALIDATE_FH2X1-001 5-FEB-1996 09:09AMAC V2.0-22 @$LINKAGE _SYS_CODE _SYS_DATA$ $ABS$ . BLANK . . ABS . OTS$DIV_I8JLIB_VALIDATE_FH2 =0 ;=0 ="0 OTS$DIV_I =>C~^^~ (GC4GGGC/A/AKW @K$H#1`@T @DHRK1B "?G#C GG/G^~ (Ck%Gb4G0`JF1BB?FF4GPJ1tBtB?FRG_4GpK1BB?FFpK1UC?"P K15 C?J?RK?"D8¢0 KPKPJ:C_GzDD1B4GB?FRG_/Y KYG ww1|zʙ DD PATCH_BLOCK 19-JAN-1996 14:11DEC BASIC V1.1-000x xi $CODE$)$LINK$ $READ_ONLY$& $LITERAL$$ARRAY$DESC0JLIB_PATCH_BLOCKDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DX STR$LEN_EXTR LIB$ICHAR STR$COPY_R STR$CONCATSTR$LEFT DBASIC$END8JLIB_PATCH_VALID_BYTEDBASIC$HANDLER8JXp LIB_PATCH_INPUT_INTEGERDBA'SIC$HANDLEROTS$STRCMP_EQLP OTS$MOVEMOTS$FILLSYS$FAO LIB_PATCH_VALID_BYTE LIB_PATCH_INPUT_INTEGERLIB$PUT_OUTPUTLIB$PUT_OUTPUTSTR_LEN STR_COLLAPSE LIB_CVT_T_L LIB_GET_INPUT = #?G~^^~޴>^~ cGGY C`#GG] C""xBTGbG1"@ZkBtGx"="tG(]b]"@ZkBG"b="]"tG@ZkB "b="]"tG@ZkxB$X  "b="TG@Zkc"HB="Pb]"tG@ZkcB"b="TG@Zk=$* 4G?@!!5 @D|G?!_GHB]"Pb}""G@Zk"8B4G@b@Zkx GPE0@0vJ!C OE |ݢ4G FGG`B" x4G|=pB"7vJG FGB4G@Zk0BG@Zk +8BhA@b"=="]"tG@Zk&Bh) ""b="]"tG@ZkTGx|5vJ vHGQ" QFF 9@ B"`FGGG9Gx=oE |TG!v H" 4!9 @#GB"GTG(8B"="@b]"}tG@Zk?$B(b!}! b"=="]"tG@ZkTG=x}|!v H+v`IݢG0" 0F +9`A B"KFGGGB@Zk0BG@Zk"xB"}="X9#=ݰTGb@Zkcx B"^="b]"GGGG@ZkB"}="b]"tG}@Zkc*HB"Pb="]"tG@Zk"B="]"btG@Zk}4GBhB"G1v`I@Zk="!9 @G= 7D}G?&z1"Bb]"B="+C"tG@Zk4GB"BG1vH@ZkGB7Cb wE"="]"tG@Zk4GBhB"G1vH@ZkG7C wE` GNð}? _&$R" aAgI!5 @!G xB="bTG0"]"@ZkcB"b4G@Zk4 +`D} jE@8B"}="@b]"tG@ZkG] vH+@ð @A!9@A=4Gc @5v JBaAG RF" BG`FGG@Zk0BG@Zk8C8# G8 G]?xBX" ="b="TG@Zkc"HB="Pb]"tG@ZkcB"b="TG@Zk}A+5`A DcXB"`b4G@ZkGc4G]]}ݤ=]} 0#k& "] C&̂"G #?G~^^cG#Y CG=>] CA"0B"8bTGl1"@Zk4G]0D,8 F G"G?$*! "="J BTG55BF PB8b]0B=@Zkc@B"Hb4G@ZkcB"b4G@ZkcG]]#k& "] C&̂"#?G~^^~޴cG#y CGGG} CB"bTGX"@ZkcGhB]"=tGpb@ZkGcBGbGTG@ZkcGHB4GPb4G@Zk"GK8B@b]"ݰtG@Zk4GB"BG1v-H@ZkTG"G"6B]"}"ݰGb@ZkB"b4G@Zk'G8B"@bGݰ]"tG@Zkݠ4GBB"G1vH@ZkG8B="@bG]"=tG@Zkc"xBGbTG@ZkGcB"b4G@ZkGc]]}ݤ#k& "} Cx&̂"t4pG DBASIC$INIT4xb# DBASIC$INIT4@ DBA.SIC$INIT4G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4@ STR$DUPL_CHAR4G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4@ STR$DUPL_CHAR4G STR$DUPL_CHAR4 b# STR$DUPL_CHAR4 @ STR$DUPL_CHAR4G/@ STR$COPY_DX40b# STR$COPY_DX4<@@ STR$COPY_DX<'HG`LIB_PATCH_INPUT_INTEGER<(Pb#LIB_PATCH_INPUT_INTEGER<'\@`LIB_PATCH_INPUT_INTEGER <hGLIB_PATCH_VALID_BYTE<pb#LIB_PATCH_VALID_BYTE<|@LIB_PATCH_VALID_BYTE40G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4G LIB$ICHAR4b# LIB$ICHAR4@ LIB$ICHAR4!TG` OTS$MOVEM4!\@` OTS$MOVEM4#`GlOTS$FILL4#h@lOTS$FILL14%tG STR$COPY_R4&b# STR$COPY_R4%@ STR$COPY_R4G STR$CONCAT4b# STR$CONCAT4@ STR$CONCAT4%`G STR$COPY_R4&pb# STR$COPY_R4%@ STR$COPY_R4G2 STR$CONCAT4b# STR$CONCAT4@ STR$CONCAT4!G OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4G@ STR$COPY_DX48b# STR$COPY_DX4<@@ STR$COPY_DX,H3GxSYS$FAO,Xb#SYS$FAO,t@xSYS$FAO4 xGSTR$LEFT4 b#STR$LEFT4 @STR$LEFT<'GLIB_PATCH_INPUT_INTEGER<(b#LIB_PATCH_INPUT_INTEGER<'@LIB_PATCH_INPUT_INTEGER4 GSTR$LEFT4 4b#STR$LEFT4 @STR$LEFT4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 4G\STR$LEFT4 8b#STR$LEFT4 X@\STR$LEFT4 hG|OTS$STRCMP_EQLP4 x@|OTS$STRCMP_EQLP4 GSTR$LEF5T4 b#STR$LEFT4 @STR$LEFT4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4G, STR$COPY_DX4b# STR$COPY_DX4(@, STR$COPY_DX40GDLIB$PUT_OUTPUT48b#LIB$PUT_OUTPUT4@@D6LIB$PUT_OUTPUT4%dG STR$COPY_R4&xb# STR$COPY_R4%@ STR$COPY_R4!G OTS$MOVEM4!@ OTS$MOVEM4#GOTS$FILL4#@OTS$FILL4G@ STR$COPY_DX40b# STR$COPY_DX4<7@@ STR$COPY_DX<'HG`LIB_PATCH_INPUT_INTEGER<(Pb#LIB_PATCH_INPUT_INTEGER<'\@`LIB_PATCH_INPUT_INTEGER<hGLIB_PATCH_VALID_BYTE<pb#LIB_PATCH_VALID_BYTE <|@LIB_PATCH_VALID_BYTE4G DBASIC$END4b# DBASIC$END84@ DBASIC$END4`Gx DBASIC$INIT4hb# DBASIC$INIT4t@x DBASIC$INIT4b# STR$COPY_DX4G STR$COPY_DX4@ STR$COPY_DX4 G LIB$PUT_OUTPUT4 b#LIB$PUT_OUTPUT4 @ L9IB$PUT_OUTPUT4 G, DBASIC$END4 b# DBASIC$END4( @, DBASIC$END4 G DBASIC$INIT4 b#X DBASIC$INIT4 @ DBASIC$INIT4 G LIB_GET_INPUT4 b#X LIB_GET_INPUT4 @ LIB_GET_INPUT4 G:0 STR_COLLAPSE4 b#X STR_COLLAPSE4, @0 STR_COLLAPSE, 8 GL STR_LEN,@ b#XSTR_LEN, H @L STR_LEN4 \ Gt STR$LEFT4 ` b#XSTR$LEFT4 p @t STR$LEFT4 G OTS$STRCMP_EQLP4 @ ;OTS$STRCMP_EQLP4 G STR$LEN_EXTR4 b#X STR$LEN_EXTR4 @ STR$LEN_EXTR4 G LIB$ICHAR4 b#X LIB$ICHAR4 @ LIB$ICHAR4 G STR$LEFT4 b#XSTR$LEFT4 @ STR$LEFT4  <G0 OTS$STRCMP_EQLP4 , @0 OTS$STRCMP_EQLP4 D Gh STR$LEFT4 P b#XSTR$LEFT4 d @h STR$LEFT4p G LIB_CVT_T_L4x b#X LIB_CVT_T_L4 @ LIB_CVT_T_L4 G DBASIC$END4 b#X DBASIC$END4= @ DBASIC$END  STR$LEN_EXTR DBASIC$END=^0 DBASIC$INIT STR_COLLAPSE8OTS$STRCMP_EQLP=0p ;=| 7DBASIC$HANDLER= STR$LEFT STR_LEN ; LIB_GET_INPUT LIB_CVT_T_L='> LIB$ICHAR=0;= 7DBASIC$HANDLER= STR$COPY_DXLIB$PUT_OUTPUT;=ro`SYS$FAO=E STR$CONCAT LIB_PATCH_VALID_BYTE STR$DUPL_CHAR8 OTS$MOVEM=0;=0 7DBASIC$HANDLER=8OTS?$FILL% STR$COPY_R('LIB_PATCH_INPUT_INTEGER=Byte? =+ =e(=   =(|p@LIB_PATCH_BLOCK|@LIB_PATCH_VALID_B@YTE =|@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= E E=5-, PATCH_BLOCKDEC BASIC V1.1-000 = A44=LIB_PATCH_BLOCK4=}                    $  +  +  ,  +  .  +  4  5  7  8 v 8  =  =  >  >  B  F   C  J\($ $= L4:B := 4=  = !44="LIB_PATCH_VALID_BYTE4=d\[ _ j   _ j      8 _ $$ $= D4: := , 4= X = $p 4X4=%LIB_PATCH_INPUT_INTEGERp 4=h`_  C      H $$ $=  4: :=  4=  =  ww1ab'2יX1-002LLSTR_CHANGECASEX1-002 5-FEB-1996 09:09AMAC V2.0-22 p$LINKAGEt _SYS_CODE $ABS$ . BLANK . . ABS .D OTS$MOVEMOTS$FILL0J STR_LOWERCASE0JPP STR_UPPERCASE =0 ;=p ="0OTS$FILL OTS$MOVEM=0P;=p d d=|t>C~^^ ~(08޴@HP>X^`~hGGGGG>C~^;jC^ ~(E08޴@HP>X^`~hG4G K25@C @w KJ2UBT@U@V Qq@IT@Q0IO K25C@>C@[@II>CG4qB~FGG qBAB@ZkG~DC 0[>C~@Zk~CCDCC0@.J3B@C/4GCK2UOCSOC_FG.JVJGzJF>"1@@0`@_4G/G^ ~(08ޤ@HP>X^`~hCkG|"  GL .J3B @2UB4GSB_FFC/CKZCKGwKWGC?F"1@@0`@_4G  OTS$MOVEM4@  OTS$MOVEM44GDOTS$FILL4@@DOTS$FILL ww1"}ʙ CC STR_CMATCH 19-JAN-1996 14:11DEC BASIC V1.1-000X Xi8$CODE$h$LINK$D $READ_ONLY$ $LITERAL$G$ARRAY$DESC0Jp STR_CMATCHDBASIC$HANDLERDBASIC$HANDLER DBASIC$INIT DBASIC$RESTORE_DAT DBASIC$READDBASIC$IN_T_DX DBASIC$IO_END STR$CONCAT STR$COPY_R DBASIC$EDIT STR$COPY_DX DBASIC$INIT_GOSUB STR$LEN_EXTR DBASIC$INSTR DBASIC$END_GOSUBSTR$LEFT STRH$RIGHT DBASIC$CHANGE_S_NA LIB$ICHAR DBASIC$POS DBASIC$ENDOTS$STRCMP_EQLPOTS$STRCMP_LEQP OTS$DIV_I_OOTS$STRCMP_LSSP MATH$FLOOR_F =@8#?G~^^~޴ (0>8^@~HPX޵`hp^x~cG#=y CG]} C"B"bTGD1"@ZkB"4GGGbGGG@ZkG G G 4GBI"b4G@Zk"B4Gb@ZkG]@B@@(= b  @G4G@ZkB"b4G@ZkGB="bGtG@Zk 8A!B4GGb,9A"="]"tG@Zk"`BG=tGhb%@Zk"`BG=tGhb!@Zk"B="bTG!@ZkB"="bTG%@Zkp B"="TGb@Zkc"="]"}""Gb#@ "B="bTG@Zk"B ="bTG@Zk("B="bTG@Zk B0"="bTGp!@Zk8J"B="TGb@Zkc"8="0]"(}""Gb#@B@"b="TG@ZkB"b@="TG@Zk,vI vH ؃MC! A=] AW]]WM=]W0B"x"TG8b_@Zk4Gݱ3GݱG]4G]@GB"b4G@ZkkݵW`TGG0B"8bTG"G@ZkGGW`T%W &_}=) A> G4G`:G8A A?B4G"=="b]"}"G@Zk4GB"="Kb]"=}"G@Zk=GpB]3v H1vH@Zk"@0BTG8b"`T@ZkX"":G]8A A`B4G=""b]"}"G@ZkG=HB]1vH3v H@ZkPBXb4G="]"tG@ZkG# A}@TG05BW_%W &_}}]`@1C0F0B8b8@""@Zk"P"0B8bTG@Zk 9A0B"8b="]"tG@ZkB"b="]"tG@Zk8A B"="(b]"tG@ZkB"b="]"tG@Zk"B4Gb@ZkLkG/9AB0B!9A8bH"=="]"tG@Zk4GBP"="b]"tG@ZkX"BH="bP]"tG@Zk B8A`"(b="]"tG@Zk"BX="b`]"tG@ZkB"b4G@Zkk0B!9@8bh"=="]"tG@Zk4GBp"="b]"tG@Zkx"Bh="bp]"tG@Zk B8@"(b="]"tG@Zk"Bx="b]"tG@ZkB"b4G@Zkk8@ @? 0B8b""TG@Zk"@B="HbTG@ZkG@@@C C @!C1C1DM D@3 @}@}]WW_ T%W@@C &_}D8@BGbG@ZkLB"b4GDD@Zkk&9@x 0B"8bTG" G@Zk4GhGB4G"b="=]"}"G@Zk4GB"="b]"=}"G@Zk4G=`B"BG7vHGG@ZkHB8DG8C4GGGpB"G@ZkG=9CG=1HB3vJ8v JGGGGG@Zk8DHB G*CGGGGG@Zk8DG!CAE BN"b4G@Zk @]@PB@@Xb(]!@A4G]"tG@ZkY@@*C 5@ D8@8A A?/9ABb) 'A"4G@Zkk XLh! @$"@`T L]=WT#L}W T=W T%W&_ L4 BB"bsLG@Zk@@"]QV `1QVWQ5V4V%W&_dBBWbxWPW@Zk%WBb"4G &_]@ZkEkGc"B4Gb@ZkGc]4G]}ݤ (0=8]@}HPOXݥ`p]x}h#k& "} C&̂"&"&"&"&"i#TG~^^~޴cGG#pBGG@G`"Gxb"@Zk="0BTG 8b @Zk!G#G@B4G vH!v HHb'tG@Zk-G"BGb]"!9A=tG@ZkPB"Xb="GtG@Zk"GB]"btGA@ZkGPB="Xb]"tG@ZkG@BGHbtGPA@Zk0BGTG8b@Zkc"B4Gb@ZkGc]]}ݤ#k4G DBASIC$INIT4b#p DBASIC$INIT4@ DBASIC$INIT <)GDBASIC$RESTORE_DAT<*b#pDBASIC$RESTORE_DAT<)@DBASIC$RESTORE_DAT4G DBASIC$REQAD4b#p DBASIC$READ4@ DBASIC$READ4GDBASIC$IN_T_DX4b#pDBASIC$IN_T_DX4 @DBASIC$IN_T_DX4 G@DBASIC$IN_T_DX4,b#pDBASIC$IN_T_DX4<@@DBASIC$IN_T_DX4@GT DBASIC$IO_END4Hb#pR DBASIC$IO_END4P@T DBASIC$IO_END4XGp STR$CONCAT4`b#p STR$CONCAT4l@p STR$CONCAT4|G STR$COPY_R4b#p STR$COPY_R4@ STR$COPY_R4%G DBASIC$EDIT4&b#p DBASIC$EDIT4%S@ DBASIC$EDIT4%G DBASIC$EDIT4&b#p DBASIC$EDIT4%@ DBASIC$EDIT4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4G, STR$COPY_DX4b#p STR$COPY_DX4(@, STR$COPY_DX4T0GP STR$COPY_DX4Hb#p STR$COPY_DX4L@P STR$COPY_DX4xG STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4G STR$CUOPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#p STR$COPY_DX4@ STR$COPY_DX4(G@ STR$COPY_DX40b#Vp STR$COPY_DX4<@@ STR$COPY_DX4@GX STR$COPY_DX4Hb#p STR$COPY_DX4T@X STR$COPY_DX<GDBASIC$INIT_GOSUB< b#pDBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB<GDBASIC$END_GOSUB<b#pWDBASIC$END_GOSUB<@DBASIC$END_GOSUB<0GLDBASIC$INIT_GOSUB< 8b#pDBASIC$INIT_GOSUB<H@LDBASIC$INIT_GOSUB4G STR$LEN_EXTR4b#p STR$LEN_EXTR4@ STR$LEN_EXTR4G STR$LEN_EXTR4b#pX STR$LEN_EXTR4@ STR$LEN_EXTR4'GOTS$STRCMP_EQLP4'@OTS$STRCMP_EQLP<(G@DBASIC$INIT_GOSUB< 0b#pDBASIC$INIT_GOSUB <<@@DBASIC$INIT_GOSUB4`G STR$LEN_EXTR4xb#p STR$LEN_EXTR4@ STRY$LEN_EXTR4!GOTS$STRCMP_LEQP4!@OTS$STRCMP_LEQP4#G DBASIC$INSTR4$b#p DBASIC$INSTR4#@ DBASIC$INSTR<G,DBASIC$INIT_GOSUB< b#pDBASIC$INIT_GOSUB<(@,DBASIC$INIT_GOSUB<4GDDBASIC$INIT_GOSUBZ< 8b#pDBASIC$INIT_GOSUB<@@DDBASIC$INIT_GOSUB4 HGhSTR$LEFT4Pb#pSTR$LEFT4 d@hSTR$LEFT4hG STR$CONCAT4pb#p STR$CONCAT4@ STR$CONCAT4 G STR$RIGHT4 [b#p STR$RIGHT4 @ STR$RIGHT4G STR$CONCAT4b#p STR$CONCAT4@ STR$CONCAT<GDBASIC$END_GOSUB<b#pDBASIC$END_GOSUB<@DBASIC$END_GOSUB4 G STR$LEFT4b#p\STR$LEFT4 @ STR$LEFT4G4 STR$COPY_R4 b#p STR$COPY_R40@4 STR$COPY_R48GP STR$CONCAT4@b#p STR$CONCAT4L@P STR$CONCAT4 PGt STR$RIGHT4 `b#p STR$RIGHT4 p]@t STR$RIGHT4xG STR$CONCAT4b#p STR$CONCAT4@ STR$CONCAT<GDBASIC$END_GOSUB<b#pDBASIC$END_GOSUB<@DBASIC$END_GOSUB4 GSTR$LEFT4b#pSTR$LEFT4 @^STR$LEFT4G STR$COPY_R4b#p STR$COPY_R4@ STR$COPY_R4G STR$CONCAT4b#p STR$CONCAT4 @ STR$CONCAT4 G4 STR$RIGHT4 b#p STR$RIGHT4 0@4 STR$RIGHT48_GP STR$CONCAT4@b#p STR$CONCAT4L@P STR$CONCAT<PGdDBASIC$END_GOSUB<Xb#pDBASIC$END_GOSUB<`@dDBASIC$END_GOSUB<tGDBASIC$INIT_GOSUB< xb#pDBASIC$INIT_GOSUB<@DBASIC$INIT_GOSUB<`GDBASIC$CHANGE_S_NA<b#pDBASIC$CHANGE_S_NA<@DBASIC$CHANGE_S_NA48 GL OTS$DIV_I_O4@ b#p OTS$DIV_I_O4H @L OTS$DIV_I_O <P Gl DBASIC$END_GOSUB<X b#pDBASIC$END_GOSUB<h @l DBASIC$END_GOaSUB<x G DBASIC$INIT_GOSUB< b#pDBASIC$INIT_GOSUB< @ DBASIC$INIT_GOSUB4 G STR$LEN_EXTR4 b#p STR$LEN_EXTR4 @ STR$LEN_EXTR4 G STR$LEN_EXTR4 b#p STR$LEN_EXTR4 @ STR$LEN_EXTR4b- G OTS$STRCMP_LSSP4- @ OTS$STRCMP_LSSP4! GH OTS$STRCMP_LEQP4!D @H OTS$STRCMP_LEQP4!h G OTS$STRCMP_LEQP4! @ OTS$STRCMP_LEQP4! G OTS$STRCMP_LEQP4! @ OTS$STRCMP_LEQP4+ G LIB$ICHAR4, b#p LIB$IcCHAR4+ @ LIB$ICHAR4# G DBASIC$INSTR4$ b#p DBASIC$INSTR4# @ DBASIC$INSTR<< GT DBASIC$END_GOSUB<@ b#pDBASIC$END_GOSUB<P @T DBASIC$END_GOSUB4 G OTS$DIV_I_O4 b#p OTS$DIV_I_O4d @ OTS$DIV_I_O4/( G@ MATH$FLOOR_F400 b#p MATH$FLOOR_F4/< @@ MATH$FLOOR_F<D Gd DBASIC$END_GOSUB<H b#pDBASIC$END_GOSUB<` @d DBASIC$END_GOSUB4 x G DBASIC$END4 b#p DBASIC$END4 e@ DBASIC$END4 G DBASIC$INIT4 b# DBASIC$INIT4 @ DBASIC$INIT4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX4 G DBASIC$POS4b# DBASIC$POS4@ DBASIC$POS4f (GHSTR$LEFT40b#STR$LEFT4 D@HSTR$LEFT4HGd STR$CONCAT4Pb# STR$CONCAT4`@d STR$CONCAT4 pG STR$RIGHT4 xb# STR$RIGHT4 @ STR$RIGHT4G STR$CgONCAT4b# STR$CONCAT4@ STR$CONCAT4G DBASIC$POS4b# DBASIC$POS4@ DBASIC$POS4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4 G DBASIC$END4 b#h DBASIC$END4 @ DBASIC$ENDL L=0H ;= 7DBASIC$HANDLER= STR$COPY_DX DBASIC$POS STR$CONCAT;p DBASIC$INIT DBASIC$END STR$RIGHT STR$LEFT DBASIC$CHANGE_S_NA;;=Ai=CB=Z; DBASIC$IO_END DBASIC$READ=_ DBASIC$IN_T_DX OTS$DIV_I_O STR$COPY_R STR$LEN_EXTR DBASIC$END_GOSUB=0;= 7DBASIC$HANDLER= DBASIC$INIT_GOSUB=@8jOTS$STRCMP_LEQP# DBASIC$INSTR% DBASIC$EDIT=8OTS$STRCMP_EQLP )DBASIC$RESTORE_DAT ;+ LIB$ICHAR8OTS$STRCMP_LSSP0/ MATH$FLOOR_F=HHP;;X ;h; =| k @ 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, R,ETDF45, S,ADZXWE, T,RYFG56, U,YIHJ78, V,CBFG, W,QEAS23, X,ZCSD, Y,TUGH67, Z,ASX= d|l@ SUBSTITUTED D=4,+ STR_CMATCHDEC BASIC V1.1-000 = 4p4= STR_CMATCH4=[Spppprvyz}~MN m &&        IAts$ $= l4 = H 44= SUBSTITUTEH 4=ZRQ n    " # " #ؠ$ &P$ $= L 4: := 4= : :=  4= H  =  ww1iʙ EE STR_COLLAPSE 19-JAN-1996 14:11DEC BASIC V1.1-000@ @i$CODE$$LINK$ $READ_ONLY$o $LITERAL$$ARRAY$DESC0J STR_COLLAPSEDBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX DBASIC$END| |=0#?G~^^cG#Y CG=#] C&0B8b"@"TG@Zk"PBG=tGXb@ZkpB="TGxb@Zkc"`B4Ghb@ZkcG]4G]#k& "] C&̂"p4DG\ DBASIC$INIT4Hb# DBASIC$INIT4X@\ DBASIC$INIT4`Gx DBASIC$EDIT4pb# DBASIC$EDIT4t@x DBASIC$EDIT4xG STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4Gq DBASIC$END4b# DBASIC$END4@ DBASIC$END =0;= 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$EDIT DBASIC$END STR$COPY_DX =| r@ STR_COLLAPSEF F=6.- STR_COLLAPSEDEC BASIC V1.1-000 = 44= STR_COLLAPSE4=98$$ $= ,4: := 4=  =  ww1. ʙ EE STR_COMPRESS 19-JAN-1996 14:11sDEC BASIC V1.1-000@ @i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_COMPRESSDBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX DBASIC$END| |=0#?G~^^cG#Y CG=#] C&0B8b"@"TG@Zk"PBG=tGXbt@ZkpB="TGxb@Zkc"`B4Ghb@ZkcG]4G]#k& "] C&̂"4DG\ DBASIC$INIT4Hb# DBASIC$INIT4X@\ DBASIC$INIT4`Gx DBASIC$EDIT4pb# DBASIC$EDIT4t@x DBASIC$EDIT4xG STR$COPY_DX4ub# 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 v=|@ STR_COMPRESSF F=6.- STR_COMPRESSDEC BASIC V1.1-000 = 44= STR_COMPRESS4=78$$ $= ,4: := 4=  =  www1Gʙ DD STR_ELEMENT 19-JAN-1996 14:11DEC BASIC V1.1-000( (i$CODE$p$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_ELEMENTDBASIC$HANDLER DBASIC$INIT DBASIC$END STR$ELEMENT = #?G~^^xcGG C=]} C"0B"8bTG@"@ZkcG`B=]}hb@ZkcPB"Xb4G@ZkGc4G]]#k& " C&̂"4HG` DBASIC$INIT4Pb# DBASIC$INIT4\@` DBASIC$INIT4hG STR$ELEMENT4|b# STR$ELEMENT4@ STR$ELEMENTy4G DBASIC$END4b# DBASIC$END4@ DBASIC$END =0;= 7DBASIC$HANDLER= DBASIC$INIT;P DBASIC$END STR$ELEMENT =| z@ STR_ELEMENTE E=5-, STR_ELEMENTDEC BASIC V1.1-000 = 44= STR_ELEMENT4=A8$$ $= ,4: := 4=  =  ww1_ʙ EE STR_EVALUATE 19-JAN-1996 14:11{DEC BASIC V1.1-000 ip$CODE$A$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_EVALUATEDBASIC$HANDLER DBASIC$INIT STR$COPY_DX STR$POS_EXTR DBASIC$POS DBASIC$ENDOTS$STRCMP_EQLP OTS$DIV_I_OSTR_LEN LIB_CVT_T_L =|xp#?G~^^~޴>^~ (cGG# CGGGGw CzB"bTG"@Zk4G=cBGb4G@ZkG ? =Gð=&PB8B""Xb"]="TGG@Zk 4G5 G! GA GB"]Gb]"]}"G@ZkB&` "b"="4GtG@Zk*9@A G 8@AB"=Gb]"=}"G@Zk}4G0B@B"G1v`I@Zk 8 A! G}B="]Gb]"}"G@Zk4GHB"0BG1vH@Zk 4G䢨nB"=Gb]"]}"G@Zk4G0BB"G1vI@ZkBG=,C]"bG]"}"G@Zk4G0BB"G1vH@ZkG7C E 4G@B"=Gb]"]}"G@Zk4G0BxB"G1vI@ZkBG=,C]"bG]"}"G@Zk4G0BB"G1vH@ZkG7C E 4GB"=G]]"b}"G@Zkc~"`B="hbTG@Zk G 0E 8 E 8@oè`G]4GG0B8v@JGG8B"@Zk=(CO0B4GGGB"G@Zk=( ADG0B4GGGpB"G@ZkM8G0B4GGGpB"G@Zk=(E,G0B4GGGB"G@Zk}hE G0B4GGGhB"G@Zk=(GG0B4GGGB"G@Zk=  !GBGb@ZkG GA `B8@A=="bG]"}"G@Zk X@A 'A} cB"b4G@ZkGc]]}ݤ=]} (0#k& " C&̂"4xG DBASIC$INIT4b# DBASIC$INIT4@ DBASIC$INIT,GSTR_LEN,b#STR_LEN,@STR_LEN4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4 (GP STR$POS_EXTR4 8b# STR$POS_EXTR4 L@P STR$POS_EXTR4 PG DBASIC$POS4 hb# DBASIC$POS4 |@ DBASIC$POS4 G STR$POS_EXTR4 b# STR$POS_EXTR4 @ STR$POS_EXTR4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G STR$POS_EXTR4 b# STR$POS_EXTR4 @ STR$POS_EXTR4 (G<OTS$STRCMP_EQLP4 8@<OTS$STRCMP_EQLP4 PGx STR$POS_EXTR4 `b# STR$POS_EXTR4 t@x STR$POS_EXTR4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G STR$POS_EXTR4 b# STR$POS_EXTR4 @ STR$POS_EXTR4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G0 STR$POS_EXTR4 b# STR$POS_EXTR4 ,@0 STR$POS_EXTR4 8GPOTS$STRCMP_EQLP4 L@POTS$STRCMP_EQLP4 PG STR$POS_EXTR4 hb# STR$POS_EXTR4 |@ STR$POS_EXTR4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 G STR$POS_EXTR 4 b# STR$POS_EXTR4 @ STR$POS_EXTR4G LIB_CVT_T_L4b# LIB_CVT_T_L4@ LIB_CVT_T_L4 @GXOTS$STRCMP_EQLP4 T@XOTS$STRCMP_EQLP4 hGOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 GOTS$STRCMP_EQLP4 @OTS$STRCMP_EQLP4 (GDOTS$STRCMP_EQLP4 @@DOTS$STRCMP_EQLP4 XGtOTS$STRCMP_EQLP4 p@tOTS$STRCMP_EQLP4G OTS$DIV_I_O4b# OTS$DIV_I_O4@ OTS$DIV_I_O4 G STR$POS_EXTR4 b# STR$POS_EXTR4 @ STR$POS_EXTR4G DBASIC$END4b# DBASIC$END4@ DBASIC$ENDE E LIB_CVT_T_L=*=Z =/0 DBASIC$END=&P DBASIC$INITSTR_LEN DBASIC$POS=Q; STR$POS_EXTR=0;=0 7DBASIC$HANDLER=8OTS$STRCMP_EQLP=+=_=. STR$COPY_DX=+-*/!&#=#=!  OTS$DIV_I_O=z8=q@= - =| @ STR_EVALUATEF F=6.- STR_EVALUATEDEC BASIC V1.1-000p p= 44= STR_EVALUATE4= EE M N O U  d j n n} p s s u   QY`$$ $= X4: := 4= p =  ww1yʙ FF STR_JUST_LEFT 19-JAN-1996 14:11DEC BASIC V1.1-000h hi $CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_JUST_LEFTDBASIC$HANDLER DBASIC$INITSTR$LEFT DBASIC$END OTS$MOVEMOTS$FILLSTR_LEN =( #?G~^^~޴cGGy C#GGGj} Cm`Bhb"p"TG@ZkcBGb4G@ZkGG@B]"ݰtG0vJHbC"@Zk8@ @â#$vH0B6vJ"GGG@ZkGPB@Zk+G@B4G"HbG]"tG@ZkGG vH G @ 09 @]4G @5v@J0B@G sF" BGFGG@ZkPBG@Zk8@ @c"B4Gb@ZkcG]4G]}ݤ#k& "} C&̂"4\Gt DBASIC$INIT4`b# DBASIC$INIT4p@t DBASIC$INIT, xGSTR_LEN, b#STR_LEN, @STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G,STR$LEFT4b#STR$LEFT4(@,STR$LEFT4lG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4 G DBASIC$END4 b# DBASIC$END4 @ DBASIC$ENDL L=0;= 7DBASIC$HANDLER=8 OTS$MOVEM@STR$LEFT8OTS$FILL` DBASIC$INIT; DBASIC$END STR_LEN =|@ STR_JUST_LEFTG G=7/. STR_JUST_LEFTDEC BASIC V1.1-000 = 44= STR_JUST_LEFT4=LDCEGGIIML$$ $=  <4: := 4=   =  ww16Zrʙ GGSTR_JUST_RIGHT 19-JAN-1996 14:11DEC BASIC V1.1-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JSTR_JUST_RIGHTDBASIC$HANDLER DBASIC$INITSTR$LEFT DBASIC$RSET DBASIC$END OTS$MOVEMOTS$FILLSTR_LENl l=#?G~^^~޴cGGy C#GGG^} Ca`B"P"TGhb@ZkcG@B4GHb@ZkG0B]"tG0vJ8b4G& B"@ZkBGb="TG@Zk+G0B4G"8bG]"tG@ZkG#G!v HG B@19B}4G! 1@5v`JB@G F" BGFGG@ZkpBG@Zk8@ @?c"B4Gb@ZkGc]4G]}ݤ#k& "} C&̂"4XGp DBASIC$INIT4hb# DBASIC$INIT4l@p DBASIC$INIT,xGSTR_LEN,b#STR_LEN,@STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4 G DBASIC$RSET4 b# DBASIC$RSET4 @ DBASIC$RSET4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4 <Gh OTS$MOVEM4 d@h OTS$MOVEM4hGtOTS$FILL4p@tOTS$FILL4 G DBASIC$END4 b# DBASIC$END4 @ DBASIC$ENDP P=0;=| 7DBASIC$HANDLER=STR$LEFTSTR_LEN;` DBASIC$INIT8OTS$FILL DBASIC$END DBASIC$RSET8 OTS$MOVEM =|@STR_JUST_RIGHTH H=80/STR_JUST_RIGHTDEC BASIC V1.1-000 = 44=STR_JUST_RIGHT4=?76GIJ PH$$ $= 84: := 4=  =  ww1P)2יX1-002EESTR_LENX1-002 5-FEB-1996 09:09AMAC V2.0-22 ($LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS .(JSTR_LENd d=0 ;=0 =" =>C~^^ ~(GGPp@H@b@#1`@c.cJ2dB@25aB@`"1@@_ K25B@GC/G^ ~(CkG KG25@C@G K25B_QGG ww15>ʙ BB STR_MATCH 19-JAN-1996 14:11DEC BASIC V1.1-000h hi$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_MATCHDBASIC$HANDLER DBASIC$INITSTR$LEFT DBASIC$ENDOTS$STRCMP_EQLPSTR_LENSTR$MATCH_WILD =#?G~^^~޴cGGY C#GGW] CZPBXb"`"TG@Zkc@BGHb4G@ZkGcG@B4GHb@Zk0BG8b"ݰG]"tG@Zk"0BG]"8btG@ZkcpB"xb="TG@Zk0BGݰ"8bG]"tG@ZkGd}hBD3v`J1v`H@ZkG!CD=c"B4Gb@ZkGc]]}ݤ#k& "] C&̂"4TGl DBASIC$INIT4Xb# DBASIC$INIT4h@l DBASIC$INIT,xGSTR_LEN,b#STR_LEN,@STR_LEN,GSTR_LEN,b#STR_LEN,@STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4 GSTR$MATCH_WILD4 b#STR$MATCH_WILD4 @STR$MATCH_WILD4G,STR$LEFT4b#STR$LEFT4(@,STR$LEFT48GPOTS$STRCMP_EQLP4L@POTS$STRCMP_EQLP4 hGx DBASIC$END4 pb# DBASIC$END4 t@x DBASIC$END  =0;=| 7DBASIC$HANDLER=STR$LEFTSTR_LEN DBASIC$INIT;8OTS$STRCMP_EQLP STR$MATCH_WILD DBASIC$END =| @ STR_MATCHC C=3+* STR_MATCHDEC BASIC V1.1-000 = 44= STR_MATCH4=5-,EGIJH$$ $= 84: := x4=  =  ww1یʙ DD STR_SOUNDEX 19-JAN-1996 14:11DEC BASIC V1.1-000 i $CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J0 STR_SOUNDEXDBASIC$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 =( #?G~^^~޴>cG#Y C=Gm] Cp0""@BTGHb4Gx1"@ZkpB"GtG$= xb$@Zk"pB="xb]"}tG@ZkTG`B"hb="]"tG@ZkB"b="TG@ZkB "b="TG@Zk0 B"="TGb@Zkc"="]"}""Gb#-@"B="bTG@Zk"B="bTG@Zk"B="bTG@Zk` B"="bTG@ZkB0 "="bTG@Zkc"="]"}""Gb#@B"b="TG@ZkB"b="TG@ZkB "b="TG@ZkB ("b="TG@Zk0 B0"="TGb@Zkc"0="(]" }""Gb#@8"B="bTG@Zk"B8="bTG@Zk@"B="bTG@Zk BH"="bTG@ZkB0 P"="bTG@Zkc"P="H]"@}""Gb#@BX"b="TG@ZkB"bX="TG@ZkB`"b="TG@ZkB h"b="TG@Zk0 Bp"="TGb@Zkc"p="h]"`}""Gb#y@x"B="bTG@Zk"Bx="bTG@Zk"B="bTG@Zk B"="bTG@ZkB0 "="bTG@Zkc"="]"}""Gb#L@B"b="TG@ZkB"b="TG@ZkB"b="TG@ZkB "b="TG@Zk0 B"="TGb@Zkc"="]"}""Gb#@Ӹ"B="bTG@Zk"B="bTG@Zk"B="bTG@Zk0 B"="bTG@ZkB0 "="bTG@Zkc"="]"}""Gb#@B"b="TG@ZkB"b="TG@Zk4G_B"b="TG@ZkPBTG"Xb="]"tG@ZkB"}="]"btG@Zkc"="]"}""Gb#@B"b="TG@ZkB"b="TG@Zk8@= !v H%9@!  pBtG"xb="]"tG@Zk$4G%vH {G@B"ݰ="Hb]"}}"G@ZkB "="b4GtG@Zk" VGB& "b"="4GtG@Zk" FG4GB"BG)vHGG@ZkBG7C4GGGB"G@ZkG8CF"#=,B4GGGB"G@Zk" !B4GGGB"G@ZkGB!C4GGGB"G@ZkG7C7D # GB4GGGB"G@Zk" = B"="(b]"tG@Zk8@ @&9@B="TGb@Zkc"PB4GXb@ZkGc]4G]}ݤ= #k& "] C&̂"#TG~^^~޴cGG#pBGG@G`"Gxb"@Zk="0BTG 8b @Zk!G#G@B4G vH!v HHb'tG@Zk-G"BGb]"!9A=tG@ZkPB"Xb="GtG@Zk"GB]"btGA@ZkGPB="Xb]"tG@ZkG@BGHbtGA@Zk0BGTG8b@Zkc"B4Gb@ZkGc]]}ݤ#k4hG DBASIC$INIT4pb#0 DBASIC$INIT4|@ DBASIC$INIT4G DBASIC$EDIT4b#0 DBASIC$EDIT4@ DBASIC$EDIT4 GSTR$LEFT4b#0STR$LEFT4 @STR$LEFT4 G STR$RIGHT4 b#0 STR$RIGHT4 @ STR$RIGHT4G STR$COPY_DX4b#0 STR$COPY_DX4 @ STR$COPY_DX4G4 STR$COPY_DX4 b#0 STR$COPY_DX40@4 STR$COPY_DX 48GX STR$COPY_DX4Pb#0 STR$COPY_DX4T@X STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G  STR$COPY_DX4b#0 STR$COPY_DX4@  STR$COPY_DX40GH STR$COPY_DX48b#0 STR$COPY_DX4D@H STR$COPY_DX4HG` STR$COPY_DX4Pb#0 STR$COPY_DX4\@` STR$COPY_DX4`Gx STR$COPY_DX4hb#0 STR$COPY_DX4t@x STR$COPY_DX4xG STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G, STR$COPY_DX4 b#0 STR$COPY_DX4(@, STR$COPY_DX40GP STR$COPY_DX4@b#0 STR$COPY_DX4L@P STR$COPY_DX4PGt STR$COPY_DX4hb#0 STR$COPY_DX4p@t STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G( STR$COPY_DX4 b#0 STR$COPY_DX4$@( STR$COPY_DX4PGd STR$COPY_DX4Xb#0 STR$COPY_DX4`@d STR$COPY_DX4hG| STR$COPY_DX4pb#0 STR$COPY_DX4x@| STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX 4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G0 STR$COPY_DX4 b#0 STR$COPY_DX4,@0 STR$COPY_DX40GH STR$COPY_DX48b#0 STR$COPY_DX4D@H STR$COPY_DX4HGl STR$COPY_DX4Xb#0 STR$COPY_DX4h@l STR$COPY_DX4pG STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G  STR$COPY_DX4b#0 STR$COPY_DX4@  STR$COPY_DX4 GD STR$COPY_DX48b#0 STR$COPY_DX4@@D STR$COPY_DX4hG STR$COPY_DX4pb#0 STR$COPY_DX4|@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$COPY_DX4b#0 STR$COPY_DX4@ STR$COPY_DX4G STR$DUPL_CHAR4b#0 STR$DUPL_CHAR4@ STR$DUPL_CHAR4G STR$COPY_R4b#0 STR$COPY_R4@ STR$COPY_R4(G@ STR$COPY_DX40b#0 STR$COPY_DX4<@@ STR$COPY_DX4@GX STR$COPY_DX4Hb#0 STR$COPY_DX4T@X STR$COPY_DX4 xGSTR$LEFT4b#0STR$LEFT4 @STR$LEFT4G STR$LEN_EXTR4b#0 STR$LEN_EXTR4@ STR$LEN_EXTR4G DBASIC$POS4b#0 DBASIC$POS4@ DBASIC$POS4GH DBASIC$POS40b#0 DBASIC$POS4D@H DBASIC$POS4hGOTS$STRCMP_EQLP4|@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4 G( OTS$STRCMP_EQLP4$ @( OTS$STRCMP_EQLP4H Gd OTS$STRCMP_EQLP4` @d OTS$STRCMP_EQLP4p G STR$CONCAT4 b#0 STR$CONCAT4 @ STR$CONCATT T4 G STR$COPY_DX4 b#0 STR$COPY_DX4 @ STR$COPY_DX4 G DBASIC$END4 b#0 DBASIC$END4 @ DBASIC$END4x G DBASIC$INIT4 b# DBASIC$INIT4 @ DBASIC$INIT4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX4 G DBASIC$POS4 b# DBASIC$POS4 @ DBASIC$POS4  G0 STR$LEFT4 b#STR$LEFT4 , @0 STR$LEFT40 GL STR$CONCAT48 b# STR$CONCAT4H @L STR$CONCAT4 X Gt STR$RIGHT4 ` b# STR$RIGHT4 p @t STR$RIGHT4x G STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G DBASIC$POS4 b# DBASIC$POS4 @ DBASIC$POS4 G STR$COPY_DX4 b# STR$COPY_DX4 @ STR$COPY_DX4 G DBASIC$END4 b# DBASIC$END4 @ DBASIC$END =00 ;= 7DBASIC$HANDLER= STR$COPY_DX DBASIC$POS STR$CONCAT;p DBASIC$INIT DBASIC$END STR$RIGHT STR$LEFT=D=3= CGJKQSXZL=R=4=N=I=U=A=W STR$COPY_R=H(8OTS$STRCMP_EQLP=0;=  7DBASIC$HANDLER= Yp STR$LEN_EXTR STR$DUPL_CHAR=E DBASIC$EDIT=O=BFPV=M=6=5=2=1= T/ /=|(@ STR_SOUNDEX|@ SUBSTITUTEE E=5-, STR_SOUNDEXDEC BASIC V1.1-0008 8= 404= STR_SOUNDEX4=BAAADBBBMMMRHRiT$$ $= H4 =  0 44= SUBSTITUTE0 4=RJIzzz ؠ$P$ $= 4 4: :=  4= : :=  4= 0  =  ww1ʙ GGSTR_SUBSTITUTE 19-JAN-1996 14:11DEC BASIC V1.1-000p pi$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JSTR_SUBSTITUTEDBASIC$HANDLER DBASIC$INIT STR$LEN_EXTR DBASIC$ENDOTS$STRCMP_EQLP OTS$MOVEMOTS$FILLt t=#?G~^^~޴>^~ cGG C#GGGG C`B"X"TGhb 4G@Zk 4GF vH0vJ2v@JCC Ce@B"]G]"Hb}"G@ZkeG=B3v`JE1v H@ZkG!G8vK ð 8C!9 C GF8 C5vJG BBrFG0B B"FGG@ZkPBG@Zk G G+@B4G]"=GHb]"}"G@ZkGG-vIG @!9@=4G- A5v J0BBG RF" BGmFGG@ZkPBG@Zk 4G 4G A GA AcpB"xb4G@ZkGc4G]]}ݤ=]} 0#k& " Ck&̂"g4xG DBASIC$INIT4b# DBASIC$INIT4@ DBASIC$INIT4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4 G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4dG OTS$MOVEM4|@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G STR$LEN_EXTR4b# STR$LEN_EXTR4@ STR$LEN_EXTR4G0 OTS$MOVEM4,@0 OTS$MOVEM40G<OTS$FILL48@<OTS$FILL4 XGl DBASIC$END4 `b# DBASIC$END4 h@l DBASIC$END$ $=0;=0? 7DBASIC$HANDLER=8 OTS$MOVEM@ STR$LEN_EXTR8OTS$FILL; DBASIC$INIT DBASIC$END8OTS$STRCMP_EQLP =|@STR_SUBSTITUTEH H=80/STR_SUBSTITUTEDEC BASIC V1.1-000 = 44=STR_SUBSTITUTE4=c[ZRSPPPWV Vd$$ $= T4: := t4=  =  ww1LIʙ EE STR_SUBTRACT 19-JAN-1996 14:12DEC BASIC V1.1-000 i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0J STR_SUBTRACTDBASIC$HANDLER DBASIC$INIT DBASIC$POS STR$COPY_DXSTR$LEFT STR$RIGHT STR$CONCAT DBASIC$ENDSTR_LEN| |=#?G~^^~cG#y CGGGI} CL`BP""hbTG@Zkc0BG8b4G@ZkG@BGHbG4GtG@ZkGpBGxbTG@ZkàB 9@b"G]"tG@Zk@B"Gb]"tG@ZkB="]"btG@ZkcB"b4G@ZkGc4G]]}#k& "} C&̂"4TGl DBASIC$INIT4`b# DBASIC$INIT4h@l DBASIC$INIT,pGSTR_LEN,xb#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 G, STR$CONCAT4 b# STR$CONCAT4 (@, STR$CONCAT4 0GD DBASIC$END4 8b# 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_SUBTRACTF F=6.- STR_SUBTRACTDEC BASIC V1.1-000 = 44= STR_SUBTRACT 4=%CD$$ $= 84: := L4=  =  ww1ʙ AASTR_TRIM 19-JAN-1996 14:12DEC BASIC V1.1-000@ @i$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC0JSTR_TRIMDBASIC$HANDLER DBASIC$INIT DBASIC$EDIT STR$COPY_DX DBASIC$END| |=0#?G~^^cG#Y CG=#] C&0B8b"@"TG@Zk"PBG=tGXb@ZkpB="TGxb@Zkc"`B4Ghb@ZkcG]4G]#k& "] C&̂"4DG\ DBASIC$INIT4Hb# 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_TRIMB B=2*) STR_TRIMDEC BASIC V1.1-000 = 44=STR_TRIM4=78$$ $= ,4: := 4=  =  ww1+2יX1-003TTSYS_BECOME_INTERACTIVEX1-003 5-FEB-1996 09:09AMAC V2.0-22 $LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS . SYS$CMKRNL CTL$GL_PCBSYS$GW_IJOBLIMSYS$GL_IJOBCNTOTS$MOVE8JSYS_BECOME_INTERACTIVE@JPSYS___BECOME_INTERACTIVE@JSYS_BECOME_INTERACTIVE_END =0 ;=@ = "00P;@  SYS$CMKRNL"=0 ;=@< =7SYS$GL_IJOBCNT7SYS$GW_IJOBLIM7 CTL$GL_PCB=OTS$MOVE==0;= =>C?G~^ ޴(0 G8G= }{`KfK05`C!" ] @ .J 0B }۠','H 9'H'K0 C@MC0 TGHm@ZkG ޤ(08Ck|"  L /V KF>C~^^ ~(08G8[tG&G:GP[A6@xFFxⲀ!6G!>CAB~@Zk&75B~C0ۦV/xJZVKXG(4GV?W0@CWG^ ~(08Ck6/ JY 6K8G6?4G SYS$CMKRNL4m# SYS$CMKRNL4@ SYS$CMKRNL4,GdOTS$MOVE4`@dOTS$MOVE ww1Oʙ FF SYS_BROADCAST 19-JAN-1996 14:12DEC BASIC V1.1-000 ih$CODE$$LINK$ $READ_ONLY$ $LITERAL$$ARRAY$DESC ` SYSBRDCSTSTUFF0J SYS_BROADCASTDBASIC$HANDLER DBASIC$INITSTR$LEFT STR$CONCAT STR$COPY_DX DBASIC$END OTS$MOVEMOTS$FILLOTS$MOVE SYS$BRKTHRU STR$ELEMENTSTR_LEN LIB$DATE_TIME =ph#?G~^^~޴>cGGy C#GGGz} C}Bb""TG@Zkc$B 0¤"b4Gݰ@Zkc@BGHb4G@Zk ""b&&f G"GB8vKGG@ZkGB@ZkcG@B4GHb@ZkB"pB"G@ZktG %"e?"B!v HGG@ZkBG@Zkc$@B"ݲ "Hb4G@ZkGcG@B4GHb@ZkG?%c& @B)!="Hb4G=@ZkPB "="Xb]"}tG@Zk?$B`b }! b"=="]"tG@Zk?$Bb }! b"=="]"tG@Zk"B="ݰ]"btGb @Zk$B }"b="]"tG@ZkB$`b } b"="]"tG@ZkB "b="]"tG@ZkPB"XbG]"tG@ZkB"b="]"tG@Zk"B="}]"btG@Zk}"#<CB#v`HGGGGG?"@ZkBB"4G@ZkBG?""33BG@ZkGB@Zkc%@B !Hb"4G@Zk" BG"=="TGb@Zkc pB"%$==""]"xb}"G@Zk DP#c& @B"=4GHb@Zk& PB"=="]"XbtG@ZkPB "="}]"XbtG@Zk##cBG(=" ]"4GGGbG@Zk"B="bTG8@"@Zkc pB&""=]"=="}"xbG@ZkD#c"B4Gb@ZkGc]4G]}ݤ=#k& "} C&̂"4dG| DBASIC$INIT4hb# DBASIC$INIT4x@| DBASIC$INIT4G LIB$DATE_TIME4b# LIB$DATE_TIME4@ LIB$DATE_TIME, GSTR_LEN,b#STR_LEN, @STR_LEN4 G OTS$MOVEM4 @ OTS$MOVEM4G OTS$FILL4@ OTS$FILL, (G8STR_LEN,0b#STR_LEN, 4@8STR_LEN4<GPOTS$MOVE4L@POTS$MOVE4 hG| OTS$MOVEM4 x@| OTS$MOVEM4|GOTS$FILL4@OTS$FILL, GSTR_LEN,b#STR_LEN, @STR_LEN, GSTR_LEN,b#STR_LEN, @STR_LEN, GSTR_LEN,b#STR_LEN, @STR_LEN4G,STR$LEFT4b#STR$LEFT4(@,STR$LEFT4 0G\ STR$CONCAT4 @b# STR$CONCAT4 X@\ STR$CONCAT4 `G STR$CONCAT4 pb# 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$CONCAT0 0 4 @ STR$CONCAT4 G8 STR$CONCAT4 b# STR$CONCAT4 4@8 STR$CONCAT48GXSTR$LEFT4@b#STR$LEFT4T@XSTR$LEFT4 XGt STR$CONCAT4 `b# STR$CONCAT4 p@t STR$CONCAT4 xG STR$CONCAT4 b# STR$CONCAT4 @ STR$CONCAT4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL, G4STR_LEN, b#STR_LEN, 0@4STR_LEN48G` STR$COPY_DX4Xb# STR$COPY_DX4\@` STR$COPY_DX4hG STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT, GSTR_LEN,b#STR_LEN, @STR_LEN4GSTR$LEFT4b#STR$LEFT4@STR$LEFT4G,STR$LEFT4 b#STR$LEFT4(@,STR$LEFT48Gx SYS$BRKTHRU4hb# SYS$BRKTHRU4t@x SYS$BRKTHRU4G STR$COPY_DX4b# STR$COPY_DX4@ STR$COPY_DX4G STR$ELEMENT4b# STR$ELEMENT4@ STR$ELEMENT4G DBASIC$END4b# DBASIC$END4@ DBASIC$END, ,= ########## =OPA0:  DBASIC$END= ##########@=UnidentiP DBASIC$INIT= fied Mes p STR$COPY_DX8OTS$FILL8 OTS$MOVEM STR$CONCAT=0;= 7DBASIC$HANDLER= ; STR_LENSTR$LEFT=  STR$ELEMENT=,(=sage ;@ LIB$DATE_TIME= ` SYS$BRKTHRU= 8OTS$MOVE =|@ SYS_BROADCASTG G=7/. SYS_BROADCASTDEC BASIC V1.1-000 =  44= SYS_BROADCAST4=aԀ zT | ܐ      X$$ $= D4: := 4= h =  ww1-2יX1-001XXSYS_CHECK_SOFTWARE_EXPIRY1X1-001 5-FEB-1996 09:09AMAC V2.0-22 `$LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . SYS$NUMTIMSYS$EXIT@JSYS_CHECK_SOFTWARE_EXPIRY1 =0 ;=@ =";=@ SYS$EXIT"  SYS$NUMTIM", ,=>C~ ^(^0 G8G KTG2U`C$@PXC4@@PMG( Xm@Zk(mG3SR HHp@H@@`@@ H@@@4GG (^08Ck@M#"Hm4G@Zk4DG\ SYS$NUMTIM4Tm# SYS$NUMTIM4X@\ SYS$NUMTIM4GSYS$EXIT4m#SYS$EXIT4@SYS$EXIT& &= ww1@/2יX1-002SSSYS_FIND_ETHER_DEVICEX1-002 5-FEB-1996 09:09AMAC V2.0-220 0$LINKAGEP _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS .SYS$DEVICE_SCAN SYS$GETDVIW OTS$MOVEMOTS$FILL8JSYS_FIND_ETHER_DEVICE4 4=0 ;=`< =";=@OTS$FILL OTS$MOVEMH;p  SYS$GETDVIW""" SYS$DEVICE_SCAN""" =XP>C~ ^(^0~8@HP GXG>C>0H` H@MGGGG0BG@ZkGGG>C(GMmAAAAA@Zk(>CpMG>CG~4AA~GxmGG@ZkC(MG (^0~8@HPXCkGGuR/NBx.YKX JXGC1AC u.NBxR/J[ \KFC1B >C(ͦPM>BB0LvHG2`JH@Zk @MG@Zk>C/Gu/NBx/KV KGC1C?ur/NBx/zKY KyGC15cC?u.NBxr/J\ vKFC1B?uR/NBx.YKX JXGC15DC?u.NBxR/J[ \KFC1UB?u2/NBx.8KW J7GC1u$C?u/NBx2/KZ ;KGC1C?u/NBx/KV KGC1C?ur/NBx/zKY KyGC1eC?P4PGtOTS$FILL4p@tOTS$FILL4GSYS$DEVICE_SCAN4m#SYS$DEVICE_SCAN4@SYS$DEVICE_SCAN4G SYS$GETDVIW4m# SYS$GETDVIW4 @ SYS$GETDVIW4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL =  4=*M=@ 4=@ 4= 4=u4= ww112יX1-004RRSYS_GET_DISK_DEVICESX1-004 5-FEB-1996 09:10AMAC V2.0-220 0$LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS .SYS$FAO LIB$DELETE_LOGICALSYS$DEVICE_SCANLIB$SET_LOGICAL8JSYS_GET_DISK_DEVICESd d=0 ;=0 =;=@SYS$FAO""=` SYS$DEVICE_SCAN"""(LIB$DELETE_LOGICAL"=0`; LIB$SET_LOGICAL"", ,= >C~^ ( GG(|/C\/[|KZ \K\?|?(4//BB7KV KY7KG0CvK\ K6G KBG?B4?4Bt.4/{JZ ;KHmGzF@MC@ZkTG(MpMxmGKB@Zk(m[/wC;/Z[KY ;K;?[?(G`Mhm4B4BBBB@ZkA @_'DCG (CkGGG>C^ G/B/BBKY K\KyG0`CyzKX KG zKMBG??Gt.4B/mwJV KvFC@ZktGmMmGuBkB@ZkCk,m#SYS$FAO,GSYS$FAO,@SYS$FAO<GLIB$DELETE_LOGICAL<m#LIB$DELETE_LOGICAL<@LIB$DELETE_LOGICAL4G SYS$DEVICE_SCAN4m#SYS$DEVICE_SCAN4@ SYS$DEVICE_SCAN,GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$SET_LOGICAL4m#LIB$SET_LOGICAL4@LIB$SET_LOGICAL =4= LNM$PROCESS_TABLE!4= DISK_DEVICE_!UL<4=*]= =4= =4=@m4=@m4=04= ww1432יX1-004RRSYS_GET_TAPE_DEVICESX1-004 5-FEB-1996 09:10AMAC V2.0-220 0$LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS  .SYS$FAO LIB$DELETE_LOGICALSYS$DEVICE_SCANLIB$SET_LOGICAL8JSYS_GET_TAPE_DEVICESd d=0 ;=0 =;=@SYS$FAO""=` SYS$DEVICE_SCAN"""(LIB$DELETE_LOGICAL"=0`; LIB$SET_LOGICAL"", ,= >C~^ ( GG(|/C\/[|KZ \K\?|?(4//BB7KV KY7KG0CvK\ K6G KBG?B4?4Bt.4/{JZ ;KHmGzF@MC@ZkTG(MpMxmGKB@Zk(m[/wC;/Z[KY ;K;?[?(G`Mhm4B4BBBB@ZkA @_'DCG (CkGGG>C^ G/B/BBKY K\KyG0`CyzKX KG zKMBG??Gt.4B/mwJV KvFC@ZktGmMmGuBkB@ZkCk,m#SYS$FAO,GSYS$FAO,@SYS$FAO<GLIB$DELETE_LOGICAL<m#LIB$DELETE_LOGICAL<@LIB$DELETE_LOGICAL4G SYS$DEVICE_SCAN4m#SYS$DEVICE_SCAN4@ SYS$DEVICE_SCAN,GSYS$FAO,m#SYS$FAO,@SYS$FAO4GLIB$SET_LOGICAL4m#LIB$SET_LOGICAL4@LIB$SET_LOGICAL =4= LNM$PROCESS_TABLE!4= TAPE_DEVICE_!UL<4=*]= =4= =4=@m4=@m4=04= ww1#*52יX1-003LLSYS_LOGIN_TYPEX1-003 5-FEB-1996 09:10AMAC V2.0-22 p$LINKAGE _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . SYS$GETJPIW0J SYS_JOBTYPE0JP@SYS_MODE =0 ;=0 =";=@  SYS$GETJPIW"""=0@;=0  = >C~^ ( GG(M##wS`K@CXRKG>C~^ (-jCG(M"#wS`K@CXRKG>C(@MGG>C=C ~GGG~Hm@Zk=C(M K ҢG1B 4GG (Ck4G SYS$GETJPIW4m# SYS$GETJPIW4@ SYS$GETJPIWL L=4= ww1~62יX1-003II SYS_MEMSIZEX1-003 5-FEB-1996 09:10AMAC V2.0-22 ($LINKAGEh _SYS_CODE $ABS$ . BLANK . . ABS .0J SYS_MEMSIZEd d=0 ;=@ =" =ph>C~^ >(^0~8G KG15@CC 4GG >(^0~8Ck ww192יX1-002GG SYS_PARSEX1-002 5-FEB-1996 09:10AMAC V2.0-22 H$LINKAGE( _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . SYS$PARSE0J SYS_PARSE =0 ;=P =""0  SYS$PARSE"; =0(>C~^^~ (0޴8@ GHG@{ KGfK3u`C`2` /G^~ (0ޤ8@HCk%$ PGpG@ҠXwQ@HD0MGXPK4GGXw1H\t4GG4,48mX0KG40@ZkG|" G4G SYS$PARSE4m# SYS$PARSE4 @ SYS$PARSEh h=P== P4= H=P=`T=Z=\= ww1:2יX1-002FFSYS_PEEKX1-002 5-FEB-1996 09:10AMAC V2.0-22X X$LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS . SYS$CMKRNL0JSYS_PEEK0JPp SYS___PEEK_10J SYS___PEEK_20J SYS_PEEK_END =0 ;=0 = "00P;@  SYS$CMKRNL"=0( p;=@ =""";=0 ;=@ =0;=( (=>C?G~^ G(G= =C@MTG0 Hm@ZkG (CkGGG>C?G~(^0 G8G= =]} MCmTG( @ZkG(08CkG>C~ ^(^0~8Gz KFK2U@C+@,@CGGGGGpD @B11 BFGG`CGGGGGpD @B11 B@GG`G4GGG (^0~8CkG|"  G44GL SYS$CMKRNL4@m# SYS$CMKRNL4H@L SYS$CMKRNL4G SYS$CMKRNL4m#P SYS$CMKRNL4@ SYS$CMKRNL ww1g<2יX1-002FFSYS_POKEX1-002 5-FEB-1996 09:10AMAC V2.0-22X X$LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS . SYS$CMKRNL0JSYS_POKE0JPp SYS___POKE_10Jx SYS___POKE_20J SYS_POKE_END =0( ;=@ = """00P;@  SYS$CMKRNL"=0(p;=@ x;=0 ;=@ ="=0;= =>C?G~(^0 G8G= =]} @MC0 TGHm@ZkG(08CkG>C?G~(^0 G8G= =]} MCmTG @ZkG(08CkG>C~ ^(^0~8Gz KFK2U@C@@CGGGGGpD @B11 BFGG`GCb4G/G (^0~8CkG|"  GGG4<GT SYS$CMKRNL4Lm# SYS$CMKRNL4P@T SYS$CMKRNL4G SYS$CMKRNL4m#P SYS$CMKRNL4@ SYS$CMKRNL ww1>2יX1-002OOSYS_SEND_OPERATORX1-002 5-FEB-1996 09:10AMAC V2.0-22 d$LINKAGE _SYS_CODE" _SYS_DATA $ABS$ . BLANK . . ABS . SYS$SNDOPR OTS$MOVEMOTS$ZERO8JSYS_SEND_OPERATOR =0 ;=` =";OTS$ZERO  SYS$SNDOPR" OTS$MOVEM= 4 4=>C~^^~ (0޴8@H GPX(ͦGBGР4GFFw1 K4GTAHX0KGG /wYK -AXKO IG YKTAE = ?Q?"/G-4qBwYKXKO IG YKPMFE= qB?xSH(ABBYR K8G(@ZkD 0M@ZkHG6GHmGR@KY KCC@MxJG8G6GTG@ZkG^~ (0ޤ8@HPXCk4G OTS$MOVEM4@ OTS$MOVEM4$G,OTS$ZERO4(@,OTS$ZERO4<m# SYS$SNDOPR4PGp SYS$SNDOPR4l@p SYS$SNDOPR< <=4 ww1 @2יX1-002MMSYS_SET_ACCOUNTX1-002 5-FEB-1996 09:10AMAC V2.0-22 $LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS . SYS$CMKRNL CTL$T_ACCOUNT CTL$GL_PCBOTS$MOVE0JSYS_SET_ACCOUNT8JPSYS___SET_ACCOUNT8JSYS_SET_ACCOUNT_END =0 ;=0  = "00P;@  SYS$CMKRNL"=0;=P OTS$MOVE7 CTL$T_ACCOUNT7 CTL$GL_PCB=0;=  =>C?G~^ G(G= }{`KfK05`C ]@ .J0B@MC0 TGHm@Zk4G/G (C k|"  L /V KF>C~^^ ~(08޴@HGC [0G>C~G@ZkG~CG8 [8>C2B~@@ZkG~CG^ ~(08ޤ@HCkG4`Gx SYS$CMKRNL4pm# SYS$CMKRNL4t@x SYS$CMKRNL4GOTS$MOVE4 @OTS$MOVE4 $GDOTS$MOVE4@@DOTS$MOVE ww1OB2יX1-003NNSYS_SET_USERNAMEX1-003 5-FEB-1996 09:10AMAC V2.0-22 $LINKAGE _SYS_CODE $ABS$ . BLANK . . ABS . SYS$CMKRNLCTL$T_USERNAME CTL$GL_PCBOTS$MOVE8J SYS_SET_USERNAME8JPSYS___SET_USERNAME8JSYS_SET_USERNAME_END =0 ;=0 = "00P;@  SYS$CMKRNL"=0;=P OTS$MOVE7CTL$T_USERNAME7 CTL$GL_PCB= 0;= =>C?G~^ G(G= }{`KfK05`C ]@ .J0B =C@MTG0 !Hm!@@Zk4GG (Ck|"  L /V KFGG>C~^^ ~(08޴@HGC [0G>C~G@ZkG~CG8 [8>C2B~@@ZkG~CG^ ~(08ޤ@HCkG4hG SYS$CMKRNL4xm# SYS$CMKRNL4@ SYS$CMKRNL4G OTS$MOVE4@ OTS$MOVE44GTOTS$MOVE4P@TOTS$MOVE ww1D2יX1-002KK SYS_TERM_ECHOX1-002 5-FEB-1996 09:10AMAC V2.0-22H H$LINKAGE0 _SYS_CODE! _SYS_DATA $ABS$ . BLANK . . ABS . SYS$ASSIGNSYS$QIOW SYS$DASSGN8JSYS_DISABLE_ECHO0Jp0SYS_ENABLE_ECHO8 8=0 ;=0 =;=@ SYS$QIOW"""  SYS$DASSGN"  SYS$ASSIGN""=00;=0  =80>C~^^ G(GG GG>C~^^ -nC(G4G(G`MGhmG4BG@ZkGGI( >C@MG8G0C>GG0ޢG84޶Hm2 J8ޢ< ޶(@ZkC.=@(m;/4cC.:KY:KW JV JGCQG|K:?(->CGHm8G0"C^GG0ޢtG9G4G޶@M2 J8ޢ< ޶(@ZkC(m4G4bCPMXm2J@ZkG^ (CkG(-.4#Cx/JWJ\ xK[ xKFCTFzJF JzGx?>4\Gx SYS$ASSIGN4dm# SYS$ASSIGN4t@x SYS$ASSIGN4GSYS$QIOW4m#SYS$QIOW4@SYS$QIOW4Dm#SYS$QIOW4GSYS$QIOW4@SYS$QIOW4G SYS$DASSGN4m# SYS$DASSGN4@ SYS$DASSGNQ Q= 4= SYS$INPUT ww1F2יX1-001OOSYS_TRAP_CONTROLCX1-001 5-FEB-1996 09:10AMAC V2.0-22 `$LINKAGE$ _SYS_CODE _SYS_DATA $ABS$ . BLANK . . ABS . SYS$ASSIGNSYS$QIOW8JSYS_TRAP_CONTROLC =0( ;=@ =";=@ SYS$QIOW"""  SYS$ASSIGN""| |=,$>C~(^08 GG4G?GS`C2U`C_F SG @@|" /G(08Ck( GPMG=GtCXmG@Zk=>C(mG80GG#_" ;.taC;J`0ޢG4G@M޶8ޢ<Hm ޶(@ZkCG/Z K:F4hG SYS$ASSIGN4m# SYS$ASSIGN4@ SYS$ASSIGN4GSYS$QIOW4m#SYS$QIOW4@SYS$QIOWK K=4=TT: ww1H2יX1-002MMTECO_EDIT_THINGX1-002 5-FEB-1996 09:10AMAC V2.0-22p p$LINKAGEx _SYS_CODEg _SYS_DATA $ABS$ . BLANK . . ABS . TECO$INITTECO$LOAD_Q_REGLIB$PUT_OUTPUTTECO$DO_COMMANDTECO$LOAD_TEXT TECO$START TECO$GET_TEXT0JTECO_EDIT_THINGX X=0 ;=@ ="; LIB$PUT_OUTPUT" TECO$LOAD_Q_REG""  TECO$INIT  TECO$START" TECO$GET_TEXT" TECO$DO_COMMAND" TECO$LOAD_TEXT" =x>C?G~^ ^(~0 G8G= =}`K05`C xKK0UC@AAݢVv@H>@ : }[{@H7@PMGXm@ZkGtG(MHmCCBC@M@Zk4G(ͦ0M8mTB@Zk4G(MmC@Zk4G]M[]@m@Zk4G`M( hm@Zk4GpM xm@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 0m# TECO$GET_TEXT4 4@8 TECO$GET_TEXT =  4=0,2#8192ET4=X '4=0J6,7:W-1W-:4=5-use MX`` to invoke the screen edit function ww