% VAX-11 Librarian V04-00 4D!x^z+2U**yyA  xSCLRRCTF\CPYINT]RDEVICE5 DRAWITsDRWCGM3DRWPIXhFILCLR\GETCLRNRGETCTBbGRFCLS_"GRFINI<HORCBRTXHORFLPE&IMGMSKLXINTERP9LABELlLINCLRsMOVCGMnMRKCLRqDMRKSIZpMRKTYPd`NEWFRMPPLTBARiPLYGONjPLYLINmPLYMRKOPUTCTBVRDCLISrpRTOINTISPLIE2GSPLINEBSTPSPLASTRLIN>STRSPL:VRTCBRUtVRTFLPKDWINFRMYWRCLISkSCLRRCTF\CPYINT]RDEVICE5 DRAWIT3DRWPIXhFILCLR\GETCLRNRGETCTBbGRFCLS_"GRFINI<HORCBRTXHORFLPE&IMGMSKLXINTERP9LABELlLINCLRsMOVCGMnMRKCLRqDMRKSIZpMRKTYPd`NEWFRMPPLTBARiPLYGONjPLYLINmPLYMRKOPUTCTBVRDCLISrpRTOINT6SETCTBISPLIE2GSPLINEBSTPSPLASTRLIN>STRSPL:VRTCBRUtVRTFLPKDWINFRMYWRCLIS[SETCLR6SETCTBthSETSCLISPLIE2GSPLINEwSTPAUSBSTPSPLASTRLIN>STRSPLx2UNPAUS:VRTCBRUtVRTFLPKDWINFRMYWRCLISRTOINTWRCLIS[SETCLR6SETCTBthSETSCLISPLIE2GSPLINEwSTPAUSBSTPSPLASTRLIN>STRSPLx2UNPAUS:VRTCBRUtVRTFLPKDWINFRMYWRCLISRTOINTWRCLIS  !"#$%&'()*+,-./01241@Hs011DRWPIX0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 DRWPIX DRWPIX1PP H[м(м 0Ь ޫPFOR$INI_DES2_R3޼$84SETCTBռ<GRFINI޼H޼L޼ P޼T޼ X޼\޼`DDRA5WIT1ѼdNEWFRMlGRFINI޼x޼|޼ ˀ޼˄޼ ˈ޼ˌ޼ːtDRAWITѼ˔NEWFRM˜GRFINI޼˨޼ˬ޼ ˰޼˴޼ ˸޼˼޼ˤDRAWITGRFCLS HDRWPIX GRFINISETCTBDRAWITNEWFRMGRFCLS$CODE$PDATA$LOCAL DRWSTTFOR$INI_DES2_R3F3P8hPqPNxP P P]PUP P 0$/ 6ww1`z011DRAWIT0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 DRAWIT)P ***error*** wrtcla returned ierr= DRAWIT4P "P H[м,м 4Ьޫ PFOR$INI_DES2_R3k޼<޼@޼ D޼H޼L޼P޼T޼X޼\8WRTCLAk FOR$WRITE_SLd FOR$IO_T 7_DSk FOR$IO_L_V FOR$IO_END HDRAWITWRTCLA$CODE"$PDATAl$LOCAL FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SLFOR$INI_DES2_R3\P#ww1p|011SETCTB0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 SETCTB SETCTBP PO[Ы VЫWЫXռ1Ѽ81PP MTH$ASIN_R4EPYkѼNkPGDPXXWXVѼNkPGDPXXWCXPA6-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 HORCBRP HORCBR$0P(08PH([}PQ P} PQPмRмPռRռPPPRRRPRPC QRPPNPSGSQSмммммTPUVURVPPkFILCLRASTWTWWT PLYGONWTUVмм м ммммм?мм0LINCLR8PLYLINE(P<TNTTDTPCP~^LE (PCP~^P޼$X޼(\HLABEL^E(P<TNTTDTPCP ~^dE (PCP~^h޼$p޼(t`LABEL HHORCBR FILCLRPLYGONLINCLRPLYLINLABELy$CODE $PDATA$LOCAL,-P4P?PLPUPP6F: yww1}011STRSPL0126-Oc@t-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 STRSPL PIr STRSPLR]P   %@8]]K@8K@8]]]PO][^м LмTЬ0ޫ,PFOR$INI_DES2_R3м˴м˼ЬA˔PFOR$INI_DES2_R3м ˀмˈЬdޫ`PFOR$INI_DES2_R3PNPP QNQQFQPQNQQRNRRFRQм RSR@TSUNUUEPURSмSPSRPTNTTEQTSP޼޼ ޼޼SPLIE2мkռ1kPNPм WXռ @YмPQPˀZtXTDpTūtR@XSC̫P>̫PPP>̫kPLYLINԫPP @̫ЫPLYLINPPPP>̫ PLYLINJ HWINFRMPLYLINz$CODE$PDATAX$LOCAL)zww1@011INTERP0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 INTERP INTERPN PPM[^м4м<ЬޫPFOR$INI_DES2_R3мhмpЬLޫHPFOR$INI_DES2_R3м˜мˤЬ ˀޫ|PFOR$INI_DES2_R3kмRռмVWռ(RXH$Xū(\RZJXZū\TːRSCیSːQhjPkPƼPhPcXTZQSVWRc MINTERP$CODE$PDATA$LOCAL OFOR$INI_DES2_R3kPbwPQww1@011GETCTB0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 GETCTB P GETCTBPPI[} PQ PмPмQQռPPPQQPQQP޼0PkQRDCLISռЫVѫkPPkPPWF XP^QRWSXT OTS$MOVE5_R5Լt PIGETCTBRDCLIS$CODE$PDATA4$LOCALCLRCOM OTS$MOVE5_R52P%P0P=PFPbPmP**  ww1@011PUTCTB0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 PUTCTB P PUTCTBtPPH[} PQPk޼޼ ޼( QWRCLISc HPUTCTBWRCLIS,$CODE$PDATA,$LOCALCLRCOM  ,ww18011PLTBAR0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 PLTBARP PLTBAR8P(,04   R       PO[мRмSռRռSSSRRRSRSC PCQGQTмkATЫAT Ы YATYмZRSVSRNVQGQPXXUVWRU~^($GETCLR^ETPAPYETPAPETPAPkNUPDXPAPZVU޼@޼D޼ H޼L<CLRRCTSR޼TPLINCLRVV^\XPLYLIN^޼ SlhLINCLRV^tpPLYLIN^޼$˄ˀLINCLRV^ˌˈPLYLIN^м ޼˜˘LINCLRˠPLYLIN޼ ˴˰LINCLR˸PLYLIN޼$LINCLRPLYLINмм м ммYYЫЫY޼LINCLRPLYLINмм м ммЫЫЫ Ы Ы޼ LINCLRPLYLINмм м ммkkЫЫk޼$LINCLRPLYLINмм м мм TммЫЫм(LINCLR0PLYLIN OPLTBAR GETCLRCLRRCTLINCLRPLYLIN$CODE $PDATAT$LOCALKPP'P4P=P{P PPKPd]Pe{oww18011CLRRCT0126-Oct-1989 16:1926-Oct-1989 16:19UVAX FORTRAN V5.2-33 CLRRCTP CLRRCTv PPH [мм м мммммkFILCLRPLYGON_ HCLRRCTFILCLRPLYGONA$CODE$PDATA8$LOCALAww18011HORFLP0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 HORFLP HORFLP VPPK[^м0м 8ЬޫPFOR$INI_DES2_R3Pkխ޻ SPм TUռ $kVF Vū$W$PXH Xū$YfRhfRhWVYXTUk[ KHORFLP$CODE$PDATA<$LOCALFOR$INI_DES2_R37PHIP1ww1 F011VRTFLP0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33  WVRTFLP VRTFLPPPK[^м0м 8ЬޫPFOR$INI_DES2_R3 P kխ޻ SPмTUռū$kVū$PWVXH XWYI YhQiQTUk[ KVRTFLP{$CODE$PDATA<$LOCALFOR$INI_DES2_R37PBIP+{ww1̑011RDCLIS0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAXN V5.2-33 RDCLIS RDCLIS P   c cPO [}PQˌPˈм4ЬޫPFOR$INI_DES1_R2м\ЬDޫ@PFOR$INI_DES1_R2м˄Ь lޫhPFOR$INI_DES1_R2ѼռѼ RSːFOR$OPENP1c~ FOR$READ_SLk FOR$IO_L_R߫ FOR$IO_F_R߫ FOR$IO_F_R߫  YFOR$IO_F_R FOR$IO_ENDkkkPЫ@Ы@Ы @kRkRkSkSмPмQQռPPPQQPQQPPQSRNRRQPTNTTFTRRNSSPQQPA(TAPUAxVJSkNkWCWSWCWXkYEIXZEIWYAYZkYEIXZEIWYAYZkYDIXDIWAWX@RSPQˬ FOR$CLOSEԼ    ORDCLISFOR$OPEN FOR$CLOSE$CODE$PDATA $LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_F_R FOR$READ_SLFOR$INI_DES1_R2 ZZP _PfPPOPuP=PPP PP$P-P5PGPUPdNB  Kww1̑011WRCLIS0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 WRCLIS WRCLIS7P   [c|cP|H[}PQˀP|м(Ьޫ PFOR$INI_DES1_R2мPЬ8ޫ4PFOR$INI_DES1_R2мxЬ `ޫ\PFOR$INI_DES1_R2˄FOR$OPENP1мPмQQռPPPQQPQRSSR޻lT޻DU޻Vc~ FOR$WRITE_SLS~ FOR$IO_L_VCf FOR$IO_F_RCe FOR$IO_F_RCd FOR$IO_F_R FOR$IO_ENDRS ˠ FOR$CLOSEԼ   |HWRCLISFOR$OPEN FOR \$CLOSE$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_L_V FOR$IO_F_R FOR$WRITE_SLFOR$INI_DES1_R2F_PjPqP|PPPPZPAP4( ww1̑011SETCLR0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 SETCLR SETCLR_ PP@ռѼмPм@мPм @мP ]@мP@ X @SETCLRE$CODE$PDATA$LOCALCLRCOMP=P3 Eww1`S011GETCLR0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 GETCLR GETCLRSP@мP@ @мP@ мP@ԼԼ ԼԼZ @GETCLRE$CODE$PDATA$LOCAL ^CLRCOM P*6P ! Eww1`S011DEVICE0126-Oct-1989 16:1926-Oct-1989 16:19VAX FORTRAN V5.2-33 DEVICEbP ***warning*** device already set; call to DEVICE ignored ***error*** setdev returned ierr= DEVICEP9"9P