% VAX-11 Librarian V03-00`I4@@$5@!K@L4   SCR_BOTTOM SCR_DECVAL SCR_DELC 4SCR_DELLdSCR_DELWb SCR_ENCVALVSCR_EOLj SCR_GETLOGSCR SCR_GETMODE@ SCR_GETSYMBOL SCR_ICLEN SCR_IOCHAN SCR_KEYHELP- SCR_KEYPAD.  SCR_NEXTFLD/ SCR_NEXTWD1 SCR_PUTCHR3 SCR_RDBATCH6h SCR_RDCHR7d SCR_RDSECT;6 SCR_RESETSCR<  SCR_SCRINETSCR_UNDCGxSCR_UNDLHz SCR_WRTSECTJ SCR_WRTVALUE SCR_BOTTOM SCR_DECVAL SCR_DELC 4SCR_DELLdSCR_DELWb SCR_ENCVALVSCR_EOLj SCR_GETLOGSCR SCR_GETMODE@ SCR_GETSYMBOL SCR_ICLEN SCR_IOCHAN SCR_KEYHELP- SCR_KEYPAD.  SCR_NEXTFLD/ SCR_NEXTWD1 SCR_PUTCHR3 SCR_RDBATCH6h SCR_RDCHR7d SCR_RDSECT;6 SCR_RESETSCR<  SCR_SCRINETSCR_UNDCGxSCR_UNDLHz SCR_WRTSECTJ SCR_WRTVALUE 1&ύ015 SCR_BOTTOM0114-May-1985 13:5514-May-1985 13:55VAX-11 FORTRAN V3.5-62 SCR_BOTTOMP SCR_BOTTOMpPH[2kkP@kk\LLLIB$SET_CURSORPPЫLIB$STOP H SCR_BOTTOMLIB$SET_CURSORLIB$STOPS$CODE$PDATA$LOCALd FSEC_SCREEN0FSEC_SCREEN_VALUE PDP  Sww1nhu׍015 SCR_DECVAL0124-May-1985 08:1124-May-1985 08:11VAX-11 FORTRAN V3.5-62 SCR_DECVAL0PERROR DECODING FIELD #  INTEGER FIELD #  FROM ) WITH FORMAT I@$ PLEASE INPUT PROPER INTEGER VALUE: ERROR DECODING FIELD #  REAL FIELD #  FROM ) WITH FORMAT F@.! PLEASE INPUT PROPER REAL VALUE: @`),P SCR_DECVA LPP0P PPPP^PbrPNuPPaP|POCCmww1@sύ012SCR_EOL0114-May-1985 13:5614-May-1985 13:56VAX-11 FORTRAN V3.5-62SCR_EOLPSCR_EOLPN[1YkѫPPP@ŏPPZZQZPT-Q@0 nTTЫkPZkYY SCR_NEXTFLD1oY1eYPP@YPYY1Yk SCR_NEXTFLD SCR_NEXTFLDѫPPP@ŏPPZZQZPT-Q@0 nTTЫkPkZZPP@ZPZZLIB$SET_CURSORP PЫ LIB$STOP  NSCR_EOL SCR_NEXTFLDLIB$SET_CURSORLIB$STOP$CODE$PDATA$$LOCALd FSEC_SCREEN0FSEC_SCREEN_VALUEoP,PF SYS $ASSIGNPkPk$ LIB$STOPc H SCR_IOCHAN SYS$ASSIGNLIB$STOP)$CODE$PDATA($LOCALP )ww1@cā֍016 SCR_KEYHELP0123-May-1985 17:1023-May-1985 17:10VAX-11 FORTRAN V3.5-62 SCR_KEYHELPP  ."17&9>PF1PF2PF3PF4789-456,12 3ENTER0.GOLDHELPTOGGLEDEL LKEYPADUND LUNDEFINEDDEL WUND WADVANCEBACKUPDEL CBOTTOMTOPUND CNEXTEOLWORDDEL EOLDONEFIELDEXC/INS/EXCHANGE MODEINSERT MODEALTERNATE KEYPADNUMERIC KEYPADCONTROL CHARACTERS^B := INVERSE DISP^C := ABORT^N := NORMAL DISP^V := PRINT VALUES^W := PRINT SCREEN^Y := ABORT^Z := ACCEPT DATAPRESS RETURN TO EXIT HELP)P99:9s9 ! $(,048<@DHLP|h| LIB$PUT_SCREEN@  LIB$PUT_SCREEN@D LIB$PUT_SCREEN@T LIB$"PUT_SCREEN@X LIB$PUT_SCREEN@  LIB$PUT_SCREEN@D LIB$PUT_SCREEN@T, LIB$PUT_SCREEN@XH LIB$PUT_SCREEN@$ d LIB$PUT_SCREEN@$D LIB$PUT_SCREEN@$T LIB$PUT_SCREEN@$X# LIB$PUT_SCREEN@4  LIB$PUT_SCREEN@4D LIB$PUT_SCREEN@4T  LIB$PUT_SCREEN@4X( LIB$PUT_SCREEN@D D LIB$PUT_SCREEN@DT` LIB$PUT_SCREEN@d| LIB$PUT_SCREEN@P LIB$PUT_SCREEN@\$ LIB$PUT_SCREEN@` LIB$PUT_SCREEN@ \ LIB$PUT_SCREEN@ `d  LIB$PUT_SCREEN@  LIB$PUT_SCREEN@D LIB$PUT_SCREEN@TL LIB$PUT_SCREEN@`h LIB$PUT_SCREEN@`d LIB$PUT_SCREEN@( %LIB$PUT_SCREEN@(L LIB$PUT_SCREEN@(T LIB$PUT_SCREEN@(` LIB$PUT_SCREEN@,d LIB$PUT_SCREEN@,Pd$ LIB$PUT_SCREEN@,`d @  LIB$PUT_SCREEN@8\ LIB$PUT_SCREEN@8P LIB$PUT_SCREEN@8T LIB$PUT_&SCREEN@< LIB$PUT_SCREEN@<Hd"" LIB$PUT_SCREEN@@`@  LIB$PUT_SCREEN@H4 LIB$PUT_SCREEN@H\'' LIB$PUT_SCREEN@L4-$- LIB$PUT_SCREEN@L\5@5 LIB$PUT_SCREEN@d<@5 LIB$PUT_SCREEN@dh 7h7 LIB$PUT_SCREEN@d E'E LIB$PUT_SCREEN@dDh7 LIB$PUT_SCREEN@dE LIB$PUT_SCREEN@dDQQ LIB$PUT_SCREEN@dlbb LIB$PUT_SCREEN@dpQ LIB$PUT_SCREEN@dlb LIB$PUT_SCREEN@dpqq LIB$PUT_SCREEN@t4 LIB$PUT_SCREEN@ t P LIB$PUT_SCREEN@t(l LIB$PUT_SCREEN@t LIB$PUT_SCREEN@t LIB$PUT_SCREEN@t  LIB$PUT_SCREEN@ t LIB$PUT_SCREEN@$t LIB$PUT_SCREEN@xQ---------------------------------------------------------|-------------|-------------|-------------|-------------|| | | ) | ||---------------------------|-------------| |dP SCR_KEYHELPPH[$LIB$ERASE_PAGE0LIB$PUT_SCREEN@LIB$PUT_SCREENPLIB$PUT_SCREEN`LIB$PUT_SCREENpLIB$PUT_SCREENˀLIB$PUT_SCREENːLIB$PUT_SCREENˠLIB$PUT_SCREEN˰LIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN LIB$PUT_SCREEN*0LIB$PUT_SCREEN@LIB$PUT_SCREENPLIB$PUT_SCREEN`LIB$PUT_SCREENpLIB$PUT_SCREENkˈLIB$PUT_SCREENˤLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENkkLIB$PUT_SCREENLIB$PUT_SCREEN0LIB$PUT_SCREENLLIB$PUT_SCREENhLIB$PUT_SCREEN˄LIB$PUT_SCREENˠLIB$PUT_SCREEN˼LIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN,LIB$PUT_SCREENHLIB$PUT_SCREENdLIB$+PUT_SCREENkkˀLIB$PUT_SCREEN˜LIB$PUT_SCREEN˸LIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN LIB$PUT_SCREEN(LIB$PUT_SCREEN<LIB$PUT_SCREENPLIB$PUT_SCREENlLIB$PUT_SCREENˈLIB$PUT_SCREENˤLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN LIB$PUT_SCREEN(LIB$PUT_SCREENDLIB$PUT_SCREEN`LIB$PUT_SCREEN|LIB$PUT_SCREENːLIB$PUT_SCREENˬLIB$PUT_SCR,EENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN LIB$PUT_SCREEN(LIB$PUT_SCREENDLIB$PUT_SCREEN`LIB$PUT_SCREENpLIB$PUT_SCREENˈLIB$PUT_SCREENˤLIB$PUT_SCREEN˴LIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN LIB$PUT_SCREENLIB$PUT_SCREENk8LIB$PUT_SCREENTLIB$PUT_SCREENpLIB$PUT_SCREENˌLIB$PUT_SCREEN˨LIB$PUT_SCREENLIB$PUT_SCREEN-LIB$PUT_SCREENLIB$PUT_SCREENLIB$PUT_SCREEN~~ FOR$READ_SF,(H FOR$IO_T_DS FOR$IO_END SCR_WRTSECT0LIB$SET_CURSOR H SCR_KEYHELPLIB$ERASE_PAGELIB$PUT_SCREEN SCR_WRTSECTLIB$SET_CURSOR~$CODE$PDATA$ $LOCALh FSEC_SCREEN0FSEC_SCREEN_VALUE FOR$IO_END FOR$IO_T_DS FOR$READ_SFCPP}PPPPPP>Pm .&~ww1`(&ύ015 SCR_KEYPAD0114-May-1985 13:5814-May-1985 13:58VAX-11 FORTRAN V3.5-62 SCR_KEYPADP=>+ SCR_KEYPADP@  FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_R FOR$IO_END  FOR$WRITE_SF FOR$IO_ /L_R FOR$IO_L_R FOR$IO_END @ SCR_KEYPADj$CODE$PDATA$LOCALd FSEC_SCREEN0FSEC_SCREEN_VALUE FOR$IO_END FOR$IO_L_R FOR$WRITE_SF P28P0 jww1@ύ016 SCR_NEXTFLD0114-May-1985 13:5814-May-1985 13:58VAX-11 FORTRAN V3.5-62 SCR_NEXTFLDP SCR_NEXTFLDPL[Z0kkP@@ʐ@2k2kkP@@ʐ@@kkZJJLIB$SET_CURSORPPЫLIB$STOP L SCR_NEXTFLDLIB$SET_CURSORLIB$STOP$CODE$PDATA$LOCALd FSEC_SCREEN0FSEC_SCREEN_VALUEDP*$P .P@8P6>PgNP XPbPiPnP7P 'ww1 Äύ015 SCR_1NEXTWD0114-May-1985 13:5814-May-1985 13:58VAX-11 FORTRAN V3.5-62 SCR_NEXTWDP SCR_NEXTWDPO[W1kkP1kPP@k SCR_NEXTFLDЫЫ1ŏPYkZZkXZYPT-X@0 nTTZYT-XI0 nTPPPPTT1Pk^1kk1kPP@kSCR_EOLѫЫЫŏPYkZZkXZYPT-X@0 nTT2ZYT-XI0 nTPPPPTTk1hkLIB$SET_CURSORP PЫ LIB$STOP O SCR_NEXTWD SCR_NEXTFLDSCR_EOLLIB$SET_CURSORLIB$STOP$CODE$PDATA($LOCALd FSEC_SCREEN0FSEC_SCREEN_VALUEP+P;P;[P]PePgP uPPPPPP7PP$PZMPpPP F:ww13V֍015 SCR_PUTCHR0123-May-1985 16:5823-May-1985 16:58VAX-11 FORTRAN V3.5-62 SCR_PUTCHR]\P\dd SCR_PUTCHRPOT[X LIB$PUT_SCREENPkPk($LIB$STOPŏPPZZQZP, Q@01ѫPPP@ŏPPZZYZP(Y@0JPXZPZPŏPYWWQ4YR,PJ QB0ZPZYQ, PA0ZWW,ZYI004LIB$PUT_SCREENPkPk($LIB$STOPPP@HLIB$SET_CURSORPkPk($LIB$STOP O SCR_PUTCHRLIB$PUT_SCREENLIB$STOPLIB$SET_CURSOR^$CODE$PDATA$LOCALh FSEC_SCREEN0FSEC_SCREEN_VALUECPE+P \PmP=}P"PP P <PPP 0$^ww1`Cύ0156 SCR_RDBATCH0114-May-1985 13:5914-May-1985 13:59VAX-11 FORTRAN V3.5-62 SCR_RDBATCHPERROR READING CHAR # END OF DATA ON CHAR # ERROR READING INTEGER # ERROR READING REAL # )P+C SCR_RDBATCHPN[kԫԫ Yѫ `1 \\ ZT-ZL  ATTkX FOR$READ_SFŏPkPP@@ FOR$IO_T_DS FOR$IO_END1T-ZL  ITT֫6 FOR$READ_SLЫP@ FOR$IO_L_R FOR$IO_ENDT-ZL  FTT֫ FOR$READ_SLЫP@ FOR$IO_F_R FOR$IO_END` ~ FOR$WRITE_SL FOR$IO_T_DSk FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL  FOR$IO_T_DSk FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL( FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL0 FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_END N SCR_RDBATCH 7$CODEZ$PDATA8$LOCALd FSEC_SCREEN0FSEC_SCREEN_VALUE FOR$IO_END FOR$IO_L_R FOR$IO_F_R FOR$IO_T_DS FOR$READ_SF FOR$READ_SL FOR$WRITE_SL[%PCPCHPLPPP/PPPBP/P:P2&ww1ຌ6э014 SCR_RDCHR0116-May-1985 09:2216-May-1985 09:22VAX-11 FORTRAN V3.5-62 SCR_RDCH 8RDP z  SCR_RDCHRaPH[ԫԫ2  SYS$QIOWPkPk<8LIB$STOP2<8LIB$STOPb H SCR_RDCHRSYS$QIOWLIB$STOPF$CODE$PDATAT$LOCAL &P 7P Fww1 Agu׍015 SCR_RDSECT0124-May-1985 08:1124-May-1985 08:11VAX-11 FORTRAN V3.5-62 SCR_RDSECT9PERROR REWINDING UNITSECTION NOT FOUNDNO END OF SECTION FOUND FOR SECTIONNO END OF DATA DESCRIPTION FOUND FOR SECTIONERROR READING DATA DESCRIPTION FOR SECTION))dPP #%,H*t SCR_RDSECTPE SYMBOL TERMINAL_TYPETO EQUAL "VT100"PROGRAM ABORTED ON CONTROL C OR YPPPP !+)T!dPQZ SCR_SCRINP