% VAX-11 Librarian V03-00#B@iB!78@   ACCEPTEANALEX APPEL COPYFORCPUTIMCPUTIME CRELBRSYM^ERREUR_LEXICALEPERREUR_SYNTAXIQUEFREEUNIT FULL_NAMEGETCOMGETHELPGETPARAMGETUIC&GETUSERJHELPFORINDEX2 JLEFT LEFT0!^MESSAGE"NEXTWORD%NUMERO_EVEN_LEX&NUMERO_EVEN_SYN'PARSE+ SETUIC, SHIFT_IDENT-TIMER/ TRAITE_LEXIC2rTRAITE_SYNTAXE5UICSET6 UPPERCASEACCEPTEANALEX APPEL COPYFORCPUTIMCPUTIME CRELBRSYM^ERREUR_LEXICALEPERREUR_SYNTAXIQUEFREEUNIT FULL_NAMEGETCOMGETHELPGETPARAMGETUIC&GETUSERJHELPFORINDEX2 JLEFT LEFT0!^MESSAGE"NEXTWORD%NUMERO_EVEN_LEX&NUMERO_EVEN_SYN'PARSE+ SETUIC, SHIFT_IDENT-TIMER/ TRAITE_LEXIC2rTRAITE_SYNTAXE5UICSET6 UPPERCASE1(" !>012ACCEPTE0120-Dec-1983 10:2620-Dec-1983 10:26VAX-11 FORTRAN V3.3-51ACCEPTE PIFP:IFPUAF.DATIFP:IFPPRIV.DAT,P   D FOR$OPEN@    FOR$OPEN@   <ACCEPTEVPH[}PQP0FOR$OPENtFOR$OPEN˰GETUSER~~  FOR$READ_KU  FOR$IO_T_DSk FOR$IO_L_R FOR$IO_ENDP~~ FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_L_R FOR$IO_ENDP PիPQի QQQQPkQQQRQRRRRP˸ FOR$CLOSE FOR$CLOSEЫP HACCEPTEFOR$OPENGETUSER FOR$CLOSE$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_KU0P_eP  ww1bL&011ANALEX0116-Jul-1984 16:2916-Jul-1984 16:29VAX-11 FORTRAN V3.4-56 ANALEXP <<44<<Q<    ANALEXPN[}PQPЬtˀ}PQ,P(ޫ(PFOR$INI_DES1_R2}PQTPPޫPPFOR$INI_DES1_ R2kԼ Y˔LEFTP ЫZkk˜NUMERO_EVEN_LEXP޼ ˰ TRAITE_LEXICkZZPP@LkZkERREUR_LEXICALEiԩԩ ԩԩkLEFTPЫZkkNUMERO_EVEN_SYNP޼ ޼TRAITE_SYNTAXEkZZPP@kZERREUR_SYNTAXIQUE NANALEXERREUR_LEXICALEERREUR_SYNTAXIQUELEFTNUMERO_EVEN_LEX TRAITE_LEXICNUMERO_EVEN_SYNTRAITE_SYNTAXED $CODE$PDATA$LOCALGLOBALSINDICESHSYMBOLSFOR$INI_DES1_R2#zP8P/P P>P5=1'0Dww1 ܋010APPEL01 9-Aug-1983 15:31 9-Aug-1983 15:31VAX-11 FORTRAN V3.2-37 APPEL8PINTERVALLE P   APPEL'PH[~ FOR$WRITE_SL  FOR$IO_T_DS FOR$ IO_END~ FOR$READ_SLk FOR$IO_L_R FOR$IO_END FOR$TIME_T_DS~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDTIMER FOR$TIME_T_DS~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1z HAPPEL FOR$TIME_T_DSTIMER$CODE $PDATA,$LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SL FOR$WRITE_SL ww1M012 COPYFOR01 9-Jan-1984 13:57 9-Jan-1984 13:57VAX-11 FORTRAN V3.3-51COPYFOR4 P (COPYFORPH[}PQP}PQP CONV$PASS_FILESPkPԫ CONV$PASS_OPTIONSPkP( CONV$CONVERTPkPЫP HCOPYFORCONV$PASS_FILESCONV$PASS_OPTIONS CONV$CONVERTV$CODE$PDATAL$LOCAL.P@POP(Vww 1@ӡwTŋ011CPUTIM0119-Jul-1983 16:4019-Jul-1983 16:40VAX-11 FORTRAN V3.2-37 CPUTIM8PPQ CPUTIMLPH[ JPI$_CPUTIMPPk SYS$GETJPINkPGCPs HCPUTIM JPI$_CPUTIM SYS$GETJPI3$CODE$PDATA$$LOCAL ITEMLIST  3ww1`\Ƌ01 2CPUTIME0120-Jul-1983 16:5020-Jul-1983 16:50VAX-11 FORTRAN V3.2-37CPUTIME8PPQCPUTIMELPH[ JPI$_CPUTIMPPk SYS$GETJPINkPGCPt HCPUTIME JPI$_CPUTIM SYS$GETJPI3$CODE$PDATA$$LOCAL ITEMLIST  3ww1Z03 CRELBRSYM027-SEP-1983 17:27  VAX-11 Macro V03-00 CRELBRSYM RMS$_EOF . ABS . . BLANK .P  CRELBRSYM&$ABS$PPPPPHLPCMNPRMS$_EOF( CRELBRSYM CRELBRSYM- . BLANK .HLPCMNww1@E(01:ERREUR_LEXICALE0116-Jul-1984 16:2916-Jul-1984 16:29VAX-11 FORTRAN V3.4-56ERREUR_LEXIC ALEPERREUR_LEXICALE PH[PP@hPN HERREUR_LEXICALE$CODE$PDATA$LOCALww1@>+01<ERREUR_SYNTAXIQUE0116-Jul-1984 16:2916-Jul-1984 16:29VAX-11 FORTRAN V3.4-56ERREUR_SYNTAXIQUE P舀ERREUR_SYNTAXIQUE PH[PP@PP HERREUR_SYNTAXIQUE$CODE$PDATA$LOCALww1stP013FREEUNIT0112-Jan-1984 17:5412-Jan-1984 17:54VAX-11 FORTRAN V3.3-51FREEUNITPFREEUNITUPH[w FOR$INQUIREkѫ׫ FOR$INQUIREkЫU HFREEUNIT FOR$INQUIRE;$CODE$PDATA$LOCALPP .P4P;ww1jL03 FULL_NAME0 8-NOV-1983 15:41  VAX-11 Macro V03-00 FULLNAMEFile name expander1  FULL_NAME SYS$CONNECTSYS$OPEN . ABS . . BLANK .PP FULL_NAME_1 PQP< FULL_NAME_2UPH߼SYS$OPEN߼ SYS$CONNECTP[ЬQС(QСQ(Pa[P FULL_NAMEJ . BLANK . FULL_NAME_1P FULL_NAME_2<ww1+G00GETCOM0 9-FEB-1983 15:59  VAX-11 Macro V02.45GETCOM*FORTRAN-callable routine to return a com GETCOMSYS$CLI . ABS . . BLANK .P$ABS$ PPRWDATAPPPQQQ2PUREGP@SYS$CLI}3Pl}RRPRP . BLANK .RWDATAPURE2ww1`QUG012GETHELP01 9-Feb-1983 17:52 9-Feb-1983 17:52VAX-11 FORTRAN V2.4-64!GETHELPGETHELPP PHELP$LIBPP(<PKP LBR$OPEN@PPPPPPOP[}PQ4 CRELBRSYMXLBR$INI_CONTROL,n ,n ,n ,n P@4lx LIB$INDEXPYYYPQ,PA4 , ЫXЫ WYYWWZZPPP˄J4ˈˌ LIB$INDEXPYXXXWZP,PJ4 YЫYЫVXWXVVZZPPP˄J4ˈ˘ LIB$INDEXPXYY YVZ P,PJ4 W XYVY$$ZZPPP˄J4ˈˤ LIB$INDEXPY((,ѫ($Z,P,PJ4 VY˸LBR$OPEN- n- n- n LBR$GET_HELP LBR$GET_HELP LBR$GET_HELP LBR$ GET_HELP< LBR$CLOSEPHELP OGETHELP CRELBRSYMLBR$INI_CONTROL LIB$INDEXLBR$OPEN LBR$GET_HELP LBR$CLOSE$CODE$PDATA$LOCALHLPCMNaUPmP PAPPA P%PG^PP3PP PPP <0ww1@=F8013GETPARAM01 5-Dec-1983 13:41 5-Dec-1983 13:41VAX-11 FORTRAN V3.3-51GETPARAMP GETPARAMPO[}PQP} PQ$P ޫ PFOR$INI_DES1_R2}PQtPpޫpPFOR$INI_DES1_R2}PQLPHޫHPFOR$INI_DES1_R2PռPPXYۀW0VP< P,  @fXP$|PPPXP&P+P$E9Yww1011GETUIC01 4-Oct-1983 12:08 4-Oct-1983 12:08VAX-11 FORTRAN V3.2-37 GETUIC7P GETUICPL[Zj ޼ޫ ޼ޫ ԪԪ SYS$GETJPIPk0 SYS$WAITFRk8FOR$EXIT LGETUIC SYS$GETJPI SYS$WAITFRFOR$EXITb$CODE$PDATAD$LOCAL"JPILISTXP hbww1c)012GETUSER0124-Nov-1983 13:4724-Nov-1983 13:47VAX-11 FORTRAN V3.3-51GETUSER? P GETUSER{PL[}PQP Z jޫ ԪԪ SYS$GETJPIP4 SYS$WAITFR<FOR$EXIT LGETUSER SYS$GETJPI SYS$WAITFRFOR$EXIT\$CODE$PDATAD$LOCALJPILISTRPh\ww1`M4012HELPFOR01 7-Dec-1983 15:04 7-Dec-1983 15:04VAX-11 FORTRAN V3.3-51HELPFORtPLIB$PUT_OUTPUT LIB$GET_INPUTHELPFORPL[}PQ P}PQP CRELBRSYMLBR$INI_CONTROLPZ(LBR$OPENPZ4LBR$OUTPUT_HELPPZP LBR$CLOSEPk LHELPFOR LIB$GET_INPUTLIB$PUT_OUTPUT CRELBRSYMLBR$INI_CONTROLLBR$OPENLBR$OUTPUT_HELP LBR$CLOSEU$CODE$PDATAX$LOCALHLPCMN Uww1 ͋4 7011INDEX20111-Feb-1983 15:1511-Feb-1983 15:15VAX-11 FORTRAN V2.4-64 INDEX2 INDEX2PPO[}PQP}PQ P<X<WYYXYZJhh` hhJiXYXkYYWYZJ hh` hhJ1WYWY,LEFTP 4< LIB$INDEXP\ OINDEX2LEFT LIB$INDEX$CODE$PDATA$LOCAL0!P$CP_P$rP!ww1 pڮ.01/LEFT0111-Feb-1983 08:5911-Feb-1983 08:59VAX-11 FORTRAN V2.4-64 LEFT LEFT[ PQPL[}PQP<kkkkZJ JЫPkPA LLEFTA$CODE$PDATA$LOCALP,P 4P Aww1o87010"LEFT00120-Jul-1983 16:4920-Jul-1983 16:49VAX-11 FORTRAN V3.2-37 LEFT0 P LEFT0gP5012MESSAGE01 9-Dec-1983 16:10 9-Dec-1983 16:10VAX-11 FORTRAN V3.3-51MESSAGEP#MESSAGE)PH[мk SYS$PUTMSGS HMESSAGE SYS$PUTMSG$CODE$PDATA$LOCALww1-`8013NEXTWORD01 5-Dec-1983 13:41 5-Dec-1983 13:41VAX-11 FORTRAN V3.3-51NEXTWORD&PNEXTWORDqP|O[}PQ }PQP} PQPZZPT-PJ nTPѼPPPPTT$ּPѼPԼZZPT-PJ /TT/ ּZZPT-PJ =TT= ּZZPT-PJ "TT" ּ мX /XZZXYT-YJ nTPXPPPPTU-YJ /UUUUTU-YJ =UUUUTTXZXPZP,PJ X1 =1XZZXYT-YJ nTU-YJ /UUUUTU-YJ "UUUUTPXPPPPTTXXYYXPT-PI "TT\ ZZY,YJ X1 "1,n YY1XZZXPT-PJ "TPXPPPPTTXZXPZP?@[]\^_{}|~/=(),' 'NUMERO_EVEN_LEXPP KPpuP PP ww1`7*016 SHIFT_IDENT0116-Jul-1984 16:2916-Jul-1984 1 .6:29VAX-11 FORTRAN V3.4-56 SHIFT_IDENT.P SHIFT_IDENTPO[}PQP ޫ PFOR$INI_DES1_R2ּ м WмYXYW< ZZYPYQZQ( @hAhWY< WW P< VYYVW PYZZYQZP, Q@hVYYkּ` O SHIFT_IDENT$CODE$PDATA,$LOCALFOR$INI_DES1_R2 2P gPww1(qS010TIMER/0119-Aug-1983 14:3819-Aug-1983 14:38VAX-11 FORTRAN V3.2-37 TIMERPP  TIMERPL[ŏPP SYS$SETIMRPZZZ($ SYS$GETMSG~ FOR$WRITE_SL<@< FOR$IO_T_DS FOR$IO_ENDD SYS$WAITFRPZZZ($ SYS$GETMSG~ FOR$WRITE_SL<@< FOR$IO_T_DS FOR$IO_ENDZk LTIMER SYS$WAITFR SYS$SETIMR S 0YS$GETMSG$CODE$PDATAT$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL )P2iP2ww1['017 TRAITE_LEXIC0116-Jul-1984 16:2916-Jul-1984 16:29VAX-11 FORTRAN V3.4-56 TRAITE_LEXICP\TQ     1    TRAITE_LEXIC+PO[} PQP }PQ}PQ(P$ޫ$PFOR$INI_DES1_R2PP@kk ּYi<$PļPiZZiQZP, Q@4ZZP,* PJ֩֩1ZZP, PJ1ּYiZZP,* PJ֩֩1D@1<$PļPZZQZP, Q@41@@ZZ@P, PJ1X@LhPTL2IB$GET_SYMBOLZ< YZYP,PJ ˀЫWDZZYP,W PJWDPPZZY,ˀ YJè@PWPШD1X@LhPTLIB$GET_SYMBOL< YYPQ,PA ˀЫWDZZYP,W PJWDPPZZY,ˀ YJè@PWPШD11Yi<$WWP4XiZZiQZP,' Q@hiļWiZZiPZW, PGh֩<$PļPZZQZP,' Q@4D@ O TRAITE_LEXICLIB$GET_SYMBOL$CODE$PDATAt$LOCAL 3INDICESHSYMBOLSGLOBALSFOR$INI_DES1_R2FPHPbJPLPNPPPRP*TPVPXP&ZPm\P^PPUP*PPIPnPPaPjPPJPh\ ww1)019TRAITE_SYNTAXE0116-Jul-1984 16:2916-Jul-1984 16:29VAX-11 FORTRAN V3.4-564TRAITE_SYNTAXEP ,QhTRAITE_SYNTAXEP