HJTDELMAINT$MAIN 12-SEP-1996 20:52DEC Fortran V6.2-508 L$DATA$@ $BSS$d$IODATA$i$CODE$$LINK$0JJTDELMAINT$MAINLIB$SYS_TRNLOGLIB$GET_FOREIGN LIB$FIND_FILE(J IVLEN DFOR$OPEN DFOR$HANDLER(LIB$CVT_FROM_INTERNAL_TIMESTR$MATCH_WILD LIB$SPAWNCONV$PASS_FILES CONV$PASS_OPTIONS CONV$CONVERTEXEMPTLIB$RENAME_FILEUNEXEMPTLIB$DELETE_FILE DFOR$CLOSE LIB$FIND_FILE_END DFOR$EXIT DFOR$READ_INT_FMT DFOR$READ_INT_FMT_XMIT DFOR$READ_SEQ_FMT DFOR$WRITE_INT_FMT OTS$MOVEMOTS$FILL OTS$INDEXOTS$MOVE l=6= 6  =ld6M76H76$@gcy$cm:delbak H76M76@W W\\\7 =P#~x^^~cGG00,0"! 0 G0"$ 8P"<$ @0"D8"0",1"@]"tG`Bhb@Zk0,B"0",!0"!!H@8=0H"?&1"8}"GBb@Zk$ 80"<_& R"@]"D8"@="0BR"GGBb@Zk0"000"0BR"G?"B@ZkGB@Zk0¦֢"A0⦸/KC<0"9?G8.G7 0D8 D20"$0(&"8B"<]&"@0b {#D}0("#8"@="0B$R"GG0 "GBb@Zk0"4""&"80b s"<}8"TGb&@0"8(b"080" 1"0J4G@=8"Hݶ4GPTGX]4G`h]TGp"G_&R"8"GBb@ZkG0"!p D0<0H"0"@1"GtGBb@Zk0"0`"0"D1"GtGBb@Zk0"0?"4G0"B"8B@Zk0@000"099# 0"0!"5B0"0BR"GTBG?"B@ZkGB@Zk0¦0֢61B0"0BR"G?"B@ZkGB@Zk`""&"80#<8"TGb@0"?"G0"B"8B@Zk0@`""'#80"! <=8"TGb@0"H.?"G0"pB"8B@Zk0@g`""'#80"! <=8"TGb@0"H0H04G0"B"8B@Zk0@040"49W 0"4!"5B0"0BR"GTBG?"B@ZkGB@Zk`""&"8ݲ0 <8"TGb[@0"H0H60"1(F0Bh20bhs=`hB""0H0¦"5J0⦸"@8PݶH"?&1"8}""GBb@Zkd""$ 80"<8"TGb,@0"l0l?&0vJB80bs"<}0X"#8"GGGGGGBb@Zk0"PB"0H0"1"0J@=80p"H"?&1"8}"8"GBb@Zkb" 0"! @=8"G_&R"8" "GpBxb@ZkGd""?$! 8=0BR"<]8"TGb@0"L?"4G0"HB"8B@Zk0@0\0"\9b 0"\?"10B4G0C"HB"8B@Zk0@0`0"`9Q 0"`!0\0@0"`1B""0"@8}0t"H"?&1"8}"D"GBb@Zkh""0x 8"8]"tGBb@Zkh""0| 8"8]"tGBb@Zkh""0 8"8]"tGBb@Zk""0 8"8]"tGBb@Zk0D0"0t0"@1 B 0BR0b@s0t3tB&Q"uNSB0¦V0x0pB0"9 B`0B<ZX@G@0b\{11`C4G0"B"8B@Zk0@\0`0"\98C81C0"\!!1 @4GB<CGGx"GB"GB@Zk0BR"GB@ZkGGx]"@B@ZkC<CGGG<CGGGG0BYBR"GB@ZkGGB@ZkGGG@B@Zk< @GGGGGGB@ZkGB@ZkC?' vH@8G<#8"GGGGG4GPBXb@Zk00G0"\!!1 @&!v H0@8=0BR"<]#8"GGGGG4GPBXb@Zk00G0"<!X D 0\11B4G0"B"8B@Zk0@=0\81CG8C<CGGx"GB"GB@Zk0BR"GB@ZkGGx]"@B@Zk<CGGGGGGB@ZkGB@ZkC&$vH@8G<=#8"GGGGG4GPBXb@Zk00G0"\!!1 @&!v H0@8=0BR"<]#8"GGGGG4GPBXb@Zk00Gqàb"? 0"@8="G_&R"8" "GpBxb@ZkG/d""$ 80"<8"TGbO@0L0"L!0?&!v H1@8=0bs"<}&0vJB@0⦸"D8"@="TGBb@Zk0P0"P!%&"0D?0"<18 0BLҢx" B"TG@B@Zk0BR"G?"B@Zk0"G?"33Bx]"B@ZkGB@Zk0LPB0T0"T9$9v K C80"! <=0X"#8"GGGGGGBb@Zk0PG0"<!X D ?"4G0"HB"8B@Zk0@0\0"\9 0\? 10@4G0C"HB"8B@Zk0@0`0" =$`9 0`0"\!@0`00"\161 BGB<CGGx"GB"GB@Zk0BR"GB@ZkGGx]"@B@Zk0`0"\98C81C0`? !$@C<CGGx"G0BYBR"GB@Zk0BDBR"GB@ZkGGx]"@B@Zk<CGGGGGGB@ZkGB@ZkC?'7vJB8G<<CGGGGGGB@ZkGB@ZkC?'6vJB@ݲGD8"@="GGGG@BHb@Zk0000/G4GBb@Zk0000$GGTGBb@Zk00G0<8D?"4G0"HB"8B@Zk0@0\0"\9  0\ 1@4G0C"HB"8B@Zk0@0`0"`9 0`0\@0"`&"8B"<]&"@0¦"Dݲ8"0"1"@]"tG`Bhb@Zkd""$ 80 <8"TGb@0dGBb@Zk0p0`0\$@$1@0"!0\6BG6@<CGGx"G0BR"GB@Zk0BWBR"GB@ZkGGx]"@B@Zk@<CGGG<CGGGG0B@BR"GB@ZkGGB@ZkGGG@B@Zk0¦d֢0`6B<%@GGGGGGB@ZkGB@ZkC$%vH@8G<C&6vJB@0C D# (8"@="GGGGGBb@Zk00U0`0"\!%@%1@0\6BG@<CGGx"G0BABR"GB@Zk0BWBR"GB@ZkGGx]"@B@Zk0d0` @<CGGGGGGB@ZkGB@ZkC$8vKC8G<ݲC& vH@@0C D# (8"@="GGGGGBb@Zk00GGPBXb@ZkGpb""G_&R"GGBb@Zk0$"4GBb@Zkpb""G_&R"GGBb@Zk "4GBb@Zk4GcGx]]}#kGGGGr.rJ*@R4Gݦ8 8  B!8  B0@ݦ< < 01BPB,H@ ݦ8 ֢0B8 в=8 1 4B?GGGk< GGk.V JF4 GLIB$SYS_TRNLOG4b#LIB$SYS_TRNLOG4 @LIB$SYS_TRNLOG<GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT4 DGPLIB$GET_FOREIGN4 Hb#LIB$GET_FOREIGN4 L@PLIB$GET_FOREIGN4xG OTS$MOVEM4|@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4+HGT LIB$FIND_FILE4,Lb# LIB$FIND_FILE4+P@T LIB$FIND_FILE4)G DFOR$OPEN4*b# DFOR$OPEN4)@ DFOR$OPEND4G@LIB$CVT_FROM_INTERNAL_TIMED8b#LIB$CVT_FROM_INTERNAL_TIMED<@@LIB$CVT_FROM_INTERNAL_TIMED\GhLIB$CVT_FROM_INTERNAL_TIMED`b#LIB$CVT_FROM_INTERNAL_TIMEDd@hLIB$CVT_FROM_INTERNAL_TIME4G OTS$INDEX4@ OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4G$OTS$FILL4 @$OTS$FILL 4lGt OTS$INDEX4p@t OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4$G, OTS$INDEX4(@, OTS$INDEX4tG| OTS$MOVEM4x@| OTS$MOVEM4GOTS$FILL4@OTS$FILL<8GDDFOR$WRITE_INT_FMT<<b#DFOR$WRITE_INT_FMT<@@DDFOR$WRITE_INT_FMT4G LIB$SPAWN4b# LIB$SPAWN4@ LIB$SPAWN<$G0DFOR$READ_INT_FMT<(b#DFOR$READ_INT_FMT<,@0DFOR$READ_INT_FMT<!hGtDFOR$READ_SEQ_FMT<"lb#DFOR$READ_SEQ_FMT<!p@tDFOR$READ_SEQ_FMT4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4 @ OTS$INDEX<GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT<GDFOR$READ_INT_FMT_XMIT<b#DFOR$READ_INT_FMT_XMIT<@DFOR$READ_INT_FMT_XMIT<GDFOR$READ_INT_FMT_XMIT<b#DFOR$READ_INT_FMT_XMIT<@DFOR$READ_INT_FMT_XMIT<G DFOR$READ_INT_FMT_XMIT< b#DFOR$READ_INT_FMT_XMIT< @ DFOR$READ_INT_FMT_XMIT<$ G0 DFOR$READ_INT_FMT_XMIT<( b#DFOR$READ_INT_FMT_XMIT<, @0 DFOR$READ_INT_FMT_XMIT4 G OTS$INDEX4 @ OTS$INDEX44 G< OTS$MOVEM48 @< OTS$MOVEM4H GP OTS$MOVEM4L @P OTS$MOVEM4\ Gd OTS$MOVE4` @d OTS$MOVE4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4@ GL LIB$DELETE_FILE4 D b#LIB$DELETE_FILE4H @L LIB$DELETE_FILE4 G LIB$DELETE_FILE4  b#LIB$DELETE_FILE4 @ LIB$DELETE_FILE4 G OTS$INDEX4 @ OTS$INDEX48 G@ OTS$MOVEM4< @@ OTS$MOVEM4L GT OTS$MOVEM4P @T OTS$MOVEM4` Gh OTS$MOVE4d @h OTS$MOVE4 G OTS$MOVEM 4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G LIB$DELETE_FILE4  b#LIB$DELETE_FILE4 @ LIB$DELETE_FILE4P G\ LIB$DELETE_FILE4 T b#LIB$DELETE_FILE4X @\ LIB$DELETE_FILE<! G DFOR$READ_SEQ_FMT<" b#DFOR$READ_SEQ_FMT<! @ DFOR$READ_SEQ_FMT4@GLSTR$MATCH_WILD4Db#STR$MATCH_WILD4H@LSTR$MATCH_WILD4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4<GH LIB$SPAWN4@b# LIB$SPAWN4D@H LIB$SPAWN4|G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4,G4 OTS$MOVEM40@4 OTS$MOVEM4@GH OTS$MOVEM4D@H OTS$MOVEM4TG\OTS$MOVE4X@\OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4 @OTS$FILL4HGP OTS$MOVEM4L@P OTS$MOVEM4TG\OTS$FILL4X@\OTS$FILL4/GCONV$PASS_FILES40b#CONV$PASS_FILES4/@CONV$PASS_FILES< GCONV$PASS_OPTIONS< b#CONV$PASS_OPTIONS< @CONV$PASS_OPTIONS4G CONV$CONVERT4b# CONV$CONVERT4@ CONV$CONVERT4(G0 OTS$INDEX4,@0 OTS$INDEX4lGt OTS$INDEX4p@t OTS$INDEX4 GLIB$SYS_TRNLOG4b#LIB$SYS_TRNLOG4 @LIB$SYS_TRNLOG,,G8EXEMPT,0b#EXEMPT,4@8EXEMPT4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4G  OTS$MOVEM4@  OTS$MOVEM4G OTS$MOVEM 4@ OTS$MOVEM4(G0OTS$MOVE4,@0OTS$MOVE4`Gh OTS$MOVEM4d@h OTS$MOVEM4lGtOTS$FILL4p@tOTS$FILL4#GLIB$RENAME_FILE4$b#LIB$RENAME_FILE4#@LIB$RENAME_FILE4TG\ OTS$MOVEM4X@\ OTS$MOVEM4lGt OTS$MOVEM4p@t OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4#DGPLIB$RENAME_FILE4$Hb#LIB$RENAME_FILE4#L@PLIB$RENAME_FILE41`GlUNEXEMPT42db#UNEXEMPT41h@lUNEXEMPT4%G DFOR$CLOSE4&b# DFOR$CLOSE4%@ DFOR$CLOSE<-GLIB$FIND_FILE_END<.b#LIB$FIND_FILE_END<-@LIB$FIND_FILE_END4%G DFOR$CLOSE4&b# DFOR$CLOSE4%@ DFOR$CLOSE4'G DFOR$EXIT4(b# DFOR$EXIT4'@ DFOR$EXIT EXEMPT DFOR$WRITE_INT_FMT=/(=%UNDEL0=DELSAV8;STR$MATCH_WILD CONV$CONVERT CONV$PASS_OPTIONS=(gce$delseq:delrecs.seq;* LIB$GET_FOREIGN=H;8      JTDEL$MODE LIB$SYS_TRNLOG=(LIB$CVT_FROM_INTERNAL_TIME LIB$SPAWN=80 DFOR$READ_INT_FMT=:P DFOR$READ_INT_FMT_XMIT;;8OTS$FILL8 OTS$MOVEM=0x;=< 7 DFOR$HANDLER=;8 OTS$INDEX8OTS$MOVE=, LIB$DELETE_FILE=   !DFOR$READ_SEQ_FMT #LIB$RENAME_FILE% DFOR$CLOSE=8 (=delsav:' DFOR$EXIT) DFOR$OPEN=X=DelMaint cmd>p+ LIB$FIND_FILE -LIB$FIND_FILE_END= =8 = $@gcy$cm:filundel  /CONV$PASS_FILES1UNEXEMPT=88=%PURG= 0 ;= K=;32JTDELMAINT$MAINDEC Fortran V6.2-508 = 44=JTDELMAINT$MAIN4=d\ D DA , iU  Lp h h̘  p Y @     @  U, $= 04 := 4=   =  44= IVLEN 4=3+*     $= 04 := 4=  =