% VAX-11 Librarian V04-00 ;{\@D{\!& 2 ::  yA1TOANzANTOA13BEEPCHRRDYap CLEARSCRN3CLRBOL3CLREOL3CLREOP3CLRLINE3CLRSCR3CLRTOPCNTER3CSRDOWN3CSRLEFT3CSRPOS<$ CSRREPORT3 CSRRESTORE3CSRRIGHT3CSRSAVE3CSRUP0 CVTTOUPCASE DATENOTVALID:DELAY3DELCHARDELCHR3DELLINE3 DSPATTRIBUTEw DSPLHELPTEXTap DSPLYDATAap DSPLYTEXTQ DSPMENUITEMV DSPMESSAGETTRIBUTE3GETCHARXTCHARv<NEXTWORD`NONSEPNULLENTRYILLEGAL:OUTATTR OUTOFLIMITSX OUTSTRING OVERWRITECHR3 OVWRTMODEYbPARSELrPRCHARS8PRINTABL3 RELCSRPOSRELERASE RGHTJUSTIFY3 RSTATTRIBUTE3 SAVEATTRIBUTE3 SCRLREGIONSCRMNUapSCRNSUB3SELPAGE_ SET2NDPNTR^SETNEXT1STPNTR3 SETORIGINODETODAYbTTY3TTYINITVALIDDATVALIDINT"VALIDREApVALSCR{VLDWHOLESCREENS DSPMESSAGEGETCHARNEXTCHAR SETORIGIN VLDWHOLESCREENt yA1TOANzANTOA1CHRRDYCNTER<$ CSRREPORT0 CVTTOUPCASE DATENOTVALID:DELAYDELCHRw DSPLHELPTEXTQ DSPMENUITEMV DSPMESSAGEBtECHOA$ECHOOFF@ECHOONlERASEB ERASEREGIONTERRMSG@ GETINTEGERGETREAL=VINPCHARs\ INPFROMMENU@INSCHR@6INTOUTh INVALIDENTRYFYLASTWORDLDINGBLA LEFTJUSTIFY>LENGTHDLINEEDITNMENU1<NEXTWORD`NONSEP$@ GETINTEGERGETREAL=VINPCHARs\ INPFROMMENU3INSCHAR@INSCHR3INSLINE3INSMODE@6INTOUTh INVALIDENTRYJUSTIFY3KPDOFF3KPDONLASTWORDLDINGBLA LEFTJUSTIFY>LENGTHDLINEEDITNMENU13NEXTCHARBtECHOA$ECHOOFF@ECHOONapEDITSCRNlERASEB ERASEREGIONTERRMSG3 FLUSHBUFFER3 GETATTRIBUTE3GETCHAR RELERASE RGHTJUSTIFYSCRMNUapSCRNSUB_ SET2NDPNTR^SETNEXT1STPNTRK SHOWINSMODESNOOZETODAYbTTY3TTYINITVALIDDATVALIDINT"VALIDREApVALSCR{VLDWHOLESCREEND INVALIDENTRY NONSEP PRINTABLVLDWHOLESCREEN NULLENTRYILLEGAL:OUTATTR OUTOFLIMITSX OUTSTRING OVERWRITECHRYbPARSELrPRCHARS8PRINTABLK SHOWINSMODESNOOZETODAYbTTY3TTYINITbTTYIWbTTYObTTYRSTbTTYSETVALIDDATVALIDINT"VALIDREApVALSCR{VLDWHOLESCREEN JUSTIFYLASTWORDLDINGBLA LEFTJUSTIFY>LENGTHDLINEEDITNMENU1<NEXTWORD`NONSEP !"#$%&'()*+,-./01241#R{\012TTYINIT01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177TTYINIT~P=>P4h lMLUV;H2JK1DCAB78rTTYINITP  $(,048<@DH5LP TX\`dhlptQQQP H[괫촫ECHOOFFECHOONkTTYOTTYOTTYOTTYOTTY H[kTTYO TTYO H[kTTYO(TTYO H[kTTYOTTYO>40INTOUT8TTYO H[kTTYOTTYO@TTYOHTTYORSPTTYO=RSkTTYOTTYO@TTYOXTTYO H[k6TTYOTTYO@TTYOHTTYO H[kTTYOTTYO@TTYOXTTYO H[kTTYOTTYO>40INTOUT`TTYO H[kTTYOTTYO>40INTOUThTTYO H[kTTYOTTYOpTTYOxTTYO H[ H[kTTYOTTYOˀINTOUTˈTTYOːINTOUT˘TTYO H[kTTYOTTYO>40INTOUTˈTTYO>40INTOUT˘TTYO H[kTTYO7TTYO˘TTYOkTTYOTTYOˠTTYO˨TTYO H[kTTYOTTYOˠTTYO˰TTYO H[kTTYOTTYO˸TTYO˰TTYO H[kTTYOTTYOTTYO˰TTYO H[ù# =kTTYOTTYO˸TTYO˨TTYO H[8kTTYOTTYOTTYO˨TTYO H[ H[OUTATTR H[ H[>40OUTATTR H[TTYO H[kTTYOTTYO>40INTOUTTTYO H[kTTYOTTYO>40INTOUTTTYO H[kTTYOTTYO>40INTOUTTTYO H[kTTYOTTYO>40INTOUTTTYO H[kTTYOTTYO H[kTTYOTTYO H[kTTYO9TTYO>40INTOUTˈTTYO>40INTOUTTTYO H[CHRRDYP>40INPCHAR H[>40INPCHAR H[CHRRDYPINPCHAR~ HTTYINITCHRRDYECHOOFFECHOONTTYOTTY M HKPDON f HKPDOFF  HDELCHARINTOUT HINSCHAR  HINSMODE ; H OVWRTMODE d HDELLINE  H:INSLINE  HSELPAGE  H SETORIGIN  H RELCSRPOS R HCSRPOS  HCLRSCR  HCLRLINE  HCLRBOL 0 HCLREOL Z HCLRTOP  HCLREOP  H SAVEATTRIBUTE  H RSTATTRIBUTEOUTATTR  H GETATTRIBUTE  H DSPATTRIBUTE  HBEEP  HCSRLEFT M HCSRRIGHT | HCSRUP  HCSRDOWN  HCSRSAVE  H CSRRESTORE  H SCRLREGI;ON ] HNEXTCHARINPCHAR  HGETCHAR  H FLUSHBUFFER$CODEx$PDATA0$LOCALESCCHAR\PP PPjP qP*PPP PP PP    ww1 c{\012OUTATTR01 1 <-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177OUTATTRPOUTATTR P QPH [P0002Q1AP2PQ5AP2PP7@kTTYOTTYOTTYOTTYO TTYOTTYO(TTYO0TTYOM HOUTATTRTTYO$CODE$PDATAD$LOCALP .P >P7+ =ww1Ã{\014 CSRREPORT01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177 CSRREPORTP CSRREPORTjP PH[kECHOPTTYSET FLUSHBUFFERTTYOTTYOTTYO TTYO(TTYIW(TTYIWԼ0TTYIW0PMP0TTYIW汫;E"PMQ@QPC4P(TTYIWԼ0T >TYIW0PMP0TTYIW䱫RE"PMQ@QPC4P(TTYIWkECHOPTTYRST H CSRREPORTECHOTTYSET FLUSHBUFFERTTYOTTYIWTTYRST$CODE$PDATA<$LOCALPrPPP?3ww1'܃{\012INPCHAR01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177INPCHARP?INPCHAR=PPH[kCHRRDYPSNOOZEkCHRRDYPTTYIW1kCHRRDYPSNOOZEkCHRRDYP1TTYIW[TTYIWABCD1O1TTYIWPQRSpqrstuvwx@ymlnMt HINPCHARCHRRDYSNOOZETTYIW$CODE$PDATA$LOCALESCCHARP"P ,PAPQP [PfPzP]PGPPPPPPPPPP+P8PEPRP_PlPyPPPPPPPPP P`TAww1@B{\011INTOUT01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177 INTOUT INTOUTdPPH[ P0P~^kTTYO^2PzPP{ PPPPP0P~^kTTYO^L HINTOUTTTYOK$CODE$PDATA$LOCAL  P<PKww1 {\011BECHOON01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177 ECHOON ECHOON$P@TTYRST\ @ECHOONTTYRST$CODE$PDATA$LOCAL ECHOBLOCK P ww1{\012ECHOOFF01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177ECHOOFFECHOOFFP@TTYSET] @ECHOOFFCTTYSET$CODE$PDATA$LOCAL ECHOBLOCK ww1{\01/ECHO01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177 ECHO ECHO&PH[PS HECHO $CODE$PDATA$LOCAL ECHOBLOCK PP ww1 @{\016D ERASEREGION01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177 ERASEREGION ERASEREGION PPH [O CLRSCR1O >>kCSRPOSCLREOP1O> >kCSRPOSCLRTOP>>kCSRPOS1O R > CSRPOSCLREOL=R>>kCSRPOS1 R > CSRPOSCLERBOL=R>>kCSRPOSPP R > ERASE=R>>kCSRPOS H ERASEREGIONCLRSCRCSRPOSCLREOPCLRTOPCLREOLCLRBOLERASEr$CODE$PDATA4$LOCALPPP"P +PD7P(=P"CP]PeP:mP2sP,PP@PPPBP-PCJP>2 rww1X"{\01F3LINEEDIT01 1-Oct-1986 09:31 1-Oct-1986 09:31VAX FORTRAN V4.4-177LINEEDIT PLINEEDITP <PQ  QP|H[} PQPkЬ $ SHOWINSMODE,n P,,k P,G0>4>V, RELCSRPOS8GETCHARPPPPQRP2RP@fм1=QRQQRR2QPQ@fPPPPQRP2RP@fм1=QR8PRINTABLP̫2PP@,D>X>\HPRCHARBEEP1Џ̫dCSRRIGHTBEEP1ЏdCSRLEFTBEEP1Џ̫lLENGTHPRRtDELCHR2RR2PPPRR@@,Dˀ OUTSTRING>0̼PP~^4, RELCSRPOS^BEEP1H ̫lLENGTHPRRRSTStDELCHR=ST2RR2SSSRR@C,Dˀ OUTSTRING>0̼PP~^4, RELCSRPOS^1 1̫K1lLENGTHPRRˈNEXTWORDSTStDELCHR=ST2RS2TTTSS@D,Dˀ OUTSTRING>0̼PP~^4, RELCSRPOS^RtDELCHR2RR2PPPRR@@,Dˀ OUTSTRING>0̼PP~^4, RELCSRPOS^1lLENGTHPRdCSRLEFTRtDELCHR2RR2PPIPRR@@,Dˀ OUTSTRING>0̼PP~^4, RELCSRPOS^BEEP12P,P| P,>˜>ˠ˘RELERASE>0>4, RELCSRPOSlLENGTHP2PPP@,Dˀ OUTSTRING>0>4, RELCSRPOS1$ SHOWINSMODE>0̼PP~^4, RELCSRPOS^1>0>4, RELCSRPOS1lLENGTHPR>0R~^4, RELCSRPOS^R1 ˈNEXTWORD尫>0PP~^4, RELCSRPOS^1ЏJùX˨LASTWORD尫>0PP~^4, RELCSRPOS^мЏ Џм,n k,P, kBEEP1 |HLINEEDITLENGTHPRINTABL SHOWINSMODE RELCSRPOSGETCHARPRCHARBEEPCSRRIGHTCSRLEFTDELKCHR OUTSTRINGNEXTWORDRELERASELASTWORD$CODE$PDATA$LOCALPPP PP2PPP PP7P$P (Pa3P :P GPPP9[P aPnPxPPlPYPFPPPvPk PZPiP sP}PPhPPNPFEPDMPvSPdoPFPPPr P:POAP:FPKPwPPPP.PP2 LPP0=PMEP LP$UP]PcPkP9-  ww1@+{\016 SHOWINSMODE01 1-Oct-1986 09:31 1-Oct-1986 09:31VAX FORTRAN V4.4-177 SHOWINSMODE$PJInsert  SHOWINSMODE.P OUTSTRING@ , OUTSTRING@PH[ SAVEATTRIBUTEk DSPA MTTRIBUTECSRPOS OUTSTRING RSTATTRIBUTE SAVEATTRIBUTE$ DSPATTRIBUTECSRPOS4 OUTSTRING RSTATTRIBUTE H SHOWINSMODE SAVEATTRIBUTE DSPATTRIBUTECSRPOS OUTSTRING RSTATTRIBUTE_$CODE$PDATA<$LOCAL  P*4P)#_ww11{\011PRCHAR01 1-Oct-1986 09:31 1-Oct-1986 09:31VAX FORTRAN V4.4-177 PRNCHAR PRCHARP 0@  PH[}PQPk INSCHRBEEP FLUSHBUFFER$LENGTHᱼ P2PP2 QQQPP,A04 OUTSTRING2 PP@@D OUTSTRING綼 >P PP~^TL RELCSRPOS^> dX OVERWRITECHRh OUTSTRING BEEP FLUSHBUFFER HPRCHAR OLENGTHINSCHRBEEP FLUSHBUFFER OUTSTRING RELCSRPOS OVERWRITECHR$CODE$PDATAt$LOCAL6!P.PAPQPgaP"PPPC7ww1Q{\010MENU101 1-Oct-1986 09:33 1-Oct-1986 09:33VAX FORTRAN V4.4-177 MENU1PP MENU1PPPP (QH QPO[}PQPk} PQ P GETATTRIBUTE(ECHOPTTYSET0LENGTHP8LENGTHP( DSPATTRIBUTE>D>L@ ERASEREGIONWXYX2YPPZJVWV V_ VVJ2PY@>W JWV 2PY@fW JV_ VVJ=XY2WGf赫Q DSPATTRIBUTE2PPTX\ OUTSTRING>p>td DSPMENUITEM簼谼2P@>ˌCSRPOS>˜˘GETCHAR 2PP@ ˠ CVTTOUPCASEכWYW2YPP@ PPY( DSPATTRIBUTE>D>L@ ERASEREGION(ECHOPTTYRST DSPATTRIBUTE=WYBEEP1 OMENU1LENGTHECHO GETATTRIBUTETTYSET DSPATTRIBUTE ERASERREGION OUTSTRING DSPMENUITEMCSRPOSGETCHAR CVTTOUPCASEBEEPTTYRSTH$CODE $PDATAh$LOCAL5PPuP/P"PPP0P*PPPP PP|PPPuPPP PPP4PTP<$P) Hww1`W{\S016 DSPMENUITEM01 1-Oct-1986 09:33 1-Oct-1986 09:33VAX FORTRAN V4.4-177 DSPMENUITEM DSPMENUITEMPlP H[}PQPk2SS,ЬޫPFOR$INI_DES1_R2STЬ <ޫ8PFOR$INI_DES1_R2>HS> R> \2P>@b`XCSRPOS>$hd DSPATTRIBUTE2P2@cQ2@bPPPQQl@pt OUTSTRING> \2 TP>@b`XCSRPOS$~^hd DSPATTRIBUTE^2P2@cS2@bPPPSSl@pt OUTSTRING H DSPMENUITEM CSRPOS DSPATTRIBUTE OUTSTRING$CODE$PDATA|$LOCALFOR$INI_DES1_R2LPF#ww1n{\013PRINTABL01 1-Oct-1986 09:34 1-Oct-1986 09:34VAX FORTRAN V4.4-177PRINTABLPRINTABL.PH[ UPE HPRINTABL($CODE$PDATA$LOCALPP P(ww17s{\011ERRMSG01 1-Oct-1986 09:34 1-Oct-1986 09:34VAX FORTRAN V4.4-177 ERRMSG3PP!( Press return ) ERRMSGTPPT\  V OUTSTRING@PP ˠ>ˤ>˨˘SETNEXT1STPNTR> ˴>˸>˼>ˬ SET2NDPNTR° U1UTUU1U> ˠ>ˤ>˨˘SETNEXT1STPNTRU1UTUU1U\~^> >>> SET2NDPNTR^U1U<PPVX2PPWV2XQQGA U=VX<VVVXV2XQQGAU=VXGˈˌNONSEPPUU1U~^> >>>G SET2NDPNTR^ U1U~^> >>> SET2NDPNTR^ U U1U  UU1U > ˠ>ˤ>˨˘SETNEXT1STPNTR> ˴>˸>˼>ˬ SET2NDPNTR U1U $T UU1]U <PPVWV2PPX2WQQHA U=VWU1U ¹  *@ڷ$U1U> ˠ>ˤ>˨˘SETNEXT1STPNTRU1UTUU1U<PPVWV2PPX2WQQHAU=VWU1U$~^> >>> SET2NDPNTR^ UU~^^> >>> SET2NDPNTR^ U UU$U1 IPARSE NONSEPLENGTHSETNEXT1STPNTR SET2NDPNTR$CODE$PDATA$LOCALFOR$INI_DES1_R2FOR$INI_DES2_R3:xP}PPPP}PPPLPPP$P PPPCYP`PiPnPsPg|P#P>PPPP"P7PP{P!P&PL;PI_PNP$hPmPtPf|P7P+PCPPPPP PPPC]P}dPpPuP|P^P7P#PP P P PP#PPPP PP7"P#9P>P JPPP7PUPCPPPPMAww1`h{\019SETNEXT1STPNTR01 1-Oct-19 `86 09:34 1-Oct-1986 09:34VAX FORTRAN V4.4-177SETNEXT1STPNTRSETNEXT1STPNTRPP H[2 PP0Ь ޫPFOR$INI_DES2_R3궼2PīPPQAe HSETNEXT1STPNTR6$CODE$PDATA4$LOCALFOR$INI_DES2_R36ww1{\015 SET2NDPNTR01 1-Oct-1986 09:34 1-Oct-1986 09:34VAX FORTRAN aV4.4-177 SET2NDPNTR SET2NDPNTRPPH[2 TT0Ь ޫPFOR$INI_DES2_R3TXЬ@ޫT@2PūPQAAQQ@Lw H SET2NDPNTR]$CODE$PDATA\$LOCALFOR$INI_DES1_R2FOR$INI_DES2_R3]ww1Ą{\011NONSbEP01 1-Oct-1986 09:34 1-Oct-1986 09:34VAX FORTRAN V4.4-177 NONSEP NONSEPrP P0H[}PQ}PQ PLENGTH۰PTUT2UPP@ P=TUPP 0HNONSEPLENGTHJ$CODE$PDATA$LOCAL .P0p>4t0PP~^x 4PP~^|l ERASEREGIONO[^Ь0Ь4ЬЬЬ 00>0˄>4ˈˀ SETORIGINư RS 1>pT2U2V2W2X2Y2SPūtPZUZP>@dːˌ DSPATTRIBUTEVfZP>@d˄WZP>@dˈˀ RELCSRPOSXZP@dYZJd>˘˔A1TOAN2PPˬd˰˴ OUTSTRING=RSd DSPATTRIBUTEO[^Ь0Ь4Ь Ь8ЬЬ<ЬЬ Ь$@Ь( Ь,$Ь0(Ь4,000000>0˄>4ˈˀ SETORIGINε12Z22222X2,n Pd2V˨VPZPR>ۤSBcWPRBcYPRBcPRBcPRBcXPRBcP˰@cرWWWW2YPPZP@ >$˼A1TOAN1(V(F )WT FOR$WRITE_IO2YPgPVZVS>R?Cb FOR$IO_W_R FOR$IO_ENDVP@bXVFbCb,n Pd.WT FOR$WRITE_IO2YYxYZYWtRGb FOR$IO_F_R FOR$IO_ENDYPQ@bXYQIbGb,n Pd2RRˬd˰JUSTIFY DSPATTRIBUTE RELCSRPOSRˬd˰˴ OUTSTRING=dd DSPATTRIBUTEO[^Ь0Ь 4ЬЬ 8Ь$Ь(<Ь,Ь0Ь4@Ь8 Ь<$Ь@(ЬD,ЬHDЬLHЬPL}PQTPP}PQ4Ь<H00000000dECHOPTTYSEThd DSPATTRIBUTE ERASEREGION>0˄>4ˈˀ SETORIGIN DSPATTRIBUTECSRPOSCNTER OUTSTRINGTX\`d2P˨PPZJۤPPP>ۤX2PZ˨ZJPPPPP\1΀d>HZPPPPRSP2SPd@j1=RSd\1d dλT1dX1¹D   i  2Yμ,n Pd2W˨WPYPRBۤVVd dλT1dX12PRBۤ2PRBۤ2RPRBۤ2PRBۤ2PRBۤ2RRP@ۤرVVV2PPYP@ >$˼A1TOAN1(W(G )V2PPWWP>Z@jWPYWR@jBj,n PdT FOR$WRITE_IOYW?Gj FOR$IO_W_R FOR$IO_ENDVj2PxPWWPtZQ@jWPYWRQ@jBj,n PdT FOR$WRITE_IOYWGj FOR$IO_F_R FOR$IO_END2ZVdCHRRDYP$SNOOZE,NEXTCHAR ȏȏ><>D@>HD4 DSPLHELPTEXTZˬd˰˴ LEFTJUSTIFY DSPATTRIBUTE RELCSRPOSZˬd˰˴ OUTSTRING߱VZˬd˰>\>d`LLINEEDIT>l>Dp>HtZˬd˰>ˀ>d˄d INPFROMMENUVZˬd˰˴LENGTHP,Zdk ˈ CVTTOUPCASE-  Zˬd˰˴TODAY>HRPPSS2PUEbUUPPPPUSP2SPd@HVV>$˘ːANTOA1=USdVVV>$˘ːANTOA1`d DSPATTRIBUTEdECHOPTTYRSTŹ ! ( VZˬd˰˴VALIDINTP lINVALIDENTRY FLUSHBUFFER1VZˬd˰˴VALIDREAP INVALIDENTRY FLUSHBUFFER1VVV>$˘ːANTOA11V12PPXXW˨LENGTHPZˬd˰YXP>@˸˰ GETINTEGER>PG`YXRXSC`B`,n Pd>RGbXWYXPGb@bT FOR$WRITE_IOYX?Hb FOR$IO_W_R FOR$IO_END1V12PxPWWX˨LENGTHPZˬd˰YWZJt˸˰GETREALtPQH`YWZWRB`J`,n PdtZSHjWXmYWPQHj@jT FOR$WRITE_IOYWGj FOR$IO_F_R FOR$IO_END>WtZV2PPYP@gk,n P˼VALSCR FLUSHBUFFER1V2PxPYP@jk,n P˼VALSCR FLUSHBUFFER1VVk2PPˬd˰VALSCR FLUSHBUFFER1iV2PPPXHgPXYPRHgBgPRBgPXHgYPXHgBgPHg@g OUTOFLIMITS FLUSHBUFFER11V2PxPPWSGjPWYPXQGjH_jPXSHjPWSGjYPWQGjnHjPQGj@j OUTOFLIMITS FLUSHBUFFER1VV2PPP@ 2PPˬd˰˴LENGTHPNULLENTRYILLEGAL FLUSHBUFFER1LV2PPˬd˰˴LENGTHP2PPˬd˰˴VALIDDATP DATENOTVALID FLUSHBUFFER1V2VVˬd˰JUSTIFY DSPATTRIBUTE RELCSRPOSVˬd˰˴ OUTSTRING1S2 PPˈЫdޫ`PFOR$INI_DES2_R32PP˼Ы8˘˔PFOR$INI_DES2_R32PPЫ<PFOR$INI_DEoS2_R32@PP$Ы PFOR$INI_DES2_R32PPXЫD40PFOR$INI_DES2_R32PPˌЫhdPFOR$INI_DES2_R32PP˴} PQ˜˘PFOR$INI_DES1_R22$PP}(PQPFOR$INI_DES1_R22HPP}LPQPFOR$INI_DES1_R22PP,},PQPFOR$INI_DES1_R2 PTODAYT OSCRNSUBVALIDREAVALIDINTVALIDDATCHRRDYECHOLENGTH O CLEARSCRN DSPATTRIBUTEp ERASEREGION O DSPLYTEXT SETORIGIN RELCSRPOSA1TOAN OUTSTRING O DSPLYDATA JUSTIFY OEDITSCRNTTYSETCSRPOSCNTERSNOOZENEXTCHAR DSPLHELPTEXT LEFTJUSTIFYLINEEDIT INPFROMMENU CVTTOUPCASETODAYANTOA1 INVALIDENTRY FLUSHBUFFER GETINTEGERGETREALVALSCR OUTOFLIMITSNULLENTRYILLEGAL DqATENOTVALIDTTYRSTQ$CODE%$PDATA$LOCAL FOR$IO_END FOR$IO_W_R FOR$IO_F_R FOR$WRITE_IOFOR$INI_DES1_R2FOR$INI_DES2_R3nP qP tP wPzP }P9PRPoPPPP(  P -PP3 PL P Pb P "P HPPP PP&PPTKPUP aPVhPOPP P P P' P P] P P Pt PPPrP8PGCPZP `PkPtPzP:P2PPPPPPPPP&PPPP P/PD5P=PDPIP&QPc[PaPfP mPGP PP'PP\5PEPQP$wP^|PYPP P#PCP P PPP P+PWP$P4PMP4 PC PJR P] P0k Pp Pu P P/ P@ P  P P P Ps/ P P2 P+$ P< P A PF PW PVb P P$ P P P P" P P+ P$N PZ P| P P" P: P  Pz P;' P 5 P:< PA P.d P t Pc P P< P  P( P  P P Pc P P< P  P( P ) P= PND PI PB] P.z P PK P. P P P@ t'Qww1`{\016 INPFROMMENU01 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177 INPFROMMENU&PP( | INPFROMMENUP <P uXX  PARSE@ PARSE@ PARSE@  PARSE@ PARSE@ PARSE@ ( ( PARSE@ PARSE@ PARSE@ ( PARSE@ PARSE@ PARSE@<PO[}vPQ`P\Ьht2PP0Ь ޫPFOR$INI_DES2_R32PPX}PQ@ޫR@@쵫˜CSRPOS>ˬ˨A1TOAN2PP" OUTSTRING2PīP@@>A1TOAN2VV"PARSEWWXYW2YZZP2@Q2@PPPQ,Q@" Pr2J˾ZZr PARSE2PPP2@Z2@ PPPZ-Z@r \`Y=XY,n (°XW2XPPY2IYYQQYP,YA" @=WXV"w2WXXHL>`> dPSCRMNUVH"LWlPARSE2WWP2@V2@PPPV,V@" Pr2G˾WWHrL˔PARSE2PPP2@W2@ PPPW,W@r \`˼LENGTHְPVWV2WPPXH`_ H`=VWˈ ERASEREGION O INPFROMMENU DSPATTRIBUTE ERASEREGIONCSRPOSA1TOAN OUTSTRINGPARSESCRMNULENGTH$CODE $PDATA$LOCALFOR$INI_DES1_R2FOR$INI_DES2_R31P1Ps`PfP xP'ePvPZN ww1"{\017 DSPLHELPTEXT01 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177 DSPLHELPTEXTPP DSPLHELPTEXTk\PP  yPRTVQP H\[2PP0Ь ޫPFOR$INI_DES2_R32PPX}PQ@ޫR@@˔CSRPOS>ˤˠA1TOAN2PP˸˼ OUTSTRING2PīP@@CSRPOS>A1TOAN2PP˸˼ OUTSTRING H DSPLHELPTEXT DSPATTRIBU zTE ERASEREGIONCSRPOSA1TOAN OUTSTRING$CODE$PDATAH$LOCALFOR$INI_DES1_R2FOR$INI_DES2_R3FPSP yP0P0;/ww1({\011A1TOAN01 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177 A1TOAN A1TOANPPK[}PQ,P(2PP$}PQ ޫP {FOR$INI_DES1_R2,n (, VWXY2VP2XQQ@iA,V=WX_ KA1TOANc$CODE$PDATA4$LOCALFOR$INI_DES1_R2FP!cww1@8{\011ANTOA101 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177 ANTOA1 ANTOA1PPK[}PQPk2PP,} PQޫPFOR$INI_DE |S1_R2ӰVWX Y2XPP2VR@BiV=WX_ KANTOA1[$CODE$PDATA4$LOCALFOR$INI_DES1_R2=P[ww1 <{\019VLDWHOLESCREEN01 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177VLDWHOLESCREENVLDWHOLESCREENP} PPPQjPO[^},PQP2PP4Ьޫ PFOR$INI_DES2_R32 PPhЬDޫ@PFOR$INI_DES2_R32PPЬ ˬ˨PFOR$INI_DES2_R32PP˜ЬxޫtPFOR$INI_DES2_R3~2$PP}(PQPFOR$INI_DES1_R20ص12Y2Pū PXYXP@WW12VVXP@ZW2ZPīTPYP@Pk,n P4VALSCR FLUSHBUFFER11W2ZPˈPYP@ۄk,n P4VALSCR FLUSHBUFFER1WWk,n P2ZP˼PYP@۸2PPXH>$40A1TOAN2PPHLPVALSCR FLUSHBUFFER1W2ZPīTP2XPX>PQHa2XPXYPRHaBaVPRBa2XPXHaYPXHaBa2RRPHa@a OUTOFLIMITS FLUSHBUFFER11W2ZPˈP2QPQۄXSAh2QPQYPRQAhBhVPRSBh2QPQSAhYPQQAhBh2RRPQAh@h OUTOFLIMITS FLUSHBUFFER11WW12ZZ˼ZVZJ۸2ZZHLlLENGTHPNULLENTRYILLEGAL FLUSHBUFFERW2WWHLlLENGTHP2PPHLlVALIDDATP DATENOTVALID FLUSHBUFFER0ؼ4=h OVLDWHOLESCREEN VALIDDATLENGTHVALSCR FLUSHBUFFERA1TOAN OUTOFLIMITSNULLENTRYILLEGAL DATENOTVALIDI$CODE$PDATA@$LOCALFOR$INI_DES1_R2FOR$INI_DES2_R3$PPvP9P  P'PP;DP MPQPnXP]PbP PvPkPP@P P, P P'P -P4PkLP]P>fP qP*|P PPPPPP-PPKPO P3'P) Iww1@CD{\011VALSCR01 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177 VALSCR VALSCR@PPH[}PQPk}PQ PM HVALSCR%$CODE$PDATA$LOCAL %ww1 H{\011SCRMNU01 1-Oct-1986 09:35 1-Oct-1986 09:35VAX FORTRAN V4.4-177 SCRMNUPP SCRMNUP <PPQ 0 (Q, PO[^}PQPk} PQ PЬ V SAVEATTRIBUTE4ECHOPTTYSET<LENGTHPDLENGTHP4 DSPATTRIBUTE>P>XL ERASEREGION` DSPATTRIBUTEXڭZ12ZPPWGYXY Y_Y| YYG2PZ@6X GXY 2PZ@^X GY_Y| YYG=Z{2XH^⵫2XXhlp OUTSTRING> X>˄>ˈx DSPMENUITEM簼ⰼ2P@6ˠCSRPOSVˬGETCHARVVVVVVV VVPPPPZWP2WPV@ V=ZWZZ2WPW@hPPPPWZP2ZPV@ V4 DSPATTRIBUTE>P>XL ERASEREGION4ECHOP}TTYRST RSTATTRIBUTEV=WZV˴ CVTTOUPCASEϛVPWP2WZZJ YVYW1=PWBEEP1  OSCRMNULENGTHECHO SAVEATTRIBUTETTYSET DSPATTRIBUTE ERASEREGION OUTSTRING DSPMENUITEMCSRPOSGETCHAR CVTTOUPCASEBEEPTTYRST RSTATTRIBUTE$CODE$PDATA$LOCALCPPP7P*PPPP7P1PP PP0P7PEPPPP PPPP PPP_PPPP6/Pf<PGPNQP>zPP P * ww1@L{\017 DATENOTVALID01 1-Oct-1986 09:37 1-Oct-1986 09:37VAX FORTRAN V4.4-177 DATENOTVALIDPInvalid date! DATENOTVALIDBP  ERRMSG@PH[ERRMSGP H DATENOTVALIDERRMSG$CODE$PDATA$LOCAL ww1f{\017 INVALIDENTRY01 1-Oct-1986 09:37 1-Oct-1986 09:37VAX FORTRAN V4.4-177 INVALIDENTRYPInvalid Entry! INVALIDENTRYBP ERRMSG@PH[ERRMSGP H INVALIDENTRYERRMSG$CODE$PDATA$LOCAL ww1{\016 OUTOFLIMITS01 1-Oct-1986 09:37 1-Oct-1986 09:37VAX FORTRAN V4.4-177 OUTOFLIMITSPEntry outside of limits! OUTOFLIMITSBP ERRMSG@PH [ERRMSGO H OUTOFLIMITSERRMSG$CODE$PDATA$LOCAL ww1`"{\01;NULLENTRYILLEGAL01 1-Oct-1986 09:37 1-Oct-1986 09:37VAX FORTRAN V4.4-177NULLENTRYILLEGAL#PNull entry is not permitted!NULLENTRYILLEGALBP ERRMSG@PH[ERRMSGT HNULLENTRYILLEGALERRMSG$CODE$PD ATA$LOCAL ww1঳{\013NEXTWORD01 1-Oct-1986 09:37 1-Oct-1986 09:37VAX FORTRAN V4.4-177NEXTWORDNEXTWORDPPpH[}PQPkLENGTHPTT 2PP@  TUVUV 2VPP@ =UVTU VVU2VPP@ V =UVT T T pHNEXTWORDLENGTH$CODE$PDATA $LOCAL8#P-P@PGP(TPKgPoP0|PP;/ ww1`Ņ{\013LASTWORD01 1-Oct-1986 09:37 1-Oct-1986 09:37VAX FORTRAN V4.4-177LASTWORDLASTWORDPPH[}PQPkLENGTHPP TT 2TPP@ =T T2TPP@ T =T  T HLASTWORD LENGTH$CODE$PDATA$LOCAL+!P+P:PIKP UP.^PkP5) ww1܅{\011DELCHR01 1-Oct-1986 09:40 1-Oct-1986 09:40VAX FORTRAN V4.4-177 DELCHR DELCHRaPPI[}PQPkJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECQPKl[}PQLENGTHPP(  CVTTOUPCASE-  P<PARSEPP2P2QQQP-PA -P2P2QQQP-PA -P2P2QQRRPSSdBhlVALIDINTPPSdBhtGETREALGDkPIPRMRRQPRE?kRE?kPIPPMPPQRPGCkPGCkRIRRMRRQPRTTU2R2PPVVRW2UXXY-WF I= UPT)IYY2P2TTTPUUdDhlVALIDINTPPUdDhˀ GETINTEGER絫YHXXPP PTODAYFEB KVALIDDATVALIDINTLENGTH CVTTOUPCASEPARSEGETREAL GETINTEGER$CODE$PDATA $LOCALz PBPTP]P{PPPP6P P#PNP ZPfPkPPP P|p"ww1 #{\012JUSTIFY01 1-Oct-1986 09:40 1-Oct-1986 09:40VAX FORTRAN V4.4-177JUSTIFYJUSTIFYPQPH[}PQPk  LEFTJUSTIFY RGHTJUSTIFYCNTERp HJUSTIFY LEFTJUSTIFY RGHTJUSTIFYCNTERK$CODE$PDATA$LOCAL%P!P +P1P ;PAPKww1%){\010CNTER01 1-Oct-1986 09:40 1-Oct-1986 09:40VAX FORTRAN V4.4-177 CNTER CNTERPPI[}PQPk LEFTJUSTIFY LENGTH$CODE$PDATA$LOCAL .P 9P>ww1@ڍ{\011CHRRDY01 1-Oct-1986 09:41 1-Oct-1986 09:41VAX FORTRAN V4.4-177 CHRRDY CHRRDY{ P PH [g  kSYS$QIOWP_ HCHRRDYSYS$QIOW4$CODE$PDATA@$LOCALTTYCOM %P+P4ww1){\010ERASE01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177 ERASE P  ERASE^PP H[>>kCSRPOSﰼ RS  TTYO=RSZ HERASECSRPOSTTYO7$CODE$PDATA$LOCAL%P7ww1@D{\013RELERASE01 1-Oct-1986 09:38 1-Oct-1986 09:38VAX FORTRAN V4.4-177RELERASE P RELERASEaPP H[>>k RELCSRPOSﰼ RS  TTYO=RS` HRELERASE RELCSRPOSTTYO7$CODE$PDATA$LOCAL%P7ww