q[VAX-11 Librarian V02.00s\Ԉ !8 B +  VGASSTAPETjBADERREREBYFILEIDBYNAMEERXBYNUMBERjBYTCNTUTgCHR_INTCLOSEFILjCLOSEIDCRE_FILECRE_FILEmDUMPHDRFINIE|GASSTAPETEBYFILEIDBYNAMEERXBYNUMBERgCHR_INTMAINCRE_FILEAIN:GETDATEMAIN] GETHEADERINT INCBAK$MAINILMOVEILMOVEILMOVEk RESTORE$MAIN|jNOERRjOPNIDXCPARSITKjREADBLKjREADERR RESTORE$MAINZTAPEDIRTAPENDWRITEBLKEN WRITEFILEN WRITEFILECLOSEIDE FINIEDRLMOVEDR WRITEFILE:GETDATEMAIN] GETHEADERINT INCBAK$MAINILMOVE RESTORE$MAINjRMSOPNZTAPEDIRTAPENDN WRITEFILErLMOVERE$MAIN PARSITE$MAIN WRITEFILE&CPARSITPARSITk RESTORE$MAINCRE_FILEjFIDOPNjFILBUFjFINIE  !"#$%&'()*+,-./0123456789:;<=>?@AB1@J D011PARSIT0114-Jan-1981 08:3114-Jan-1981 08:31VAX-11 FORTRAN V2.1-12 PARSIT PARSIT;P Invalid Command Line From:  To: /:DBMTPP6p8  :0=PWPN[}PQPԫ$ LIB$INDEXP8 LIB$INDEXP  FOR$WRITE_SF߫ FOR$IO_L_R߫  FOR$IO_L_RZZ YYDJHD FOR$IO_T_DS FOR$IO_ENDYDJHLCHR_INTPkP  FOR$WRITE_SF FOR$IO_END߫XFOR$STOP% FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_END`ASSTAPEZZl GETHEADER, FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_ENDFOR$STOPZZ˄ IO$_READVBLKPPˈb1@L=݈013BYFILEID0115-Dec-1980 11:0315-Dec-1980 11:03PVAX-11 FORTRAN V2.0-2E#BYFILEIDBYFILEIDP FILE (, ) NOT FOUND& UNABLE TO READ FAB FROM TAPE; STATUS=(, UNABLE TO CONVERT FILEID )(P I(@K(ThMg(h ( db~ 7FD ]i n~P FOR$WRITE_SFk FOR$IO_L_R FOR$IO_ENDFOR$STOPF H GETHEADER IO$_SKIPFILE IO$_READVBLKSYS$QIOWTAPEND$CODE$PDATA$LOCAL OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_L_R FOR$WRITE_SF1P&`PPP&$%PENDk FOR$WRITE_SFk FOR$IO_L_R FOR$IO_ENDFOR$STOP WRITEFILE< LBYFILEID IO$_READVBLKCHR_INTSYS$QIOW LIB$INDEXASSTAPE GETHEADERTAPEND WRITEFILEv$CODEi$PDATA$LOCALdRSTCOM OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SL*VP"P'P P ;PEP&2&2  ,$! , 4! ,d3",$ ,l ,l!APH@ SYS$ASSIGNPkP  FOR$WRITE_SFk FOR$IO_L_R FOR$IO_ENDFOR$STOP 3 ?3 3YQSSQxUT;cTT 43UQSQSD3RD 3TU 3 (3x ,3D $3ȏ 3  3  SYS$CREATEP9 SYS$CONNECTP P P Џ  &   ,  ,$! ,+4! ,d>R",$ ,l ,l!`P4! ,dQe",$ ,l ,l!sP4! ,dQe",$ ,l ,l!sP<  SYS$ASCTIM( ׫,F , (, t Ұ IO$_WRITELBLKPPSYS$QIOWPkPFOR$STOP  IO$_WRITEOFPP$SYS$QIOWPkPLFOR$STOP찫;(=@BTFOR$OPENJ FOR$WRITE_SF˄ FOR$IO_T_DSl FOR$IO_T_DS< FOR$IO_X_DA˔ FOR$IO_T_DS FOR$IO_ENDЬ| IO$_READVBLKPPˀtSYS$QIOWPkP FOR$WRITE_SFk FOR$IO_L_R FOR$IO_ENDFOR$STOP 22. ߯ SYS$CLOSESYS$READ"3PRMS$_EOFPP RMSOPNu . BLANK .OPNCOMd$ABS$PDATA$RMSNAMCODEwwFIDOPNj FOR$WRITE_SFˬ FOR$IO_X_DA? FOR$IO_W_R? FOR$IO_W_R? FOR$IO_X_DA FOR$IO_END1j FOR$WRITE_SF? FOR$IO_W_R? FOR$IO_W_Rj FOR$IO_L_R FOR$IO_ENDFOR$STOP IO$_WRITELBLK\\SYS$QIOWPkPDFOR$STOPޏxLTAPEND\\`TSYS$QIOWPkPˈFOR$STOPޏxLTAPENDREADBLKjjːFOR$STOPЫP@/ˤ˘LMOVE2PPѫ ˰ IO$_WRITELBLKPP˴˨SYS$QIOWPkޏxLTAPENDj1׫ IO$_WRITELBLKPPЫSYS$QIOWPkޏxLTAPEND SIT LIB$INDEXLMOVE;$CODE@$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_X_DA FOR$READ_SF FOR$WRITE_SFR)KPOPP8PP8!P2&;ww˔ FOR$IO_T_DS FOR$IO_ENDˈ SYS$BINTIMPkP8 FOR$WRITE_SFk FOR$IO_L_R FOR$IO_ENDFOR$STOP1(˔LMOVEˬ SYS$CRELOGOPNIDX\lFOR$STOP SYS$ASCTIM( ׫,F , (, t Ұ IO$_WRITELBLKPPSYS$QIOWPkPFOR$STOP  IO$_WRITEOFPP$SYS$QIOWPkPLFOR$STOP찫;(=@BTFOR$OPENJ FOR$WRITE_SF˄ FOR$IO_T_DSl FOR$IO_T_DS< FOR$IO_X_DA˔ FOR$IO_T_DS FOR$IO_ENDЬ| IO$_READVBLKPPˀtSYS$QIOWPkP FOR$WRITE_SFk FOR$IO_L_R FOR$IO_ENDFOR$STOP 22.!   , ,,P!4$!>4! ,dQe "4$ ,l ,l!sP$CODE$PDATA<%$LOCALxOPNCOM OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$READ_SF FOR$WRITE_SF&P EP*P&P<$P P P @P&PMPP*P0PiPqPw cPCP%P@P*P >P aP uP PP PP4P PCP P Pt>ww1A D012GETDATE0114-Jan-1981 08:3114-Jan-1981 08:31VAX-11 FORTRAN V2.1-12!GETDATEGETDATEP