% VAX-11 Librarian V03-00 @ !< ' 2 77CG  ADATEANSI5ASCDAYATTOFFBLINKHBLONWHBOLDGBPADCLRALLCLRBOLCLREOLCLREOSCLRHOMCLRLINCLRTOCTCOL132TCOL80TCOLUMNS COPY_LINES COPY_SCREENS COPY_SCROLLPCPBUMPPCPPOPPCPPUSHPCPSAVE@CPUSECeCRLFzCSBIGeCSNEWeCSOUTzCSPOSzCSWIDE CTRLC_ASTuCTRLC_ON}CURBCKFFONLG1ASCLG1GRAF^ ADATEANSI5ASCDAYHBLONWHGBPADCLRHOMTCOLUMNS COPY_SCREENPCPSAVE@CPUSECzCSBIGeCSOUT CTRLC_ASTuCTRLC_ON}CURPOSOCWHEREG1ASCiGETFLOATJGETINT3GETNARG GETSTRING GET_DESCR4GTERM9GTIMAGEoGTLABELGTMODEGTNODECGTUSER;INCHARAIPINTIPSTRINGxIYMNMXsJLEN[<LA120MOVCURNDATENDAYHKEYNUMVLA120MOVCURNDATENDAY NEW_DESCRNXTLINPOLDPOSITORGOFFORGON?NPADhPNS$GET_SCREENWPORTEXEPORTOFFWPORTOKEPORTON=PRINFOePROMPTPREPOSITRESCURREVIMGREVINDeRINGSAVCUR}SCREGN}SCROLL@SECINIT@SECOND_SETCPI]SETHMAR@SMOOTH4STERM.UNDSCRSVTOFFSVTONVTPLOT@WHONBLYMNACURBCKG1GRAFKEYAPPSETHMAR YMNMXYiGETFLOATJGETINT3GETNARG GETSTRINGGETSTRUP GET_DESCRGRFOFFGRFON4GTERM9GTIMAGEoGTLABELGTMODEGTNODEGTUSERHOMEnINCHARINDEXLIPFLOATAIPINTIPSTRINGIPSTRUPxIYMNMXvJLENsJSTARTHJUMPHKEYAPP}CURDWN}CURFWDCURHOM}CURPOS}CURUPOCWHEREeESCOUTSFFOFFSFFONG1ASCG1GRAF  NEW_DESCR?NPADhPNS$GET_SCREENWPORTEXEPORTON=PRINFOSAVCUR_SETCPI]SETHMARySETLOGbSETLPIZSETTABDTRANLOGFVTPLOTYMNmYMNMX$GTMODE NDAYYMNMXySETLOGbSETLPIZSETTAB]SETVMARHSMOOTH4STERMDTRANLOGUNDSCREVTOFFEVTONFVTPLOTHWHONBLYMNmYMNMX GTNODEGTUSERnINCHARLIPFLOATAIPINTIPSTRINGxIYMNMXvJLENsJSTARTVLA120MOVCURNDATENDAY  !"#$%&'()*+,-./0121F01GETNARG030-AUG-1984 13:10 VAX-11 Macro V03-00 GETNARG  . ABS . . BLANK .P GETNARG&н$GETNARGGETNARG . BLANK .ww@0p00.MAIN.030-AUG-1984 13:04 VAX-11 Macro V03-00 GETNARG  . ABS . . BLANK .P71P01G0GTERM0130-Aug-1984 13:2530-Aug-1984 13:25VAX-11 FORTRAN V3.5-62 GTERMGP@   IO$_SETMODEQxTTQ GTERMPL [ЫZk SYS$ASSIGNPZZZ40LIB$STOPk2<8 SYS$GETCHNPZZZ40LIB$STOPZ 2 TT$M_MECHFORMPPPPԼ  M1j01W1ASCDAY01 7-Feb-1985 15:54 7-Feb-1985 15:54VAX-11 FORTRAN V3.5-62 ASCDAY&P01-JAN-1859ASCDAY: DATE BEFORE 11/17/1858IY LESS THAN 1859P 0  SYS$BINTIM@PhP *lpx XXXQ ASCDAY$P1@u011PRINFO0130-Aug-1984 13:3930-Aug-1984 13:39VAX-11 FORTRAN V3.5-62 PRINFOP:] BLONWHZP ESCOUT@ ESCOUT@   ESCOUT@0 ESCOUT@@ ESCOUT@P ESCOUT@PH[ESCOUTH[ESCOUTH[(ESCOUTH[8ESCOUTH[HESCOUTH[XESCOUT HBLONWHESCOUT HWHONBL $HJUMP 6HSMOOTH HHKEYAPP ZHKEYNUMl$CODE$PDATA`$LOCAL'lwwwwCLREOL$CODE$PDATA|$LOCAL-!wwDE $PDATA$LOCAL FOR$IO_END FOR$IO_B_R FOR$IO_T_DS FOR$WRITE_SFP.'K1B01U1GETINT01 8-Feb-1985 09:06 8-Feb-1985 09:060VAX-11 FORTRAN V3.5-62 GETINTPINVALID ARGUMENTS FOR GETINT is less than is greater than @@8P  808(6 GETINTP> ESCOUT@BB ESCOUT@> ESCOUT@B ESCOUT@  \0 ESCOUT@F$F CSWIDE@H4H ESCOUT@$4H ESCOUT@( 9 ESCOUT@$F CSWIDE@LL ESCOUT@,L ESCOUT@QdP|H[мT|H[PT|H[TUХVk 1 lF؎010LA1200116-Apr-1986 10:1116-Apr-1986 10:11VAX FORTRAN V4.2-102 LA120PPAPER TOO NARROW LA120}PPBPH[Qм~ FOR$WRITE_SLk FOR$IO_T_DS FOR$IO_END HLA120;$CODE$PDATA$LOCAL CPRINT FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL P PO;wwX1`#|F؎011PORTEX0116-Apr-1986 10:1116-Apr-1986 10:11VAX FORTRAN V4.2-102 PORTEX!P[0c671;0c[?15n PORTEXT68P@ ESCOUT@4 8h8|8 ESCOUT@P|H0[ kESCOUTRRP INCHARRVcV INCHARիV~VRRQ,n QBYPQ^h LIB$INDEXP@ LIB$INDEXPT LIB$INDEXP|H0[|ESCOUTVVP INCHARVVnV INCHARիVFϐ~VQQR,n RAPQ^PVQ1a0a1a3VP} |HPORTEXESCOUTINCHAR LIB$INDEX |HPORTOKN$CODE$PDATA$LOCALAP%P.P FP1KP,XPP PPP PP P5P0P P.(P -P3P8P>P DPUINww0ESCOUT SETHMAR1XB8STERMZHESCOUTCLRALLѫPCSWIDE֫ZѩVTOFFhESCOUTpSETHMARVTONZѩˀESCOUTpSETHMARZPORTONZCURHOM OCOLUMN OCOL80 OCOL132GTERMPORTOFFSTERMANSIESCOUTCLR[1pF؎01O1SETTAB0116-Apr-1986 10:1116-Apr-1986 10:11VAX FORTRAN V4.2-102 SETTABP[3gHuD SETTABP 0 ESCOUT@0 ESCOUT@0 ESCOUT@ h ESCOUT@(Qx[005uPH[ЬRPORTOFFռR0ESCOUTRVTOFF8ESCOUT\VTONR@ESCOUT1>SRHCWHERETT2DcTLIB$SET_CURSORhESCOUTTHLIB$SET_CURSORRVTOFFTTtp FOR$WRITE_IF?Dc FOR$IO_W_R FOR$IO_ENDTxESCOUTVTONRTTtp FOR$WRITE_IF?Dc FOR$IO_W_R FOR$IO_ENDTxESCOUTRPORTONRVTOFF HSETTABPORTOFFESCOUTVTOFFVTONCWHERELIB$SET_CURSORPORTONq$CODE $PDATA$LOCAL CPRINT FOR$IO_END FOR$IO_W_R FOR$WRITE_IFx#P/PL4PAPJPePnPxPP3PPRPIP2PDP;%P2\PhPI=qwwDD ESCOUT@ PORTEXP9P CP.IP SPYP cPiPO;/  EwwBLINK˘˜CSWIDE˴CSWIDEATTOFFVTON HSETCPIVTOFFESCOUTVTONLIB$SET_CURSORCLREOSREVIMGBLINKCSWIDEATTOFF$CODEw$PDATA$LOCf1Ro010CSOUT0112-Jun-1986 15:0912-Jun-1986 15:09VAX FORTRAN V4.3-145 CSOUTP)) CSOUTP$QQ $QP H[}PQ P FOR$WRITE_SF~ FOR$IO_B_V FOR$IO_T_DS FOR$IO_END H[}PQ P FOR$WRITE_SF~ FOR$IO_B_V FOR$IO_T_DS FOR$IO_END H[}PQ P FOR$WRITE_SFg~ FOR$IO_B_V FOR$IO_T_DS FOR$IO_END H[ FOR$WRITE_SF~ FOR$IO_B_V FOR$IO_END H[}PQ PkGTMODEk-   FOR$WRITE_SF~ FOR$IO_B_V~ FOR$IO_B_V FOR$IO_T_DS FOR$IO_END H[мRSR FOR$WRITE_SF~ FOR$IO_B_V~ FOR$IO_B_V FOR$IO_ENDRS PBATCH HCSOUT @ HPROMPT HCSNEW HCRLF HESCOUTGTMODE T HRING$CODE$PDATA8$LOCAL FOR$IO_END FOR$IO_B_V FOR$IO_T_DS FOR$WRITE_SFHP P4gP.4(wwBLINKCSWIDEATTOFF$CODE[$PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$WRITE_IFMP "P)P 3P:P DPKP UP\P fPvlP vPf2&ww{1`Bp]01L9PNS$GET_SCREEN0119-Dec-1984 15:1019-Dec-1984 15:10VAX-11 FORTRAN V3.5-62PNS$GET_SCREENWP P00PNS$GET_SCREENEPP GPMP VPPPPIPPP98PsPPPPPP~^R*wwCSOUTˌCURBCKѫ( BELLCURBCKЫ (Ы(,BLINKА~(ZZ(P,n PJMPQ^X~|X^ˀ 1pt01P0YMNMX01 5-May-1987 16:59 5-May-1987 16:59VAX FORTRAN V4.3-145 YMNMXT YMNMXP  PH[ЬѼ޻PмQA`мQA` мQмRѼBSмTQTccTTм TQTccTT SQRNJ HYMNMXp$CODE$PDATA$LOCAL P@P.pww1dGTERMѼ(Ѽѫ tSTERMѼ1`"GD011INCHAR0123-Jan-1986 10:2223-Jan-1986 10:22EVAX FORTRAN V4.2-102 INCHAR P INCHARR0P   8(0 ,QYsys$inputQQ P H[k 11k$GTMODE- 0 SYS$ASSIGNԫԫ FOR$READ_SF FOR$IO_B_R FOR$IO_ENDp1x012GTLABEL0131-Aug-1984 09:2031-Aug-1984 09:20VAX-11 FORTRAN V3.5-62GTLABELqPTry when tape drive is free.$Type RETURN when your tape is ready to mount.) Device ) is owned by Process PXH8(Q(Q(Q((Hq("(GTLABELPPPD&ww 1ex!̏011JSTART0120-Feb-1987 11:3120-Feb-1987 11:31VAX FORTRAN V4.3-145 JSTART P  JSTARTIP  STR$FIND_FIRST_NOT_IN_SET@PH[}PQPkSTR$FIND_FIRST_NOT_IN_SETJPPa HJSTARTSTR$FIND_FIRST_NOT_IN_SET $CODE$PDATA $LOCALQ wwQ MOVCURIPOl[} PQHANS 1HVTOFF JHVTONb$CODE$PDATA@$LOCAL CPRINT%bww,? CSOUT@AWlW ESCOUT@|[[ ESCOUT@HHQQ QQ QQPK [^}PQ@P<ԫK [^}PQ@P<\GETNARGdCWHERE<<(ѫ(PP(xCSWIDEի(~ FOR$WRITE_SLˈ FOR$IO_T_DS FOR$IO_END1S01Q3CTRLC_ON0126-Apr-1985 16:2226-Apr-1985 16:22VAX FORTRAN V4.1-45LCTRLC_ONPSYS$INPUTCTRLC_ON4P $ SYS$ASSIGN@  CTRLC_ASTPH[ЫkLIB$DISABLE_CTRL$ SYS$ASSIGNPP<8 LIB$SIGNALЫ H<L޼`@SYS$QIOPP<8 LIB$SIGNAL힫P`P2`<8 LIB$SIGNAL 1 !̏01/JLEN0120-Feb-1987 11:3020-Feb-1987 11:30?VAX FORTRAN V4.3-145 JLEN JLENKPPH[}PQPkSTR$TRIM2P N HJLENSTR$TRIM!$CODE$PDATA $LOCAL ! wwPO[ ^}PQPP PPPP(P.[ww1 2ԁo01P1SAVCUR0112-Jun-1986 15:0912-Jun-1986 15:09VAX FORTRAN V4.3-145 SAVCURP78[?6l[?6h[HDMER SAVCURP ESCOUT@ ESCOUT@  ESCOUT@ 0 ESCOUT@@ ESCOUT@P ESCOUT@` ESCOUT@p ESCOUT@PH[ESCOUTH[14-01O3IPSTRING0113-Feb-1985 17:1713-Feb-1985 17:17VAX-11 FORTRAN V3.5-62IPSTRINGmP \P@PdT\\\IPSTRING*PLD[}PQPԫLD[}PQP(GETNARGЫ ZZ޼޼40 NEW_DESCRԫZ޼P޼P޼D޼H@CURPOSLPTCSOUT\ GETSTRINGPkZ޼ Q\JLENPESCOUTH[(ESCOUTH[8ESCOUTH[H[HESCOUTH[XESCOUTH[hESCOUTH[xESCOUT HSAVCURESCOUT HRESCUR $HORGOFF 6HORGON HHCURHOM SHHOME eHINDEX wHREVIND HNXTLIN$CODE$PDATA$LOCALRP 0$wwLIB$SET_CURSOR |HSCREGN '|1@o010G1ASC0112-Jun-1986 15:0912-Jun-1986 15:09VAX FORTRAN V4.3-145 G1ASCCP)B)0(B(0 G1ASCP ESCOUT@ ESCOUT@  ESCOUT@ 0 ESCOUT@PH[ESCOUTH[ESCOUTH[(ESCOUTH[8ESCOUT~ HG1ASCESCOUT HG1GRAF $HGRFOFF 6HGRFON1 _2010ADATE0126-Oct-1984 12:4926-Oct-1984 12:49VAX-11 FORTRAN V3.5-62 ADATEՂP--hPQJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC ADATEPOX[}PQPмYм ZмXY Z YzZP{PP Zի XIIXYX FOR$WRITE_IF߫ FOR$IO_L_RYPYk@ի FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_ENDЫPZ OADATE$CODE $PDATAx$LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_IF%P@PFPQP ' wwA8x|CSOUT GETNARGѫ,ЫP޼0ЫPJLENPЫP P GPMP VPPPPIPPP9P!=PCP~PPPPJP]PbPuPfZ*wwCSWIDESTR$TRI1 010YMNMX0114-Feb-1985 10:3214-Feb-1985 10:32VAX-11 FORTRAN V3.5-62 YMNMXPP   YMNMXePO[ЬѼ޻YмP@iмP@i мXмZZXQJiJiQ JiJi XZZkJ OYMNMX_$CODE$PDATA$LOCAL P>P _wwP%PP PP%PP!P8%P)P XPK`P101P4 NEW_DESCR0113-Feb-1985 11:2013-Feb-1985 11:20VAX-11 FORTRAN V3.5-62 NEW_DESCRcPIMPROPER IPSTRING ARGUMENTP $$ NEW_DESCRPP OP]P6dPrP!xPP *wwPXVYWWVS,PII SGIWYVPW,n WFIdCURPOSX˨Iˬ˰CSOUTYX~^40CURBCK^VX18ԫ ԫ18ԫ ԫ1ѫ4~ FOR$WRITE_SLX FOR$IO_T_DS FOR$IO_ENDԫ 1Xի,,, (I,˨Iˬ˰CSOUTЫ,XdCURPOS 1K^ㆎ011GTNODE01 2-Jan-1986 14:05 2-Jan-1986 14:05PVAX FORTRAN V4.2-102 GTNODE GTNODE0P80P|H([}PQ PkV,  ޫPVPV)( ذث޼  SYS$TRNLOGPVVkPSYS$NODEXT |HGTNODE SYS$TRNLOGd$CODE$PDATA\$LOCAL 0P/9P&E dwwPbPUNRECOG 1N)b01.YMN0112-Feb-1985 14:2612-Feb-1985 14:26VAX-11 FORTRAN V3.5-62  YMNP  YMN]PO[Ь޻YмP@iмP@i мXмZZXѼJiJiѼ JiJi XZZkH OYMNW$CODE$PDATA$LOCAL6P Www1+zo01/ANSI0112-Jun-1986 15:0912-Jun-1986 15:094VAX FORTRAN V4.3-145 ANSIP<[1m[4m[5m[7m[0m ANSIZP ESCOUT@ ESCOUT@  ESCOUT@ 0 ESCOUT@@ ESCOUT@P ESCOUT@PH[ESCOUTH[ESCOUTH[(ESCOUTH[8ESCOUTH[HESCOUTH[XESCOUT HANSIESCOUT HBOLD $HUNDSCR 6HBLINK HHREVIMG ZHATTOFFl$CODE$PDATA`$LOCAL'lwwB_V FOR$IO_T_DS FOR$IO_END H[мRSR FOR$WRITE_SF~ FOR$IO_B_V~ FOR$IO_B_V FOR$IO_ENDRS PINTERACTIVE HCSOUT @ HPROMPT HCSNEW HCRLF HE 6PP P)PFHPC7uww1fd011IYMNMX0112-Feb-1985 17:2012-Feb-1985 17:20VAX-11 FORTRAN V3.5-62 IYMNMXP  IYMNMX]PO[Ь޻YмP@iмP@i мXмZZXѼJiJiѼ JiJi XZZkK OIYMNMXW$CODE$PDATA$LOCAL6P  1`Һ014 GET_DESCR0113-Feb-1985 11:2013-Feb-1985 11:20VAX-11 FORTRAN V3.5-62 GET_DESCR"P  GET_DESCRVPO[Ь} PQP2XYYXWIg~YZZYP,n PJPQ^XYYkJ O GET_DESCRP$CODE$PDATA $LOCAL+P PwwXWIg~YZZYP,n PJPQ^XYYkJ O GET_DESCRP$CODE FOR$IO_END