% Librarian A09-16 %n&&!   CHECKHELDFERROR EXIT_COMMANDGETUSER jGRANTID( GRANT_COMMAND<^ HELP_COMMAND@^ HG$GET_INPUTD LIST_COMMANDULOG\TPROJECThPROJECT_OPTIONSl0REVOKEIDs6REVOKE_COMMAND  CHECKHELDFERROR EXIT_COMMANDGETUSER jGRANTID( GRANT_COMMAND<^ HELP_COMMAND@^ HG$GET_INPUT@^ KEYBOARD_ID@^ KEY_TABLE_IDD LIST_COMMANDULOG\TPROJECThPROJECT_OPTIONSl0REVOKEIDs6REVOKE_COMMAND  17u BB CHECKHELD 14-JUN-1994 10:49DEC Fortran V6.1-386P PCINFO$LINK$i\$CODE$$IODATA$$BSS$$DATA$0J CHECKHELD SYS$ASCTOID SYS$FIND_HELDSYS$FINISH_RDBERROR OTS$MOVEMOTS$FILL =0;=p ;8 OTS$MOVEMERROR;P SYS$FIND_HELD SYS$ASCTOID=8)E-ERRASCTOID, error obtaining value for 8OTS$FILL SYS$FINISH_RDB=6.E-ERRFINDHELD, error finding held identifiers =d\#~^ ^(~08@޴HPX>`Gp,GpH!aH`B&!v H "$hb%@=G""GtG@Zk GGC4 @" !/ "GPBGXb }"1"G@Zk4G "C 1GC "2F@BGb@Zk> G7G0B&-"" 8b="="TG@ZkG(C(BG@<CGGGGpB"G@Zk(BGG@Zk<C(BGGGGGG@ZkGB@ZkTG!v H0BG%@"8b="ݰ@ZkGG] ](}08@ݤHPX=`p#k,@ HDz4LG SYS$ASCTOID4`b# SYS$ASCTOID4@ SYS$ASCTOID4G SYS$FIND_HELD4b# SYS$FIND_HELD4@ SYS$FIND_HELD4 GSYS$FINISH_RDB4 b#SYS$FINISH_RDB4  @SYS$FINISH_RDB,8GdERROR,Lb#ERROR,`@dERROR4tG OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4 GOTS$FILL4 @OTS$FILL,GERROR,b#ERROR, @ERRORE E=5-, CHECKHELDDEC Fortran V6.1-386 = 44= CHECKHELD4=<< B  L G F L P D D D) m4$ $= D 4 = \ =  ww1/j  >>ERROR 14-JUN-1994 10:49DEC Fortran V6.1-386  $LINK$i@$CODE$$IODATA$$BSS$$DATA$(JERROR SYS$GETMSGLIB$PUT_OUTPUT DFOR$EXIT OTS$MOVEMOTS$FILL =0;=P| 8 OTS$MOVEM;8OTS$FILL@LIB$PUT_OUTPUT SYS$GETMSG DFOR$EXIT=-x= %PROJECT- =H@#~^^ ~(08޴@G,GGH} $ ("]"kPB(¤G1"XbG ݰG@Zk4GGC@ B<CGGGGxB"@Zk BGG@Zk<C BGGGGGG@ZkG0B@Zk$'#!v H@BGHb$@= ="4G@Zk4G4G(@ BpB"G 1@ @<CGGGG@Zk BGG@Zk<C BGGGGGG@ZkG0B@Zk6vJ@BGHbBݲ ="4G@Zk$4G,"HبDGc`BhbfDݴ@ZkGG]] }(08ݤ@P#k,@ HD4XG SYS$GETMSG4lb# SYS$GETMSG4|@ SYS$GETMSG4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G$LIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4 @$LIB$PUT_OUTPUT44Gd OTS$MOVEM4`@d OTS$MOVEM4dGt OTS$MOVEM4p@t OTS$MOVEM4xG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT4 G DFOR$EXIT4 b# DFOR$EXIT4 @ DFOR$EXITA A=1)(ERRORDEC Fortran V6.1-386 = 44= ERROR4=7/.R X S($ $= <4 = @ =  ww1!U EE EXIT_COMMAND 14-JUN-1994 10:49DEC Fortran V6.1-386 8$LINK$i<$CODE$$IODATA$$BSS$$DATA$0J EXIT_COMMAND DFOR$EXIT| |=0;=  DFOR$EXIT= =D<#0"~4G^ [G({@ZkG] #k4G( DFOR$EXIT4 {# DFOR$EXIT4$@( DFOR$EXITH H=80/ EXIT_COMMANDDEC Fortran V6.1-386 = 44= EXIT_COM MAND4=-%$$ $=  4 = < =  ww1?! @@GETUSER 14-JUN-1994 10:49DEC Fortran V6.1-386 $LINK$i|$CODE$ $IODATA$$BSS$$DATA$(J@GETUSER(STR$FIND_FIRST_NOT_IN_SETSTR$TRIM STR$UPCASE DFOR$READ_SEQ_FMT DFOR$HANDLER OTS$MOVEMOTS$FILL OTS$INDEX (STR$FIND_FIRST_NOT_IN_SET=!=8 STR$TRIM=8OTS$FILL=0H;=? 7 DFOR$HANDLER=8 OTS$MOVEM; DFOR$READ_SEQ_FMT STR$UPCASE8 OTS$INDEX=  \ \=|@#~H^P^X~`hp޴x>^~cG,GGHC8 )H_@B"@4GHb_"8=b"8"GG@Zk GG GV@!H%B!!H&b!v H G ,@8?&<}"@1"h"D8"@="TG@Zk@ 0B 1@5@GGGGTBG@ZkGB@Zk`B4GGGB"@Zk0@# 0B91@GGGG@ZkGB@Zk8DBG88"<}@="@GbtGD}@ZkTGPB8"8@=" vH<}Xb @@D}@ZkGGGcGH]P]X}`hpݤx=]}#k,@ HDy< xGDFOR$READ_SEQ_FMT< b#@DFOR$READ_SEQ_FMT< @DFOR$READ_SEQ_FMTDGSTR$FIND_FIRST_NOT_IN_SETDb#@STR$FIND_FIRST_NOT_IN_SETD@STR$FIND_FIRST_NOT_IN_SET4$GL OTS$MOVEM4H@L OTS$MOVEM4PGXOTS$FILL4T@XOTS$FILL4 XGp OTS$INDEX4 l@p OTS$INDEX4|G OTS$MOVEM 4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4GSTR$TRIM4b#@STR$TRIM4@STR$TRIM4 G STR$UPCASE4 b#@ STR$UPCASE4  @ STR$UPCASE, ,= !6H7C C=3+*GETUSERDEC Fortran V6.1-386 = 4@4= GETUSER4=LDC * /L$ $= `4 = | =  ww1" @@GRANTID 14-JUN-1994 10:49DEC Fortran V6.1-386 "$LINK$i<$CODE$$IODATA$$BSS$ $DATA$(JGRANTID SYS$GETUAISYS$ADD_HOLDERERROR OTS$MOVEMOTS$FILL =0;=p 8 OTS$MOVEM;8OTS$FILL@ERROR SYS$GETUAI SYS$ADD_HOLDER=(# already holds that identifier=0$E-UICERR, could not obtain UIC for =8*E-GRANTERR, error granting identifier to = W-DUPIDENT, =D<#~^ ^(~08@޴HPX>`G,GGGH Ѡ1H(b&(1v J"PB% (B=G=#Xb&"GG]"GGG@Zk GGCa `BGtGDhb@ZkC 2C$G B6@<CGGGGGG@Zk BpB"G@ZkGG7C<C BGGGGB"@Zk BGG@Zk<C BGGGGGG@ZkG0B@Zk vHG@=GGCJ4G B@<CGGGGB"G@Zk BGG@Zk<C BGGGGGG@ZkG0B@Zk vHG@#GC BtG@<CGGGGB"G@Zk BGG@Zk<C BGGGGGG@ZkG0B@Zk'vHG@==@B"Hb="TG@ZkG%G] ](}08@ݤHPX=`p#k,@ HDD4hG SYS$GETUAI4b# SYS$GETUAI4@ SYS$GETUAI4 GSYS$ADD_HOLDER4 b#SYS$ADD_HOLDER4 @SYS$ADD_HOLDER4G( OTS$MOVEM4$@( OTS$MOVEM4(&G8 OTS$MOVEM44@8 OTS$MOVEM4HGd OTS$MOVEM4`@d OTS$MOVEM4dGt OTS$MOVEM4p@t OTS$MOVEM4xG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4'G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G( OTS$MOVEM4$@( OTS$MOVEM4,G4OTS$FILL40@4OTS$FILL4TG OTS$MOVEM4|@ OTS$MOV(EM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL,GERROR,b#ERROR,@ERROR 6 )6=6= C C=3+*GRANTIDDEC Fortran V6.1-386 = 44= GRANTID4=skj       4$ $= P4 = < =  ww1*}HW FF GRANT_COMMAND 14-JUN-1994 10:52DEC Fortran V6.1-386H HB$LINK$i$CODE$$IODATA$X$BSS$$DATA$0J GRANT_COMMAND CLI$GET_VALUE CLI$PRESENT CHECKHELD SYS$ASCTOID DFOR$OPEN DFOR$HANDLERGETUSER DFOR$ERRSNS+ERROR DFOR$CLOSE LIB$DISABLE_CTRLGRANTIDLOGLIB$ENABLE_CTRLLIB$PUT_OUTPUT OTS$MOVEMOTS$FILLOTS$STRCMP_EQLP =0!%PROJECT-E-NOADMIN, you are not 0LIB$PUT_OUTPUT= 8 8  ` LIB$ENABLE_CTRL= the administrator for  LIB$DISABLE_CTRL,= granted to =H>_READERE-NOUSER, unable to obtain Username from command line= identifier SYS$ASCTOID=H9E-NOIDENT, unable to obtain Identifier from command lineP CLI$GET_VALUE GETUSER=8)E-READFAIL, could not read username file DFOR$CLOSE DFOR$ERRSNS8 OTS$MOVEM=0p-;= 7 DFOR$HANDLER=8;ERROR=8OTS$FILL= _ADMIN88OTS$STRCMP_EQLP CHECKHELD CLI$PRESENT=fileh= usernameGRANTIDLOG=8-E-NOIDVAL, unable to obtain identifier value! DFOR$OPEN.=.dis=8)E-OPENFAIL, could not open username file=2*W-NOUSERNAMES, the username file is empty =#?$ ! ~_&p^ R"x^tG~޴>^~޵cGG( @=@"DH="0bH]0BBGbLR"@Zk?&1"tGG0¤GC 0BB$"@= D HGbL@"H="R"@Zk?&1"4G GGCn B"@=D/b@"@ZkG0" G0GB"GG@ZkGBhB"@ZkGPB@Zk6#B pB9By@1BGGB"G@ZkBGGGG@ZkGBhB"@ZkGPB@Zk81B8KxB%`8Kb?'8vK9# C@@"D4G@Zk G0"0"tG0B8B1"@bR"0vJ B@@"D@ZkGGG0C 0@Eu@BHݴb"0J@X}GP4G`TGb"hݶ4G_"xb"@"@ZkGGGG0"CE B@"@1"bTGD@0ZkTGC8BGb8="@Zk?$)! TG8BP @=8"@b@="D@Zk4G_"B"bHb"GG@ZkG8=GTG. B8="b@Zk?$(! 8B @=8"@b@="DTG@Zk4G_"GB"bHb"G@ZkGBGb8="8ݰTG@Zk$( TG8B  @8"@b@="Dݰ@ZkG _BX"b4G@ZktG0@="00BBb" vHR" @@D@ZktG_&B@ R"D""H]@"L=H="PP]"bT@ZkBX"b4G@ZkTG1@0"B@"@bD1"@ZkGTGGCBb8="8@Zk$( 8B!@8"@b@="DTG@ZkG"^@Bb4G_"Hb"GG@ZkUG$, !@D8ݱGG0 GIBB"G A<CGGGG@ZkBGG@ZkGG@B<CGGGG8B"@ZkBGG@Zk<CBGGGGGG@ZkGPB@Zk4G'vHhBGpb @@}D@"@Zk%5!!@D8=G$8 H @Dݰ88B8"@b@2="TG@ZkGGcp]4Gx]}ݤ=]}ݥ#k4 G CLI$GET_VALUE4 b# CLI$GET_VALUE4 @ CLI$GET_VALUE4 G CLI$GET_VALUE4 b# CLI$GET_VALUE4 @ CLI$GET_VALUE4 G< CLI$PRESENT40b# CLI$PRE3SENT48@< CLI$PRESENT4PGl OTS$MOVEM4h@l OTS$MOVEM4pG| OTS$MOVEM4x@| OTS$MOVEM4GOTS$FILL4@OTS$FILL4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4G4 OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G4 CHECKHELD4 b# CHECKHELD40@4 CHECKHELD4PGx SYS$ASCTOID4X5b# SYS$ASCTOID4t@x SYS$ASCTOID4!G DFOR$OPEN4"b# DFOR$OPEN4!@ DFOR$OPEN,  G,GETUSER, b#GETUSER, (@,GETUSER4<GP DFOR$ERRSNS4Db# DFOR$ERRSNS4L@6P DFOR$ERRSNS,\G|ERROR,lb#ERROR,x@|ERROR4 G DFOR$CLOSEp p 4b# DFOR$CLOSE4 @ DFOR$CLOSE4G DFOR$ERRSNS4b# DFOR$ERRSNS4@ DFOR$ERRSNS,G7ERROR,b#ERROR,@ERROR4 G DFOR$CLOSE4b# DFOR$CLOSE4 @ DFOR$CLOSE4 G< DFOR$ERRSNS4(b# DFOR$ERRSNS48@< DFOR$ERRSNS,HGhERROR,Xb#ERROR,8d@hERROR<xGLIB$DISABLE_CTRL<b#LIB$DISABLE_CTRL<@LIB$DISABLE_CTRL,GGRANTID,b#GRANTID,@GRANTID,G LOG, b#LOG,@ LOG4 9G LIB$ENABLE_CTRL4b#LIB$ENABLE_CTRL4@ LIB$ENABLE_CTRL, ,GHGETUSER, 8b#GETUSER, D@HGETUSER4`Gt DFOR$ERRSNS4db# DFOR$ERRSNS4p@t DFOR$ERRSNS,|GERROR,b#ERR:OR,@ERROR4 G DFOR$CLOSE4b# DFOR$CLOSE4 @ DFOR$CLOSE4G0 OTS$MOVEM4,@0 OTS$MOVEM40G@ OTS$MOVEM4<@@ OTS$MOVEM4LGl OTS$MOVEM4h@l OTS$M;OVEM4lG| OTS$MOVEM4x@| OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT,G<(ERROR,b#ERROR,$@(ERRORI I=910 GRANT_COMMANDDEC Fortran V6.1-386: := 44= GRANT_COMMAND4=       Ђ          =    ؃            A3 / ) /0 .T$ $= l4 =  =  ww1݆ X EE HELP_COMMAND 14-JUN-1994 10:49DEC Fortran V6.1-386  >$LINK$iP$CODE$$IODATA$($BSS$$DATA$0J HELP_COMMAND CLI$GET_VALUELBR$OUTPUT_HELPLIB$PUT_OUTPUT HG$GET_INPUTERROR` `=0 ;=@ ;7LIB$PUT_OUTPUT=utility:project7 HG$GET_INPUTP LBR$OUTPUT_HELP?ERROR=topicx=0(E-NOHELP, could not access help library CLI$GET_VALUE, ,=XP#?$~! ^_&(^ R"0~tG8GGp ="=" b] BBGb}R"@Zk&&" "0b"G!]"!v H0@}G}}"( ?&4G =1"0"=G(G}" "PBG@Xb@Zk&'"TG`Bx" G="hb="}@Zk4GG ](]0}8@#k4@TGl CLI$GET_VALUE4\b# CLI$GET_VALUE4h@l CLI$GET_VALUE4GLBR$OUTPUT_HELP4b#LBR$OUTPUT_HELP4@LBR$OUTPUT_HELP,G0ERROR, b#ERROR,,@0ERRORH H=80/ HELP_COMMANDDEC Fortran V6.1 A-386 = 44= HELP_COMMAND4=         $ $= 44 = P =  ww1YX01-001JJ HG$GET_INPUT01-00114-JUN-1994 10:54AMAC V1.8-17 B$LINKAGE H_HG$GET_INPUT_CODE _HG$GET_INPUT_DATA $ABS$ . BLANK . . ABS .0  KEY_TABLE_ID0  KEYBOARD_ID SMG$CREATE_KEY_TABLE(SMG$CREATE_VIRTUAL_KEYBOARD SMG$READ_COMPOSED_LINESMG$_EOFAMAC$EMUL_CALL0J HG$GET_INPUTD D=0( C;= @ "";0SMG$CREATE_VIRTUAL_KEYBOARD"(SMG$CREATE_KEY_TABLE"7 SMG$READ_COMPOSED_LINE= z`7SMG$_EOFpAMAC$EMUL_CALL =PH>C~(^08G G== ](|`4G(MHmG@M@Zk7( 4G0M8mC@Zk0ݢTGtGvJJ0C }>C0@~]>C0@^>C(ͦG(D>CPB>CG޲LGGBC>CGxmGB^pM@Zk`^0CC$z G(08Ck<@m#SMG$CREATE_KEY_TABLE<HGPSMG$CREATE_KEY_TABLE<L@PSMG$CREATE_KEY_TABLED\GlSMG$CREATE_VIRTUAL_KEYBOARDD`m#SMG$CREATE_VIRTUAL_KEYBOARDDh@lSMG$CREATE_VIRTUAL_KEYBOAERD4m#AMAC$EMUL_CALL4 GAMAC$EMUL_CALL4@AMAC$EMUL_CALL( (= ww1Y EE LIST_COMMAND 14-JUN-1994 10:49DEC Fortran V6.1-386 t$LINK$i$CODE$`$IODATA$`$BSS$$DATA$F0J  LIST_COMMAND CLI$GET_VALUE DFOR$OPEN DFOR$HANDLER SYS$ASCTOIDSYS$FIND_HOLDER SYS$IDTOASC LIB$SYS_FAOERROR DFOR$CLOSE DFOR$ERRSNS DFOR$WRITE_SEQ_FMTOTS$MOVEOTS$FILLOTS$STRCMP_EQLP OTS$MOVEM  SYS$IDTOASC LIB$SYS_FAO8OTS$STRCMP_EQLPG0 SYS$ASCTOID DFOR$ERRSNS=H9E-NOIDENT, unable to obtain Identifier from command line=(E-ERRFINDHELD, could not ==.dis= identifier= SYS$OUTPUT= CLI$GET_VALUE DFOR$WRITE_SEQ_FMT8OTS$FILL8 OTS$MOVEM=H0x;= 7 DFOR$HANDLER= ;`ERROR;=8=_READER_ADMIN DFOR$OPEN=output= 8 8  8OTS$MOVE=8)E-ERRASCTOID, error obtaining value for  DFOR$CLOSE=0'E-OPENFAIL, could not open output fileI8= find holder for P=_ADMIN` SYS$FIND_HOLDER= !%U =#?$ ! ~tGx^^~޴>^~޵cGG$0b 0B B@"@=GDH="HR"bL@ZktG0C8""^ _&0"R"@]0B&B"D=@)!H@"bH="L=R"@ZkTG BGB"@ZkGGB@ZkTG0¦60TJGpB""Gxb"H=b"@"8K@GP`=X]4Gh_"p@Zk GG GGC 0PB_"BXb"@"H}GbG1J@="4G@Zk4G_"GB("b"b"G@Zk0`B" ! B7@1@Gw@G@ZkG0B@"GG@ZkGB0B"@ZkBGGG33B@]"@ZkGB@Zk0(C0%0"&B"<@"b1"G!!KtG!v H+@@=D@Zk0GGC 0!<!@BGHbCGGK<}"G@ZkGG0¤G0"C2 BG@1"bGD@]"GGG@Zk&"0"BP" @@"D=1"HH]"bGLG@Zk0T"B"b4G_"HݴXb"@"(I@G@ZkGlGGC 90GBGB"GA<CGGGG@ZkBGG@Zk4GGBB<CGGGGpB"@ZkBGG@Zk<CBGGGGGG@ZkGB@ZkTG8vK@BGHb C@D8"8ݱ@="@Zk GG~*G0LGBB"GA<CGGGG@ZkBGG@Zk<CBGGGGGG@ZkGB@ZkTG/vI@BGHbA@D=8"8@="@ZkBGb"4G_"b"GG@Zk BG(b8="8=TG@Zk_%&J! @]DG$8c 0!@}Dݱ@B8"Hb@="TG@ZkGcx]4G]}ݤ=]}ݥ#k4 xG CLI$GET_VALUE4 b#  CLI$GET_VALUE4 M@ CLI$GET_VALUE4 G CLI$GET_VALUE4 b#  CLI$GET_VALUE4 @ CLI$GET_VALUE4 GOTS$MOVE4@OTS$MOVE4$G,OTS$FILL4(@,OTS$FILL4@G DFOR$OPEN4Lb#  DFOR$OPENN4@ DFOR$OPEN< GDFOR$WRITE_SEQ_FMT<b# DFOR$WRITE_SEQ_FMT< @DFOR$WRITE_SEQ_FMT< GDFOR$WRITE_SEQ_FMT<b# DFOR$WRITE_SEQ_FMT< @DFOR$WRITE_SEQ_FMT4,GHOTS$STRCMP_EQLP4D@HOTSO$STRCMP_EQLP4TGl OTS$MOVEM4h@l OTS$MOVEM4pG| OTS$MOVEM4x@| OTS$MOVEM4|G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G SYS$ASCTOID4b#P  SYS$ASCTOID4@ SYS$ASCTOID4 GDSYS$FIND_HOLDER4(b# SYS$FIND_HOLDER4@@DSYS$FIND_HOLDER4hG SYS$IDTOASC4xb#  SYS$IDTOASC4@ SYS$IDTOASC4G LIB$SYS_FAO4b#  LIB$SYS_FAO4Q@ LIB$SYS_FAO< GDFOR$WRITE_SEQ_FMT<b# DFOR$WRITE_SEQ_FMT < @DFOR$WRITE_SEQ_FMT4@Gp OTS$MOVEM4l@p OTS$MOVEM4pG OTS$MOVEM4|@ OTS$MOVEM4G OTS$MOVEM4R@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL,GERROR,b# ERROR,@ERROR48GdS OTS$MOVEM4`@d OTS$MOVEM4dGt OTS$MOVEM4p@t OTS$MOVEM4xG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL,GERROR,b# ERROR,@TERROR4G DFOR$CLOSE4b#  DFOR$CLOSE4@ DFOR$CLOSE4 G DFOR$ERRSNS4 b#  DFOR$ERRSNS4 @ DFOR$ERRSNS,LGdERROR,Tb# ERROR,`@dERROR =h`6!HoldersU of identifier H76 !-------------------------------76H7H H=80/ LIST_COMMANDDEC Fortran V6.1-386 = 4 4= LIST_COMMAND4=8888 : 9 : @ F F L L L L S U X X  j h m o o u u V u w؂ |@ k    0  k1  \       H^T$ $= d4 =  =  ww14=Z <<LOG 14-JUN-1994 10:49DEC Fortran V6.1-386` `CINFO$LINK$i$CODE$$$IOWDATA$$BSS$$DATA$(JPLOG LIB$DATE_TIME DFOR$OPEN DFOR$HANDLER DFOR$CLOSE DFOR$WRITE_SEQ_FMT DFOR$WRITE_SEQ_FMT_XMIT, , DFOR$WRITE_SEQ_FMT=8=  LIB$DATE_TIME= utility:.log@;=8PX=0;= 7 DFOR$HANDLER=(DFOR$WRITE_SEQ_FMT_XMIT;=8+8  8   projectlog DFOR$OPEN DFOR$CLOSE;  = #~^^~޴>cGp,GpH,H ,ѠH@B$ "8"84Gb<=@ZkTGtGTGYh PH=b"XG`=4GBGp}"h_"xHb"ݶH"=TGbG@ZkTG_"GFB@= GbG"8=b"8"@ZktG00BC#aH@8b"8}""8]"@ZktG$0BC%H@ݴ8b"8""8]"@ZktG0BC'H@8b"8""8]"@ZktG @¤"0B""8b8]" @ݴ%H8@ZkB"bTG_"b"GG@ZkGc]]}ݤ=#k,,@ HHDx?,,Ѡ@ HHDu_.P ZJFq4lG LIB$DATE_TIME4b#P LIB$DATE_TIME4@ LIB$DATE_TIME4G DFOR$OPEN4b#P DFOR$OPEN4@ DFOR$OPEN<G<DFOR$WRITE_SEQ_FMT<b#PDFOR$WRITE_SEQ_FMT<8@<DFOR$WRITE_SEQ_FMT<[DGlDFOR$WRITE_SEQ_FMT_XMIT<Tb#PDFOR$WRITE_SEQ_FMT_XMIT<h@lDFOR$WRITE_SEQ_FMT_XMIT<tGDFOR$WRITE_SEQ_FMT_XMIT<b#PDFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT<GDFOR$WRITE_SEQ_FMT_XMIT<b#PDFOR$WRITE_SEQ_FMT_XMIT<@\DFOR$WRITE_SEQ_FMT_XMIT<GDFOR$WRITE_SEQ_FMT_XMIT<b#PDFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT4 G( DFOR$CLOSE4  b#P DFOR$CLOSE4 $@( DFOR$CLOSED D=,$6H H by H7? ?=/'&LOGDEC Fortran V6.1-386 ]= 4P4= LOG4=    8H$ $= l4 =  =  ww1 @@PROJECT 14-JUN-1994 10:49DEC Fortran V6.1-386x xCIN^FO0$LINK$i$CODE$$IODATA$8$BSS$($DATA$(JPROJECT SYS$GETJPIWLIB$GET_FOREIGN DFOR$EXITERROR HG$GET_INPUT CLI$DCL_PARSEPROJECT_OPTIONS CLI$DISPATCH 7 HG$GET_INPUT=8+E-NOCOMMAND, could not obtain command line@ CLI$DISPATCH=8_+E-ERRJPI, error obtaining process username=0&E-INVCMD, could not parse the command SYS$GETJPIW=(PROJECT>  ;ERROR=0 ;= ;; DFOR$EXIT HG$GET_INPUT=0&E-NOCOMMAND, could not obtain commandx=8+F-`NOCOMMAND, could not obtain command line LIB$GET_FOREIGN=`VE-NODISPATCH, could not execute commandE-ERRJPIOSB, error obtaining process username7PROJECT_OPTIONS CLI$DCL_PARSE =`#?$~ ! ^G(^G0~G8@H޴PX`>h^p~x޵GG#(" b ?$BQ" ! @1" G GbGG@ZkGtGGG C ac` B$B 8 b"ݰR"@Zk%z!4GGGC(D 0B8b"@ZkB?%*)!=x b"="TG@Zk G-%_!b! !_ B"@B="tGݰR"Hb}@Zk GGC G(D 0B"8b4G@Zk_GB ="="bTG@Zk_ $"!?% tG BB"(b0vJ Bݰ"@ZkG G G C>`@BHb@Zk?$'! TGBb!"=="b}@Zk Gbv%!b! ! B"@B="tGݰR"ݱHb}@ZkGC G`(D G GZB?&%1"=P"b"="TG@ZkKGB%%k!} b"]="TG@Zk_%!! J! B"@B="tGݰR"]Hbݱ@ZkGC G((D G G"BP"}=""bTG@Zk|G&}-"" =G%*k!PB!}]B"b="TG@Zk0B"8b4G@Zk4GG c](]0}8@HݤPX`=h]p}xݥ#k4xG SYS$GETJPIW4b# SYS$GETJPIW4@ SYS$GETJPIW4 GLIB$GET_FOREIGN4 b#LIB$GET_FOREIGN4 @LIB$GET_FOREIGN4$G4 DFOR$EXIT4(b# DFOR$EXIT40@d4 DFOR$EXIT,4GdERROR,Lb#ERROR,`@dERROR4 G HG$GET_INPUT4 b# HG$GET_INPUT4 @ HG$GET_INPUT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT,G eERROR,b#ERROR,@ ERROR4 HGt CLI$DCL_PARSE4Xb# CLI$DCL_PARSE4 p@t CLI$DCL_PARSE4G CLI$DISPATCH4b# CLI$DISPATCH4@ CLI$DISPATCH,GERROR,b#ERROR,f@ERROR4 G HG$GET_INPUT4 b# HG$GET_INPUT4  @ HG$GET_INPUT,@GpERROR,Xb#ERROR,l@pERROR,GERROR,b#ERROR,@ERROR4 G HG$GET_INPUTg4 b# HG$GET_INPUT4 @ HG$GET_INPUT, GHERROR,8b#ERROR,D@HERROR,GERROR,b#ERROR,@ERROR4G DFOR$EXIT4b# DFOR$EXIT4@h DFOR$EXIT 6=6=6 = C C=3+*PROJECTDEC Fortran V6.1-386  = 44= PROJECT4=        i        (             ! .0  <    F *S(  e )L$ $= d4 =  =  ww1 Z0-099j PROJECT_OPTIONS0-014-JUN-1994 10:49++VMS Command Definition Utility A05-068 8mman0i PROJECT_OPTIONS h CLI$TABLES  =@h,ADDEXITGRANHELPLISTQUITREMOREVOSHOW, l<l|<@`=" , GRANTADD GRANT_COMMAND8!,P1 IDENTIFIER Identifier4q!*=P2kUSERNAMEUsername$FILE@ , EXITQUIT EXIT_COMMAND<=  (HELP HELP_COMMAND0!'P1TOPICTopic@`(`= , LISTSHOW LIST_COMMAND8!,P1 IDENTIFIER Identifier4%O=UTPUT SYS$OUTPUTD`D" 0REVOKEREMOVEREVOKE_COMMAND8 l!,P1 IDENTI=phFIER Identifier4q!*P2USERNAMEUsername$FILE  GRANT_COMMAND+ +> GRANT_COMMAND  EXIT_COMMANDGRA) )h> EXIT_COMMAND  HELP_COMMANDEXI) )> HELP_COMMAND  LIST_COMMANDHEL) )> LIST_COMMAND REVOKE_COMMANDS+ +m>REVOKE_COMMAND ww1%[ AAREVOKEID 14-JUN-1994 10:49DEC Fortran V6.1-386  $LINK$i$CODE$$IODATA$$BSS$ $DATA$0JREVOKEID SYS$GETUAISYS$REM_HOLDERERROR OTS$MOVEMOTS$FILLu un=0;=` 8 OTS$MOVEM;ERROR8OTS$FILLPSYS$REM_HOLDER SYS$GETUAI=(E-REVOKEERR, error revoking =0$E-UICERR, could not obtain UIC for =identifier from  =#~^ ^(~08@޴HPXG,GGH H(b(¤& vH"$`B Ӱ@oG=#hb&"GG]"GGG@ZkGGC; PBGTGXb@ZkGGCCBV<C BGGGGB"@Zk BGG@ZkGGC<C BGGGGpB"@Zk BGG@Zk<C BGGGGGG@ZkG@B@Zk9v KG'C=ݰ#GC BtG@<CGGGGB"G@Zk BGG@Zk<C BGGGGGG@ZkG@B@Zk#v`HGg@ݲ0B"8b="TG@ZkGG] ](}08@ݤpHPX`#k,@ HDk4 hG SYS$GETUAI4 b# SYS$GETUAI4 @ SYS$GETUAI4GSYS$REM_HOLDER4b#SYS$REM_HOLDER4@SYS$REM_HOLDER4G OTS$MOVEM4@ OTS$MOVEM4G( OTS$MOVEMq4$@( OTS$MOVEM48GT OTS$MOVEM4P@T OTS$MOVEM4TGd OTS$MOVEM4`@d OTS$MOVEM4hG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G OTSr$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$FILL4@ OTS$FILL,8GPERROR,@b#ERROR,L@PERRORs 66=6= D D=4,+REVOKEIDDEC Fortran V6.1-386 = 44=REVOKEID4=uml      0  0$ $= D4 = t =  ww1h\ GGREVOKE_COMMAND 14-JUN-1994 10:52DEC Fortran V6.1-386P PB$LINK$ix$CODE$$IODATA$X$BSS$$DATA$0JREVOKE_COMMAND CLI$GET_VALUE CLI$PRESENT CHECKHELD SYS$ASCTOID DFOR$OPENu DFOR$HANDLERGETUSER DFOR$ERRSNSERROR DFOR$CLOSE LIB$DISABLE_CTRLREVOKEIDLOGLIB$ENABLE_CTRLLIB$PUT_OUTPUT OTS$MOVEMOTS$FILLOTS$STRCMP_EQLP =0!%PROJECT-E-NOADMIN, you are not 0LIB$PUT_OUTPUT= 8 8  ` LIB$ENABLE_CTRL= the advministrator for  LIB$DISABLE_CTRL= revoked from =H>_READERE-NOUSER, unable to obtain Username from command line= identifier SYS$ASCTOID=H9E-NOIDENT, unable to obtain Identifier from command lineP CLI$GET_VALUE GETUSER=8)E-READFAIL, could not read username file DFOR$CLwOSE DFOR$ERRSNS8 OTS$MOVEM=0p;= 7 DFOR$HANDLER=8;ERROR=8OTS$FILL= _ADMIN88OTS$STRCMP_EQLP CHECKHELD CLI$PRESENT=fileh= usernameREVOKEIDLOG=8-E-NOIDVAL, unable xto obtain identifier value! DFOR$OPEN=.dis=8)E-OPENFAIL, could not open username file=2*W-NOUSERNAMES, the username file is empty =x#?$ ! ~_&p^ R"x^tG~޴>^~޵cGG( @=@"DH="0bH]0BBGbLR"@Zk?&1"tGG0¤GC 0BB$"@= D HGybL@"H="R"@Zk?&1"4G GGCl B"@=Db@"@ZkG0" G0GB"GG@ZkGBhB"@ZkGPB@Zk6#B pB9By@1BGGB"G@ZkBGGGG@ZkGBhB"@ZkGPB@Zk81B8KxB%`8Kb?'8vK9# C@@"D4G@Zk G0"0"tG0B8B1"@bR"0vJ B@@"D@ZkGGG0C 0@Eu@BHݴb"0J@X}GP4G`TGb"hݶ4G_"xb"@"@zZkGGGG0"CE B@"@1"bTGD@ZkTGC8BGb8="@Zk?$)! TG8BP @=8"@b@="D@Zk4G_"B"bHb"GG@ZkG8=GTG. B8="b@Zk?$(! 8B @=8"@b@="DTG@Zk4G_"GB"bHb"G@ZkGBGb8="8ݰTG@Zk$( TG8B  @8"@b@="Dݰ@ZkG _BX"b4G@ZkTG0@="0Bb" vH @@D@ZktG_&B@R"D""{H]@"L=H="PP]"bT@ZkBX"b4G@ZkTG@0"B@"@bD1"@ZkGTGGCBb8="8@Zk$( 8B!@8"@b@="DTG@ZkG"^@Bb4G_"Hb"GG@ZkUG$, !@D8ݱGG0 GIBB"G A<CGGGG@ZkBGG@ZkGG@B<CGGGG8B"@ZkBGG@Zk<CBGGGGGG@ZkGPB@Zk4G'vHhBGpb @@}D@"@Zk%5!|!@D8=G$8 H @Dݰ88B8"@b@="TG@ZkGGcp]4Gx]}ݤ=]}ݥ#k4 G CLI$GET_VALUE4 b# CLI$GET_VALUE4 @ CLI$GET_VALUE4 G CLI$GET_VALUE4 b# CLI$GET_VALUE4 @ CLI$GET_VALUE4 G<} CLI$PRESENT40b# CLI$PRESENT48@< CLI$PRESENT4PGl OTS$MOVEM4h@l OTS$MOVEM4pG| OTS$MOVEM4x@| OTS$MOVEM4GOTS$FILL4@OTS$FILL4GOTS$STRCMP_EQLP4~@OTS$STRCMP_EQLP4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G4 CHECKHELD4 b# CHECKHELD40@4 CHECKHELD4PGx SYS$ASCTOID4Xb# SYS$ASCTOID4t@x SYS$ASCTOID4!G DFOR$OPEN4"b# DFOR$OPEN4!@ DFOR$OPEN,  G,GETUSER, b#GETUSER, (@,GETUSER4<GP DFOR$ERRSNS4Db# DFOR$ERRSNS4L@P DFOR$ERRSNS,\G|ERROR,lb#ERROR,x@|ERROR4 G DFOR$CLOSE 4b# DFOR$CLOSE4 @ DFOR$CLOSE4G DFOR$ERRSNS4b# DFOR$ERRSNS4@ DFOR$ERRSNS,GERROR,b#ERROR,@ERROR4 G DFOR$CLOSE4b# DFOR$CLOSE4 @ DFOR$CLOSE4 G< DFOR$ERRSNS4(b# DFOR$ERRSNS48@< DFOR$ERRSNS,HGhERROR,Xb#ERROR,d@hERROR<xGLIB$DISABLE_CTRL<b#LIB$DISABLE_CTRL<@LIB$DISABLE_CTRL4GREVOKEID4b#REVOKEID4@REVOKEID,GLOG, b#LOG,@LOG4GLIB$ENABLE_CTRL4 b#LIB$ENABLE_CTRL4@LIB$ENABLE_CTRL, $G@GETUSER, 0b#GETUSER, <@@GETUSER4XGl DFOR$ERRSNS4\b# DFOR$ERRSNS4h@l DFOR$ERRSNS,tGERROR,b#ERROR,@ERROR4 G DFOR$CLOSE4b# DFOR$CLOSE4 @ DFOR$CLOSE4G( OTS$MOVEM4$@( OTS$MOVEM4(G8 OTS$MOVEM44@8 OTS$MOVEM4DGd OTS$MOVEM4`@d OTS$MOVEM4dGt OTS$MOVEM4p@t OTS$MOVEM4xG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4GLIB$PUT_OUTPUT4b#LIB$PUT_OUTPUT4@LIB$PUT_OUTPUT,G ERROR,b#ERROR,@ ERRORJ J=:21REVOKE_COMMANDDEC Fortran V6.1-386+ += 44=REVOKE_COMMAND4=       Ђ             ؅          0 ,/ & ,0 +T$ $= l4 = x =  ww