% VAX-11 Librarian V04-00n`!pq8  jCLRSCRCURDWN lDELETExEDCHARXEDTEXTFSCREN FSEND!FSETUP%FSOUT'FSSIZE(GETKEY*HOMCUR-KEYPAD4ZLTAROW7OVRTYP>PRTCHRBPUTSCRDRDRECDFREBUFFH,RFRSCRLRTAROWPfSCANOFT$SPECHR[STRFORbTABOVRfLTRMCHNghUPAROWkWRTRCDjCLRSCRCURDWN lDELETExEDCHARXEDTEXTFSCREN FSEND!FSETUP%FSOUT'FSSIZE(GETKEY*HOMCUR-KEYPAD4ZLTAROW7OVRTYP>PRTCHRBPUTSCRDRDRECDFREBUFFH,RFRSCRLRTAROWPfSCANOFT$SPECHR[STRFORbTABOVRfLTRMCHNghUPAROWkWRTRCD 1}R]"011CLRSCR0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 CLRSCRR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1Y P CLRSCRqPP100 $FORM(I LIB$INDEX: ,TRYROW 250 0TRYCOL +260$CODE $PDATAp$LOCAL SPECAL$7FLDATT]jWINBUFWINDOW FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFhPx$P.P 7PSPvP/P"P@PPPP%P`PP!eY) ww1+S]"011DELETE0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 DELETER;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1J YPTP HR) DELETE04P  <DX FSOUT@<<t<Q|PH$[мP@TѼ1  PP@Q(k kP@p( LIB$INDEXPի1) Ы ŏPQQPR Bt޼D޼H kP@p<FSOUT1)1 kP@pX LIB$INDEXPի1kPYj@PѼP1kPYj@PѼP1Ы kPYj@P¼PŏQQRP^(PBtn^SVPŏQP^(PAtn^SWWVŏP,Vn @tPQ^kPYj@PVVPŏVWPdWVQAth޼t޼x kP@plFSOUT~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END POVERTYPE INSERT  HDELETE  CURROW CURCOLBUFMODE-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS -SCRBUF t-SCRFOR   -RCDCHGXdT,FORMS 79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL TERMROEBELL  $FORM(I,J 0TRYCOLFSOUT LIB$INDEX$CODE$PDATA$LOCALFSED$7FLDATT]jWINBUFWINDOW FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFKPTP}cPAP, PPPPP!P!7+6ww1 njS]"011EDCHAR0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 EDCHARR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 n EDCHARPPH[} PQKK޼ ޼PRTCHR޼޼ ޼(޼,SPECHR HEDCHAR{ CURROW CURCOL KEY WCOLMS IQUERY ENDEDTFLDINFG KKEYNUMPPRTCHRSPECHRX$CODE$PDATA0$LOCALOVARSP!&P:P]Xww1S]"011EDTEXT0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 EDTEXTR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 kP ( -<LINECOLMODE FIELD FULL +++ EDTEXT

4> PUTSCR@, KPK PUTSCR@,4> PUTSCR@,X<LTDd ($t($t($PH$[,n X\ ~^h`PUTSCR^ ~^˄|PUTSCR^ ~^ˠ˘PUTSCR^ ~^˼˴PUTSCR^,e P]@X\ ~^PUTSCR^ммkYjYj Lԫ}OVERTYPEP ~^SCREEN^[~ FOR$WRITE_SFݫ FOR$IO_L_V FOR$IO_END ~^SCREEN^[~ FOR$WRITE_SFݫ  FOR$IO_L_V FOR$IO_END ~^PUTSCR^L ~^ PUTSCR^ ~^<4PUTSCR^ԫL ~^PHPUTSCR^ԫL,n G]JkPP@Q(P,@  P( @ P( @&8 P( @N)B P( @pbH FOR$WRITE_IFЫP@< FOR$IO_L_R FOR$IO_END鑫0*]~~ ^( jn^(wnˈ LIB$INDEXPP^(Pn^SWWV^(wnV| LIB$INDEXPP^(PBn^SWWV^(wnVp LIB$INDEXPP^(P8n^SWWV [~Vd LIB$INDEXPP^(Pn^SWWV] ~V}~V[~V,Vn GPQ^ ~^˜˔PUTSCR^˨SCREEN˸GETKEYK޼ ޼EDCHAR SCANOFYjk 1ePHELP:Q ] [QTAB SPACES =  HEDTEXT  ROW COLUMN  WCOLMS IQUERY FLDNUMFLDESR FLDFMR FLDHLR LOFLD 8HIFLD B LCFLAG PINSERT-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS BUFMODE ENDEDTFLDINFG KKEYNUM-SCRBUF t-SCRFOR   -RCDCHGXdT,FORMS j79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL TERMROTABNO KEY! $CURCOL (CURROW ,FORM 0SHOCOL 4NWFLAG 8WFLAG8ED CHARGETKEYPUTSCRSCANOFSCREEN  100 LIB$INDEX $CODEz$PDATA $LOCALTSTAINF$7FLDATTFSEDOVARS]jWINBUFWINDOW FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$WRITE_SF FOR$WRITE_IF$P=P9P$P Ph\q ww1hBR]"011FSCREN0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 FSCRENR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 X FSCRENP $ DQ(P,FORMS 79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL TERMRO  FLDC1W $FLDC2W (FORMFSOUTRTAROWA$CODE$PDATA$LOCAL$7FLDATTFSEDTSTAINF SPECAL]jWINBUFWINDOW FOR$IO_END FOR$IO_T_DS FOR$ ?WRITE_SF[8PPP(PnP5PPP(P?PP(P(MARAww1V]"011PRTCHR0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 PRTCHRR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1j /PA+) PRTCHR,P @<D,QPH$[} PQ PP@Q(k kP@( LIB$INDEXPի޼8޼<4OVRTYP~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDмP@T HPRTCHR CURROW CURCOL ,KEYBELL $FORM(I-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPCA@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS -SCRBUF t-SCRFOR   -RCDCHGXdTB,FORMS 79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL  TERMROOVRTYP LIB$INDEX$CODE$PDATAh$LOCAL$7FLDATT]jWINBUFWINDOW FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF ?PSP!# w Cw1LV]"011PUTSCR0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 PUTSCRR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 |(P  +) PUTSCRP QPH[}PQPkPѼPSCREEN蘫PPPPPQPQSCREEN蘫PPPPPQPQD SCREEN蘫PPPPPQPQ,SCREEN蘫PPPPPQPQ8SCREEN޼L޼ PDSCREEN~ FOR$WRITE_SFk FOR$IO_T_DS FOR$IO_ENDSCREEN HPUTSCRq TEXT LINE  COL ATT EIGHT FOUR ONE TWO ZEROhSCREEN$CODE"$PDATA\$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF P|:PWPtPP"k Eww1`V]"011RDRECD0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 RDRECDR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1  RDRECDPPH[}PQPмP@T PPk PPkPŏQ RRQS,PCt  PPkPŏQ R TTkTŏU VVUWRQS,PCt TG!\! HRDRECDF IFIELD ROW  COLUMN LENGTH IQUERY DATA-SCRBUF t-SCRFOR   -RCDCHGXdT,FORMS 79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL TERMRO LASTGK$CODE$PDATA $LOCAL]jWINBUFWINDOW"P غww1 V]"011REBUFF0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 REBUFFR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 s REBUFFUPP?PfPP?P?MPuww19X]"011TABOVR0127-Aug-1985 15:5227-Aug-1985 15d:52VAX FORTRAN V4.2-102 TABOVRR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1N E P  TABOVR<0P0QPH$[} PQмѫYjYjPP@Q(kkP@<իkPYj@PPѫѼ Z޼޼޼$CURDWNѫּЫPkQYjAQPQkQYjA޼0޼4(SCREEN HTABOVRe CURROW CURCOL 0KEY WCOLMS-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)fTT-FLDHLP , ,TT  7NFIELDFLDDIS -SCRBUF t-SCRFOR   -RCDCHGXdT,FORMS 79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL  gTERMROBELL1  $FORM (SPACES ,TRYCOLpCURDWNSCREEN$CODE$PDATA\$LOCAL$7FLDATT]jWINBUFWINDOW<P KPVgP'qPPPP3PP=1ww1RuX]"011TRMCHN0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 TRMCHNR;8.i\"$DRhC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 N TRMCHNTPQTTPH[ SYS$ASSIGN HTRMCHN ' TERMCHTERMNLK SYS$ASSIGN$CODE$PDATA $LOCALSYSPARP Gww1NX]"011UPAROW0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 UPAROWRi;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1 <P TP+) UPAROW0P  8@QPH$[мѫ׫PP@Q(kk kP@p$ LIB$INDEXPիЫ޼8޼<0SCREEN~ FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_END HUPAROW  CURROW CURCOL-RECTYPTT-jFLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS -SCRBUFk t-SCRFOR   -RCDCHGXdT,FORMS 79MAPSCR(3Q(-SAVBUF\ !\ YjOFFSET FWBOT FWTOP SWTOP  SWBOT TERMCL TERMROBELL  $FORM(I ,TRYROW SCREEN 100 LIB$INDEX l$CODE $PDATAd$LOCAL$7FLDATT]jWINBUFWINDOW FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPSMPfPjP!, %ww1dX]"011WRTRCD0127-Aug-1985 15:5227-Aug-1985 15:52VAX FORTRAN V4.2-102 WRTRCDR;8.i\"$DRC0:[PROGS.SLIB77.FSEDIT]FULL.FOR;1  WRTRCD:`Ppmh $P