% VAX-11 Librarian V03-00@`@!^_/2'  TJJCMD3JJCTC4JJCTCSET[XJJDCL5JJLEN6JJLOW\tJJNXTF\tJJSETF8JJUCMD@JJUFIL@JJUINFCJJUNAME$JJUNXTFXJJUOPIJJJUOPOSJJUPPMJJUSWIMJJUTYPYZTEST[ZZTESTTJJCMD3JJCTC4JJCTCSET[XJJDCL5JJLEN6JJLOW\tJJNXTF8JJUCMD@JJUFIL@JJUINFCJJUNAME$JJUNXTFXJJUOPIJJJUOPOSJJUPPMJJUSWIMJJUTYPYZTEST[ZZTEST  !"#$%&'()*+,-./012 41(@010JJCTC0120-May-1983 16:4220-May-1983 16:42VAX-11 FORTRAN V3.0-2 JJCTCH1. ,DDRB1:[SCI.JILL]JJCTC.FOR;2 ! PP JJCTCtPH[ռk FOR$EXIT_W޼ JJCTCSETЫP HJJCTC0 MODEJCTC_CHNJCTC_NUMX FOR$EXIT_WJJCTCSET^$C 5ODE$PDATA$LOCALJJ_CTCP-$PBPJP"^ww1,@013JJCTCSET0120-May-1983 16:4220-May-1983 16:42VAX-11 FORTRAN V3.0-2JJCTCSETH1. ,DDRB1:[SCI.JILL]JJCTC.FOR;2" PTTP  SYS$TRNLOG@ JJCTC 6JJCTCSETPH[kk SYS$TRNLOG0 SYS$ASSIGNѼL IO$_SETMODEP IO$M_CTRLCASTQQPPPDSYS$QIO HJJCTCSET MODE-JJCTC IO$_SETMODE IO$M_CTRLCASTJJCTC_CHNJCTC_NUMDEVNAM IAGAINf SYS$TRNLOG SYS$ASSIGNSYS$QIOR$CODE$PDATA$LOCALJJ_CTC  P+P% Rww17l:@010JJLEN0120-May-1983 16:4320-May-1983 16:43VAX-11 FORTRAN V3.0-2 JJLENH1.u⨕DDRB1:[SCI.JILL]JJLEN.FOR;1 P JJLENYP H[}PQPk, ..Can't open 99 @-/JJUCMD=PPPPPPP@  c:L`c ,Qx$Enter command B' JJUCMDPO[}PQP}PQ P~ FOR$WRITE_SLL FOR$IO_T_DS~ FOR$IO_L_VT FOR$IO_T_DS\JJLENPdhd FOR$IO_T_DS FOR$IO_END- n1(P\- ,n P,; PP嚻PP,P  1-P n,n  ~5c~ FOR$READ_SF<PPPdQA hd FOR$IO_T_DS FOR$IO_END1l FOR$CLOSE,n P1- n, P˼P^(P˼n ~,Qn  PQ^<PPPdQA htJJCMDP1- ?1~ FOR$WRITE_SL FOR$IO_L_R FOR$IO_ENDX!YIY=XXZZXPY~,n PJPQ^aYYX5~ FOR$WRITE_SF| FOR$IO_T_DSXdhd FOR$IO_T_DS< FOR$IO_ENDXk-P n5~ FOR$WRITE_SF˄ FOR$IO_T_DSˌJJLENPPdhd FOR$IO_T_DS FOR$IO_END-PP n5~ FOR$WRITE_SF˔ FOR$IO_T_DS˜JJLENPPdQhd FOR$IO_T_DS FOR$IO_END1k- CˤJJUINF1Q, P ˬJJUNXTP1-l FˬJJUNXTPP^(Pln<~(PnlQ^-l HˬJJUNXTPP^(Pln>~(PnlQ^ޑl<1P=P^(Pmn^SX ~XW,Xn PgPQ^kY LIB$INDEXP LIB$INDEXPYYZZYP,n PJgЫX LIB$INDEXP1 LIB$INDEXPYYZZPPPdJgh LIB$INDEXPXZXP,PJg PJJUNAMXYPPZZPPP^(PJgn^SZJJLENP^(Pn^SVZVYPP^(Pgn^SZZV,Vn PgPQ^1VXYk(Pg\1l>-Pl K(PlP,Pm PP1l+m0m9l- m- m0m9l: FOR$DECODE_MF߫ FOR$IO_F_R FOR>$IO_ENDKYYZZYPJlQЫ AYY1l@1,Om P.\JJUNAMFOR$OPENP,n 185~ FOR$WRITE_SFT FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS\JJLENPdhd FOR$IO_T_DS FOR$IO_END, P1-P n( LIB$INDEXPP^(Pln ~(PnQ^kY LIB$INDEXP LIB$INDEXPYYZZYP,n PJYk(P\,Pl 16Ы~? FOR$WRITE_SL4 FOR$IO_T_DS߫ FOR$IO_L_R<JJLENPdhd FOR$IO_T_DS FOR$IO_ENDЫP?P ??? ??INOUT>PPPP4[PCPCP )P2Pz@P0pP<~P.PP&PPP2P PP P'P.Pw9PDP;KP4NPP#P:PPP LP[PvhPiP!PPB+ů:Aww1`jW@011JJUFIL0120-May-1983 19:0720-May-1983 19:07VAX-11 FORTRAN V3.0-2 JJUFIL+TPTT\ JJUFILXPHT[}PQPk}PQ PJJUOPIPJJUOPOPЫЫP{ HJJUFILJJUOPIJJUOPOG$CODE$PDATAx$LOCALJJU_FILJJU_SWI-P  Gww1BX@011JJUINF0120-May-1983 19:0720-May-1983 19:07VAX-11 FORTRAN V3.0-2 JJUINFP.EXE; end.of.infoEND.OF.INFOhPPhb h hhbQ@ JJUINFPHd[ SYS$GETJPIP14 LIB$INDEXPkV^($nk^(knkWW@WV^DHFOR$OPENCV^P1~ FOR$WRITE_SLd FOR$IO_T_DS FOR$IO_END~b~ FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDt LIB$INDEXPˈ LIB$INDEXP~ FOR$WRITE_SL˔JJLENP@D@ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLd FOR$IO_T_DS FOR$IO_END˜ FOR$CLOSEЫP$PFOR HJJUINF SYS$GETJPI LIB$INDEXFOR$OPENJJLEN FOR$CLOSE$CODE'$PDATA$LOCAL FOR$IO_END FOR D$IO_T_DS FOR$READ_SF FOR$WRITE_SL&P[PzPP<P/) ww1]@011JJUNAM0120-May-1983 19:0720-May-1983 19:07VAX-11 FORTRAN V3.0-2 JJUNAMPSCI_INF:files.!!-- Can't find , P FOR$OPEN@ < P   EJJUNAMP~ FOR$WRITE_SF FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS0JJLENP(,( FOR$IO_T_DS FOR$IO_ENDԫ~ FOR$WRITE_SL FOR$IO_T_DS0JJLENP(,( FOR$IO_T_JDS FOR$IO_ENDЫPCPn.o.n.e ]; Can't Open 6 >-/JJUOPO outfile> PPP$` `' LJJUOPOPːFOR$OPENPˬFOR$OPENP8~ FOR$WRITE_SF FOR$IO_T_DSM FOR$IO_T_DS FOR$IO_T_DSTJJLENPDHD FOR$IO_T_DS FOR$IO_ENDFOR$OPENԫ~ FOR$WRITE_SL FOR$IO_T_DSTJJLENPDHD FOR$IO_T_DS FOR$IO_ENDЫЫP PS  ww1u@010ZTEST0120-May-1983 19:0720-May-1983 19:07VAX-11 FORTRAN V3.0-2 ZTESTP This program tests JJUCMD..., It should print the first lines of files[sci.exe].for= {ZTEST} Flag=ZTEST Not Open < {ZTEST} > --->Can't Open Input: P IPRPoP{PPPR&P@/P42PicP ZePhP{PP7P#PZP4P P@P\P`ww1쒼@010ZTEST0120-May-1983 17:0520-May-1983 17:05VAX-11 FORTRAN V3.0-2 ZTESTH1.,/FDRB1:[SCI.JILL]JJCMD.FOR;2s tP~ONE~ =JJCMD =JJ_TY =Unit --,P(4 JJCMD@, [  ZTESTP