% VAX-11 Librarian V04-00qKsܷuK\!, >>(.T  a BIO_CLOSElBIO_OPEN BIO_OPEN_ROBIO_READX BIO_WRITE CLU_BROADCAST|CLU_MEMBERSHIPDCL_ENVI_DEPTHpDCL_ENVI_PROCEDURE FOR_SIGNAL@FOR_STOPLBR_OUTPUT_MLB_MODULE LIB_AVAILABLE!v LIB_CHECKSUM2"<LIB_COMPARE_BLOCKSLIB_COUNT_BITS%LIB_CVT_L_DELTA& LIB_CVT_T_L(VLIB_FORMAT_PROTECTION* LIB_GET_INPUT+LIB_OUTPUT_BKT-LIB_OUTPUT_FH21LIB_OUTPUT_HM25LIB_OUTPUT_SEG_TS BIO_CLOSElBIO_OPEN BIO_OPEN_ROBIO_READX BIO_WRITE CLU_BROADCAST|CLU_MEMBERSHIPDCL_ENVI_DEPTHpDCL_ENVI_PROCEDUREpDCL___GET_PROCEDURE FOR_SIGNAL@FOR_STOPLBR_OUTPUT_MLB_MODULE LIB_AVAILABLE!v LIB_CHECKSUM2"<LIB_COMPARE_BLOCKSLIB_COUNT_BITS%LIB_CVT_L_DELTA& LIB_CVT_T_L(VLIB_FORMAT_PROTECTION* LIB_GET_INPUT+LIB_OUTPUT_BKT* _KEYBOARD_ID* _KEY_TABLE_ID%LIB_CVT_L_DELTA& LIB_CVT_T_L(VLIB_FORMAT_PROTECTIONLIB_GENERATE_SEED* LIB_GET_INPUT+LIB_OUTPUT_BKTjLIB_OUTPUT_FH21LIB_OUTPUT_HM25LIB_OUTPUT_SEG_T7LIB_OUTPUT_SEG_TZB8LIB_OUTPUT_SEG_ZB:LIB_PATCH_BLOCK=LIB_PATCH_INPUT_INTEGER?LIB_PATCH_VALID_BYTE LIB_RANDOM@ LIB_SUB_ASC_TIMES/LIB_VALIDATE_FH2o STR_CMATCHC STR_COLLAPSE STR_LOWERCASEB STR_UPPERCASE* _KEYBOARD_ID* _KEY_TABLE_IDWLIB_COUNT_BITS STR_COLLAPSESYS_GET_TAPE_DEVICES _KEY_TABLE_ID(VLIB_FORMAT_PROTECTIONLIB_GENERATE_SEED* LIB_GET_INPUT+LIB_OUTPUT_BKTjLIB_OUTPUT_FH21LIB_OUTPUT_HM25LIB_OUTPUT_SEG_T7LIB_OUTPUT_SEG_TZB8LIB_OUTPUT_SEG_ZB:LIB_PATCH_BLOCK=LIB_PATCH_INPUT_INTEGER?LIB_PATCH_VALID_BYTE LIB_RANDOM@ LIB_SUB_ASC_TIMES/LIB_VALIDATE_FH2BSTR_CHANGECASEo STR_CMATCHC STR_COLLAPSED STR_COMPRESSSTR_LENL STR_MATCHMSTR_SUBSTITUTEN STR_SUBTRACTM LIB_CVT_T_L STR_COMPRESS SYS_MEMSIZE TECO_EDIT_THINGD STR_COMPRESSE STR_ELEMENTF STR_EVALUATEI STR_JUST_LEFTJSTR_JUST_RIGHTKSTR_LENB STR_LOWERCASEL STR_MATCHx STR_SOUNDEXMSTR_SUBSTITUTEN STR_SUBTRACTOSTR_TRIMB STR_UPPERCASEP SYS_BROADCASTS SYS_CHECK_SOFTWARE_EXPIRY1eSYS_DISABLE_ECHOeSYS_ENABLE_ECHOTSYS_FIND_ETHER_DEVICEVSYS_GET_DISK_DEVICESYVSYS_GET_TAPE_DEVICESARSE_tSYS_PEEK_t SYS_PEEK_END* _KEYBOARD_ID* _KEY_TABLE_IDcE STR_ELEMENTF STR_EVALUATEI STR_JUST_LEFTJSTR_JUST_RIGHTKSTR_LENL STR_MATCHx STR_SOUNDEXMSTR_SUBSTITUTEN STR_SUBTRACTOSTR_TRIMP SYS_BROADCASTS SYS_CHECK_SOFTWARE_EXPIRY1TSYS_FIND_ETHER_DEVICEVSYS_GET_DISK_DEVICESYVSYS_GET_TAPE_DEVICES[SYS_LOGIN_TYPE SYS_MEMSIZE]j SYS_PARSE_tSYS_PEEK`SYS_POKEaSYS_SET_ACCOUNTc,SYS_SET_USERNAMEe SYS_TERM_ECHOg0TECO_EDIT_THING[ SYS_JOBTYPE SYS_MEMSIZE[SYS_MODE]j SYS_PARSE_tSYS_PEEK_t SYS_PEEK_END`SYS_POKE` SYS_POKE_ENDSYS_SEND_OPERATORaSYS_SET_ACCOUNTaSYS_SET_ACCOUNT_ENDc,SYS_SET_USERNAMEc,SYS_SET_USERNAME_END_t SYS___PEEK_1_t SYS___PEEK_2` SYS___POKE_1` SYS___POKE_2aSYS___SET_ACCOUNTc,SYS___SET_USERNAMEg0TECO_EDIT_THING* _KEYBOARD_ID* _KEY_TABLE_ID]j SYS_PARSE_tSYS_PEEK`SYS_POKESYS_SEND_OPERATORaSYS_SET_ACCOUNTc,SYS_SET_USERNAMEe SYS_TERM_ECHOg0TECO_EDIT_THING 1bڷ014 BIO_CLOSE01 2-Jun-1992 08:57 2-Jun-1992 08:57VAX FORTRAN V5.8-155 BIO_CLOSE BIO_CLOSE;PPH[޼k FOR$CLOSEPT H BIO_CLOSE FOR$CLOSE$CODE$PDATA$LOCAL 7ww1 G۷V1-0047BIO_OPENV1-004 2-JUN-1992 08:58 VAX MACRO V5.4-3$MACRO DBS0:[LIB.SRC]BIO_OPEN.MAR;1 BIO_OPEN SYS$CONNECTSYS$OPENSYS$SYSTEM:SYS.STB . ABS .P$ABS$PPPP4 _SYS_DATAP< _SYS_CODEMPP$ QQQQQPP BIO_OPEN&TЬRЬSТ$T$T3+ObSYS$OPENP c SYS$CONNECTBIO_OPEN0 _SYS_DATA4 _SYS_CODE<ww1S!۷V1-004: BIO_OPEN_ROV1-004 2-JUN-1992 08:58 VAX MACRO V5.4-3'MACRO DBS0:[LIB.SRC]BIO_OPEN_RO.MAR;1  BIO_OPEN_RO SYS$CONNECTSYS$OPENSYS$SYSTEM:SYS.STB . ABS .P$ABS$PPPP4 _SYS_DATAP< _SYS_CODEMPP$ QQQQQPP  BIO_OPEN_RO&TЬRЬSТ $T$T3"ObSYS$OPENP c SYS$CONNECT BIO_OPEN_RO0 _SYS_DATA4 _SYS_CODE<ww1ڷ013BIO_READ01 2-Jun-1992 08:57 2-Jun-1992 08:57VAX FORTRAN V5.8-155BIO_READBIO_READPD DPH[}PQЬ 8P@ Pм ` P@ P`$P@ P` SYS$READV HBIO_READSYS$RE ADI$CODE$PDATA($LOCAL @Iww1@Eڷ014 BIO_WRITE01 2-Jun-1992 08:57 2-Jun-1992 08:57VAX FORTRAN V5.8-155 BIO_WRITE BIO_WRITEPD DPH[}PQЬ 8P@ Pм `"P@ P`(P@ P`  SYS$WRITEX H BIO_WRITE SYS$WRITEI$CODE$PDATA($LOCAL @I ww1ƍ۷018 CLU_BROADCAST01 2-Jun-1992 08:57 2-Jun-1992 08:57VAX FORTRAN V5.8-155 CLU_BROADCAST P, CLU_BROADCAST\ P  7 7  \ l | d t   X   STR$ELEMENT@t      X <  STR$ELEMENT@t PKX [}PQP}PQP } PQPD LIB$DATE_TIMELSTR_LENP, ˨, ˨TSTR_LENP, ˨, ˨\STR_LENPVdSTR_LENPWlSTR_LEN߰ ~`ԫ$ SYS$GETSYIWPVV 4STR_LENPW2PP^(Pn^SX~Xlլl0 SYS$CMEXECЏ|"PЏP  0DCL___GET_PROCEDURE&lCTL$AG_CLIDATA[ PPD$L_PRC[ PRC_ L_IDFLNKZIDF_L_FILENAMEYXЬWЧW<V,Xi VgP?DCL_ENVI_PROCEDURE0DCL___GET_PROCEDURE _SYS_CODEiww1 K۷015 FOR_SIGNAL01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155 FOR_SIGNAL3P%Fortran I/O error !UL occurred on unit !UL FOR_SIGNALhPPT`dXP+\h PHP[ FOR$ERRSNSիЫPЫT@SYS$FAO X\`LIB$PUT_OUTPUTЫlЫph LIB$SIGNAL H FOR_SIGNALLIB$PUT_OUTPUT LIB$SIGNALSYS$FAO FOR$ERRSNSM$CODE,$PDATA$LOCALP6EMww10۷013FOR_STOP01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155FOR_STOP3P%Fortran I/O error !UL occurred o n unit !ULFOR_STOPhPPT`dXP+\hPHP[ FOR$ERRSNSիЫPЫT@SYS$FAO X\`LIB$PUT_OUTPUTЫlЫphLIB$STOP| HFOR_STOPLIB$PUT_OUTPUTLIB$STOPSYS$FAO FOR$ERRSNSM$CODE,$PDATA$LOCALP6FMww1@&۷X1-001DLBR_OUTPUT_MLB_MODULEX1-001 2-JUN-1992 08:58 VAX MACRO V5.4-31MACRO DBS0:[LIB.SRC]LBR_OUTPUT_MLB_MODULE.MAR;1 LBR_OUTPUT_MLB_MODULEv LBR$CLOSELBR$FINDLBR$GET_RECORDLBR$INI_CONTROLLBR$LOOKUP_KEYLBR$OPENLIB$PUT_OUTPUTSYS$SYSTEM:SYS.STB . ABS .P$ABS$PD _SYS_DATAP _SYS_CODEuPP3SYS$LIBRARY:.MLBQ&QQPP" LBR_OUTPUT_MLB_MODULE&E@<0LBR$INI_CONTROLP1ݬ0LBR$OPENP~4ݬ0LBR$LOOKUP_KEYPe40LBR$FIND( 0LBR$GET_RECORDP)(LIB$PUT_OUTPUT( 0LBR$GET_RECORD10 LBR$CLOSE#LBR_OUTPUT_MLB_MODULE0 _SYS_DATAD _SYS_CODE ww1@PT)۷X1-001< LIB_AVAILABLEX1-001 2-JUN-1992 08:59 VAX MACRO V5.4-3)MACRO DBS0:[LIB.SRC]LIB_AVAILABLE.MAR;1  LIB_AVAILABLE<LIB$PUT_OUTPUTSYS$EXITSYS$FAO SYS$TRNLNM . ABS .P$ABS$ PPP _SYS_DATAP _SYS_CODE"PP3LNM$SYSTEM_TABLEQ&Q3!AF_UNAVAILABLEQ&Q!33!AF_WHY_!ULQ &QF3This facility is temporarily unavailable.Q)&Q/QssQPP  LIB_AVAILABLE&7lլ}RLIB_CVT_L_DELTAX1-001 2-JUN-1992 08:59 VAX MACRO V5.4-3+MACRO DBS0:[LIB.SRC]LIB_CVT_L_DELTA.MAR;1 LIB_CVT_L_DELTA SYS$FAOSYS$SYSTEM:SYS.STB . ABS .P$ABS$P _SYS_DATAP _SYS_CODEJPP3!4UL !2ZL:!2ZL:!2ZL.!2ZLQ&QPP LIB_CVT_L_DELTA& 'l լ Џ|"P1jЏP1`RSTUVWЬWǏdWVŏdVRRW Area/Index No. !UB!/!39
Freepointer !UW (!-!XW)!/!39 !19 Last !UB (!-!XB)!/!39 !19 Control !XB!/Q&QPP| |LIB_OUTPUT_BKT&ñl ЏP1QЏ|"P1GЬRݢ ݢ ݢݢݢݢݢݢݢb SYS$FAOLIB$PUT_OUTPUTLIB_OUTPUT_BKT0 _SYS_DATA _SYS_CODEeww1;۷X1-001=LIB_OUTPUT_FH2X1-001 2-JUN-1992 08:'@׵ٕ SNEDDON_D LIB_OUTPUT_FH2)`b۵ٕ SNEDDON_D LIB_VALIDATE_FH2#yߵٕ SNEDDON_D STR_CMATCH$cٕ SNEDDON_D STR_SOUNDEX*߄! SNEDDON_D LIB_GENERATE_SEED#Z~ SNEDDON_D LIB_RANDOM$@mM SNEDDON_D SYS_MEMSIZE$ aX SNEDDON_D SYS_MEMSIZE$R} SNEDDON_D SYS_MEMSIZE'f SNEDDON_D DCL_ENVI_DEPTH'`B| SNEDDON_D LIB_COUNT_BITS'`Æv SNEDDON_D LIB_OUTPUT_FH2'01۵ٕX1-001W?LIB_VALIDATE_FH2X1-00115-JUL-1992 10:02 VAX MACRO T5.2V-4*MACRO LIB_VALIDATE_FH2 LIB_VALIDATE_FH2SYS$SYSTEM:SYS.STB3 . ABS .AP $ABS$nP! _SYS_DATA P1r _SYS_CODE% PPy LIB_VALIDATE_FH2:&rP<STЬQQRTST1Jb1Bb<5.1%11 1 S:SPLIB_VALIDATE_FH20 _SYS_DATA _SYS_CODErwwHigh-water mark : !ULQ3&Q3!9* File characteristics : !XL!/!12* Record attributes : !XL !XL !XL !XL!/!33* !XL !<XL !XL !XL!/!21* Checksum : !XW!/Qx&Q~PP LIB_OUTPUT_FH2&l ЏP1Џ|"P1yЬXݨݨݨhݨ<ݨFݨDݨBݨݨݨݨ ݨ ݨݨݨݨ>SYS$FAOLIB$PUT_OUTPUThWWXW(xgv(v23(B6v33vWWSWT&WU.WVfnSTR_LENVUTSݧf~ SYS$FAOLIB$PUT_OUTPUTШLQQQQݨIݨHݨ;ݨ:ݨ8ݨ@ SYS$FAOLIB$PUT_OUTPUThݨݨݨݨ ݨ$ݨ(ݨ,ݨ0ݨ4 SYS$FAOLIB$PUT_OUTPUTLIB_OUTPUT_FH20 _SYS_DATAk _SYS_CODEww1@۷3X1-001=LIB_OUTPUT_HM2X1-001 2-JUN-1992 08:59 VAX MACRO V5.4-3*MACRO DBS0:[LIB.SRC]LIB_OUTPUT_HM2.MAR;1 LIB_OUTPUT_HM2 LIB$PUT_OUTPUTSYS$FAOSYS$SYSTEM:SYS.STB . ABS .P$ABS$ PP) _SYS_DATAP _SYS_CODEPPQ3ODS Version !UB.!UB!12* ClusterSize !10UB CheckSums !XW,!XW!/HomeLBN !10UL 4 AltHomeLBN !10UL AltIdxLBN !10UL!/HomeVBN !10UW AltHomeVBN !10UW AltIdxVBN !10UW!/IBmapLBN !10UL IBmapVBN !10UW IBmapSize !10UWQ&Q 3Maximum 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 !%UQ&Q3!10!XL !14!X5W !14!XW !14!XWQH&QNa3!15!%D !15!%D!/!22!%D !22!%DQ_&Qe3!24"!AF" !24"!AF"!/!24"!AF" !24"!AF"!/Q]&QcPP| |LIB_OUTPUT_HM2&l ЏP1xЏ|"P1nЬRݢ ݢݢݢݢݢݢݢbݢ:ݢݢ ݢ SYS$FAOLIB$PUT_OUTPUTݢ,ݢ*ݢ6EݢFݢDݢ(ݢ&ݢ$ݢ"ݢSYS$FAOLIB$PUT_OUTPUTݢ8ݢ6ݢ4ݢ0 SYS$FAOLIB$PUT_OUTPUT]-!5UL-[!XB!#(3XB)]LIB_OUTPUT_SEG_TZBQPP9N[}PQP<kռѼkмkм SSS  SkPSPSPUU1SUPPSPQQQkkQPQQShQlVPVVpPVVt<WVWYFxQ|VQˀYVPZZZWTJQV(SYS$FAOL<@DLIB$PUT_OUTPUTU1hs NLIB_OUTPUT_SEG_TZBLIB$PUT_OUTPUTSYS$FAOL$CODE$PDATA$LOCAL4P #P-P5POPaPP=1^ww1`: ۷01<LIB_OUTPUT_SEG_ZB01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155LIB_OUTPUT_SEG_ZBP!6UL-[!XB!#(3XB)]LIB_OUTPUT_SEG_ZB9PPN[}PQP<kռѼkмkм SSS((SkPSPSPUUSUPPSPQQQkkQPQQPVVT<WVWYFXQ\VQ`YVPZZZWTJQV(SYS$FAOL<@ ;DLIB$PUT_OUTPUTUr NLIB_OUTPUT_SEG_ZBLIB$PUT_OUTPUTSYS$FAOL$CODE$PDATA$LOCAL3P #P-P5PMPz^PP:.^ww1 w ۷01:LIB_PATCH_BLOCK01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155LIB_PATCH_BLOCK^PByte? !3UL Old= (%x!2XL,%o!3OL) !3AS !3UL, New= %PATCH-E-INVBYTE,< invalid byte valueLIB_PATCH_BLOCKhPPS LIB_PATCH_INPUT_INTEGER@XXd*Vxp`$22 LIB$PUT_OUTPUT@ LIB_PATCH_INPUT_INTEGER@XXdPMX[^}PQPԼ8LIB_PATCH_INPUT_INTEGERP HLIB_PATCH_VALID_BYTEkVQVQQQ=QP11VЭP@ZˏZWˏZPQPQQQQ+˨ ˨W @WPP~^~˩WW˩W~'~˩VlZpZtZ|\SYS$FAO2PPˀ˫˄ˈLIB_PATCH_INPUT_INTEGERPX^ЭV<VXzEeիѫˠLIB$PUT_OUTPUTիѫԫѫZ~ЭP@VVV1Vk˰LIB_PATCH_INPUT_INTEGERP LIB_PATCH_VALID_BYTEkVZVZZZZP1VkWPro MLIB_PATCH>_BLOCKLIB$PUT_OUTPUTLIB_PATCH_INPUT_INTEGERLIB_PATCH_VALID_BYTESYS$FAO$CODEY$PDATA$$LOCALIPuVP8PPPPP P  P PPs P(P0P5PU<P FP QP9XP$bPkPPg[ww1 ۷01BLIB_PATCH_?INPUT_INTEGER01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155!LIB_PATCH_INPUT_INTEGER#LIB_PATCH_INPUT_INTEGER P @Q'P0H[}PQP}PQP Լ  LIB_GET_INPUTPT$ STR_COLLAPSE0STR_LENPUUP@ ^Լ TU8<޼ H@ LIB_CVT_T_LPTUkTP 0HLIB_PATCH_INPUT_INTEGER LIB_GET_INPUT LIB_C @VT_T_L STR_COLLAPSESTR_LEN$CODE$PDATAT$LOCAL2CP@JPOP ZP)bPgPjP3'ww1 ۷01?LIB_PATCH_VALID_BYTE01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155LIB_PATCH_VALID_BYTE2P%PATCH-E-BADBYTE, byte value out of bounds LIB_PATCH_VALID_BYTE~P* LIB$PUT_OUTPUT A@PH[мռѼLIB$PUT_OUTPUTЫPf HLIB_PATCH_VALID_BYTELIB$PUT_OUTPUT8$CODE+$PDATA$LOCALPPP &P $O8ww1`yF۷X1-001@LIB_SUB_ASC_TIMESX1-001 2-JUN-1992 08:59 VAX MACRO V5.4-3-MACRO DBS0:[LIB.SRC]LIB_SUB_ASC_TIMES.MAR;1 LIB_SUB_ASC_TIMES1 LIB$SUB_TIMESB SYS$ASCTIM SYS$BINTIMSYS$SYSTEM:SYS.STB . ABS .P$ABS$P _SYS_DATAPw _SYS_CODE,PPPP LIB_SUB_ASC_TIMES&|||ЏPlV SYS$BINTIMPC SYS$BINTIMP0 LIB$SUB_TIMESP  SYS$ASCTIMLIB_SUB_ASC_TIMES0 _SYS_DATA _SYS_CODEwCww1@zJ۷X1-001=STR_CHANGECASEX1-001 2-JUN-1992 08:59 VAX MACRO V5.4-3*MACRO DBS0:[LIB.SRC]STR_CHANGECASE.MAR;1 STR_CHANGECASE . ABS .P$ABS$P _SYS_CODE PP  STR_LOWERCASE& W  STR_UPPERCASE&Wlli^լt}ZP P P#P .Ph2P J;PDPMPVP_PkPtPxP PPsww1`2۷018 STR_JUST_LEFT01 2-Jun-1992 08:58 2-Jun-1992 08:58VAX FORTRAN V5.8-155 STR_JUST_LEFT STR_JUST_LEFTPPH[}PQPk}PQ P} PQP KSTR_LENPVSYS_SET_ACCOUNTX1-001 2-JUN-1992 09c:01 VAX MACRO V5.4-3+MACRO DBS0:[LIB.SRC]SYS_SET_ACCOUNT.MAR;1 SYS_SET_ACCOUNT CTL$GL_PCB CTL$T_ACCOUNT SMP$ACQUIRE SMP$GL_FLAGS SMP$RELEASE SYS$CMKRNL SYS_SET_ACCOUNT_ENDSYS$SYSTEM:SYS.STB . ABS .P$ABS$ PPP _SYS_CODE PP SYS_SET_ACCOUNT&l SYS$CMKRNL SYS___SET_ACCOUNT&lelլgjЬ dWЧW,g  CTL$T_ACCOUNT CTL$GL_PCBQС|VCPCPCPCP SMP$GL_FLAGSP1P SMP$ACQUIREЎP,g  SMP$GL_FLAGSP1P SMP$RELEASEЎPPЏ|"PЏPЏLP:SYS_SET_ACCOUNTSYS___SET_ACCOUNT _SYS_CODEww1&y۷X1-001?SYS_SET_USERNAMEX1-001 2-JUN-1992 09:01 VAX MACRO V5.4-3,MACRO DBS0:[LIB.SRC]SYS_SET_USERNAME.MAR;1 SYS_SET_USeERNAME CTL$GL_PCBCTL$T_USERNAME SMP$ACQUIRE SMP$GL_FLAGS SMP$RELEASE SYS$CMKRNL SYS_SET_USERNAME_ENDSYS$SYSTEM:SYS.STB . ABS .P$ABS$ PPP _SYS_CODE PP SYS_SET_USERNAME&l SYS$CMKRNL SYS___SET_USERNAME&lelլg jЬWЧW, g CTL$T_USERNAME CTL$GL_PCBQС|VCPCPCPCP SMP$GL_FLAGSP1P SMP$ACQUIREfЎP, g SMP$GL_FLAGSP1P SMP$RELEASEЎPPЏ|"PЏPЏLP<SYS_SET_USERNAMESYS___SET_USERNAME _SYS_CODEww1|۷X1-001< SYS_TERM_ECHOX1-001 2-JUN-1992 09:01 VAX MACRO V5.4-3)MACRO DBS0:[LIB.SRC]SYS_TERM_ECHO.MAR;1  SYS_TERM_ECHO, SYS$ASSIGN SYS$DASSGNSYS$QIOWSYS$SYSTEM:SYS.STB . ABS .Pg$ABS$ PP! _SYS_DATAP _SYS_CODEDPP3SYS$INPUTQ &QQ PP SYS_DISABLE_ECHO&R SYS_ENABLE_ECHO&R|~ SYS$ASSIGNP]|~|~ |~<'~<~ SYS$QIOWP7R 33|~|~ |~<#~<~ SYS$QIOW<~ SYS$DASSGN9SYS_DISABLE_ECHOSYS_ENABLE_ECHO0 _SYS_hDATA! _SYS_CODEww1_۷X1-001>TECO_EDIT_THINGX1-001 2-JUN-1992 09:01 VAX MACRO V5.4-3+MACRO DBS0:[LIB.SRC]TECO_EDIT_THING.MAR;1 TECO_EDIT_THING~LIB$PUT_OUTPUTTECO$DO_COMMAND TECO$GET_TEXT TECO$INITTECO$LOAD_Q_REGTECO$LOAD_TEXT TECO$STARTSYS$SHARE:TECOSHR.EXE . ABS .P$ABS$Pg _SYS_DATAPi _SYS_CODEPP30,2#8192ETQ &Q3XQ&Q#30J6,7:W-1WQ &Q63use MX`` to invoke the screen edit function Q-&Q3PP   TECO_EDIT_THING&ll)լ4}RSegment numberl !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 : !UBQ8&Q>3!20* File name : !AF!/!16* File revivsion : !UW!/!16* Creation date : !%D!/!16* Revision date : !%D!/!18* Expiry date : !%D!/!18* Backup date : !%DQ`&Q"3!14* File Promtection : !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 : !ULQ3&Q3!9* File characteristics : !XL!/!12* Record attributes : !XL !XL !XL !XL!/!33* !XL ! <XL !XL !XL!/!21* Checksum : !XW!/Qx&Q~PP LIB_OUTPUT_FH2H&l ЏP1Џ|"P1xЬXݨݨݨhݨ<ݨFݨDݨBݨݨݨݨ ݨ ݨݨݨݨ>nSYS$FAOLIB$PUT_OUTPUThWWXWvYZ(xgi(ij(B6vWWSWT&WU.WVZfnSTR_LENVUTSݧZf~ SYS$FAOLIB$PUT_OUTPUTШLQQQQݨIݨHݨ;ݨ:ݨ8ݨ@ SYS$FAOLIB$PUT_OUTPUTbݨݨݨ ݨ$ݨ(ݨ,ݨ0ݨ4 SYS$FAOLIB$PUT_OUTPUTLIB_OUTPUT_FH20 _SYS_DATAk _SYS_CODEwwp1`gߵٕ 4 STR_CMATCH 19-JUN-1992 15:19 VAX BASIC V3.3' STR_CMATCH STR_CMATCH;$PDATA$CODE$ARRAY$DESC  STR_CMATCH OTS$LINKAGE BAS$LINKAGEBAS$CHANGE_S_NABAS$POS BAS$RIGHT BAS$INIT_R8BAS$INIT_DEF_R8BAS$INIT_GOSUB BAS$END_R8BAS$END_DEF_R8BAS$END_GSB_R8 MTH$FLOOR_R1 STR$CONCATBAS$CHRBAS$EDIT BqAS$INSTRBAS$LEFT LIB$ICHARBAS$MIDBAS$READ BAS$IO_END BAS$IN_T_DXBAS$RESTORE_DAT STR$COPY_R_R8STR$COPY_DX_R8P\X l!dcl STR_CMATCHA,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,r Y,TUGH67, Z,ASXsdsC<<8 SUBSTITUTE ZA_! SUBSTITUTEPϞRPPQ BAS$INIT_R8BAS$CHRBAS$RESTORE_DATBAS$READ BAS$IN_T_DX \L BAS$IN_T_DX BAS$IO_END \ XLH STR$CONCAT׫ݏBAS$EDITݯBAS$EDIT~Q~PSTR$COPY_DX_R82QR~sP STR$COPY_R_R82QR~P STR$COPY_R_R8 ~ Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R82QR~P STR$COPY_R_R82QR~P STR$COPY_R_R8 ~ Q~PSTR$COPY_DX_R8<\\+<\\Gë+G\N\K+\N\OѫG+ G\N\O;.BAS$INIT_GOSUBNG\QS\ Џd? _BAS$INIT_GOSUBЫ?1NSЫGWWWݫBAS$MIDݫBAS$MID-׻ ǻN\A\SSBAS$INIT_GOSUBÞW׫t'ЫG[[1ݫBAS$MID-׻ V BAS$INSTRP/ë/\N\\\J\ ѫ \\ի/XXXXX\\֫'ϏBAS$INIT_GOSUB[z׫BAS$END_GSB_R8BAS$INIT_GOSUB\\BAS$LEFTݫBAS$CHR STR$CONCAT\\ BAS$RIGHT STR$CONCATBAS$END_GSB_R8cBAS$INIT_GOSUB/\\BAS$LEFTݫBAS$CHR STR$CONCAT/\\u BAS$RIGHT STR$CONCATBAS$END_GSB_R8\\BAS$LEFT STR$CONCAT\\ BAS$RIGHT STR$CONCATBAS$END_GSB_R8N'\@S\J\#ë#GC 7Ы'\\6Ы+_/_/BAS$INIT_GOSUBߞ_/׫/ЫC\\ iBAS$INIT_GOSUBN\DS\XNXX@X\7XNXX@X\ë'XXNXX@X\J\;ѫ \\;ի'ŏ \ƫ'\\;N\QK\NXCXK\NXD\XN;\@X\J\;N;\D\FO\E\CP MTH$FLOOR_R1JP?ի??vBAS$END_GSB_R8BAS$CHANGE_S_NA /\LsXX /\Ls+WWWWWXXU /\Ls/D /\Ls/XNX\\P\XN \@X\J\ /\ Ls\Ls/֫' ū'\\  BAS$END_GSB_R8ЫGcc1ݫBAS$MIDݫBAS$MID-ǻ \\-ǻ XXXXX\\1-׻ \\-ǻ XXXXX\\Z LIB$ICHARP\Ï@\ \L BAS$INSTRPXXԫ33ѫw7\\ҫ3PP\\֫7c ׫«7CBAS$END_GSB_R81ϞPPQBAS$INIT_DEF_R8ឯX EXE$GL_RPBY@YZɼ[[XYYZXPlPP SYS_MEMSIZE _SYS_CODE5ww1@8wX1-002: SYS_MEMSIZEX1-00221-AUG-1992 10:29 VAX MACRO V5.4-3MACRO SYS_MEMSIZE  SYS_MEMSIZE EXE$GL_RPBSYS$SYSTEM:SYS.STB . ABS .P$ABS$ PP: _SYS_CODE PP  SYS_MEMSIZE&CX EXE$GL_RPBY@YZɼ[[XYYZXPl լPP SYS_MEMSIZE _SYS_CODE:wwPPDCL_ENVI_DEPTH _SYS_CODE)ww1wX1-002=LIB_COUNT_BITSX1-00221-AUG-1992 13:27 VAX MACRO V5.4-3MACRO LIB_COUNT_BITS LIB_COUNT_BITS . ABS .P$ABS$P- _SYS_CODE PP LIB_COUNT_BITS&-мRS TRRRSTSPl լPPLIB_COUNT_BITS _SYS_CODE-wwww SNEDDON_D LIB_OUTPUT_FH2* 1K\ WOPDBSOPS SYS_SEND_OPERATOR1uK\X1-0012@SYS_SEND_OPERATORX1-00119-NOV-1993 10:00 VAX MACRO V5.4-3MACRO SYS_SEND_OPERATORf SYS_SEND_OPERATORs SYS$SNDOPRSYS$SYSTEM:SYS.STB/ . ABS .:P$ABS$ PPPF" _SYS_DATA PvD _SYS_CODE6"PPQPP SYS_SEND_OPERATOR&S}VX h мV,Vg<~ SYS$SNDOPR/SYS_SEND_OPERATOR50 _SYS_DATA" _SYS_CODEDwwnaling : !XB!/!9* Recovery Unit Active : !XB!/!14* High-water mark : !ULQ3&Q3!9* File characteristics : !XL!/!12* Record attributes : !XL !XL !XL !XL!/!33* !XL !<XL !XL !XL!/!21* Checksum : !XW!/Qx&Q~PP LIB_OUTPUT_FH2&l ЏP1Џ|"P1uЬXݨݨݨhݨ<ݨFݨDݨBݨݨݨݨ ݨ ݨݨݨݨ>SYS$FAOLIB$PUT_OUTPUThWWXWvYZ(xgi(ij(B6vWWSWT&WU.WVfnSTR_LENVUTSݧf~ SYS$FAOLIB$PUT_OUTPUTШLQQQQݨIݨHݨ;ݨ:ݨ8ݨ@ SYS$FAOLIB$PUT_OUTPUTݨ_ݨݨ ݨ$ݨ(ݨ,ݨ0ݨ4 SYS$FAOLIB$PUT_OUTPUTLIB_OUTPUT_FH20 _SYS_DATAk _SYS_CODEww