JTMODACE0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173JTMODACEP @P$ Dev:file or (n,s,v)>Q\I+SYS$DISK:$%PURGE%LISTJTA_LISTFILES()%SUMMJTA_SUMMFILEJTA_SUMMLEN%GBLEDIT%GBLEDITCONN%REGENA(%DELETE%SYMSJTA_ZFIDJTA_ITIMJTA_MXPVJTA_CKSMJTA_PSWDU(JTA_USRSV(JTA_FUSRZ(JTA_ZCMDX(JTA_XCMDK(JTA_TTYSL(JTA_FTTYI(JTA_IMGSJTA_SURWR/WR/OJ(JTA_FIMGB(JTA_BKPUJTA_FNAMD(JTA_CSLKR(JTA_NSLKJTA_INSPJTA_BPRIJTA_RPRVJTA_IDNT%SHOWS+X+R+R-Y-<Y+<>H+&&&%M+K<P<I<#SV<T<UVKLOZ-Z+C<#<H<Z<X<W+, JTD$DB:OP)).GDB JTD$DB:OP).GDB) (,,))) (,,)    Old:)$Confirm replace [Y/N/A/X]) %EACF-W-File ID ) ACE deleted. Replacing.)) No security record exists file ) Security controls, file:) File id:,,,,, Time access permissions:) Max privs: Tamper xsums: 7 Lists key: S(filename)U(ok-users-list)V(bad-user-list). K(ok-tty-list)L(bad-tty-list)I(ok-image-list)4 J(bad-image-list)B(backup-user-list)A(ACE contents))$@GCY$CM:FILSAV ))))JTMODACEPP P P( Px    N  $  && LIB$GET_FOREIGN@0=BB LIB$SYS_TRNLOG@T ,FGETFIDKdK\\ M\\ dlM\ M\ \ lD` @  OddhV  \L\ LIB$SET_SYMBOL@T@ipxln  tt LIB$SET_SYMBOL@@i8@lT   LIB$SET_SYMBOL@ $,@DL@`|dd@il( @8 @ lT d@     LIB$SET_SYMBOL@ ! LIB$SET_SYMBOL@!! LIB$SET_SYMBOL@$!8! LIB$SET_SYMBOL@@!T! LIB$SET_SYMBOL@\!@p!x!l!!! LIB$SET_SYMBOL@!@!!l!!! LIB$SET_SYMBOL@"@" "l4"<"P" LIB$SET_SYMBOL@X"@l"t"l""" LIB$SET_SYMBOL@"@""l""" LIB$SET_SYMBOL@#@&##l0#8#)L#) LIB$SET_SYMBOL@T#@2h#p#l##5#5 LIB$SET_SYMBOL@#>G#> LIB$SET_SYMBOL@#G LIB$SET_SYMBOL@>K#> LIB$SET_SYMBOL@#K LIB$SET_SYMBOL@@O##l$$R,$R LIB$SET_SYMBOL@4$@[H$P$ld$l$^$^ LIB$SET_SYMBOL@$@i$$l$$g$g LIB$SET_SYMBOL@$@p$$l %%s(%s LIB$SET_SYMBOL@0%@|D%L%l`%h%|% LIB$SET_SYMBOL@%@%%l%%$% LIB$SET_SYMBOL@%$ LIB$SET_SYMBOL@$% LIB$SET_SYMBOL@%$ LIB$SET_SYMBOL@$& LIB$SET_SYMBOL@&$ LIB$SET_SYMBOL@$$& LIB$SET_SYMBOL@,&$ LIB$SET_SYMBOL@?@& LIB$SET_SYMBOL@H&? LIB$SET_SYMBOL@\& LIB$SET_SYMBOL@d&x& LIB$SET_SYMBOL@&& LIB$SET_SYMBOL@&&&& LIB$SET_SYMBOL@&& LIB$SET_SYMBOL@'' LIB$SET_SYMBOL@ '4' LIB$SET_SYMBOL@<'P' LIB$SET_SYMBOL@X''''''''((,(?H(\(p(((((())4)H)P)t|)))t|)t|)*,*4*@H* LPRC@P* LPRC@X*@t* LPRC@|* LPRC@*@* LPRC@* LPRC@*&@* LPRC@*& LPRC@*2@* LPRC@+2 LPRC@+O@$+ LPRC@,+O LPRC@4+;[@P+; LPRC@X+[ LPRC@`+|+++@i++l++@+,,$,@p8,@,lT,\,@p, ,FGETFIDK,$8-L-`-h-@||--l--@-@- -FGETFIDK.L .@..l.....@/$/@8/@/lT/\/p///@/K//D/DN@0 0l40<0@P0@d0P0[^EXEMPT蛏˾ޫ蛏ޫ ,n $ԫˬLIB$GET_FOREIGN,k˘ ˘˘PP 1˘q1˘Q1(P˘X LIB$INDEXP\,? ˒\\P,PX PX\\P,PL˘ ˒ILENP˘(1P PP˙ FOR$READ_IF߫ FOR$IO_L_R߫ FOR$IO_L_R߫  FOR$IO_L_R FOR$IO_ENDǏ Pz Q{Q xPPP LIB$SYS_TRNLOGP1,$˨ P˨XFOR$OPENP1, FOR$CLOSE< LIB$INDEX,PX P˨H SYS$GETDVIW,˾ ˾Ы((˾>˾_,˿ ˾t LIB$INDEXPP,P˾ ˾ˀIVLENPT,ë,TPPUUP@˾9,U UPPTTˌ@˾ːˌ FOR$READ_IF߫0 FOR$IO_L_R FOR$IO_ENDU,U˾ ˾ի 1˜ LIB$INDEXPWWP,P˾ WP,PG˾ ˾˨IVLEN,P˾ ˴IVLENPUIVLENPW FOR$WRITE_IFU FOR$IO_T_DSW FOR$IO_T_DSݫ0 FOR$IO_L_V FOR$IO_ENDի 1 LIB$INDEXPW,W@˾ ˾ LIB$INDEXPU,U@˾ ˾IVLEN,P˾ IVLENPU& FOR$WRITE_IFݫ  FOR$IO_L_VU  FOR$IO_T_DSݫ0 FOR$IO_L_V FOR$IO_END$IVLENP0˚48FOR$OPENP1ˌ LIB$INDEXP1(˘>˜ˠ SYS$ASSIGNʏPի4UNEXEMPT˸ FOR$EXIT_W FOR$READ_SFl FOR$IO_T_DS FOR$IO_END8lP`FILACCի8 FOR$DELETEUNEXEMPTFOR$EXIT LIB$INDEXP1^(bn­^(˚nЭYYX,Xn ˚PQ^XX˚FOR$OPENP1X$˚(,LIB$SET_SYMBOL FOR$READ_SFl<8 FOR$IO_T_DS FOR$IO_ENDўlP`PPpP`PP,n ˚DP LIB$INDEXPXP,@h ˚d LIB$INDEXPP,P˚ ˚pIVLENPX`2P2YU2UUQ2QQxQQQPT? FOR$WRITE_IFX|˚ˀ| FOR$IO_T_DST FOR$IO_L_VY FOR$IO_L_VU FOR$IO_L_V FOR$IO_END˄IVLENPUW FOR$WRITE_SFUː˚˔ː FOR$IO_T_DS FOR$IO_END1˘ FOR$CLOSEUNEXEMPTFOR$EXIT˨ LIB$INDEXP1^(gn­^(˚nЭXXY,Yn ˚PQ^Yԫdh SYS$ASSIGNʏPի4UNEXEMPTˀ FOR$EXIT_W FOR$READ_SFlˌˈ FOR$IO_T_DS FOR$IO_ENDlP`˔ːREDACL)l1,n ˚ˤ˰ LIB$INDEXPY(@i˚ LIB$INDEXP,P˚ ˚ IVLENPX FOR$WRITE_IFlP`HhP`TD FOR$IO_X_DAX˚ FOR$IO_T_DS FOR$IO_ENDIVLENPX FOR$WRITE_SFX˚ FOR$IO_T_DS FOR$IO_ENDX˚OPRMSG( pˎ  LIB$INDEXP1XP,@h ˚, LIB$INDEXPX1XY,Y˚ ˚ XXˎY^(Y˚nY\ ^( ˎn \,\n ˚PQ^~X^(X˚nXYY\,\n PQ^XX\\XXXLYP^QRXSYT OTS$MOVE5_R5lP`<8REPLENT1UNEXEMPTFOR$EXITPc~~ FOR$READ_KFlLH FOR$IO_T_DS FOR$IO_ENDPTЫT1ѫC1ѫ4PXPLIB$WAIT1 (|tˌPЏ`ːP`,n $˜P`P`P`,  @lP`pP`\`IVLENpPY` FOR$WRITE_SFYllpl FOR$IO_T_DS FOR$IO_END~~ FOR$READ_KFlxt FOR$IO_T_DS FOR$IO_ENDPTЫTPTX˄ LIB$INDEXPիP FOR$DELETEː FOR$CLOSEUNEXEMPTFOR$EXITˠ LIB$INDEXP1իPUNEXEMPTˬ FOR$EXIT_W$ FOR$WRITE_IFlP`hhP`td FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOLtLIB$SET_SYMBOL$ FOR$WRITE_IFˌP`ˈˈP`˔˄ FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL$ FOR$WRITE_IF˔P`˨ːP`˴ˤ FOR$IO_X_DA FOR$IO_END˾  LIB$SET_SYMBOL$ FOR$WRITE_IFP`˼P` FOR$IO_X_DA FOR$IO_END˾0 4 LIB$SET_SYMBOLD P LIB$INDEXP\\PP@VZV\ @j` l LIB$INDEXP\PPV\PPVTZ,T@j ˾\VVVˀ ˾˄ ˈ LIB$SET_SYMBOL˘ ˤ LIB$INDEXPVVPP@\T\˰ @d˴ LIB$INDEXPVPPWVPPWT\,T@l ˾VWWW ˾ LIB$SET_SYMBOL  LIB$INDEXPWWPP@VTV @d  LIB$INDEXPWPPVWPPVTZ,T@j ˾WVVV( ˾, 0 LIB$SET_SYMBOL@ L LIB$INDEXPVVPP@WTWX @d\ h LIB$INDEXPVPPWVPPWTZ,T@j ˾VWWW| ˾ˀ ˄ LIB$SET_SYMBOL˔ ˠ LIB$INDEXPWWPP@VTVˬ @d˰ ˼ LIB$INDEXPWPPVWPPVTZ,T@j ˾WVVV ˾ LIB$SET_SYMBOL LIB$INDEXPVVPP@WTW @d  LIB$INDEXPVPPWVPPWTZ,T@j ˾VWWW$ ˾( , LIB$SET_SYMBOL< H LIB$INDEXPWWPP@VTVT @dX d LIB$INDEXPWPPVWPPVTZ,T@j ˾WVVVx ˾| ˀ LIB$SET_SYMBOLP`PˏPV˜ LIB$SET_SYMBOL:V˸ LIB$SET_SYMBOL LIB$INDEXPVVPP@WTW @d LIB$INDEXPVPPWVPPWTZ,T@j ˾VWWW ˾ LIB$SET_SYMBOL ( LIB$INDEXPWWPP@VTV4 @d8 D LIB$INDEXPWPPVWPPVTZ,T@j ˾WVVVX ˾\ ` LIB$SET_SYMBOLp | LIB$INDEXPVVPP@WTWˈ @dˌ ˘ LIB$INDEXPVPPWVPPWTZ,T@j ˾VWWWˬ ˾˰ ˴ LIB$SET_SYMBOL LIB$INDEXPWWPP@VTV @d LIB$INDEXPWPPVWPPVTZ,T@j ˾WVVV ˾  LIB$SET_SYMBOL $ LIB$INDEXPVVPP@WTW0 @d4 @ LIB$INDEXPVPPWVPPWTZ,T@j ˾VWWWT ˾X \ LIB$SET_SYMBOLl x LIB$INDEXPW1WPP@VTV˄ @dˈ ˔ LIB$INDEXPWPPWWPT,PGd ˾V˰ LIB$SET_SYMBOL LIB$SET_SYMBOL LIB$SET_SYMBOLLIB$SET_SYMBOLVP@˾W1W1WV LIB$SET_SYMBOLW˜ FOR$WRITE_IFF˾~ FOR$IO_L_V FOR$IO_END8<LIB$SET_SYMBOLVW(F˾˜ FOR$WRITE_IF FOR$IO_X_DA FOR$IO_ENDTXLIB$SET_SYMBOLV1MW(F˾˜ FOR$WRITE_IF FOR$IO_X_DA FOR$IO_ENDptLIB$SET_SYMBOLV1ˈ LIB$INDEXPUNEXEMPTFOR$EXIT˜ LIB$INDEXP1իP FOR$WRITE_SF˨Xˬ˨ FOR$IO_T_DS FOR$IO_ENDUNEXEMPTFOR$EXIT$ FOR$WRITE_IFlP`hP` FOR$IO_X_DA FOR$IO_END˾˼LIB$SET_SYMBOLtLIB$SET_SYMBOL$ FOR$WRITE_IFˌP`ˈP` FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL$ FOR$WRITE_IF˔P`(ːP`4$ FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL$ FOR$WRITE_IFP`H˼P`TD FOR$IO_X_DA FOR$IO_END˾,0LIB$SET_SYMBOL FOR$WRITE_SF<X@< FOR$IO_T_DS FOR$IO_ENDlP`PPpP`PPzP{PPPxPP2VPV2WˏT$ FOR$WRITE_SFV FOR$IO_L_VW FOR$IO_L_VT FOR$IO_L_V FOR$IO_END9 FOR$WRITE_SFtHD FOR$IO_T_DS FOR$IO_ENDV FOR$WRITE_SFˌP`hˈP`td FOR$IO_X_DA˔P`ˈːP`˔˄ FOR$IO_X_DA FOR$IO_END FOR$WRITE_SF FOR$IO_ENDTdWV# FOR$WRITE_SFTPPWZ\ZL@lPL FOR$IO_T_DS FOR$IO_ENDdTdWVUNEXEMPTFOR$EXIT\ LIB$INDEXPԫp LIB$INDEXP,n @ˌP`ːP`ːP`˘P`(|t˄ LIB$INDEXPP`PTPd˘ LIB$INDEXPP`PTPdˬ LIB$INDEXPP`P` LIB$INDEXP LIB$INDEXPTTWWPPG˒ LIB$INDEXP\\TTWTTG˒P`P`GETPVԫ`LPԫd  LIB$INDEXP, $dԫh4 LIB$INDEXPhH LIB$INDEXPP`PTɏ Pd\ LIB$INDEXPP`PTɏPdp LIB$INDEXP֫ddP@$P`PTPdԫhիh1Td% FOR$WRITE_IF|Xˀ| FOR$IO_T_DS FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDѫP FOR$DELETE˄IVLENPː˚˔˘ LIB$SPAWNӫlԫPӫlPdVF$Vd LIB$INDEXPVVTTPPD˒ LIB$INDEXVPPVPVVpPTPPD˒GETPVЫtDЫxH`  LIB$INDEXPT1ի`1TPPVV@˒( LIB$INDEXTPPTPCTTPP4D˒84 FOR$READ_IF FOR$IO_X_DA FOR$IO_END<JTSCRdVVZZ\\`LP^(n~VV\,n \F$PQ^ZdX LIB$INDEXPZZ1ի`1ZPP\\d@˒ht LIB$INDEXZPPZPXCZZXPPˀJ˒˄ˀ FOR$READ_IF FOR$IO_X_DA FOR$IO_ENDˈJTSCRdZZ\\Y\`LP^(n~ZZY,n YJ$PQ^\dѭXXX\\^(\H˒n\YPP^(P˒n^SXXY,Yn ˒PQ^1ˤ LIB$INDEXP1ի`1IP@˒˴˰ FOR$READ_IF߫| FOR$IO_L_R FOR$IO_ENDի|ѫ|ë||Ы|\`˸JTSCRLPdY萫|~~YP(n@$Q^Yd LIB$INDEXPLPPYY@˒ FOR$READ_IFˀ FOR$IO_L_R˄ FOR$IO_L_R FOR$IO_ENDˌPˀ`ːP˄` LIB$INDEXPYY\\PPL˒  LIB$INDEXPYPYPPP(L˒t,0LPRCX\LPRC˄ˈLPRC˰˴LPRCLPRC LPRC48LPRCT LIB$INDEXP˔P`˘P`h LIB$INDEXPtXx˔P`˄˘P`ˈ|FILCKː˜ LIB$INDEXPYYPP@\X\˨@hˬ˸ LIB$INDEXPYPPPP@XZX^(X@jnXWYY^(YnYXXW,Wn @PQ^IVLENPW)~­^(XnЭYYXS(~XW^(WnWYYX,Xn @PQ^ LIB$INDEXPX1XWWPPG˒ LIB$INDEXXPZXZXXX,n $˜P`P\PlX1  LIB$INDEXPXXPP@\V\$@f(4 LIB$INDEXPXPPP@RVR^(R@fn^SYX^(XnXVVY,Yn @PQ^DHIVLENPY)~WZZ^(ZG˒nZXXVD(~VY^(YnYXXV,Vn @PQ^VX,ZG˒ ˌZTG˒X\FOR$OPENP1˄ FOR$CLOSEW&VX˔ LIB$INDEX,Pˌ PˠIVLENˬ SYS$GETDVIW,˾ ˾Rˤ FOR$WRITE_IFW FOR$IO_L_V?& FOR$IO_W_R FOR$IO_ENDWW˜ FOR$WRITE_IF FOR$IO_T_DSW~^ FOR$IO_T_V_DS FOR$IO_T_DSH FOR$IO_T_DS쐫~^ FOR$IO_T_V_DS˾ FOR$IO_T_DS FOR$IO_ENDP`PWPgˈ LIB$INDEXPWˈ,n $˚$ LIB$INDEXPW1WVVPP0F˒4@ LIB$INDEXWPZWZWWW,n $˚P`PYPiW1P\ LIB$INDEXPWWPP@YRYh@blx LIB$INDEXPWPPP@RYR^(R@in^SXW^(WnWYYX,Xn @PQ^ˈˌIVLENPX)~VZZ^(ZF˒nZWWYR(~YX^(XnXWWY,Yn @PQ^˜ˠIVLENPYˈ^(nY^(YnYXXW,Wn @PQ^WX,ZF˒ ˌZˬF˒˰˴FOR$OPENP FOR$CLOSEV&WX LIB$INDEX,Pˌ PIVLEN SYS$GETDVIW,˾ ˾Rˤ FOR$WRITE_IFV FOR$IO_L_V?& FOR$IO_W_R FOR$IO_END VW FOR$WRITE_IF( FOR$IO_T_DSV~0^40 FOR$IO_T_V_DSˈ~8^<8 FOR$IO_T_V_DSHD@ FOR$IO_T_DS쐫~H^LH FOR$IO_T_V_DSP˾TP FOR$IO_T_DS FOR$IO_ENDXIVLENPVVЫdXVdX,V˚ $XV^(V˚nVWX^(X$nXVVW,Wn $PQ^l LIB$INDEXP1¹|ˈ LIB$INDEXPWWPP@VXV˔@h˘ˤ LIB$INDEXPWPPPP@VXV^(V@hnVYWW^(WnWVVY,Yn @PQ^˸ LIB$INDEXPYYPPVV@˒ LIB$INDEXPYPPVIVLENPW)~YYVV^(VI˒nVZZXZ(~XW^(WnWZZX,Xn @PQ^ LIB$INDEXP1  LIB$INDEXPXXPP@ZWZ$@g(4 LIB$INDEXPXPPPP@VWV^(V@gnVYXX^(XnXVVY,Yn @PQ^H LIB$INDEXPYYPPVVT@˒Xd LIB$INDEXPYPPVtxIVLENPX)~YYVV^(VI˒nVZZWX(~WX^(XnXZZW,Wn @PQ^ dWիdW !"#$%l& W,d$ W*ЫdP@*@+@,ˌ LIB$INDEXP˘˨˜ˠ SYS$ASSIGN LIB$INDEXPREPLENTЫ SYS$DASSGNlP`pP`իd1 LIB$INDEXPWWPP@ZXZ@h LIB$INDEXWVVPP@VXV^(V@hnVYWW^(WnWVVY,Yn @PQ^$(IVLENPY)~«d^(d$nЫdWWVA(~VY^(YnYWWV,Vn @PQ^8<IVLENpPVѫP`FOR$REWRITE_SFVHlLH FOR$IO_T_DS FOR$IO_ENDիP` FOR$WRITE_SFVPlTP FOR$IO_T_DS FOR$IO_ENDX FOR$CLOSEUNEXEMPTFOR$EXITUNEXEMPT` FOR$EXIT_WPbP_LIST_SUMMGCEVGCEVYYYYYYYYYYYYYYYYYYYYYYYYU(*)K(*)I(*)<#> JTMODACEFGETFID SYS$ASSIGN SYS$DASSGNLIB$SYS_TRNLOGLIB$GET_FOREIGNLIB$SET_SYMBOLEXEMPT LIB$INDEXILENFOR$OPEN FOR$CLOSE SYS$GETDVIWIVLENUNEXEMPT FOR$EXIT_WFILACCFOR$EXITREDACLOPRMSGREPLENTLIB$WAITGETPV LIB$SPAWNJTSCRLPRCFILCK-$CODE$PDATA0$LOCAL FFFIII FFIIDD FOR$DELETE FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_DA FOR$READ_SF FOR$READ_SF FOR$READ_KF FOR$WRITE_SFFOR$REWRITE_SFFOR$REWRITE_SU FOR$READ_IF FOR$READ_IF FOR$WRITE_IF FOR$WRITE_IF OTS$MOVE5_R5P8-P--P"-PPPP,P;P+P5PhPPhP-P)>P^PcPvPUyPRP P4PjNPPRPLP/PPP~.Pd2P`P/PPE+ P3 Ps P Pg P P  P, P(N PV P PG P? P P P' P PM( P1` Pe P@ PL P@ Pt` Pe Pz P,~ P( P P' P  P PkP$P0P  PPP0(P%-P \PbbPP`(P`P`P`P`P`qP`P P P`P`P`mP`P`YPePPPP;4PC|PCPPP<P P2LPjPPPiP3'PFPWPyPP$PP&P SP\P|P[PPPPPP PF P= P P P!PP"!PJy!P\|!PY!P;"P "P"P*"Ph#P?#P#P$P0$$PdM$P; %P1%PQ&P X&Ps&P&P&P&Pd'P;'P)(P(P?)PEK)P [)P))P)Ph)P?C*PX*P*Ph*P?Z+PX+PP7,P n,PC,PcS-P--P-o-FGETFID0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173FGETFIDFGETFID0PP PD DP0[ЬЬ,(SYS$OPENPRRP@P`PP40GETFIDRP FGETFIDSYS$OPENGETFIDV$CODE$PDATAl$LOCAL FFIIDD,P%VILEN0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 ILEN ILENPPP[}PQPPQQQRBRR PPQP ILEN6$CODE$PDATA $LOCAL)P6GETPV0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 GETPV GETPVPPP [}PQԼ ԼмPQռQRBR SRS SRSռ ּ ռּPQ GETPVV$CODE$PDATA $LOCAL"P2EPMPVIVLEN0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 IVLEN IVLENPP[}PQPмPQռRQRSSTDTT PQSPP IVLENG$CODE$PDATA$LOCAL P#9P?P GLPRC0114-Sep-1996 16:5014-Sep-1996 16:50VAX FORTRAN V5.9-173 LPRCP@>) LPRCP@(<D dl ( (  ,4 P[}PQ}PQ} PQ}PQ +<~~(nQ^, LIB$INDEXPV1VPPWW8@