% VAX-11 Librarian V04-00A9!=K:V;& 2 BB`O  &dARGCNT3ASCFADBIGCHARS BIGCHARS_INIT$ BIN_STRINGBOXPAGE&BSET_QBTEST_QCHBND1q CHECK_DATECHECK_IDt CHECK_READh CHECK_TIMEW CLASSPROC8CLEAR2CLEAR2D29CLEAR47 CLEAR4_RESTPCREATE_LOGNAMECREATE_LOGNAMECRVPLTGNAMECRVPLTMECRVPLTCRVPLTCRVPLTCRVPLTBLANKSKDEVOWNERMDOUBDSTCHKELTRANn ENABLE_CTRLYENABLE_CTRLY_ASTMdARGCNT3ASCFADBIGCHARS$ BIN_STRINGBOXPAGE&BSET_QBTEST_QCHBND1q CHECK_DATECHECK_IDt CHECK_READh CHECK_TIMEW CLASSPROC8CLEAR2CLEAR2D29CLEAR47 CLEAR4_RESTPCREATE_LOGNAME<DEGRADD DELETE_BLANKSKDEVOWNERMDOUBDEVOWNERMDOUBSER_FLAGMDOUBER_FLAGMDOUBAGMDOUBER_FLAGMDOUBFLAGMDOUBGMDOUBAGMDOUBAGMDOUBAGMDOUBTDESCRWAIT?YMINJULUPAGE.z POSITIONSRADDEGRANDOM0 READ_LINE`RESET_TERMINAL\RFRD)SCREENaSCROLLSSECJULGSET_MODESET_PROCESSNAME'SNDOPRl STRING_LENGTHcSTRIPDTITLEe TRAN_LOGNAMEjVT_TITLE^WAITw YES_OR_NOYMPES_OR_NOYMPOR_NOYMPNOYMPVCREATE_LOGNAME ENABLE_CTRLY_AST GET_USERINFOMINJL1YMP`SJULSECI LSHIFT_STRINGMAPDEXYMINJULUPAGE.z POSITIONSRADDEGRANDOM0 READ_LINE`RESET_TERMINAL\RFRD)SCREENaSCROLLGSET_MODESET_PROCESSNAME'SNDOPRl STRING_LENGTHcSTRIPDTITLEe TRAN_LOGNAMEjVT_TITLE^WAITw YES_OR_NOYMPES_OR_NOYMPOR_NOYMPOYMPNOYMPOR_NOYMP1DOUB GETDESCR JULMINYMPH GET_USERNAMEQIFIDRJLMIN1;JOBMODE:JOBTYPRJULMINSJULSEC{ LIB_PRINT{ LIB_SUBMITI LSHIFT_STRINGMAPDEXYMINJL1MINJL1SKYMINJL1zMASKYMINJL1MASKYMINJL1GETPID GET_CURSOR GET_ELEMENT GET_OWNERZ GET_SPEED GET_TERMTYPE5 GET_USERINFOH GET_USERNAMEQIFID{JBCSHELL;JOBMODE:JOBTYPRJULMINC ENCODE_VALUE FILESPECSF FILL_STRING6FLIPXGETDESCRGETPID GET_CURSOR GET_ELEMENT GET_OWNERZ GET_SPEED GET_TERMTYPE5 GET_USERINFO GET_USERINFOyn ENABLE_CTRLYENABLE_CTRLY_ASTC ENCODE_VALUE FILESPECSF FILL_STRING6FLIPXGETDESCRGETDESCRGETDESCRGETDESCRe<DEGRADD DELETE_BLANKSKDEVOWNERMDOUBn ENABLE_CTRLYENABLE_CTRLY_ASTBLE_CTRLY_ASTBLE_CTRLY_ASTENABLE_CTRLY_ASTENABLE_CTRLY_AST !"#$%&'()*+,-./012 41`011ASCFAD0129-Mar-1985 10:1329-Mar-1985 10:13VAX FORTRAN V4.1-45 ASCFADP  ASCFADP P[}PQЬ ޻Rޢ( LIB$EXTZVPޢ8, LIB$EXTZVPޢ( LIB$EXTZVPޢ8, LIB$EXTZVPЫS ASCFAD LIB$EXTZVj$CODE $PDATA@$LOCAL  jwwm101L7 GET_USERINFO0122-Jan-1986 15:0022-Jan-1986 15:00PVAX FORTRAN V4.3-145 GET_USERINFO GET_USERINFO $P $$QQQQPH$[P`P `P`P>`P`P`P `P>` SYS$GETJPIPP,(LIB$STOP0STR$TRIM H GET_USERINFO SYS$GETJPISTR$TRI1`H[`Ս0.FLIP025-APR-1985 08:11 VAX/VMS Macro V04-00MAC FLIP.TXT  . ABS .P 0DTA>P FLIP&0ЬSмRЬ XTVTRFcWDcFhWDhVT1 FLIP FLIPDTA0ww6  1@/016 CLEAR4_REST0124-Jun-1985 15:1424-Jun-1985 15:14VAX FORTRAN V4.2-112 CLEAR4_REST CLEAR4_REST{P PI[ЬѼ м PмVѼ PP PPWFXP^QRWSXT OTS$MOVE5_R5] I CLEAR4_RESTQ$CODE$PDATA$LOCAL OTS$MOVE5_R5 P5)P&QwwH 1 01 1CLEAR20125-Jun-1985 07:1825-Jun-1985 07:18QVAX FORTRAN V4.2-112 CLEAR2 CLEAR2_zPP H[м$Ь ޫPFOR$INI_DES1_R2PQP>R2QSCb=PQY HCLEAR29$CODE$PDATA($LOCALFOR$INI_DES1_R2P'P 9wwPLOT^@VQXBP> VAZ0~^\A 1a011JOBTYP0110-Jul-1985 07:4110-Jul-1985 07:41VAX FORTRAN V4.2-112 JOBTYP JOBTYPfPPH["kޫԫ SYS$GETJPIkR HJOBTYP SYS$GETJPI1$CODE$PDATA8$LOCAL+P 14wwPLOT^R^Au=«4~^ PLOT^HPLOTЏN RSЏS RQQЏ RP 1`yCa01>2JOBMODE0110-Jul-1985 07:3710-Jul-1985 07:37VAX FORTRAN V4.2-112JOBMODE P"JOBMODESP PH[}PQ LIB$GETJPI S HJOBMODE LIB$GETJPI$CODE$PDATA($LOCAL  ww_T_DS FOR$IO_ENDLSYMBOLhNEWPENQ ")ۀhC! ~^tpSYMBOL^A?~^˔޼,˜ˌ 1@X011DEGRAD0123-Jul-1985 07:5823-Jul-1985 07:58VAX FORTRAN V4.2-112 DEGRAD DEGRAD$9P@ѼN PDaFPE7Q@QPEaFPE7.PK @DEGRAD3$CODE$PDATA$LOCAL PP A3ww$LOCAL FOR$IO_END FOR$IO_T_DS FOR$ENCODE_MF]PPPP1PPPPPPPP>1L>>)\H?)\ffC@ף̿6W?=  BORDERPH 6EVHW 08@ ` ?1 p016 BINDEC$MAIN0121-Aug-1985 08:0121-Aug-1985 08:01VAX FORTRAN V4.2-112 BINDEC$MAINOP& ENTER BINARY NUMBER (16 digits max): ) BINARY: ) DECIMAL: e BINDEC$MAINTRANSFER$ADDRESSV$P,$"PK$[\(IܰVW FOR$WRITE_SF FOR$IO_END* FOR$READ_SFk FOR$IO_T_DS FOR$IO_ENDSTR$TRIM1X2@XPPYI01I0I=X\X2XPP@ XPP=XPPXPXP2PPPYYP-PI 1VP2P~ OTS$POWIIPWV=X\WVVW, FOR$WRITE_SFk FOR$IO_T_DS2W~ FOR$IO_W_V FOR$IO_END1IP0000000000000000 K BINDEC$MAINSTR$TRIM.$CODEY$PDATAD$LOCAL FOR$IO_END FOR$IO_W_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF OTS$POWIID`P3fP-yP PP"P P P7PAP>2.ww FOR$IO_X_SE FOR$IO_ENDSˈ FOR$JIBITSP1S˘ FOR$JIBITSPV˨ FOR$JIBITSPXYV1YXTI˼˸ FOR$JIBITSNPPGzEPUI FOR$JIBITSNPPFzEPNQBUF7U@QUN QBPF7PAPQZQUk1QU1QZ QZRCCUPE7P~^˄ˀYMP^BWPF7PD,PA(PB$C ZPD,PA$PBLU,Z0DSTCHKRR~^CRVPLT^RVY RR~^CRVPLTB1Αp01C6 DECBIN$MAIN01 2-Aug-1985 14:03 2-Aug-1985 14:03VAX FORTRAN V4.2-112 DECBIN$MAINMP& ENTER DECIMAL NUMBER (5 digits max):  DECIMAL: BINARY: ) DECBIN$MAINTRANSFER$ADDRESS_2PPSTR$TRIMVWX2XPPTD V2VQQDA=WXWVV2VXX H=WV>STR$TRIMY I DELETE_BLANKSSTR$TRIM~$CODE$PDATA$LOCAL.P#=P]P~ww|[ˏPE:[PVEVP@I@P MTH$TAN_R5 MTH$ALOG10_R5EF]PUVP MTH$SIN_R4DB&PBPU޼ MTH$SIGNDPUUP |YMPMTH$TAN MTH$ALOG10MTH$SINMTH$SIGN`$CODE$PDATA$LOCAL MTH$SIN_R4 MTH$TAN_R5 MTH$ALOG10_R5 `ww 1 R\016 FILL_STRING0128-Jan-1986 15:2828-Jan-1986 15:28VAX FORTRAN V4.3-145 FILL_STRINGY P FILL_STRINGpPPH[}PQPk}PQ > $ LIB$MOVC5Z H FILL_STRING LIB$MOVC54$CODE$PDATA($LOCAL4~wwRITE_SL0 FOR$IO_T_DS FOR$IO_ENDFOR$EXITѼBԼo1 p~01 3SET_MODE0130-Apr-1986 10:3330-Apr-1986 10:33CVAX FORTRAN V4.4-177SET_MODE$P SYS$INPUTSET_MODEdP  SYS$ASSIGN@      Q(#'PH[1 SY 1@ Ump017 GET_USERNAME01 5-Dec-1985 08:43 5-Dec-1985 08:43VAX FORTRAN V4.3-145 GET_USERNAMEP  GET_USERNAMES P  4PH [}PQ ޼ SYS$GETJPI0 LIB$INDEXPDh H GET_USERNAME SYS$GETJPI LIB$INDEX;$CODE$PDATAH$LOCAL;ww%P+P0J1"mp018 LSHIFT_STRING01 5-Dec-1985 08:43 5-Dec-1985 08:43VAX FORTRAN V4.3-145 LSHIFT_STRINGP  LSHIFT_STRINGP  LIB$SKPC@PI[}PQPkLIB$SKPCP(STR$TRIMf I LSHIFT_STRINGLIB$SKPCSTR$TRIM~$CODE$PDATA0$LOCALP]6P]P!~2ww5 10:1529-Mar-1985 10:15VAX FORTRAN V4.1-45 DEGRAD DEGRAD=P[ѼNkPDaFPE7Q@QPEaFPE7.PK DEGRAD7$CODE$PDATA$LOCAL P"P 7ww L1`W013DEVOWNER0129-Mar-1985 10:1629-Mar-1985 10:16VAX FORTRAN V4.1-45DEVOWNERDEVOWNERPP[}PQ ޼ԫԫ SYS$GETDVIPR, SYS$WAITFRRR84LIB$STOPr DEVOWNER SYS$GETDVI SYS$WAITFRLIB$STOPI$CODE$PDATAL$LOCAL;P !IwwN1mt01/DOUB0129-Mar-1985 10:1729-Mar-1985 10:17VAX FORTRAN V4.1-45 DOUBP DOUB?P P<[ЬԼ ޻QССˏPQPQQRR˫˫ˏQQSSQQӫˏ?QQSSQ͏SSSSQ޼ FOR$JMVBITS޼P`SSЫRr ԫ, MTH$CVT_GA_DA}Pg <DOUB FOR$JMVBITS MTH$CVT_GA_DA$CODE $PDATAT$LOCAL!;PgPkqPZPP:.1wwp"r WISCHOW GETPID'bu WISCHOW CREATE_LOGNAME!  WISCHOW JBCSHELL%<4? WISCHOW GET_TERMTYPE# ݂ WISCHOW GET_CURSOR  WISCHOW RANDOMQ WISCHOW BORDERCALCIACHBNDGEOBATHLANDMASKNTRANMASKREADTAPEgC WISCHOW ALLMOUNT BINDEC$MAINCRVPLT DECBIN$MAIN DISUSER_FLAGDSTCHKELTRAN UOPEN_PRINT&ϖ WISCHOW CENTER_STRING1| u01Q9CREATE_LOGNAME0119-Mar-1987 13:0019-Mar-1987 13:00VAX FORTRAN V4.5-219CREATE_LOGNAMEEB Tc.DJA0:[GRAVLIB.DEVELOPMENT]CREATE_LOGNAME.FOR;4 A>x݋B#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$LNMDEF 7EB Tc.DJA0:[GRAVLIB.DEVELOPMENT]CREATE_LOGNAME.FOR;4! A>@_B#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$PSLDEF AEB 1!5҅01/IFID0129-Mar-1985 10:1829-Mar-1985 10:18VAX FORTRAN V4.1-45 IFID IFIDP P [ЬԼ޻QССPQPQ˫PPPPRRPPЏQΫЫPC IFIDq$CODE$PDATA$LOCAL.PGPVP fP*qww 1 Bꅫ011JULMIN0129-Mar-1985 10:1829-Mar-1985 10:18VAX FORTRAN V4.1-45 JULMIN JULMINtP [ЬkмPPPм QQQ [Ь kǏdPzR{dRQQмRRRRRďR a( STRING_LENGTH,k VЏ,n  k48< SYS$TRNLNMg1`;A01/PAGE0116-Jan-1986 08:3616-Jan-1986 08:36VAX FORTRAN V4.3-145 PAGEPSYS$OUTPUT +) PAGE$P $ SYS$GETDVI@ Q P|H[ޫk SYS$GETDVIѫ`^(n~ݏ[1;H~, n Q^ \ѫ~~,n Q^\ѫѫѫ!, \V2VPP@=V\ѫ`~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END ~ FOR$WRITE_SF\<@< FOR$IO_T_DS FOR$IO_ENDP[2J |HPAGE SYS$GETDVI$CODE$PDATA`$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SL:+P(SPXYPpP;yP PPPP0$wwi1y@015 CHECK_TIME0113-Feb-1986 07:1313-Feb-1986 07:13VAX FORTRAN V4.3-145 CHECK_TIME P: CHECK_TIMET P(PSTR$TRIMY X> \P POSITIONS쐏rt(l˔ DELETE_BLANKS-MLIB$STOPu$CODE$PDATAd$LOCALUSERINFOUSERINFO_LENGTHS_P $ uww 1<-017 ENABLE_CTRLY0128-Apr-1986 09:0328-Apr-1986 09:033VAX FORTRAN V4.4-177 ENABLE_CTRLY ENABLE_CTRLYLQPPH[kLIB$ENABLE_CTRLPP LIB$STOPx H ENABLE_CTRLYLIB$ENABLE_CTRLLIB$STOP $CODE$PDATA$LOCAL CTRL_MASKP E  ww CTRL_Y_ASTLIB$DISABLE_CTRLLIB$STOPB$CODE$PpS$ASSIGN2$2(SYS$QIOWPPTPLIB$STOPЫЫ>\X FOR$BITESTPd FOR$JIBSETP>tp FOR$BITESTP| FOR$JIBSETP>ˌˈ FOR$BITESTP˔ FOR$JIBCLRP2˨2ˬˠSYS$QIOWPPTPLIB$STOP2$2(SYS$QIOWPPTPLIB$STOP HSET_MODE SYS$ASSIGNSYS$QIOWLIB$STOP FOR$BITEST FOR$JIBSET FOR$JIBCLR$CODE$PDATA$LOCALTERMINAL<PP8P ^P zP P P P%P 2& wwr1`?015 CHECK_DATE0113-Feb-1986 07:1313-Feb-1986 07:130VAX FORTRAN V4.3-145 CHECK_DATEPAPRJUNSEPNOVI CHECK_DATEb8P  $ @0\dHx xQ[JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECP|H8[}PQ( ȔV STRING_LENGTHر  12PP$ȫ(P,ȫ04 STR$UPCASEͱ  ^( n0~( nQ^-1-1˫DH LIB$INDEXPP1 ȫXT FOR$READ_IF? FOR$IO_W_R FOR$IO_ENDϫ`\ FOR$READ_IF? FOR$IO_W_R FOR$IO_ENDקPPPVV))˫Dl LIB$INDEXPPPPPFEB |H CHECK_DATE STR$UPCASE STRING_LENGTH LIB$INDEXG$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_W_R FOR$READ_IF&P .PSPnPPWW2 P,P 2 kVk48T SYS$TRNLNMPWWV2 V,V P,n  PWWplLIB$STOPP} H TRAN_LOGNAME STRING_LENGTH SYS$TRNLNMLIB$STOP $CODE$PDATA$LOCAL*}P6PPP&PP 9-` ww(L8   LTL\Lu1h015 CHECK_READ01 4-Feb-1987 07:09 4-Feb-1987 07:09VAX FORTRAN V4.5-219 CHECK_READ CHECK_READP Q QQQP|H[}PQPk LIB$INDEXPV1VP2PPP@VVV2V,V , kA 1B 1C 1D 1P 1Q 1Rv 1S 1p 1q 1r 1s 1t 1u 1v w x y n M l m  , LIB$INDEXP  8 LIB$INDEXP Y |H CHECK_READ LIB$INDEX$CODE$PDATAH$LOCAL |"P>P_PePUnP tPF~P P6P P&P PP PP PP PP PP PP PP PP $P.P 4P>P DPwNP TPg^P dPWnP tPG~P P7P P'P PP PPP,PPPPPXL wwPJPEQPWP8^PdP+kPqPxP~PPPPPP 1` 701Y4 YES_OR_NO01 2-Dec-1986 10:12 2-Dec-1986 10:12VAX FORTRAN V4.5-219 YES_OR_NOE YES_OR_NO`PPH[}PQPk STR$UPCASE䑻YPNPPU H YES_OR_NO STR$UPCASE8$CODE$PDATA$LOCAL "P.PR8wwMMACK UOPEN_PRINT ` LIBRARY TITLE`  LIBRARY TITLEQLQQQPP33QCODEPЬRb43Т,3SYS$OPENP PLIB$STOPP30P;3P<3P=3PL33(P*3 3 SYS$CLOSEP PLIB$STOP|~?@0 SYS$ASSIGNP PLIB$STOP|~|~8< IO$_ACCESS IO$M_ACCESS8&~<@~ SYS$QIOWP z %% LIB$SPAWN@!FF LIB$SPAWN@PQxPHP[2 SYS$QIOWPPD@LIB$STOPP LIB$FIND_FILEPh FOR$WRITE_SF FOR$IO_ENDh LIB$SPAWNx LIB$SPAWNˀLIB$FIND_FILE_END HRESET_TERMINALSYS$QIOWLIB$STOP LIB$FIND_FILELIB$FIND_FILE_END LIB$SPAWN~$CODE$PDATA$LOCALTERMINAL FOR$IO_END FOR$WRITE_SFPcP+P HP#hP ) ~wwATA $LOCAL FOR$IO_END FOR$IO_W_V FOR$ENCODE_MF% P3%P,-P$SP/XP*^P$"wwENGTH2P@phENCODEߐhq?nod2P>@phENCODE䐏lqX> \P POSITIONS쐏rt(l˔ DELETE_BLANKS-~1 뤱013LANDMASK01 9-Jul-1986 16:31 9-Jul-1986 16:314VAX FORTRAN V4.4-177LANDMASKR;8_[$DJA0:[GRAVLIB.GENERAL]LANDMASK.TXT;2 7'PGRAVLIB$GENERAL:LANDMASK.DATLANDMASK~d0P  P FOR$OPEN@,P[мkмм ի DFOR$OPEN kիkЫPPPPռ h HkPďhPPPѫݫ  FOR$READ_DU߫ FOR$IO_X_SE FOR$IO_ENDЫP PQQPt FOR$JIBITSP! LANDMASK`  DLATD DLATM  DLOND LONM MASK*OUT LATD LATM LOND  PASSFOR$OPEN* $RECORD (OLDREC,Kk FOR$JIBITS$CODE!$PDATA$LOCAL FOR$IO_END FOR$wPPPPPPLPFPP P2PP $P6P<PWB6Gww2PPtExt FOR$IO_T_DS( FOR$IO_T_DS FOR$IO_END$ FOR$WRITE_SF2PPtExt FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF2PPtExt FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_ENDh STRING_LENGTH FOR$WRITE_SF2 1 Xَ01P3CLEAR2D20117-Apr-1986 12:3117-Apr-1986 12:316VAX FORTRAN V4.4-177CLEAR2D2CLEAR2D2PP H[2PP0Ь ޫPFOR$INI_DES2_R3ڰPQ>R2QSīSCC=PQ[ HCLEAR2D2F$CODE$PDATA8$LOCALFOR$INI_DES2_R3+P FwwBUILD_DIRECTORYP1y,01;ENABLE_CTRLY_AST0128-Apr-1986 09:0328-Apr-1986 09:03 VAX FORTRAN V4.4-177ENABLE_CTRLY_ASTENABLE_CTRLY_ASTP PH[ЏkLIB$DISABLE_CTRL2޼$޼ (SYS$QIOWPP@<LIB$STOP HENABLE_CTRLY_ASTSYS$QIOWLIB$DISABLE_CTRLLIB$STOPG$CODE$PDATAD$LOCAL CTRL_MASK9P Y A Gww\X FOR$BITESTPd FOR$JIBSETP>tp FOR$BITESTP| FOR$JIBSETP>ˌˈ FOR$BITESTP˔ FOR$JIBCLRP2˨2ˬˠSYS$QIOWPPTPLIB$STOP2$2(SYS$QIOWPPTPLIB$STOP HSET_MODE SYS$ASSIGNSYS$QIOWLIB$STOP FOR$BITEST FOR$JIBSET FOR$JIBCLR$CODE$PDATA$LOCALTERMINAL<PP1&010TITLE01 2-Jul-1986 10:17 2-Jul-1986 10:17VAX FORTRAN V4.4-177 TITLE/PTERMINAL_TYPE,*+))))))))) TITLETRANSFER$ADDRESSPxP 7PddBdd  nvvvvxpL FILL_STRING@QPOx[HLIB$GET_SYMBOLP1,n P\LIB$GET_FOREIGN\1t LIB$INDEXPV2\P,P ˈ\VY2YP,P ˈY2\YVP2PPPPY,Y@ ˦V\)˿)1^(0n˰~Ў˻VWW(PP#3~˰~(n˱Q^#4~˰~(n˴Q^(3n˰~Ў˷˻2WPP^(Pn^SZZY˷Y^(˴nY,Yn d.PQ^YYWZ(d.12PP^(P˦n^SW2ZXX^(XnX\\W˷W,Wn dPQ^ˀ STRING_LENGTH 1]V|ُ0O3 GET_OWNER0 9-MAR-1987 12:05 AVAX/VMS Macro V04-00MACRO GET_OWNER: ? SYS$CLOSESYS$FINISH_RDB SYS$IDTOASCSYS$OPEN . ABS .PUGET_OWNER_DATAP$ABS$HPQQQQQQQ PPQNQQpQQpPpPXQVQQQQQQQPLIB$STOP8<8~LIB$STOP|~|~8< IO$_DEACCESS&~<@~ SYS$QIOWP PLIB$STOP8<8~LIB$STOP ЏP/ ЏP ЏPЏP CLASSPROC2&DATABCODEwwDS FOR$IO_END FOR$WRITE_SF2PPtExt FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_ENDh STRING_LENGTH FOR$WRITE_SF2 POSITIONS POSITIONSPPH[}PQPkP@ > ENCODE_VALUEP;@P@ > ,$ ENCODE_VALUE[ H POSITIONS ENCODE_VALUEI$CODE$PDATA0$LOCAL@ Iww8:P<H>Q 1 4 5 722242527QQPO@[}PYYY˻Z2ZZZ^(ZnZWWY2PP^(Pn^SWWY,Yn dPQ^˻X^(XnXWWY2PP^(Pn^SWWY,Yn dPQ^˻ ~݅˷˻ ~2VVV^(VˈnVWWY ~Y˻Y ~Y˷Y^(˱nY,Yn dfPQ^˻ ~˷˻ ~V^(VˈnVWWY ~Y˻Y ~Y˷Y^(˴nY,Yn dPQ^ˌ STRING_LENGTH~ FOR$WRITE_SF2YY˘˜˘ FOR$IO_T_DS2PPˠ.ˤˠ FOR$IO_T_DS FOR$IO_END˨ STRING_LENGTH~ FOR$WRITE_SFYˠˤˠ FOR$IO_T_DS2PP˘f˜˘ FOR$IO_T_DS FOR$IO_END˴ STRING_LENGTH~ FOR$WRITE_SFYˠˤˠ FOR$IO_T_DS2PP˘˜˘ FOR$IO_T_DS FOR$IO_ENDˀ STRING_LENGTH~ FOR$WRITE_SFYˠˤˠ FOR$IO_T_DS2PP˘˜˘ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFYˠˤˠ FOR$IO_T_DSY˘˜˘ FOR$IO_T_DS2PP FOR$IO_T_DS FOR$IO_END1 STRING $PDATA$LOCAL FOR$IO_END FOR$IO_W_V FOR$ENCODE_MF2PE#P0+P(QP `PBhP/nP)P&wwIO_ENDVW,n ll[m>`> dX POSITIONS鐏Ht1nl>xp ENCODE_VALUE鐏Ap1nl>xp ENCODE_VALUE搏Bp1nˀ>ˌ˄ ENCODE_VALUE吏Cq1nˀ>ˌ˄ ENCODE_VALUE鐏Dq1>`> dX POSITIONSِHtlu#v6_LENGTHⰫYYPPPWYVV~^ FILL_STRING^2VVV^(VnVX2WVV^(VnVZZX,Xn dPQ^~ FOR$WRITE_SFYWW2WWW FOR$IO_T_DS FOR$IO_END *~2YPP^(Pˈn^SYYX* ~XV^(VnVYYX,Xn dfPQ^~ FOR$WRITE_SFWf FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFW FOR$IO_T_DS FOR$IO_ENDPPPW#~ FOR$WRITE_SFW2WWW FOR$IO_T_DS FOR$IO_T_DS 1,01:SET_PROCESSNAME01 2-Jul-1986 13:42 2-Jul-1986 13:42VAX FORTRAN V4.4-177SET_PROCESSNAMEPSET_PROCESSNAME`PPH[}PQPk SYS$SETPRNPPLIB$STOPh HSET_PROCESSNAME SYS$SETPRNLIB$STOP,$CODE$PDATA$LOCALP  w ,wwvvxp1Ji>017 GET_TERMTYPE01 8-Apr-1987 08:43 8-Apr-1987 08:43VAX FORTRAN V4.5-219 GET_TERMTYPE=PSYS$INPUT%GET_TERMTYPE-F-GETDVIERR SYS$GETDVI failedS GET_TERMTYPE_HP H SYS$ASSIGN@-  0 ,Q`[>cPH<[ SYS$ASSIGNPP,(LIB$STOPԞP`P`Pޫ`P`.TEST]GET_SPEED.FOR;7 @=}ًB#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$IODEF 962 0"DJA0:[GRAVLIB.TEST]GET_SPEED.FOR;7 "PSYS$INPUT GET_SPEEDl\P \ SYS$ASSIGN@ L Q'Q2Kn,X   `   %KPHX[ SYS$ASSIGNPk2(2, SYS$QIOWPkkkXTLIB$STOPP2QQQPA2QQQAQ2PPPQ@2PPP@= H GET_SPEED  RSPEED TSPEED SYS$ASSIGNSYS$QIOWEȘ RTTDEF 0,0,0,0,X RIODEF0,IO_X_SE FOR$READ_DUP+P0PDP mP7+wwn1n4n5n7n nnn'nPP2PPPm@l1Em1(m)m An Bn0n?nol2P>@xp ENCODE_VALUEݐhq?nol2P>@xp ENCODE_VALUEᐏlq`> dX POSITIONS쐏rt(l˜ DELETE_BLANKS-k n1 STRINP`Pk`80 SYS$GETDVIkP~ FOR$WRITE_SLT FOR$IO_T_DS FOR$IO_ENDFOR$EXITѫBndP6P P4(1@gu101BTEST_Q0 7-AUG-1986 15:40 EVAX/VMS Macro V04-00 MAC BTEST_Q- Test bits of a quad word T . ABS .P$BTEST_QP BTEST_Q&$~UмWWWe  WWPP$BTEST_QBTEST_QBTEST_Q$ww0,0,0,1}/5012BOXPAGE0112-Aug-1986 09:3412-Aug-1986 09:34VAX FORTRAN V4.4-177BOXPAGEP))BOXPAGEP   PH[}PQ}PQ } PQ FOR$WRITE_SF FOR$IO_END CENTER_STRING BIGCHARS_INITR4BIGCHARSP FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END=R FOR$WRITE_SF FOR$IO_END< CENTER_STRING< BIGCHARS_INITR4BIGCHARSP FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END=R FOR$WRITE_SF FOR$IO_ENDP CENTER_STRINGP BIGCHARS_INITR4BIGCHARSP FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END=R FOR$WRITE_SF FOR$IO_END HBOXPAGE CENTER_STRING BIGCHARS_INITBIGCHARSq$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFXP2P2(P24(qww0,0,0,0,0,1=/5018 CENTER_STRING0112-Aug-1986 09:3412-Aug-1986 09:34VAX FORTRAN V4.4-177 CENTER_STRING CENTER_STRINGhPQPH[}PQPk STRING_LENGTH祼 PPPPPPb H CENTER_STRING STRING_LENGTH5$CODE$PDATA$LOCAL 5ww0,0,1`VH)1502BIGCHARS010-APR-1986 09:46 VAX/VMS Macro V04-00MAC/DEB BIGCHARS.MAR- GENERATE LARGE LETTERSSTR$TRIM STR$UPCASE . ABS .P$ABS$ PP BIGCHARS_DATA-PQQQQQQQQEBIGCHARSP.c|1!_1Cx! !B.cB]C!w1g1cB.X}1A>!c1cc1FET1*B>.:#B]FRѹ^A.Fs1zG1` 0ZA<90;:__$$..  BIGCHARS_INIT&|}  ?  STR$TRIM   STR$UPCASE 3BIGCHARS&1}<Y3P,` Y`Y3P 3W<VR Q0pgS5TTSSdS2dQQT#SQQSUgQSd QR0-SURWVPYP13 01P6 GET_ELEMENT0116-Jul-1986 11:4516-Jul-1986 11:45VAX FORTRAN V4.4-177 GET_ELEMENT GET_ELEMENTP (P|H[}PQPk}PQ P} PQR STRING_LENGTH2PP$ (, LIB$INDEXPPVPVPR2P2RQQQPP$A (, LIB$INDEXPPVPV2VP2RRRRP,PB kVPn |H GET_ELEMENT STRING_LENGTH LIB$INDEX$CODE$PDATA<$LOCAL-,P3QPWP]PCfPPPV)ww$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFZPW0P;P&PAP]PyPPPP PPP-PYPPP!PYPPPPPlPP%P1EPrPPPPPPPP 13>015 GET_CURSOR01 2-Apr-1987 12:31 2-Apr-1987 12:315VAX FORTRAN V4.5-219 GET_CURSORP[;RN GET_CURSORew@P0 $0@@@Q\P H@[ GET_TERMTYPEnP`PЏH`P`P`P`P`P`P`P`P0,0,0,0,0,0,0,0,0,PYQR?BIGCHARS3BIGCHARS BIGCHARS_INITE ALPHA BLANK COLONS DECODE  DESCRDOLLARS DOTDSC$A_A0 DSC$A_BASE DSC$A_FRAME DSC$A_HANDLE DSC$A_POINTER  DSC$B_AFLAGS DSC$B_CLASS  DSC$B_DIGITS  DSC$B_DIMCT DSC$B_DTYPE DSC$B_SCALE DSC$C_D_BLN  DSC$C_JI_BLN DSC$C_J_BLN  DSC$C_PI_BLN DSC$C_P_BLN  DSC$C_SD_BLN DSC$C_S_BLN  DSC$C_UBS_BLN DSC$C_VS_BLN DSC$C_Z_BLN DSC$K_CLASS_ADSC$K_CLASS_BFA DSC$K_CLASS_D DSC$K_CLASS_JDSC$K_CLASS_JI DSC$K_CLASS_NCA DSC$K_CLASS_PDSC$K_CLASS_PI DSC$K_CLASS_SDSC$K_CLASS_SB DSC$K_CLASS_SDDSC$K_CLASS_0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, TTCHAN+IOSBLK XSTATUS+CHAR 9SPEEDS @T SENSEMODELIB$STOP VI>$CODE $PDATA$LOCALTERMINALP 6P XP wP  wwSPPH[}PQPkP@ > ENCODE_VALUEP;@P@ > ,$ ENCODE_VALUE[ H POSITIONS ENCODE_VALUEI$CODE$PDATA0$LOCAL Iww8,QP Q1?013CHECK_ID0110-Dec-1986 14:3010-Dec-1986 14:300VAX FORTRAN V4.5-219CHECK_ID PCHECK_IDDP'80D<@L440P H0[}PQP$ LIB$GETJPIPPD@LIB$STOPkԫH SYS$FIND_HELDPQQ!PQQD@LIB$STOP\ STRING_LENGTHЫlh SYS$IDTnX,Xn ddPQ^ ~ ~6ُ WISCHOW .MAIN.}\Cُ WISCHOW .MAIN." t|ُ WISCHOW GET_OWNERsYڏ WISCHOW RADDEGG` LINGSCH BORDER1N` LINGSCH CALCIACRVPLTDSTCHKYMP14yN`011DSTCHK0119-Mar-1987 12:3419-Mar-1987 12:34VAX FORTRAN V4.5-219 DSTCHK DSTCHKP:P|H[Լ CCPD7PD:PˏPUUP MTH$COS_R4EHPVEUP MTH$COS_R4DCPBPVEUP MTH$COS_R4DD=P@PVFHVCPPCUUDVUDPPDUU@UP MTH$SQRT_R3P#= UQ4CQDP=CUQPU мм |HDSTCHKMTH$COSMTH$SQRT$CODE$PDATA$LOCAL$BLANK MTH$COS_R4 MTH$SQRT_R3P PP#ww$OPENS޼phMTH$SIGNG7QDQP@PACP ޼ phMTH$SIGNG7QDQP@ PACP޼phMTH$SIGNG7QDQPAPV޼phMTH$SIGNG7 QDQPAPCC PE7P~^xtYMP^PSV@DVS@DQV@DJ YJJJVЭZNPQP֫A0PJP R~ FOR$WRITE_SFݫ  FOR$IO_L_V FOR$IO_END@RXX FOR$READ_DU1`!r01U1GETPID0123-Mar-1987 09:5123-Mar-1987 09:51VAX FORTRAN V4.5-219 GETPID=:7(m&DJA0:[GRAVLIB.DEVELOPMENT]GETPID.FOR;3 @=B#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$SSDEF =:7(m&DJA0:[GRAVLIB.DEVELOPMENT]GETPID.FOR;3 A>ڋB#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$JPIDEF =:7(m&DJA0:[GRAVLIB. DEVELOPMENT]GETPID.FOR;3 C<P %GETPID-W-NOPRIV No privilege for attempted operation GETPIDOP6PH[P`P`P޼` SYS$GETJPIWPkk$~ FOR$WRITE_SL$ FOR$IO_T_DS FOR$IO_ENDO HGETPIDR   PIDsRJPIDEF` BUFLENITEMCODE  BUFADR @RETADR LIST3/P;T p1 017 DISUSER_FLAG0114-Jan-1987 09:1114-Jan-1987 09:11VAX FORTRAN V4.5-219 DISUSER_FLAG P DISUSER_FLAGM$P$ 8PH[}PQ PP`P#`Pk`Pޫ` STRING_LENGTHP $ SYS$GETUAIPQQPQQHDLIB$STOPL FOR$JIBSETPkL FOR$JIBCLRPk $ SYS$SETUAI1@P01-4 FILESPECS0110-Dec-1986 10:5610-Dec-1986 10:56VAX FORTRAN V4.5-219 FILESPECS FILESPECS$P$dd QLQ QPa˘@P`˜SP@˨˔ LIB$MOVC5PRRR˄ˀLIB$STOPSˬLIB$FIND_FILE_END,$ ,C ,b $, (,, 04, 8<, @DPP >Оޫˌ SYS$MOUNTPP˘˔LIB$STOPPP_MSB0: |ALLMOUNT SYS$ALLOC SYS$MOUNTGETPIDDEVOWNERLIB$STOP6$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFI:PJP SP \P?^P}wPdP P0PPA$P$C7&  6ww_T_DS FOR$IO_ENDPPPW~ FOR$WRITE_SFW2WWW FOR$IO_T_DS FOR$IO_T_DS FO15w0E0ELTRAN025-SEP-1985 08:28 VAX/VMS Macro V04-00 MAC ELTRAN LIB$DELETE_LOGICALLIB$PUT_OUTPUTLIB$SET_LOGICAL OTS$CVT_L_TI OTS$CVT_L_TZRMS$_ACCRMS$_ACTRMS$_CRERMS$_DACRMS$_DNFRMS$_DNRRMS$_DPERMS$_EOFRMS$_EXTRMS$_FACRMS$_FLKRMS$_FNFRMS$_FULRMS$_IFIRMS$_ISIRMS$_NEFRMS$_RERRMS$_WLK SYS$CLOSE SYS$CONN FOR$IO_ENDP)PUNKNOWN[0m[7m OTITLELIB$GET_FOREIGNLIB$GET_SYMBOL LIB$INDEX STRING_LENGTH FILL_STRING$CODE6$PDATAd$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFVP0P>PTP7PAPLPP;P4PMPbhPzpd wwECT SYS$CREATESYS$GETSYS$OPENSYS$PUTSYS$READ SYS$REWIND SYS$SPACE SYS$WRITE . ABS .P i DTAP ELTRAN&ммRмм м м0޼XH@, HDRa4&9a4&a4&a4& a4&Ka4&a4&a4& a4&<a4&Ra4&a4&a4&Na4&a4&1l$ABS$PDP$  Ԡ8DSYS$READDT"TdP1'PRMS$_EOFPRMS$_RER11@TTd'@ SYS$CLOSE@SYS$OPEND SYS$CONNECTЏ1DP( "Ԡ8SP@P <D SYS$WRITEP1  1kDP$  8DSYS$READDT"TdP11%DP( "8D SYS$WRITEP1 1,TRDb(4 1T$@PԠ$@PB #@PO1  @VЏ 14< 18<@P$ 1 LIB$SET_LOGICALP/@SYS$OPENPRMS$_IFI1PD SYS$CONNECTP 1 1PRMS$_FNF171@ SYS$CLOSEP PRMS$_IFI1޺@PԠ$ 1e LIB$DELETE_LOGICAL1TDP8D SYS$SPACEP11/SSDPЏd81SSDPЏ8D SYS$SPACEPRMS$_EOFS1@ SYS$CLOSE@SYS$OPEND SYS$CONNECTP1F1D SYS$REWINDP101,TRDb(0 Џ@0N1@P(,,4Џ 601@P(,,4Џ  601F@PO(,,4Џ  60@@ SYS$CREATEP1D SYS$CONNECTP1Џ$ 1A LIB$SET_LOGICALP1l1$@PDP$  DSYS$GETDT"TdP11@PDP( "DSYS$PUTP1? 1@PDP$  0DSYS$GETDT"TdP1+1O@PDP( "0DSYS$PUTP1 1Z $ZZ  $ OTS$CVT_L_TI TЏV(SV:Fc TTT ( 3 $T(S(<Dc<3 PRMS$_ACT # 1;PRMS$_DNR [ 1)PRMS$_DPE  1PRMS$_EXT  1PRMS$_DAC  1PRMS$_CRE )1PRMS$_DNF X1PRMS$_FLK 1PRMS$_WLK 1PRMS$_ACC 1PRMS$_FNF 1PRMS$_IFI D1uPRMS$_ISI |1cPRMS$_FUL 1QPRMS$_FAC 1?PRMS$_NEF 61-P  OTS$CVT_L_TZ LIB$PUT_OUTPUT LIB$PUT_OUTPUT$ 1 j3 $  3j 3jLIB$PUT_OUTPUT$1  1 3 $  3 3LIB$PUT_OUTPUTЏDAT2Pms: MS: HPQNQQ"Q$RMSNAMP1PQQQPQNQQ"QP2PQQQPQNQQ"QP33PQQQPQNQQ"QP4PQQQPQNQQ"QP5PQQQPQNQQ"QP6#PQQQPQNQQ"QP7sPQQQPQNQQ"QP8PQQQPQNQQ"QP9PQQQPQNQQ"Q P10cPQ QQPQNQQ"Q P11PQ QQPQNQQ"Q P12PQ QQPQNQQ"QP13SPQQQPQNQQ"QP14PQQQPQNQQ"QP15PQQQPQNQQ"QP16CPQQQPQNQQ"QP17PQQQPQNQQ"QP18PQQQPQNQQ"QP193PQQQPQNQQ"QP20PQQQH8(xhXH8DQBQQQHQDQBQQQQDQBQQQQDQBQQQ8QDQBQQQQDQBQQQQDQBQQQ(QDQBQQQxQDQBQQQQDQBQQQQDQBQQQhQDQBQQQQDQBQQQQDQBQQQXQDQBQQQQDQBQQQQDQBQQQHQDQBQQQQDQBQQQQDQBQQQ8Q d0t@    P    `   Q Q  3file read warning,less bytes than in recQ(&Q. 3eltran error: error in lu assignmentQ%&Q+ 3eltran error: not diagnosedQ&Q"' 3eltran error: file activity precludes operationQ0&Q6_ 3eltran error: device not ready or not mountedQ.&Q4 3eltran error: device positioning errorQ'&Q- 3eltran error: acp file extend failedQ$&Q* 3eltran error: acp file deaccess failed during $closeQ5&Q;-3eltran error: acp file creation failedQ'&Q-\3eltran error: directory not foundQ"&Q(3eltran error: file currently locked by another userQ4&Q:3eltran error: device currently write lockedQ,&Q23eltran error: acp file access failedQ%&Q+#3eltran error: file not foundQ&Q#H3eltran error: invalid id in fab - file not openQ0&Q63eltran error: invalid id in rab - file not openQ0&Q63eltran error: device full;cannot create or extend fileQ7&Q=3eltran error: operation not allowed; file may be read onlyQ;&QA:3eltran error: not positioned at end of fileQ,&Q2Vn3 = functionQ &Q3 = logical unitQ&Q" ELTRAN ELTRAN9DTAi DAT2$RMSNAMww1@010NTRAN0129-Mar-1985 10:3929-Mar-1985 10:39VAX FORTRAN V4.1-45 NTRANP UTRAN EOF WHILE READING, STATUS AFTER READ STATUS AFTER WRITE POSITION TAPE BY FILE SKIPPING STATUS POSITIONING STATUS UTRAN END OF FILE UTRAN ERROR$ UTRAN I/O ASSIGN FAILURE, STATUS =  INVALID OPTRAN ON UTRAN CALL  )  NTRANP P  !P P, (P " $P !PP %P P> %PU &Pfz Q 010203040506070809101112131415161718192021222324252627282930QP<[Ь kkP(@< SYS$ASSIGNPRR~ FOR$WRITE_SFR FOR$IO_L_V FOR$IO_ENDRTPLIB$STOPԼѼ1 P2`޼tPxXSYS$QIOWPRRRTPLIB$STOP䱫82PP$Pм QQPPQQp FOR$WRITE_SLˌ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF˔ FOR$IO_T_DSݼ FOR$IO_L_Vݼ  FOR$IO_L_VR FOR$IO_L_V?, FOR$IO_X_DA FOR$IO_END1Ѽ1 P2ˤ޼˸P˼˜SYS$QIOWPRRRTPLIB$STOPұMPQP2PP$Pм QQPPQQ~ FOR$WRITE_SF FOR$IO_T_DSݼ FOR$IO_L_Vݼ  FOR$IO_L_VR FOR$IO_L_V?, FOR$IO_X_DA FOR$IO_END1Ѽ 2SYS$QIOWPRRRTPLIB$STOPᱫ11Ѽ2 SYS$QIOWPRRRTPLIB$STOP1Ѽ 12H@SYS$QIOWPRRRTPLIB$STOP2|tSYS$QIOWPRRRTPLIB$STOPhVOL12˰˨SYS$QIOWPRRRTPLIB$STOP2Ы SYS$QIOWPRRRTPLIB$STOP󱫸RTPLIB$STOPм 1Ѽ1Ѽ1~ FOR$WRITE_SL FOR$IO_T_DSݼ  FOR$IO_L_V FOR$IO_END2 м 4LSYS$QIOWPRRRTPLIB$STOP~ FOR$WRITE_SFL FOR$IO_T_DSݼ FOR$IO_L_Vݼ  FOR$IO_L_VR FOR$IO_L_V?, FOR$IO_X_DA FOR$IO_ENDԱ121Ѽ12\м pTSYS$QIOWPRRRTPLIB$STOP~ FOR$WRITE_SFˈ FOR$IO_T_DSݼ FOR$IO_L_Vݼ  FOR$IO_L_VR FOR$IO_L_V?, FOR$IO_X_DA FOR$IO_ENDձ21 px FOR$WRITE_SFː FOR$IO_T_DSݼ FOR$IO_L_Vݼ  FOR$IO_L_VR FOR$IO_L_V?, FOR$IO_X_DA FOR$IO_END FOR$WRITE_SF˘ FOR$IO_T_DSݼ FOR$IO_L_Vݼ  FOR$IO_L_VR FOR$IO_L_V?, FOR$IO_X_DA FOR$IO_END2TPLIB$STOP~ FOR$WRITE_SFݼ FOR$IO_L_V FOR$IO_ENDLIB$STOP <NTRAN SYS$ASSIGNSYS$QIOWLIB$STOP]$CODE$PDATA8$LOCAL FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SLHPK6P,mPP PPPyP$PPBPKPsP P PPMP`P2P ,PB/P+9P&PP ^PgPP P P&P P<P P !P9)P+P/7P{P PPzPG P dP kPwPPPP;W ]ww1013READTAPE0129-Mar-1985 10:4129-Mar-1985 10:41VAX FORTRAN V4.1-45READTAPE"PREADTAPE`P   P|[Ь޼޼ (NTRANռ <RS޻TˀUP@Ve4f@0 FOR$JMVBITSeLfXH FOR$JMVBITSedfp` FOR$JMVBITSޅ|ކˈx FOR$JMVBITSRSc |READTAPENTRAN FOR$JMVBITS$CODE$PDATA $LOCAL*Pb ww18?N`011CALCIA0119-Mar-1987 12:3419-Mar-1987 12:34VAX FORTRAN V4.5-219 CALCIAP@GRAVLIB$GENERAL:CIAMAPFIL.DATVAXCIA fatal read errorH WDBII Coastline plotted by Code 8321 VAX-11 version (21 August 84)Point spacing index is  CALCIAP6P l `6 FOR$OPEN@h hhH6L6 6lD@6:PO6[^LFOR$OPENR޼|tMTH$SIGNG7QDQP@PACP޼ |tMTH$SIGNG7QDQP@ PACPk޼|tMTH$SIGNG7QDQPAPU޼|tMTH$SIGNG7 QDQPAP CCPE7P~^˄ˀYMP^PSU@DUS @D Q U@D JJkJ JUЭ NPQkP֫A0PJP$Q~ FOR$WRITE_SFݫ$ FOR$IO_L_V FOR$IO_END PzPP{hPPPŏhQQPPYWY FOR$READ_DU߫4 FOR$IO_X_SE FOR$IO_ENDWˈ FOR$JIBITSP1W˘ FOR$JIBITSPT˨ FOR$JIBITSPSVT1VSYF˼˸ FOR$JIBITSNPPGzEPXF FOR$JIBITSNPPFzEPNQBXF7X@QXN QBPF7PAPQZQXk1QX1QZUQZ RCCXPE7P~^˄ˀYMP^BPF7PD,PA(PB$CUZPD,PA$PBLX,Z0DSTCHKRR~^CRVPLT^RTV RR~^CRVPLT^R֫ ѫ Э ֫ѫPLOT  FOR$CLOSE19FOR$STOP OCALCIA FOR$OPENMTH$SIGNYMP FOR$JIBITSDSTCHKCRVPLTPLOT FOR$CLOSE$CODE$PDATA87$LOCALFOR$STOP FOR$IO_END FOR$IO_L_V FOR$IO_X_SE FOR$READ_DU FOR$WRITE_SFLPPPPRPrPPPP PP~Py!PsxP}PPPPP x,1`iN`011CRVPLT0119-Mar-1987 12:3419-Mar-1987 12:34VAX FORTRAN V4.5-219 CRVPLTP CRVPLTIP    PH[Ь Ь ,޻Rޢ4޻,Sޣ80PLOTмk PPǼPTիDbDDcH@PLOTkTT м TDbDDcH@PLOTNR HCRVPLTPLOT$CODE$PDATAP$LOCAL SPrPwwQPO0V[^@FOR$OPENS޼phMTH$SIGNG7QDQP@PACP ޼ phMTH$SIGNG7QDQP@ PACP޼phMTH$SIGNG7QDQPAPV޼phMTH$SIGNG7 QDQPAPCC PE7P~^xtYMP^PSV@DVS@DQV@DJ YJJJVЭZNPQP֫A0PJP I~ FOR$WRITE_SFݫ  FOR$IO_L_V FOR$IO_END@RXX FOR$READ_DU߫( FO 1`ƚN`01.YMP0119-Mar-1987 12:3419-Mar-1987 12:34VAX FORTRAN V4.5-219  YMP P@ YMPPQI@P|H[ˏPE:[PVEVP@I@P MTH$TAN_R5 MTH$ALOG10_R5EF]PUVP MTH$SIN_R4DB&PBPU޼ MTH$SIGNDPUUPE |HYMPMTH$TAN MTH$ALOG10MTH$SINMTH$SIGN`$CODE$PDATA$LOCAL MTH$SIN_R4 MTH$TAN_R5 MTH$ALOG10_R5 `wwVPLT^SZZЭZYYPLOT FOR$CLOSE1I  OCALCIA FOR$OPENMTH$SIGNYMP FOR$BJTEST FOR$JIBITSCRVPLTPLOT FOR$CLOSE'$CODE$PDATA$W$LOCAL FOR$IO_END FOR$IO_L_V FOR$IO_X_SE FOR$READ_DU FOR$WRITE_SFPPPPP8PP P  P%P>PPOPIPDP>PP Px STATUSm SYS$GETJPIWM$CODE6$PDATAD$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL0PMww011CALCIA01 3-Jun-1985 14:36 3-Jun-1985 14:36VAX FORTRAN V4.2-112 CALCIAP@DISK$SYSTEM:[GRAVLIB.GRAPHICS]CIAMAPFIL.DATVAXCIA fatal read errorH WDBII Coastline plotted by Code 8321 VAX-11 version (21 August 84)Point spac Tc.DJA0:[GRAVLIB.DEVELOPMENT]CREATE_LOGNAME.FOR;4" 13P$ %CREATE_LOGNAME-E-FAILURE status = CREATE_LOGNAMEk0P8$@0QPH([}PQ P}PQP} PQPP`P`Pk` STRING_LENGTH枫P`P`P`, SYS$CRELNMP~ FOR$WRITE_SFݫ FOR$IO_L_V FOR$IO_ENDPP# HCREATE_LOGNAME-=  QQQQPGET_OWNER_CODEP    GET_OWNER&޼X}< 3 P, 4 SYS$OPENPHpUХ h? SYS$IDTOASCSYS$FINISH_RDB  SYS$CLOSE( GET_OWNER GET_OWNER:GET_OWNER_DATAGET_OWNER_CODEwwpPpPXQVQQQQQQQ 1`sYڏ01E1RADDEG0110-Mar-1987 13:5810-Mar-1987 13:58XVAX FORTRAN V4.5-219 RADDEGbKH@zYYڏ4DISK$USER:[CODE8311.WISCHOW.TEST.GROUPB]RADDEG.TXT;2  RADDEGA[PH[G7.kGaFkռЫ JNPDaFPCPkPPG7PռSRW HRADDEG \ CODE RADS DEGS IDEGS MINS SECOND TDEGS-UR$STOP FOR$IO_END FOR$IO_L_V FOR$IO_X_SE FOR$READ_DU FOR$WRITE_SFPPPPYP{PPNP!P2P<PFPPPPPPPPPy,7ww1MN010CHBND0129-Apr-1985 09:4829-Apr-1985 09:48VAX FORTRAN V4.1-45 CHBND P CHBNDP PDDDDDDDDpDpD4D4D4DCDpDP [}PQԼ FOR$DECODE_MFk FOR$IO_L_RkT FOR$IO_ENDP@ FOR$DECODE_MF߫ FOR$IO_L_RЫU FOR$IO_ENDP@ FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_ENDP@ FOR$DECODE_MF߫  FOR$IO_L_RЫ V FOR$IO_ENDP@ FOR$DECODE_MF߫ FOR$IO_L_RЫW FOR$IO_ENDP@ FOR$DECODE_MF߫ FOR$IO_L_RЫX FOR$IO_ENDTTVT$T2UUT22TYY@X XWPWVPXPVPWPXPѼP@-ԼPPEQUTԼPaEQPTNTTDQTRNRRDQRDR@RTVRNRRDQRD?R@RTWRNRRDQRD?R@RTXRNRRDQRD>RARTNRFRQNPPDPQAQ Q(GQ (GBGQ (GQ(GBG Q(GBGQ (GBG G7QRQG7 QRQ ŏYQQQNQQUNYRTERS@SUQzR{RRRRNRRDERDRCRRzVS{SSSSNSSDESD?SBSRzWS{SSSSNSSDESD?SBSRzXS{SSSSNSSDESD>SCSRY@ENYGYEUDPUCUUG7UF7 CHBNDq$CODE$PDATA $LOCAL@LP8 FOR$IO_END FOR$IO_L_R FOR$DECODE_MFP P P%P+P0P8P @POPYPfPwPPPPP)P3PEPOPaPsPPHP eY qww1@N011CRVPLT01 3-Jun-1985 14:36 3-Jun-1985 14:36VAX FORTRAN V4.2-112 CRVPLTP CRVPLT P    PH[ЬЬ$0P@8P@0<4PLOTм PPǼPkիkP@HkP@0LDPLOTk1@RJ01$1MAPDEX0129-Aug-1986 10:2229-Aug-1986 10:22VAX FORTRAN V4.4-177 MAPDEXdMJ:X66 6DISK$USER:[CODE8311.GROUPB.UPDATE.ACCEDIT]MAPDEX.FOR;4 P MAPDEX]4PQ  ЫP MTH$SQRT_R3PP#= ׫ Q4CQDP=C Q  мм $CODE $PDATAx$LOCAL= P4P@P XPfPPYPP PWK>ww1O01.YMP01 3-Jun-1985 14:36 3-Jun-1985 14:36VAX FORTRAN V4.2-112  YMP P@ YMPPQI@P$CODE$PDATA$LOCALP&P-IP NP!UwwFIED BY OPNAVINST S5513.5A-27 REVIEW ON: OADRP[^} PQX}$PQ`}(PQh},PQp}0PQxм ˴ STR$UPCASEP STR$UPCASE STR$UPCASE STR$UPCASEC PEPE7~^YMP^PRE7~^YMP^BPRF7RER PLOTP@RSRRTT^T^ PLOT^ART^PLOT^AR $PLOTT^84PLOT^T^HT0LOGNAM8EQUIVNAM @TABLE $ELENHURLNMDEF0,XU,RPSLDEF0,oRCRELNM` BUFLEN CODE  BUFADR @RETADR LIST3/?T $p( ATTRIBUTES STRING_LENGTH ,STATUSk SYS$CRELNM$CODE-$PDATA Q444DEEEEF@F(F7FFFRF]F@hFpFF@FF`FFF DDDDDDDDpDpD4D4D4DCDpD4DpD4D4D4DQ|              ' &   ( %  i h _ ^ = < 3 2 w v UTKJj g ` ] > ; 4 1  x u VSLIs r U T G F ) ( m l _^A@t q V S H E * ' n k `]B?Q~54+*}63,)ut?>! vs@="QPGF%$mlcbROHE&#nkda[Z=</.wvYX\Y>;0-xuZWP H[j~^ld MTH$JISIGN^P8}PP}P}PPqPCpCrs<ZP>̫4ԫ PףKPLVCPD7PJPP<kG7WѼ0<0X0Pǫ0PЫ0DЭHYիH1NYPE7TATP~^YMP^B(PEWP$zYP{kPTTT)`XTPLOTAV ~^PLOT^1T1TPLOTAV TT^HCu=«$~^LDPLOl$LOCAL FOR$IO_END FOR$IO_L_V FOR$WRITE_SFPpP%&wwxQZQZ ˏZLQL"PL?ZP>GZX P>GPPXQL"@L>P@L>ZA TAPT~^AL̫$RR^NUMBER^AZT~^ˤR^˨ˠSYMBOL^DY׫H1jC YEY P>GPL> wwPLOTPLOT,PLOT<SYMBOLA?33 ~^d\SYMBOL^| LIB$DATE_TIME˄SYMBOLˤNEWPENQ")dbC!~^˰ˬSYMBOL^A? ~^SYMBOL^C@G~^SYMBOL^ NEWPEN)jhCPEHCPPQPPQ>P4CP޼޼ ޼(޼ 0޼@CALCIAЫ XPTICS360180 COAST BORDER  STR$UPCASEYMPPLOTNUMBER`P`P`1$2R222@SYS$QIOWPRPPHDLIB$STOPT LIB$INDEXPPRh LIB$INDEXPPS2SP2RRRRPPtBxt FOR$READ_IF? FOR$IO_W_R FOR$IO_ENDS˄ LIB$INDEXPPP2PP2SSSSPPtCxt FOR$READ_IF? FOR$IO_W_R FOR$IO_END H GET_CURSORSYS$QIOWLIB$STOP GET_TERMTYPE LIB$INDEXZ$CODE $PDATA$LOCALTERMINAL FOR$IO_END FOR$IO_W_R  $ X $ ,0`48`4P<(0P@Dh<H0h@ L HPT8X,T8X QCLASSIFIED BY: OPNAVINST S5513.5A-27 REVIEW ON: OADRPO[^} PQ\}$PQd}(PQl},PQt}0PQ|м  STR$UPCASE STR$UPCASE STR$UPCASE STR$UPCASEC PEPE7~^YMP^PRE7~^YMP^BPRF7RER PLOTP@RSRRTT^T^PLOT^ART^UBA DSC$K_CLASS_UBSDSC$K_CLASS_UBSB DSC$K_CLASS_V DSC$K_CLASS_VS DSC$K_CLASS_VSA DSC$K_CLASS_Z#DSC$K_DTYPE_ADT DSC$K_DTYPE_B!DSC$K_DTYPE_BLV DSC$K_DTYPE_BPVDSC$K_DTYPE_BUDSC$K_DTYPE_CADDSC$K_DTYPE_CIT  DSC$K_DTYPE_D DSC$K_DTYPE_DCDSC$K_DTYPE_DPCDSC$K_DTYPE_DSC>DSC$K_DTYPE_ENTDSC$K_DTYPE FOR$READ_IFP#P,PaP =1   ZRwwBn`WQTBP> WAY ~^˔A$YY^˘ːNUMBER^AW ~^˰Y^˴ˬSYMBOL^8V׫<1(c|E7~^^YMP^B(PF7PEP$PL>ZP>̫4ԫ PףPLVCPD7PJPP<kG7WѼ0<0X0Pǫ0PЫ0HЭLYիL1NYPE7TATP~^YMP^B(PEWP$zYP{kPTTT)P\`PLOTAV ~^PLOT^1T1`PLOTAV TT^TCu=«$~^XPPLOT^T^TAu=«$~^XPPLOT^ˀPLOTGZX P>GPPXQP"@L>P@L>ZA TAPT~^AL̫$RR^NUMBER^AZT~^˰R^˴ˬSYMBOL^HY׫L1jC YEY P>GPL>VX5PLOTPLOTPLOT(PLOT8PLOTHSYMBOLA?33 ~^phSYMBOL^ˈ LIB$DATE_TIMEːSYMBOL˰ GET_USERNAME˼SYMBOLNEWPENQ")TfC!~^SYMBOL^A? ~^ SYMBOL^C@G~^($SYMBOL^DNEWPEN)ZlCPEHCPTQPTQ>P4CT޼P޼X޼`޼ h޼xLCALCIAЫ \PTICS360180 PUP^P%wwINUATION (6FIRST+ YLON lh+ YLAT D@FOR$OPEN  ,6LENGTH 06SLATMTH$SIGN/ 46WLON 86ELON <6SLATMIN YMPy @6LATS D6LATN H6LONE L6LONW P6IGAP -10 T6KEY X20 E30 FOR$JIBITSh X6NUMBER\6J d6DECLAT h6 COAST OBORDER  STR$UPCASEYMPPLOTNUMBERSYMBOL LIB$DATE_TIME GET_USERNAMENEWPENCALCIA@$CODEq$PDATA0$LOCALI~PPPPP1P%P PwPPPPPPPPPP P P0P@PPPPPBPwP0P$P(PP P)P 2PEP NP[PaP jPrPxP%}P"PPQP PdX@ww177 CRVPLTP96`kMF"DJA0:[GRAVLIB.GENERAL]CALCIA.FOR;3 P CRVPLT/ P  P[ЬЬ0<P@PP@̫`PЫ\RJPB|Ы\RNB|RCR`RETRX\\Ы\RB|Ы\RB|qЫ\RB|Ы\RB|qЫ\RB|Ы\RB|\ŏˀRŏd˄PPR ˈPPRˌRի8rr HMAPDEX d PLAT PLON  IEW NS JSSS(JPL,NBAND`l\[[+JPP2+ BCMN , DIFMN +JPP1 IS MTH$JISIGN  IQUAD LAT LON ALT ALONG ALTMN AMNLG ULTMN UMNLG NSPPS BCLLG IWPPS  IPPS 1520 $YDIV (YBL,I 0Y-$CODE$PDATA@$LOCALBP XP^PPPPO!PDdPfoPNyPDPPNPDPPDbPhePepPKPPUPKP$PX.PN|POPEPP PVP bPhP sP PP P PP&ww 1'$011CHBND10119-Nov-1986 14:2819-Nov-1986 14:28VAX FORTRAN V4.5-219 CHBND1O85-32$!DISK$USER:[SD.LANDRUM]CHBND.FOR;1 k P CHBND1lP QDDDDDDDDpDpD4D4D4DCDpDP @[}PQ0Լ PPPP QQA0 FOR$DECODE_MFk FOR$IO_L_R FOR$IO_END PPPP QQA0 FOR$DECO!DE_MF߫ FOR$IO_L_R FOR$IO_END PPPP QQA0 FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_END PPPP QQA0 FOR$DECODE_MF߫  FOR$IO_L_R FOR$IO_END PPPP QQA0 FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_END  PPP P  QQA0 FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_ENDkkVk$k2իѫk22k@ի P PP PP"PѼ PPPP QQ-PA0 -ԼPE ѫkԼPaE kPNPPD PQNQQD QDQ@QP QNQQD QD?Q@QPQNQQD QD?Q@QPQNQQD QD>QAQPNPGP PNQDQPAP Q(GQ (GBGQ (GQ(GBGP Q(GBGQ (GBG G7PRPG7 PRP ŏPPPNPЫ($ի(NP $QDAP@P($zP{PPPPNPP QDAPDPCPPz Q{QQQQNQQ RDBQD?QBQPzQ{QQQQNQQ RDBQD?QBQP#zQ{QQQQNQQ RDBQD>QCQPի P@@NP QGPAQNPDPQCQQG7QF7! CHBND1 lNAME LLLAT LLLON URLAT URLON IPS+ LP8M @ @II DJJ HKK LLL PMM TNN XILS 60 \IORG `XL :65 *63 =70dI]3$CODE$PDATAt$LOCAL FOR$IO_END FOR$IO_L_R FOR$DECODE_MFrP {PPPPPP PPPPPP% P P%PPPPPPP<PPcW3ww1` 04 BIN_STRING0 9-DEC-1986 07:59 VAX/VMS Macro V04-00MAC BIN_STRING*- Convert INTEGER number to binary chara . ABS . P +BIN_STRING_CODEP  BIN_STRING&+мU}V WISCHOW DISUSER_FLAG"L  WISCHOW READ_LINE#h WISCHOW CHECK_READ#`mh WISCHOW CHECK_READ!@uFd WISCHOW JBCSHELL` LINGSCH BORDER*wf LINGSCH CALCIACRVPLTYMP%ː LINGSCH BO1H-00BSET_Q0 2-DEC-1986 08:58 VAX/VMS Macro V04-00 MAC BSET_Q- Set bits of a quad word  . ABS .P*BSET_QP BSET_Q&*~UмWXW xWXXXe WxWXXXP" BSET_Q BSET_QBSET_Q*ww(11h00SNDOPR0 3-DEC-1986 10:40 VAX/VMS Macro V04-00MACRO SNDOPR.TXT*- send message to central operators cons SYS$SNDOPR . ABS .P$ABS$P SNDOPR_DATAPQQESNDOPRP SNDOPR&e}V3Џ3Q 1 4 5 722242527QQPO@[}P+QPkVW GET_TERMTYPE`(FOR$OPEN`D STRING_LENGTH~ FOR$WRITE_SF2PPPTP FOR$IO_T_DS FOR$IO_ENDVW,n ll[m>`> dX POSITIONS鐏Ht1nl>xp ENCODE_VALUE鐏Ap1nl>xp ENCODE_VALUE搏Bp1nˀ>ˌ˄ ENCODE_VALUE吏Cq1nˀ>ˌ˄ ENCODE_VALUE鐏Dq1>`> dX POSITIONSِHtlu#v6,w1>`> dX POSITIONSHtlu#v18m17m1#m5n10n1n2nJo10n1n2nKo10nXVr>ˠV˜ FOR$BITESTP2VPPP2XQQ(@AlXP2PPP;@lXV˨ STRING_LENGTH2PPm@l1Em1(m)m An Bn0n?nol2P>@˾xp ENCODE_VALUEݐhq?nol2P>@˾xp ENCODE_VALUEᐏlq`> d-X POSITIONS쐏rt(l˴ DELETE_BLANKS-k n1D STRING_LENGTH2XXP@: ~P\PfP wPPP /#Vww11; 014 READ_LINE01 2-Feb-1987 15:29 2-Feb-1987 15:29VAX FORTRAN V4.5-219 READ_LINEXHE c 1DJA0:[GRAVLIB.GPW.NOTEBOOK.UPDATE]READ_LINE.FOR;1 H@=}ًB#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$IODEF HE c 1DJA0:[GRAVLIB.GPW.NOTEBOOK.UPDATE]READ_LINE.FOR;1I A>iB#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$TT2DEF fHE 2c 1DJA0:[GRAVLIB.GPW.NOTEBOOK.UPDATE]READ_LINE.FOR;1J A>TB#SYS$SYSROOT:[SYSLIB]FORSYSDEF.TLB;5$TRMDEF YHE c 1DJA0:[GRAVLIB.GPW.NOTEBOOK.UPDATE]READ_LINE.FOR;1K : P) READ_LINE,P 4   4,Q0=[?1h P3H [}PQP  GET_TERMTYPE02,20$SYS$QIOWPЫ\XLIB$STOP؞P`PЏ`P`P`1~~ FOR$READ_SF? FOR$IO_W_R FOR$IO_T_DS FOR$IO_END>h` LSHIFT_STRING2t2xˌlSYS$QIOWPЫ\XLIB$STOP؞P`PQaQQQQP>˨> ˬˠ CHECK_READ絼2PP˰˴˸ STR$UPCASE2P  H READ_LINE48 ,TEXT TEXT_LENGTH RETURN_STATUS$RIODEF0,0,0,0,0,0,0,05,0,0,0,0,0,0,0,0,60,0,0,0,0,0,0,0,0,70,0,0,0,0,0,0,0,0,80,U0,0,0,0,0,0,U RTT2DEF 0,9 RTRMDEF0,0,CR TEMPTEXTSYS$QIOWLIB$STOP LIB$GET_SYMBOL $STATUS(LIB$DO_COMMAND2 APP_KEYPADS TTCHAN ITERMINALS RQIOLIST` LEN CODE ADDRESS@RET_ADDR RIOSB@ :STATUS OFFSET TERMINATOR (DUMMY0TERMLEN 8CURPOS FUNC_LIST3/? T  p  IOSB  T PASS GET_TERMTYPE!IO_FUNC e1500 LSHIFT_STRING CHECK_READ STR$UPCASEj$CODE$PDATA$LOCALTERMINAL FOR$IO_END FOR$IO_W_R FOR$IO_T_DS FOR$READ_SFDPq+P;PU\P PLPPPHP FP?3Ejww