% VAX-11 Librarian V04-00Q! "#!J:  wCLRSCR$CURDWN VDELETEEDCHARREDTEXTZFSCREN FSEND"FSETUP&:FSOUT)FSSIZE*BGETKEY+FHOMCUR/KEYPAD5LTAROW9OVRTYP@bPRTCHRDPUTSCRFRDRECDHNREBUFFJBRFRSCRNRTAROWSSCANOFW SCREENfSPECHRn^STRFORvTABOVRzTRMCHN{8UPAROWWRTRCDwCLRSCR$CURDWN VDELETEEDCHARREDTEXTZFSCREN FSEND"FSETUP&:FSOUT)FSSIZE*BGETKEY+FHOMCUR/KEYPAD5LTAROW9OVRTYP@bPRTCHRDPUTSCRFRDRECDHNREBUFFJBRFRSCRNRTAROWSSCANOFW SCREENfSPECHRn^STRFORvTABOVRzTRMCHN{8UPAROWWRTRCD 1011CLRSCR0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 CLRSCRV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4\ H#PP CLRSCR\P,> PUTSCR@,  KHK PUTSCR@,,> PUTSCR@, X<xLxTxDxd,0,0,0PTT EDTEXTPH$[,n PT~^`XPUTSCR^~^|tPUTSCR^~^˘ːPUTSCR^~^˴ˬPUTSCR^,e PQ,] PAPT~^PUTSCR^мм  j jLԫ}OVERTYPEP~^SCREEN^[~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_END~^SCREEN^[~ FOR$WRITE_SF߫ FOR$IO_L_R FOR$IO_END~^PUTSCR^Lk~^PUTSCR^~^4,PUTSCR^kԫL~^H@PUTSCR^kL,n G]J PP@ (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^SVV^(wnVt LIB$INDEXPP^(PBn^SWWV^(wnVh# LIB$INDEXPP^(P8n^SWWV [~V\ LIB$INDEXPP^(Pn^SWWV] ~V}~V[~V,Vn GPQ^~^˔ˌPUTSCR^ˠSCREENGETKEY K޼ ˼޼˰EDCHAR޼ SCANOF j 1ePHELP:Q ] [QTAB SPACES =  HEDTEXT ROW COLUMN  WCOLMS IQUERY FLDNUMFLDESR FLDFMR FLDHLR LOFLD 8HIFLD B LCFLAG PINSERTTERMNL TERMCH+IOSBKEY -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 SWTOP SWBOT FWTOP  FWBOT MARGIN TERMRO TERMCL-SCRBUF   t-SCRFOR   -RCDCHG Xd T,FLDID d ,FORMS   9MAPSCR )3 (-SAVBUF ]  \  jOFFSETTABNO  $WFLAG (NWFLAG PUTSCR< ,CURROW 0CURCOL 4SHOCOL !100 SCREEN 8FORM LIB$INDEXGETKEYEDCHARSCANOF $CODEz$ PDATA$LOCALTSTAINF SYSPAR$7FLDATTFSEDOVARSWINDOWjWINBUF FOR$IO_END FOR$IO_L_R FOR$WRITE_SF FOR$WRITE_IF$P;P8P#PPh\  ww1011FSCREN0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 FSCRENV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4 [$P,  L Q( FSCRENP500 !g600 700 ROWKH FSTCOL  SAVKA$CODE$PDATA$LOCALFOR$INI_DES1_R2KPQPhPdjPlPnPpPrPtP8yPPPP PPPP1P APSP ww1Qb010FSEND0113 "-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 FSENDV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4b I,PP FSEND]PFLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS BUFMODETERMNL ?TERMCH+IOSBKEY  FLDNUMFLDESR FLDFMR FLDHLR LOFLD 8HIFLD B LCFLAG PINSERTNULESCDELBSTABCRLFBELLINSBEE  SWTOP SWBOT FWTOP  FWBOT MARGIN @TERMRO TERMCL-SCRBUF   t-SCRFOR   -RCDCHG Xd T,FLDID d ,FORMS   9MAPSCR )3 (-SAVBUF ]  \  jOFFSET  FORMFSOUTRTAROW  $FLDC2W (FLDC1Wb$CODE$PDATA A$LOCAL$7FLDATTFSED SYSPARTSTAINF SPECALWINDOWjWINBUF FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF[/PPP(PPSP)PP(PK<PP(8P(K?bww1B011PRTCHR0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 PRTCHRV?B<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4  MPA+),P  4<Q PRTCHRPH$[PP@(k kP@ LIB$INDEXPի޼0޼4,OVRTYP~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDмP@T HPRTCHR CURROW CURCOL-RECTYPTT-FLDCO1PTCT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS  SWTOP SWBOT FWTOP  FWBOT DMARGIN TERMRO TERMCL-SCRBUF t-SCRFOR   -RCDCHGXdT,FLDIDd,FORMS  9MAPSCR)3(-SAVBUF] \B jOFFSETBELL  $FORM(I LIB$INDEXOVRTYPz$CODE E$PDATA\$LOCAL$7FLDATTWINDOWjWINBUF FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF 7PKP!"zww1 [011PUTSCR0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 PUTSCRV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4}  P  +)PF Q PUTSCRPH[}PQPkSCREENPPPPSCREENPPPP SCREENPPPP,SCREENPPPP8SCREEN޼L޼ PDSCREEN~ FOR$WRITE_SFk FOR$IO_T_DS FOR$IO_ENDSCREEN HPUTSCRq TEXT LINE  COL ATT ZERO ONE TWO FOUR EIGHThSCREEN G$CODE"$PDATA\$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPd1PHP_PvP"ww1Lj011RDRECD0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 RDRECDV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4  GP RDRECDPPH$[Ѽ~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDмkּHмѫHPP@(ЫH~ FOR$WRITEQ_SF FOR$IO_T_DS FOR$IO_ENDkPP@( P@p , LIB$INDEXPի޼@޼D8SCREEN1P HRTAROW CURROW CURCOL-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,RTITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS  FLDNUMFLDESR FLDFMR FLDHLR LOFLD 8HIFLD B LCFLAG PINSERT SWTOP SWBOT FWTOP  FWBOT MARGIN TERMRO TERMCL-SCRBUFS t-SCRFOR   -RCDCHGXdT,FLDIDd*,FORMS  9MAPSCR)3(-SAVBUF] \ jOFFSETBELL  $SAVCOL 9200 o300(K ,SCOL 400 0FORM4I LIB$INDEXSCREEN T$CODE $PDATAp$LOCAL$7FLDATTTSTAINFWINDOWjWINBUF FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF'P"OP%aP nP2PP=1ww1` 011SCANOF0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 SCANOFV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4  U SCANOFPJK[rhlm(9#1?Q;763 2 0  SCREENPH[Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߫ FOR$IO_F_Rd FOR$IO_T_DS FOR$IO_END1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DSZ߼ FOR$IO_L_Rd FOR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DSˬ FOR$IO_T_DSk FOR$IO_F_R˄ FOR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DSˬ FOR$IO_T_DSk FOR$IO_F_Rˌ FOR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DSˬ FOR$IO_T_DST FOR$IO_T_DS˄ FOR$IO_T_DS F[OR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DSˬ FOR$IO_T_DST FOR$IO_T_DSˌ FOR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSˤ FOR$IO_T_DSk FOR$IO_F_R FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DSˤ FOR$IO_T_DST FOR$IO_T_DS FOR$IO_END1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSˤ FOR$IO_T_DS˼ FOR$IO_T_DS FOR$IO_\END1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSˤ FOR$IO_T_DSL FOR$IO_T_DS FOR$IO_END1Ѽ  ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˔ FOR$IO_T_DS FOR$IO_END1Ѽ 1ѼѼ 1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END1Ѽ d+~ FOR$WRITE_SFD FOR$IO]_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDѼ >~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END1Ѽ1Ѽ Q~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END1Ѽ dd~^ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDѼ w~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END1Ѽ 1ѼѼ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDѼQ~ FOR$WRITE__SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END1Ѽ1ѼѼ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDѼQ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END1Ѽ1ѼѼ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R$ FOR$I`O_T_DS FOR$IO_END1ѼdQ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R$ FOR$IO_T_DS FOR$IO_ENDѼ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R$ FOR$IO_T_DS FOR$IO_END1Ѽ1ѼѼ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R, FOR$IO_T_DS FOR$IO_END1ѼdQ~ FOR$WRITE_SFD FOR$IO_T_DSat FOR$IO_T_DS߼ FOR$IO_L_R, FOR$IO_T_DS FOR$IO_ENDѼ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R, FOR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DS˜ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DS˜ FOR$IO_T_DS߫ FOR$IO_F_R FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DS< FObR$IO_T_DS FOR$IO_END1Ѽ~ FOR$WRITE_SFD FOR$IO_T_DS\ FOR$IO_T_DS FOR$IO_END1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_Rl FOR$IO_T_DS FOR$IO_END1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_Rd FOR$IO_T_DS FOR$IO_END1Ѽ1ѼѼ  Ѽ 1Ѽ ~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ cFOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R| FOR$IO_T_DS FOR$IO_END+~ FOR$WRITE_SFD FOR$IO_T_DStx FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R| FOR$IO_T_DS FOR$IO_END1Ѽ Q~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ FOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R| FOR$IO_T_DS FOR$IO_ENDd~ FOR$WRITE_SFD FOR$IO_T_DSt FOR$IO_T_DS߼ dFOR$IO_L_R˴ FOR$IO_T_DS߼  FOR$IO_L_R| FOR$IO_T_DS FOR$IO_ENDѼռ~ FOR$WRITE_SFD FOR$IO_T_DS, FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFD FOR$IO_T_DS4 FOR$IO_T_DS FOR$IO_END HSCREEN NUM PARM1  PARM2AITCHAYEBEECEEDEEEIGHTEMMEQUALeESCFIVE FOUR GTR JAY KAY LBLCRLILHLILLLILMLPARENNINENUMSGNONEQMARKREADYSEMISEVENSIX THREE  TWO $ZERO{C $CODE$PDATA$LOCAfL FOR$IO_END FOR$IO_L_R FOR$IO_F_R FOR$IO_T_DS FOR$WRITE_SFPwP PBPt PMP! &PMrP yPNPz PNP& !P8XP _P9P P:Pi P9P* PC_PhPXoP{PPWPPV9P^CPTP$PPWP PV`P^jPTPPPPAPEP?_PhPoPvPAPEP?PBPPPBVPaPAPIP?gPSPPPBEPPPAPIP?PdP9 P%" P9Z Pa P. P P. P~ PB P6 PBR P[ Pb Pl Px P PV PT+ P2 PV PT Pc P] P- P+C ww1k011hSPECHR0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 SPECHRV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4 )P A IipqrstuvwxymlnMPQRSTPDUNNO.... P  ' *L* PUTSCR@ PTTP SPECHR|P Hi[K1GETKEY K LIB$INDEXP)7} INSERT P)?}OVERTYPEP B޼0޼4޼ 8,CURDWN T޼0޼4޼ 8,HOMCURGETKEY A޼@޼D<UPAROW BE ޼0޼4޼ 8,CURDWN C޼@޼D<RTAROW D޼@޼D<LTAROWP LIB$INDEXP޼`޼d޼ h޼l\KEYPAD1 ԼREBUFF1 1ѼмkPjP@ (ЫP@kkЫP@kkPP@ ( P@ptˀ LIB$INDEXP ի ЫP@k޼ː޼ ˘ˌSCANOFk j j jk޼ˤ޼˨˜SCREEN ޼@޼D<DELETE ޼0޼4޼ 8,TABOVR ޼0޼4޼ 8,CURDWN˴PUTSCRռѼ 7POVERTYPE INSERT  HSPECHR CURROW CURCOL  WCOLMS IQUERYTERMNL TERMkCH+IOSBKEY -RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TlT-FLDHLP , ,TT  7NFIELDFLDDIS BUFMODENULESCDELBSTABCRLFBELLINSBEE  FLDNUMFLDESR FLDFMR FLDHLR LOFLD 8HIFLD B LCFLAG PINSERT mENDEDTFLDINFG KKEYNUM  SWTOP  SWBOT  FWTOP  FWBOT  MARGIN  TERMRO  TERMCL-SCRBUF   t-SCRFOR   -RCDCHG Xd T,FLDID d ,FORMS   9MAPSCR )3 (-SAVBUF ]  \ n jOFFSETLINEx FORMATgGETKEY LIB$INDEXCURDWNHOMCURUPAROWRTAROWLTAROWKEYPADREBUFF; NEWCOL FORM1 FORM2ISCANOFSCREENDELETETABOVRPUTSCR$CODEG$PDATAh$LOCAL SYSPAR$7FLDATTFSED SPECALTSTAINFOVARSWINDOWjWINBUFP`2PJ@PXP#fPPPPP o P5PTPsPkPPJPPPpPP?PP ?P IP iPvvPPUPP/PP P P0ww1011STRFOR0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 STRFORV?<p֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4 P,123456789KHP P     STRFORP|Hp[}PQ(P$ޫ$PFOR$INI_DES1_R2kм˸ѫ˸<$PīP@4HT LIB$INDEXPիk<$PkPŏkQ,$@4 A˸k˼ѫ˼1ŏP(P@dhq LIB$INDEXPPQ,P AЫ ë PPPtЫ QAx| LIB$INDEXP ë PPѫP« PPtЫ QAxt FOR$READ_IFЫP@ FOR$IO_L_R FOR$IO_ENDP« PPtЫ QAxt FOR$READ_IFЫP@ FOR$IO_L_R FOR$IO_ENDЫ ë PPPtЫ QAx| LIB$INDEXP ë PPѫP« PЫ Q-PA *ЫPO@P« PPtЫ QAxt FOR$READ_IFЫP@ FOR$IO_L_R FOR$IO_ENDrP« PPtЫ QAxt FOR$READ_IFЫP@ FOR$IO_L_R FOR$IO_ENDЫ ë PPPtЫ QAx| LIB$INDEXP P« PPtЫ QAxː LIB$INDEXPЫPЫ@<Ы ë PPPtЫ QAx| LIB$INDEXP ^(nP« PЫ QP^(PAn^SVV(~V P,Vn @pPQ^ P(@ P@pˠˬ LIB$INDEXPիЫP@ڼ ЫЫ ë PPPtЫ QAx| LIB$INDEXP ++~P« PЫ QP^(PAn^SVV P,Vn @PQ^ P(s@Ы ë PPPtЫ QAx| LIB$INDEXP ++~P« PЫ QP^(PAn^SVV P,Vn @pPQ^ P(@Ы ë PPPtЫ QAx| LIB$INDEXP ++~P« PЫ QP^(PAn^SVV P,Vn @&PQ^ P(@&Ы ë PPPtЫ QAx| LIB$INDEXP ++~P« PЫ QP^(PAn^SVV P,Vn @N)PQ^ P(@V)Ы ë PPPtЫ QAx| LIB$INDEXP ++~P« PЫ QP^(PAn^SVV P,Vn @,PQ^ P(@,t˼k 7P)++++ |HSTRFOR DATA IFIELD  FSTCOL SAVK-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TuT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS  SWTOP SWBOT FWTOP  FWBOT MARGIN TERMRO TERMCL-SCRBUF t-SCRFOR   -RCDCHGXdT,FLDIDd,FORMS  9MAvPSCR)3(-SAVBUFq] \ jOFFSETBUFP pL s10tK xIPNT LIB$INDEXB 100 |COMPOS ILENMJ$CODE$PDATA0$LOCAL$7FLDATTWINDOWjWINBUF FOR$IO_END FOR$IO_L_R FOR$READ_IFFOR$INI_DES1_R2F2PGQP!P+PBFP@PiPP@*P@cP wuۿww1@c 011TABOVR0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 TABOVRV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4 =P 0PPTT P TABOVRPH$[мkkjjkPxP@(ЫP@<իЫPj@PPkk ѼZ ޼޼޼  CURDWNk ּkPЫQjAQPQЫPj@޼$޼(SCREEN HTABOVR CURROW CURCOL  WCOLMS-RECTYPTT-FLDCO1PTT-FLDCO2PTT-TABSPC@P<TT-DISCHR y pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS TERMNL TERMCH+IOSBKEY  SWTOP SWBOT FWTOP  FWBOT MARGIN TERMRO zTERMCL-SCRBUF t-SCRFOR   -RCDCHGXdT,FLDIDd,FORMS  9MAPSCR)3(-SAVBUF] \ jOFFSETBELL  $TRYCOL (FORM ,SPACESCURDWNSCREEN$CODE$PDATA {P$LOCAL$7FLDATT SYSPARWINDOWjWINBUF<P BPV]P*gP PPP5PP>2ww1{/011TRMCHN0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 TRMCHNV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4 .+PPTT |TRMCHN)PH[ SYS$ASSIGN HTRMCHNiTERMNL TERMCH+IOSBKEY K SYS$ASSIGN$CODE$PDATA$LOCAL SYSPARP (ww1`8011UPAROW0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 UPAROWV?<֜(USERS1:[PROGS.SLIB77}.FSEDIT]FSEDIT.FOR;4 WP TP+)0P  8@Q UPAROWPH$[мkkkPkP@(ի P@p$ LIB$INDEXPիk޼8޼<0SCREEN~ FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_END HUPAROW CURROW CURCOL-RECTYPTT-FLDCO1PTT-~FLDCO2PTT-TABSPC@P<TT-DISCHR  pTT-FMTTYP  TT,TITLE  pTT,LOVAL &H&TT,HIVAL X)HN)TT-FLDHLP , ,TT  7NFIELDFLDDIS  SWTOP SWBOT FWTOP  FWBOT MARGIN TERMRO TERMCL-SCRBUF t-SCRFOR   -RCDCHGXdT,FLDIDd,FORMS  9MAPSCR)3(-SAVBUF] \] jOFFSETBELL  $TRYROW  100 (FORM,I LIB$INDEXSCREEN $CODE $PDATAd$LOCAL$7FLDATTWINDOWjWINBUF FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPSLPdPhP!+ww1O011WRTRCD0113-Aug-1985 08:1013-Aug-1985 08:10VAX-11 FORTRAN V3.1-23 WRTRCDV?<֜(USERS1:[PROGS.SLIB77.FSEDIT]FSEDIT.FOR;4h QTPd\ xL WRTRCDP