AJTMODACE 29-MAR-1999 20:31!Digital Fortran 77 V7.1-107 $DATA$*$BSS$ $IODATA$il$CODE$ $LINK$ FFFIII FFIIDDKIUICJPIJUNKFSZC0JJTMODACE SYS$GETJPIW(J ħIVLENEXEMPTLIB$GET_FOREIGN(Jp PILENLIB$SYS_TRNLOG(J( tFGETFID DFOR$OPEN DFOR$HANDLER DFOR$CLOSE SYS$GETDVIW LIB$DATE_TIME SYS$ASSIGNUNEXEMPT DFOR$EXITFILACC DFOR$DELETELIB$SET_SYMBOLREDACLOPRMSGREPLENTLIB$WAIT(J ܦGETPV LIB$SPAWNJTSCR(J LPRC(J tFILCK SYS$DASSGN DFOR$WRITE_SEQ_FMT DFOR$REWRITE_FMT DFOR$WRITE_INT_FMT DFOR$WRITE_INT_FMT_XMIT DFOR$READ_INT_FMT DFOR$WRITE_SEQ_FMT_XMIT DFOR$READ_KEY_FMT DFOR$READ_SEQ_FMT DFOR$REWRITE DFOR$SET_REENTRANCYSYS$OPENGETFID DFOR$INQUIRE(J IUFCK SYS$CONNECT(J GTXABOTS$FILL OTS$MOVEMOTS$MOVE OTS$INDEX OTS$DIV_IOTS$STRCMP_LEQS OTS$DIV_L = 6M76M76 JTD$DB:OPHHW.GDB76 JTD$DB:OPWHW.GDB76% **** File security access on device:HG@ Filespec given:HG@ Fid:(V,V,V)76 User:H UIC:\ Hex priv vector:\G@ Terminal:H Accport:H PID:\76 Date of this access:H Access string:@@H76H (W,W,W)76H76H (W,W,W) V 76W 76H (W,W,W)763 ****************** Next File *********************76H76 Time access control string:H76' Max privilege to open file mask (hex):\76/ Security checksum stored for file (0 if none):\76! File password hash (0 if none): \76 Permitted user list:H76 Forbidden user list:H76% Command file to run if access fails:H76% Command file to run to check access:H76! Permitted terminal/accport list:H76! Forbidden terminal/accport list:H76 Permitted image list:H76, Backup user allowed R/W access to this file76, Backup user allowed R/O access to this file76! Images forbidden to access file:H76 Backup user list:H76% Softlink to this file if acc denied:H76 File softlinked (r/w) to:H76- File is set to be inspected by Safety server76W76- Process accessing file has base prio set to H76* Priv mask when this file is open becomes:H761 When file opens process gains ident value (hex):H76 Old:HG$Confirm replace [Y/N/A/X]76H76 %EACF-W-File ID [@H ACE deleted. Replacing.76H76H76\76W76 No security record exists file H76 Security controls, file:H76 File id:M,M,M76 Time access permissions:H76 Max privs:\@\ Tamper xsums:[ 767 Lists key: S(filename)U(ok-users-list)V(bad-user-list)G. K(ok-tty-list)L(bad-tty-list)I(ok-image-list)G4 J(bad-image-list)B(backup-user-list)A(ACE contents)76H76$@GCY$CM:FILSAV H@\@\76\76V76\76QQ76QHQH76H76DQQQQQQQQQQQQQQQQ7 =#~^^~ cGG"4GhBpb@ZkG0"vJ`HF, 0"QAJ`SH@FQ 0b "0"0KvJG"0"YXKvJVGY¦$"0b۲"$! 00G0BvHq JD 0bJ`SHF( 0H"0 G0B ڦJy KF ڶ-"0b ;8HvJ6D ;"L! 0(0"1"0B,2G00vHs`JD0 00J`SHF0 040"9#0B8:G0b8;&HvJ6D8;? 0808Ja H!F800"! 0B@20bs"0DtG0HvHuJDH 0H8!K`SH GH80 0BL0¦"0bP۲0T0"X0"\0B#4G0"1"G0b0"GGBb@Zk0"X""& "Xb(s"C\}X"TGPb")@Ӱ"H""& "Xbs"C\}X"TGPb)@Ӱ" x""&"Xb$s"C\}X"TGPb)@Ӱ"$""&@"XbLs"C\}X"TGPb(@Ӱ"GBb@Zk4G0"G0"hQv@JpJPFhQG0bh瓦JpSJFh瓶0"0l0¦"0pײG0"pYFKxKXGpYTG0bpHxKDp0 0"x0"|0B0b000P"TGGB@Zk00¦00"00l0"h00"0BPrFPr"_'Z#X]0P"C\&"`CdX"`="0BXR"GGBb@Zk0"0Xp0P"0BPR"TG8B@ZkGB@Zk0¦P.JB'0PGC5C'0"P9?G C5*C' 0"0BPR"GXB@ZkTG4G0P" B"B@Zk0@00P"B"TGXB@ZkGGB@Zk0"9 0"!35 @0"0BR"G8B@ZkGB@Zk0¦֢0TG3@0P"0BPR"GTBTG8B@ZkGB@Zk'P#X0"! C\=X"4Gb'@0"0PFBB0"111 B0B2B"0bs35`B0Q"`X}0"h0"9#p=0b{#x}"?&1"X}"@GHBPb@Zk0?"Bb@Zk00嵢"FU'0ײ00"9?$!OC000"10BPrv`Jq JqFPr0BZ0bPHzS@KDP0唢0PզJtJFPն0T7!KT70P"0T"B"&s"X}C\]'P{#`}0`"CdX"0"1"`]"tG(B0b@Zk0"0&0"q0`"0B`R"G8B@ZkGB@Zk;@b"0¦֢0"4G`Xݶ4Gh="pxTG"tG_&R"X"GBb@ZkG&b""tG_&R"GGBb@ZkG4G0"B"B@Zk0@00"y0`"0BR"G8B@ZkGB@Zk?$P! X=0`"C\#4GGX]"0bhs"0"GG(B0b@Zk0`0"0BR"G8B@ZkGB@Zk0"!0¦ 60G0Gp?#9"C"#?0FB B 0"0BR"GXB@Zk4GGB@ZkG4G0"B"B@Zk0@00"9 0"!35 @0"0BR"G8B@ZkGB@Zk""&"Xݲ0 C\X"TGPb&@0"4G0"0BR0bs2SB0@B0T0浢05B0C"4G B"B@Zk 0¦֢0B0ײ0C0"90 C0"!hB"00"115 B0B0bs"qB`=X0B Z#h]"?&1"X}"@ "GHBPb@Zk035@0"0BR"G8B@ZkGB@Zk0"! G4G0"XB"B@Zk0@0$0"$935 C0"0BR"G8B@ZkGB@Zk0"$!G3B0"0BR"GTBG8B@ZkGB@Zk""&"X0#C\X"TGPbm&@0"0p0"0BR"G8B@ZkGB@Zk""& "Xݲ0#C\X"TGPbS&@0"(""& "X0bs"C\}X"TGPbE&@0",B""0"(10bs"0P"`Xp}h="?&1"X}"@"GhBpb@Zk""0,0"! `=X"X]"tGxBb@Zk(""0 X"X]"tGxBb@Zk0G4G0"XB"B@Zk0@0$0"$9G39@0"0BR"GTBG8B@ZkG =B@ZkG4G0"XB"B@Zk0@0$0"$9G39@0"0BR"GTBG8B@ZkGB@Zk""&"Xݲ0 C\X"TGPb%@0"0p0"0BR"G8B@ZkGB@Zk""& "Xݲ0#C\X"TGPb%@0",B""0"P1"`=X0"h"?&1"X}"@D"GhBpb@Zk""0,0"! `=X"X]"tGxBb@Zk(""0 X"X]"tGxBb@Zkx""$ X0P"C\X"TGPb%@0"0TGG0P"8B"B@Zk0@sHb"#G4G=_"]4GTGtG}G=TG="G_&R""GBb@ZkGK"!0P0"10BT20bPs3fJfJ04t0P嵦5JJ0¦8液0P7JJ0<0"P0JJ?"B b@Zk004浢0¦֢&NB04渲b"0" 90"! `=X="G_&R"X"@p"GBb@Zk""00"! `=X"X]"tGhBpb@Zk(""04 X08"`0b0\0B0"\0B\RR"_0P"0"P1"0BR"tGBb@ZkGBb@Zk"4GBb@Zk4G0怰tG0\0Hb"0"P1"_"G`=X]"hpx'8{#}@ #"TG_&R"X"h"GhBpb@ZkGG0\dG0"\0\0"\1u(B 0B\RFB @0b0"4GxBb@Zk0"0"X0B`20bh&"0p"0¦t0"GGB@Zk0⦤00"0"B"GXB@Zk4?"GB@Zk0P"!0¦T60⦴"""'@#XC\X"TGPb@00"!.@00Hb"0"P1"0BR`=X]"TG_&R"X"@0 "GBb@ZkHb"0P  G`XBR"h]p=x&8"@"9##>"TG_&R"X"h"GhBpb@ZkGG0\dG0"\4G0"BR0bS0啲TGG0P"hB"B@Zk0@0 "TG_&R"GGB b@Zkb""TG 8O=_&R"GGBb@ZkGBb@Zk"4GBb@ZkTGG0P"8B"B@Zk0@D0愠 GBb@Zk"4GBb@ZkB" 0P 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@Zk 0X ?$! X=C\_&R"`]CdX"`="TGBb@ZkB" 0p 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@ZkB" 0x 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@ZkB" 0 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@Zk@?"TG0"pB"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0tp 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"`B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t8 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk00x怰0"x!P D0x00"x1 0B"b"&"XC\]&"`Cd}X"`="TGBb@Zk0x愠0 0" &"XC\&s"`}Cd=X"`="TGBb@Zk@?"TG0"xB"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G _=`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0tH 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"0B"B@Zk0@0l0lG0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t 0"t9?$! X=C\0P"9v K?&1G`=CdX"`="TGBb@Zk@?"TG0"8B"B@Zk0@0l0lU0"l905 C@? 10@4G0C"B"B@Zk0@0p0p0"l9C8QC0"p0p0"l14 B3B0P"0BR"GTB?"8B@ZkGB@Zk0¦p֢0l6B61B0t4G0"晰" #&"XC\=_&R"`]CdX"`="TGBb@Zk  ?$! X=C\_&R"`]CdX"`="TGBb@Zk@  ?$! X=C\_&R"`]CdX"`="TGBb@Zk  ?$! X=C\_&R"`]CdX"`="TGBb@Zk0愠$5@0@P , H000"1 B0BR@B2F 0bs5`B`0攢0B0敲""'#XC\ݲ'{#`}CdX"`="TGBb@Zk0愠u@0XB"G0"!0BP0.0J0bs"`}Xh="?&1"X}"@"GhBpb@Zk $ XC\0"1"_&R"`]Cd=X"`="TGBb@Zk0愠Ѐ@0怰0"! @8 0P08"0CPR"GXB@ZkB"G0⦰"`Xݶ08 pGh="?&1"X}"@"GhBpb@Zk@ $ XC\0"1"_&R"`]Cd=X"`="TGBb@Zk0愠0@0怰c0"! @8 0P08"0CPR"GXB@ZkB"G0⦰"`Xݶ08 pGh="?&1"X}"@"GhBpb@Zk $ XC\0"1"_&R"`]Cd=X"`="TGBb@Zk0愠0@0怰'TGG0P"8B"B@Zk0@ GBb@Zk"4GBb@ZkTGG0P"B"B@Zk0@0愠Hb"00"9#`=X"G_&R"X"@"GBb@ZkGBb@Zk"4GBb@ZkB" 0P 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@Zk 0X ?$! X=C\_&R"`]CdX"`="TGBb@ZkB" 0p 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@ZkB" 0x 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@ZkB" 0 0"P! `=XpGh"?&1"X}"@"GhBpb@Zk $ XC\0"P1"_&R"`]Cd=X"`="TGBb@ZkHb"0儠0 `X"G_&R"X"@("GBb@Zk0P0P倰0"T!0T00"P11&J&J0BXR"SF @_&rN2B040P嵦5JJ0¦液0XF0(b"0"9#X=0b{#`}0 h"G_&R"X"@T"GBb@ZkHb"0X G`X"G_&R"X"@"GBb@Zk`b"0p `GX="G_&R"X"@"GBb@Zk""0x `GX="X]"tGhBpb@ZkXb""G_&R"G@"GBb@Zk4G0怰G004G0Bx2Hb"0攢0浢55B4B0C"`X"G_&R"X"@ "GBb@Zk0 n=愠@0怰0"!,@000"x10 B0Bx20bxsbBGBb@Zk"4GBb@ZkTGTG0P"B"B@Zk0@0TGTG0P"XB"B@Zk0@0"@?"GB@Zk#0"p 0"t0t0¦|0"X0B`0bhTGTG0P"B"B@Zk0@ 00"x0x愠TD0"x恰0x0"TGTG0P"hB"B@Zk0@ 00"x0x愠QD0"x恰0x0"TGtG0P"B"B@Zk0@00"TGtG0P"`B"B@Zk0@;TGtG0P"`B"B@Zk@0005CTG10C4G0CP"B"B@Zk0D0D 0"90"D!!C!1 @000"10BR45@B14B0bS"0u"0¦P"B1v J&7FX=\X"0"D1"GPb8 @00x0"|0TGTG0P"B"B@Zk0@ 0P"B"4GXB@Zk4GGB@Zk4G0"0TGTG0P"HB"B@Zk0@4G0"TGTG0P"B"B@Zk0@0 'D0"TGTG0P"PB"B@Zk0@0$G0"TGTG0P"B"B@Zk0@00C00"995 CTG0BP0.r0HQ0J2FP0>0bs`F0t00¦֢~0BB"#00 0P#`X}ph"?&1"X}"@ "GhBpb@Zk"" X"X]"tGxBb@Zk("" X"X]"tGxBb@Zk0愠5@ "TG_&R"GGB b@Zk""$ X0"P! C\=X"TGPb @0`0"`!0P"!v H?&1DX=C\0"#X"GGGGGGxBb@Zk00"! G0G0"1 TG0bS0攢45B0BP.VJP>071B0TGTG0P"B"B@Zk0@0"0儠C04CTG10@4G0CP"B"B@Zk0@0"D0D愠0@0@0"D恰0D0"10B0QB0BH0bDs0唢4B3tB31`B0P"B3v`J&vFX}\X"0"H1"0BR"0bs"GPb @0愠0p倰0"!0t04G0B2TGTG0P"B"B@Zk0@00"9 0愠0"!4 @TG10B4G0CP"B"B@Zk0@0D0"D90儠$C0@0"D恰0D0"10B0QB0BH0bsP`B0t0D浢51B0¦D液B"0D0BZ:5@C7B0bP{#zC`]X0"9#p=Gh"?&1"X}"@ "GHBPb@ZkGG0p"0"1"0BR"0bxs"GBb@Zk0愠0@0怰0"!"@0D00"10BH20bs0Lt0x嵢0¦P網0|0T0"D90BZ 5@C9 CX"B"4GXB@Zk0BHR"GXB@Zk0P"GBGX]"4G8B@ZkGB@Zk0愠@0"恰TGTG0P"B"B@Zk0@00"90$0"! 00"14 BTG1PB4G0CP"B"B@Zk0@0D0D愠0"9@0@0"D恰0D0"0BDR0bs2SB2Q@B0HT0嵢PB0¦嶲0D71B0BDB"0bD{0 5@;`C0P#C`X}0 pGh="?&1"X}"@ "GHBPb@ZkGn0p"0"1"0BR"0bxs"GBb@Zk0愠0@0怰0"D!000"1"B0BD20bs0Ht0嵢0¦L網0x0P0"|90BT:0bD{0 5@$`CX"@B"4GXB@Zk0BHR"GXB@Zk0P"GBGX]"4G8B@ZkGB@Zk0"!"@0¦60=B0CF0"9095 C 5@0愠4@TG3BTG1B0P"GB0BPR"GTB8B@ZkGB@Zk4TGTG0P"8B"B@Zk0@00"9j 0愠ghB"0"!0CQ! `=TGX=0"h"?&1"X}"@ "GHBPb@ZkGO0焠0"!#@IH 0G00B0B0bs0t00p"0"1"0BR"0bxs"GBb@Zk0x儠0H瀰0"|!0L00"10 B0B20bs65`B0產FFX`"B"4GXB@ZkX]"4GXB@Zk0BHR"GXB@Zk0P"GB`]"GXB@Zk0B0TGTG0P"0B"B@Zk0@0"0焠%(B"04CTG!8@0P" ~=B`X=0"h0¦ "pݶ"?&1"X}"@ "GHBPb@ZkG0焠0"p0 0"tTGTG0P"B"B@Zk0@00"9* 0焠4@TG10@4G0CP"B"B@Zk0@0 0" 90焠$C0@0" 灰0 0"10B0QBB 0BR4@B0X"0CPR"GXB@Zk"p"0 '#X0"P! C\=&"`Cdݲ&s"h}Cl_'@Z#p]CtX"`="h]"p}"G`b @8  0"! &"X0BPR"C\]&"`Cd&"hCl_'@Z#p]Ct=X"`="h]"p}"G`b @@  0"! &"X0BPR"C\]&"`Cd&"hCl_'@Z#p]Ct=X"`="h]"p}"G`b @ ` 0"! &"X0BPR"C\]&"`Cd&"hCl_'@Z#p]Ct=X"`="h]"p}"G`b @Ӡ  0"! &"X0BPR"C\]&"`Cd&"hCl_'@Z#p]Ct=X"`="h]"p}"G`b~ @ӈ x 0"! &"X0BPR"C\]&"`Cd&"hCl_'@Z#p]Ct=X"`="h]"p}"G`b] @Ө  0"! &"X0BPR"C\]&"`Cd&"hCl_'@Z#p]Ct=X"`="h]"p}"G`b< @TGTG0P"0B"B@Zk0@0x0|TGTG0P"B"B@Zk0@0"90x$"0|X"0"! 9v K&0GXC\=X"tG8b @@?"TG0"B"B@Zk0@0040"905 C@? 10@4G0C"B"B@Zk0@0L0L"0"L90"!!C!Q @0L00"10BR55 B25@B0bLs4`B@"3B@"1B0"GB0BR"GTB8B@ZkGB@Zk0 ""$@ XC\X"TGPb@00"!0Т0"q4GwB# CD C # CG"G0B_BR"8B@ZkB"G8B@ZkTGyB#7CF C # CG"GB"8B@Zk@"G8B@Zk@#1C0"GBW"G8B@ZkGB@ZkTGTG0P"B"B@Zk0@0"0G0焠4@TG10@4G0CP"B"B@Zk0@0" 0 0焠C0" 灰0 0"10B0QBB0"GGB@Zk"0¦液0⦬0F0"0 0"!!C!Q @ @ @?"TG0"B"B@Zk0@00"91 005C@? 10@4G0C"B"B@Zk0@0L0"L9 0L0"!C0 @0L00"Q0b波0LԢ@"3B@_#1UC0"GB0BR"GTB8B@ZkGB@Zk0 ""$@ XC\X"TGPb@00"!0Т0" 10BR4@B32B4GwB# CD C # CG"G0CPR"8B@ZkB"G8B@ZkTGyB#7CF C # CG"GB"8B@Zk@"G8B@Zk@#1C0"GBW"G8B@ZkGB@Zk0"¦֢0ز0" !04B37@0P"0BPR"GTBTG8B@ZkGB@Zk@b"0 焠04@$@0"P9# C4G`X4Gh"pxݶTG"tG_&R"X"GBb@ZkGb""tG_&R"GGBb@Zk0`倰"!0d00"1B20bstTG4G0P"B"B@Zk0@00"y0"0BPR"G8B@ZkGB@Zk""$P X0¦"C\ݲX"TGPb@0 ?$P! X=0"1"C\=#4GGX]"0bhs"0"GG(B0b@Zk0d0"0BR"G8B@ZkGB@ZkB"G0"! `=X0`#h"?&1"X}"@ "GhBpb@Zk""0d X"X]"tGxBb@Zk0儠@0$瀰B"0"! G""4G`=Xp=h}"?&1"X}"@ "GhBpb@ZkG`G 0"$!?D?DX=p"X]"4GXB@Zkp"hݶ4G`"G`]"tGxBb@ZkGG""( 4G`X="X]"tGxBb@ZkG:""0 `GX"X]"tGxBb@ZkG, 0"!?D?DX=p"X]"4GXB@Zkp"hݶ4G`"G`]"tGxBb@ZkGH""0儠0"! `=X"X]"tGxBb@ZkG =04D0"G0(TGTG0P"B"B@Zk0@00"9 4G0"(灰0"GGB@ZkTGTG0P"B"B@Zk0@00"9f 0焠4@TG10@4G0CP"B"B@Zk0@0 0" 90焠$C0" 灰0 0"10B0QBB0"GGB@Zk"0¦液0⦬0F00" 90"!!!C!Q @ @0 @?"TG0"0B"B@Zk0@0010"905 C@? 10@4G0C"B"B@Zk0@0L0L0"L90"!!C0 @0L00"Q0b波0LԢ@"3B@_#1UC0"GB0BR"GTB8B@ZkGB@Zk0 ""$@ XC\X"TGPb@00"!0Т0" 10BR4@B32B4GwB# CD C # CG"G0CPR"8B@ZkB"G8B@ZkTGyB#7CF C # CG"G0B"8B@Zk@"G8B@Zk@#1C0"GBW"G8B@ZkGB@Zk0 ""?'@9#X=C\X"TGPbL@0,0"(!5 @ G0,P0",1@"1qB0"GBB"tG8B@ZkGB@ZkG¦֢0ײ0"0 0焠4@3@0P"0BPR"GTBTG8B@ZkGB@Zk@b"0" !0¦֢4B!6@0P"B4G`ݶX=4Gh"pxTG"tG_&R"X"GBb@ZkGb""tG_&R"GGBb@Zk0`倰"!0d00"1B20bstTG4G0P"B"B@Zk0@00"y0"0BPR"G8B@ZkGB@Zk""$P X0¦"C\ݲX"TGPb@0 ?$P! X=0"1"C\=#4GGX]"0bhs"0"GG(B0b@Zk0d0"0BR"G8B@ZkGB@ZkB"G0"! `=X0`#h"?&1"X}"@ "GhBpb@Zk""0d X"X]"tGxBb@Zk0儠P@0$瀰B"G"4G0bs"`}X=ph="?&1"X}"@ "GhBpb@ZkGeG 0"$!?D?DX=p"X]"4GXB@Zkp"hݶ4G`"G`]"tGxBb@ZkGL 0"(!?D?DX=p"X]"4GXB@Zkp"hݶ4G`"G`]"tGxBb@ZkG4""0 `GX"X]"tGxBb@ZkG& 0"!?D?DX=p"X]"4GXB@Zkp"hݶ4G`"G`]"tGxBb@ZkGH""0儠0"! `=X"X]"tGxBb@ZkGG""$$ X0"C\X"TGPb@000"0! @0 00"0BR0b0sSB0T0浢 0¦0v0P"0BR"TG8B@ZkGB@Zk000"900`TG1@0P"GB0BR"8B@ZkGB@ZkTGTG0P"B"B@Zk0@@?"TG0"B"B@Zk0@00"94 005C@? 10@4G0C"B"B@Zk0@0L0"L9" 0L0"!C!Q @0L00"10BR55 B25@B0bLs4`B@"3B@"1B0"GB0BR"GTB8B@ZkGB@ZkTGTG0P"B"B@Zk0@00"905 CTG1C4G0CP"B"B@Zk0@0L0"L9[ 0L0"!C!Q @0L00"Q"""&@s"X}C\]X"TGPb?@00"!0Т0"L10BR4@B32B4GwB# CD C # CG"G0CPR"8B@ZkB"G8B@ZkTGyB#7CF C # CG"GB"8B@Zk@"G8B@Zk@#1C0"GBW"G8B@ZkGB@ZkGTGTG0P"B"B@Zk0@@?"TG0"B"B@Zk0@0"040愠05@@? 10@4G0C"B"B@Zk0@0"L0L"0L愠0"!@!Q @0L00"10BR55 B25@B0bLs4`B@"3B@"1B0"GB0BR"GTB8B@ZkGB@ZkTGTG0P"B"B@Zk0@0"005CTG1@4G0CP"B"B@Zk0@0"L0L[0L愠0"!@!Q @0L00"Q"""&@s"X}C\]X"TGPb}@00"!0Т0"L10BR4@B32B4GwB# CD C # CG"G0CPR"8B@ZkB"G8B@ZkTGyB#7C p=F C # CG"GB"8B@Zk@"G8B@Zk@#1C0"GBW"G8B@ZkGB@ZkG0@0"40¦֢[040"P6JGFPG0PVJa1 HFP4G0P0 JaQ H!FP0G0BPraJaq HaFPr0唢0BPzbKtJtGPz0T V KT 0¦TJT0THTEV$GC 0X041B0"a0\"0BPR"8B@ZkGB@Zk00" C\9#.VJ>00C]#,DH<0"!0B^".PJ>G4G0`"B"B@Zk0@0"0愠0`#$vH?$DX=C\X"0"1"GGGGGBb@Zk0TGTG0P"xB"B@Zk0@ 0"1"0BPR"tGBb@Zk04GHBPb@Zk0"!0P0"10BT20bs`@?"TG0"8B"B@Zk0@00"90 0儠05@@? 10@4G0C"B"B@Zk0@0D0"90D愠$C0@0"D恰00"125B15 B0bD波@"3B@"1B0"GB0BR"GTB8B@ZkGB@Zk0⦴"""$@ XC\X"TGPbC@00"!0Т0"q4GwB# CD C # CG"G0B_BPR"8B@ZkB"G8B@ZkTGyB#7CF C # CG"G8B"8B@Zk@"G8B@Zk@#1C0"GBW"G8B@ZkGB@Zk0 ""?'@9#X=C\X"TGPb@00"!.@000"15 B GHb"0BPR"0攢`]X"TG_&R"X"@0 "GBb@ZkG0愠Hb"0P 0"!`X="TG_&R"X"@0 "GBb@Zkb""TG_&R"GGBb@ZkGBb@Zk"4GBb@ZkGBb@Zk"4GBb@Zk4GcG]]} 0#k"s"#~ ^(^0~8GGG=]? b34G`G4G8B@b@Zk"``C.c.CJS cJSF4բJղG"TG(B0b@Zk`G ](]0}8@#kGGG!4GH`H4G0PBHH}s35`B3@,H@ H0BH]H}sjBH GGkGGGGGGԢ4G0w0 B'0=115 BBq.qJ0wpN0=1B``N0wB`A0@BA  `0`B`0]R0@B0W0=1 6B?GkGGGGr.rJ+@`JR4Gݦ6 B @0@=ݦ֢65BVB.JB 0@=ݦ֢ BGGGGk.W JFð#~^ ^(~08@GGGGGGcB"D"4G(Y@Zk(Y"TG(Y@Zk?"tG"YR"Y@Zk0@9! 05B?"10B@4GpY"Y@Zk0@9! 91B0QBY@?"TG"C"Y@Zk0@9!n 05B@?"10BP@4GY"Y@Zk0@9!0@!Q @91YҢysTB3tB@@"7BU@wB#0CF C # CGݷGY@Zk@"GY@Zk4GaB#7CF C # CG"G Y"Y@Zk]GY@Zk@"#!C!D C # CG"B"G@?"Y@ZkW"GY@Zk"G@?"33BA"Y@ZkGY@ZkGbT9"&@"ݲC "y#_9ТTG91YRT@B32B@4G`B#0CF C # CGݷGY@ZkY"GY@ZkB#0CF C # CGݷGC"GY@Zk]GY@Zk@"#7CF C # CG"B"G@?"Y@Zk]GY@Zk"G@?"33BW"Y@ZkGY@ZkG"D"4G(Y@Zk8Y"TG(Y@Zk?"tG"YR"Y@Zk0@9! 05B?"10B@4GpY"Y@Zk0@9! 91B0QBY@?"TG"C"Y@Zk0@9!t 05B@?"10BP@4GY"Y@Zk0@9 H=, $ !0@!Q @91YRys4`B1SBS@TB3B@Y@Zk0@9!I 91BpBYys4BtB3Q`B٦v7UBW@W/WKBBy{;1`C`35C9!@?"6!B@"#7CF C # CG"B"@?"Y@ZkB"GTBGY@Zk"G@?"33BW"Y@ZkGY@ZkG"D"4G(Y@Zk0Y"TG(Y@Zk?"tG"YR"Y@Zk0@9! 05B?"10B@4GpY"Y@Zk0@9! 91B0QBY@?"TG"C"Y@Zk0@9!= 05B@?"10BP@4GY"Y@Zk0@9!0@!Q @91YR35@BԢ@"7B@"# CD C # CG"B"@?"Y@ZkB"GTBGY@Zk"G@?"33B@"Y@ZkGY@ZkT9"?$@! =C ݲ"y#w_9ТTG91YRT@B32B@4G`B#0CF C # CGݷGY@ZkY"GY@ZkB#0CF C # CGݷGC"GY@Zk]GY@Zk@"#7CF C # CG"B"G@?"Y@Zk]GY@Zk"G@?"33BW"Y@ZkGY@ZkGG] ](}08@P#k@#~^^~޴cGGGGGe.eJ`J8}"Cb$SG(Hb"8=C1!JH@="(! P="?"_&R"@"G8B@b@ZkXb"8C H4G(H@P=4GX4G`hBZ#p]TGx="TG_&R"@"GHBPb@ZkGn4G,00"1!N0BR2Bb 3xb""@¦8"Pݶ#H"TG_&R"@"< "GXB`b@ZkG5"4G"0B0R FB_d0C7.TJJtBdpN,"09C7Y/YYK'KOB, C",#0 B#00B0b0s fBb""TG_&R"GG8B@b@Zk" "QAJpSJPFQbSDcG]]}ݤ#k.T JFC#~ ^(^0~8GG=]4G4GBb@Zk8"8884G0B8b@Zk8"888G?"B2G)}$s"..JU JF8¦<v8@8"@!8<08"@8<8"@1"8BDR"8bHs"G b@8@8BDRbS8HGG ](]0}8@#kGGGGGGբ6JJBua0JJGk<4G@DFOR$SET_REENTRANCY<8b#DFOR$SET_REENTRANCY<<@@DFOR$SET_REENTRANCY4IG SYS$GETJPIW4Jb# SYS$GETJPIW4I@ SYS$GETJPIW,EGEXEMPT,Fb#EXEMPT,E@EXEMPT4)GOTS$FILL4)@OTS$FILL4GLIB$GET_FOREIGN4b#LIB$GET_FOREIGN4@LIB$GET_FOREIGN4-G OTS$MOVEM4-@ OTS$MOVEM4)GOTS$FILL4)@OTS$FILL4/(G0OTS$MOVE4/,@0OTS$MOVE4+DGL OTS$INDEX4+H@L OTS$INDEX4/hGpOTS$MOVE4/l@pOTS$MOVE4)xGOTS$FILL4)|@OTS$FILL4-G OTS$MOVEM4-@ OTS$MOVEM 4)GOTS$FILL4)@OTS$FILL4-G OTS$MOVEM4-@ OTS$MOVEM4)G OTS$FILL4)@ OTS$FILL<GDFOR$READ_INT_FMT< b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT4 G OTS$DIV_I4b# OTS$DIV_I4 @ OTS$DIV_I4 G LIB$SYS_TRNLOG4 b#LIB$SYS_TRNLOG4 @ LIB$SYS_TRNLOG4-H GP OTS$MOVEM4-L @P OTS$MOVEM4)T G\ OTS$FILL4)X @\ OTS$FILL49 G DFOR$OPEN4: b# DFOR$OPEN49 @ DFOR$OPEN47 G DFOR$CLOSE48 b# DFOR$CLOSE47 @ DFOR$CLOSE4+ G OTS$INDEX4+ @ OTS$INDEX4-8 G@ OTS$MOVEM4-< @@ OTS$MOVEM4)D GL OTS$FILL4)H @L OTS$FILL4? G SYS$GETDVIW4@ b# SYS$GETDVIW4? @ SYS$GETDVIW4- G OTS$MOVEM4- @ OTS$MOVEM4) G OTS$FILL4) @ OTS$FILL4/X G` OTS$MOVE4/\ @` OTS$MOVE4)h Gp OTS$FILL4)l @p OTS$FILL4+ G OTS$INDEX4+ @ OTS$INDEX4- G OTS$MOVEM4- @ OTS$MOVEM4) G OTS$FILL4) @ OTS$FILL4K\ Gd OTS$STRCMP_LEQS4K` @d OTS$STRCMP_LEQS< G DFOR$READ_INT_FMT<  b#DFOR$READ_INT_FMT< @ DFOR$READ_INT_FMT4-$ G, OTS$MOVEM4-( @, OTS$MOVEM4)0 G8 OTS$FILL4)4 @8 OTS$FILL4+X G` OTS$INDEX4+\ @` OTS$INDEX4- G OTS$MOVEM4- @ OTS$MOVEM4) G OTS$FILL4) @ OTS$FILL4- G OTS$MOVEM4- @ OTS$MOVEM4) G OTS$FILL4) @ OTS$FILL4-4G< OTS$MOVEM4-8@< OTS$MOVEM4)@GHOTS$FILL4)D@HOTS$FILL<1GDFOR$WRITE_INT_FMT<2b#DFOR$WRITE_INT_FMT<1 @DFOR$WRITE_INT_FMT<38GDDFOR$WRITE_INT_FMT_XMIT<4<b#DFOR$WRITE_INT_FMT_XMIT <3@@DDFOR$WRITE_INT_FMT_XMIT<3`GlDFOR$WRITE_INT_FMT_XMIT<4db#DFOR$WRITE_INT_FMT_XMIT<3h@lDFOR$WRITE_INT_FMT_XMIT4+G OTS$INDEX4+@ OTS$INDEX4-G OTS$MOVEM4-@ OTS$MOVEM4)GOTS$FILL4)@OTS$FILL4+G OTS$INDEX4+@ OTS$INDEX4-4G< OTS$MOVEM4-8@< OTS$MOVEM4)@GHOTS$FILL4)D@HOTS$FILL4-G OTS$MOVEM4-@ OTS$MOVEM4)GOTS$FILL4)@OTS$FILL<1(G4DFOR$WRITE_INT_FMT<2,b#DFOR$WRITE_INT_FMT<10@4DFOR$WRITE_INT_FMT<3\GhDFOR$WRITE_INT_FMT_XMIT<4`b#DFOR$WRITE_INT_FMT_XMIT<3d@hDFOR$WRITE_INT_FMT_XMIT<3GDFOR$WRITE_INT_FMT_XMIT<4b#DFOR$WRITE_INT_FMT_XMIT<3@DFOR$WRITE_INT_FMT_XMIT4+G OTS$INDEX4+@ OTS$INDEX49PG\ DFOR$OPEN4:Tb# DFOR$OPEN49X@\ DFOR$OPEN4G OTS$DIV_L4b# OTS$DIV_L4@ OTS$DIV_L<'TG`DFOR$WRITE_SEQ_FMT<(Xb#DFOR$WRITE_SEQ_FMT<'\@`DFOR$WRITE_SEQ_FMT<!GDFOR$WRITE_SEQ_FMT_XMIT<"b#DFOR$WRITE_SEQ_FMT_XMIT<!@DFOR$WRITE_SEQ_FMT_XMIT<!GDFOR$WRITE_SEQ_FMT_XMIT<"b#DFOR$WRITE_SEQ_FMT_XMIT<!@DFOR$WRITE_SEQ_FMT_XMIT<'0G<DFOR$WRITE_SEQ_FMT<(4b#DFOR$WRITE_SEQ_FMT<'8@<DFOR$WRITE_SEQ_FMT<!dGpDFOR$WRITE_SEQ_FMT_XMIT<"hb#DFOR$WRITE_SEQ_FMT_XMIT<!l@pDFOR$WRITE_SEQ_FMT_XMIT<!GDFOR$WRITE_SEQ_FMT_XMIT<"b#DFOR$WRITE_SEQ_FMT_XMIT<!@DFOR$WRITE_SEQ_FMT_XMIT<!GDFOR$WRITE_SEQ_FMT_XMIT<"b#DFOR$WRITE_SEQ_FMT_XMIT<!@DFOR$WRITE_SEQ_FMT_XMIT4CG LIB$DATE_TIME4Db# LIB$DATE_TIME4C@ LIB$DATE_TIME4/G OTS$MOVE4/@ OTS$MOVE4+lGt OTS$INDEX4+p@t OTS$INDEX4+G OTS$INDEX4+@ OTS$INDEX4-G OTS$MOVEM4-@ OTS$MOVEM4-G OTS$MOVEM4-@ OTS$MOVEM4-G OTS$MOVEM4-@ OTS$MOVEM 4-G OTS$MOVEM4-@ OTS$MOVEM4)GOTS$FILL4)@OTS$FILL<'PG\DFOR$WRITE_SEQ_FMT<(Tb#DFOR$WRITE_SEQ_FMT<'X@\DFOR$WRITE_SEQ_FMT<!GDFOR$WRITE_SEQ_FMT_XMIT<"b#DFOR$WRITE_SEQ_FMT_XMIT<!@DFOR$WRITE_SEQ_FMT_XMIT47G DFOR$CLOSE48b# DFOR$CLOSE47@ DFOR$CLOSE49dGp DFOR$OPEN4:hb# DFOR$OPEN49l@p DFOR$OPEN4+G OTS$INDEX4+@ OTS$INDEX4G SYS$ASSIGN4b# SYS$ASSIGN4@ SYS$ASSIGN4#$G0UNEXEMPT4$(b#UNEXEMPT4#,@0UNEXEMPT458GD DFOR$EXIT46<b# DFOR$EXIT45@@D DFOR$EXIT<;|GDFOR$READ_SEQ_FMT<<b#DFOR$READ_SEQ_FMT<;@DFOR$READ_SEQ_FMT,GFILACC,b#FILACC,@FILACC4=G DFOR$DELETE4>b# DFOR$DELETE4=@ DFOR$DELETE4#GUNEXEMPT4$b#UNEXEMPT4#@UNEXEMPT45G DFOR$EXIT46b# DFOR$EXIT45@ DFOR$EXIT4+0G8 OTS$INDEX4+4@8 OTS$INDEX4-\Gd OTS$MOVEM4-`@d OTS$MOVEM4-lGt OTS$MOVEM4-p@t OTS$MOVEM4)xGOTS$FILL4)|@OTS$FILL49G DFOR$OPEN4:b# DFOR$OPEN49@ DFOR$OPEN4%PG\LIB$SET_SYMBOL4&Tb#LIB$SET_SYMBOL4%X@\LIB$SET_SYMBOL<;GDFOR$READ_SEQ_FMT<<b#DFOR$READ_SEQ_FMT<;@DFOR$READ_SEQ_FMT4)GOTS$FILL4)@OTS$FILL4+G OTS$INDEX4+@ OTS$INDEX4/8G@OTS$MOVE4/<@@OTS$MOVE4)HGPOTS$FILL4)L@POTS$FILL4+dGl OTS$INDEX4+h@l OTS$INDEX4-G OTS$MOVEM4-@ OTS$MOVEM4)GOTS$FILL4)@OTS$FILL4LGX OTS$DIV_L4Pb# OTS$DIV_L4T@X OTS$DIV_L<1GDFOR$WRITE_INT_FMT <2b#DFOR$WRITE_INT_FMT<1@DFOR$WRITE_INT_FMT<'tGDFOR$WRITE_SEQ_FMT<(xb#DFOR$WRITE_SEQ_FMT<'|@DFOR$WRITE_SEQ_FMT47G DFOR$CLOSE48b# DFOR$CLOSE47@ DFOR$CLOSE4#GUNEXEMPT4$b#UNEXEMPT4#@UNEXEMPT45G DFOR$EXIT46b# DFOR$EXIT45@ DFOR$EXIT4+G OTS$INDEX4+@ OTS$INDEX4-G OTS$MOVEM4-@ OTS$MOVEM4- G( OTS$MOVEM4-$@( OTS$MOVEM4),G4OTS$FILL4)0@4OTS$FILL49G DFOR$OPEN4:b# DFOR$OPEN49@ DFOR$OPEN4% G LIB$SET_SYMBOL4& b#LIB$SET_SYMBOL4% @ LIB$SET_SYMBOL<;P G\ DFOR$READ_SEQ_FMT<<T b#DFOR$READ_SEQ_FMT<;X @\ DFOR$READ_SEQ_FMT4) G OTS$FILL4) @ OTS$FILL4+ G OTS$INDEX4+ @ OTS$INDEX4/ G OTS$MOVE4/ @ OTS$MOVE4)!G !OTS$FILL4)!@ !OTS$FILL4+ !G(! OTS$INDEX4+$!@(! OTS$INDEX4-`!Gh! OTS$MOVEM4-d!@h! OTS$MOVEM4)l!Gt!OTS$FILL4)p!@t!OTS$FILL4"G" OTS$DIV_L4 "b# OTS$DIV_L4"@" OTS$DIV_L<1"G"DFOR$WRITE_INT_FMT<2"b#DFOR$WRITE_INT_FMT<1"@"DFOR$WRITE_INT_FMT<'h#Gt#DFOR$WRITE_SEQ_FMT<(l#b#DFOR$WRITE_SEQ_FMT<'p#@t#DFOR$WRITE_SEQ_FMT47#G# DFOR$CLOSE48#b# DFOR$CLOSE47#@# DFOR$CLOSE<1#G#DFOR$WRITE_INT_FMT<2#b#DFOR$WRITE_INT_FMT<1#@#DFOR$WRITE_INT_FMT4%,$G8$LIB$SET_SYMBOL4&0$b#LIB$SET_SYMBOL4%4$@8$LIB$SET_SYMBOL4#<$GH$UNEXEMPT4$@$b#UNEXEMPT4#D$@H$UNEXEMPT45P$G\$ DFOR$EXIT46T$b# DFOR$EXIT45X$@\$ DFOR$EXIT4+p$Gx$ OTS$INDEX4+t$@x$ OTS$INDEX4-$G$ OTS$MOVEM4-$@$ OTS$MOVEM4-$G$ OTS$MOVEM4-$@$ OTS$MOVEM 4)$G$OTS$FILL4)$@$OTS$FILL490%G<% DFOR$OPEN4:4%b# DFOR$OPEN498%@<% DFOR$OPEN4%%G%LIB$SET_SYMBOL4&%b#LIB$SET_SYMBOL4%%@%LIB$SET_SYMBOL<;%G%DFOR$READ_SEQ_FMT<<%b#DFOR$READ_SEQ_FMT<;%@%DFOR$READ_SEQ_FMT4)&G &OTS$FILL4)&@ &OTS$FILL4+4&G<& OTS$INDEX4+8&@<& OTS$INDEX4/x&G&OTS$MOVE4/|&@&OTS$MOVE4)&G&OTS$FILL4)&@&OTS$FILL4+&G& OTS$INDEX4+&@& OTS$INDEX4-&G& OTS$MOVEM4-&@& OTS$MOVEM4)&G&OTS$FILL4)&@&OTS$FILL4'G' OTS$DIV_L4'b# OTS$DIV_L4'@' OTS$DIV_L<14(G@(DFOR$WRITE_INT_FMT<28(b#DFOR$WRITE_INT_FMT<1<(@@(DFOR$WRITE_INT_FMT<'(G(DFOR$WRITE_SEQ_FMT<((b#DFOR$WRITE_SEQ_FMT<'(@(DFOR$WRITE_SEQ_FMT<'(G(DFOR$WRITE_SEQ_FMT<((b#DFOR$WRITE_SEQ_FMT<'(@(DFOR$WRITE_SEQ_FMT<'()G4)DFOR$WRITE_SEQ_FMT<(,)b#DFOR$WRITE_SEQ_FMT<'0)@4)DFOR$WRITE_SEQ_FMT<'l)Gx)DFOR$WRITE_SEQ_FMT<(p)b#DFOR$WRITE_SEQ_FMT<'t)@x)DFOR$WRITE_SEQ_FMT<')G)DFOR$WRITE_SEQ_FMT<()b#DFOR$WRITE_SEQ_FMT<')@)DFOR$WRITE_SEQ_FMT<')G*DFOR$WRITE_SEQ_FMT<()b#DFOR$WRITE_SEQ_FMT<')@*DFOR$WRITE_SEQ_FMT4+*G* OTS$INDEX4+*@* OTS$INDEX4+\*Gd* OTS$INDEX4+`*@d* OTS$INDEX4-*G* OTS$MOVEM4-*@* OTS$MOVEM4)*G*OTS$FILL4)*@*OTS$FILL<'4+G@+DFOR$WRITE_SEQ_FMT<(8+b#DFOR$WRITE_SEQ_FMT<'<+@@+DFOR$WRITE_SEQ_FMT4+T+G\+ OTS$INDEX4+X+@\+ OTS$INDEX4++G+ OTS$INDEX4++@+ OTS$INDEX4-,G , OTS$MOVEM4-,@ , OTS$MOVEM4),G,OTS$FILL4),@,OTS$FILL<'t,G,DFOR$WRITE_SEQ_FMT<(x,b#DFOR$WRITE_SEQ_FMT<'|,@,DFOR$WRITE_SEQ_FMT4+,G, OTS$INDEX4+,@, OTS$INDEX 4+,G, OTS$INDEX4+,@, OTS$INDEX4-D-GL- OTS$MOVEM4-H-@L- OTS$MOVEM4)P-GX-OTS$FILL4)T-@X-OTS$FILL<'-G-DFOR$WRITE_SEQ_FMT<(-b#DFOR$WRITE_SEQ_FMT<'-@-DFOR$WRITE_SEQ_FMT4+-G- OTS$INDEX4+-@- OTS$INDEX4+.G$. OTS$INDEX4+ .@$. OTS$INDEX4-.G. OTS$MOVEM4-.@. OTS$MOVEM4).G.OTS$FILL4).@.OTS$FILL<'.G/DFOR$WRITE_SEQ_FMT<(.b#DFOR$WRITE_SEQ_FMT<'.@/DFOR$WRITE_SEQ_FMT4+/G/ OTS$INDEX4+/@/ OTS$INDEX4+\/Gd/ OTS$INDEX4+`/@d/ OTS$INDEX4-/G/ OTS$MOVEM4-/@/ OTS$MOVEM4)/G/OTS$FILL4)/@/OTS$FILL<'40G@0DFOR$WRITE_SEQ_FMT<(80b#DFOR$WRITE_SEQ_FMT<'<0@@0DFOR$WRITE_SEQ_FMT4+T0G\0 OTS$INDEX4+X0@\0 OTS$INDEX4+0G0 OTS$INDEX4+0@0 OTS$INDEX4-1G 1 OTS$MOVEM4-1@ 1 OTS$MOVEM4)1G1OTS$FILL4)1@1OTS$FILL<'t1G1DFOR$WRITE_SEQ_FMT<(x1b#DFOR$WRITE_SEQ_FMT<'|1@1DFOR$WRITE_SEQ_FMT4+1G1 OTS$INDEX4+1@1 OTS$INDEX4+1G1 OTS$INDEX4+1@1 OTS$INDEX4-D2GL2 OTS$MOVEM4-H2@L2 OTS$MOVEM4)P2GX2OTS$FILL4)T2@X2OTS$FILL<'2G2DFOR$WRITE_SEQ_FMT<(2b#DFOR$WRITE_SEQ_FMT<'2@2DFOR$WRITE_SEQ_FMT<'3G 3DFOR$WRITE_SEQ_FMT<(3b#DFOR$WRITE_SEQ_FMT<'3@ 3DFOR$WRITE_SEQ_FMT<'P3G\3DFOR$WRITE_SEQ_FMT<(T3b#DFOR$WRITE_SEQ_FMT<'X3@\3DFOR$WRITE_SEQ_FMT4+p3Gx3 OTS$INDEX4+t3@x3 OTS$INDEX4+3G3 OTS$INDEX4+3@3 OTS$INDEX4- 4G(4 OTS$MOVEM4-$4@(4 OTS$MOVEM4),4G44OTS$FILL4)04@44OTS$FILL<'4G4DFOR$WRITE_SEQ_FMT<(4b#DFOR$WRITE_SEQ_FMT<'4@4DFOR$WRITE_SEQ_FMT4+4G4 OTS$INDEX4+4@4 OTS$INDEX4+4G5 OTS$INDEX4+4@5 OTS$INDEX 4-`5Gh5 OTS$MOVEM4-d5@h5 OTS$MOVEM4)l5Gt5OTS$FILL4)p5@t5OTS$FILL<'5G5DFOR$WRITE_SEQ_FMT<(5b#DFOR$WRITE_SEQ_FMT<'5@5DFOR$WRITE_SEQ_FMT4+5G5 OTS$INDEX4+5@5 OTS$INDEX4+86G@6 OTS$INDEX4+<6@@6 OTS$INDEX4-6G6 OTS$MOVEM4-6@6 OTS$MOVEM4)6G6OTS$FILL4)6@6OTS$FILL<'7G7DFOR$WRITE_SEQ_FMT<(7b#DFOR$WRITE_SEQ_FMT<'7@7DFOR$WRITE_SEQ_FMT4+07G87 OTS$INDEX4+47@87 OTS$INDEX4+x7G7 OTS$INDEX4+|7@7 OTS$INDEX4-7G7 OTS$MOVEM4-7@7 OTS$MOVEM4)7G7OTS$FILL4)7@7OTS$FILL<'P8G\8DFOR$WRITE_SEQ_FMT<(T8b#DFOR$WRITE_SEQ_FMT<'X8@\8DFOR$WRITE_SEQ_FMT4+p8Gx8 OTS$INDEX4+t8@x8 OTS$INDEX4+8G8 OTS$INDEX4+8@8 OTS$INDEX4- 9G(9 OTS$MOVEM4-$9@(9 OTS$MOVEM4),9G49OTS$FILL4)09@49OTS$FILL<'9G9DFOR$WRITE_SEQ_FMT<(9b#DFOR$WRITE_SEQ_FMT<'9@9DFOR$WRITE_SEQ_FMT<1\:Gh:DFOR$WRITE_INT_FMT<2`:b#DFOR$WRITE_INT_FMT<1d:@h:DFOR$WRITE_INT_FMT<':G:DFOR$WRITE_SEQ_FMT<(:b#DFOR$WRITE_SEQ_FMT<':@:DFOR$WRITE_SEQ_FMT4/:G:OTS$MOVE4/:@:OTS$MOVE<1D;GP;DFOR$WRITE_INT_FMT<2H;b#DFOR$WRITE_INT_FMT<1L;@P;DFOR$WRITE_INT_FMT<';G;DFOR$WRITE_SEQ_FMT<(;b#DFOR$WRITE_SEQ_FMT<';@;DFOR$WRITE_SEQ_FMT4/;G;OTS$MOVE4/;@;OTS$MOVE<1,<G8<DFOR$WRITE_INT_FMT<20<b#DFOR$WRITE_INT_FMT<14<@8<DFOR$WRITE_INT_FMT<'p<G|<DFOR$WRITE_SEQ_FMT<(t<b#DFOR$WRITE_SEQ_FMT<'x<@|<DFOR$WRITE_SEQ_FMT47<G< DFOR$CLOSE48<b# DFOR$CLOSE47<@< DFOR$CLOSE4#<G<UNEXEMPT4$<b#UNEXEMPT4#<@<UNEXEMPT45<G< DFOR$EXIT46<b# DFOR$EXIT45<@< DFOR$EXIT4+<G< OTS$INDEX4+<@< OTS$INDEX 4+=G = OTS$INDEX4+=@ = OTS$INDEX4+@=GH= OTS$INDEX4+D=@H= OTS$INDEX4-=G= OTS$MOVEM4-=@= OTS$MOVEM4)=G=OTS$FILL4)=@=OTS$FILL4/=G>OTS$MOVE4/>@>OTS$MOVE4) >G>OTS$FILL4)>@>OTS$FILL4/,>G4>OTS$MOVE4/0>@4>OTS$MOVE4)<>GD>OTS$FILL4)@>@D>OTS$FILL4/X>G`>OTS$MOVE4/\>@`>OTS$MOVE4)h>Gp>OTS$FILL4)l>@p>OTS$FILL4+>G> OTS$INDEX4+>@> OTS$INDEX4->G> OTS$MOVEM4->@> OTS$MOVEM4)>G>OTS$FILL4)>@>OTS$FILL4-?G? OTS$MOVEM4-?@? OTS$MOVEM4)?G$?OTS$FILL4) ?@$?OTS$FILL4)$Ob# DFOR$DELETE4=(O@,O DFOR$DELETE47HOGTO DFOR$CLOSE48LOb# DFOR$CLOSE47PO@TO DFOR$CLOSE4#XOGdOUNEXEMPT4$\Ob#UNEXEMPT4#`O@dOUNEXEMPT45lOGxO DFOR$EXIT46pOb# DFOR$EXIT45tO@xO DFOR$EXIT4+OGO OTS$INDEX4+O@O OTS$INDEX4#OGOUNEXEMPT4$Ob#UNEXEMPT4#O@OUNEXEMPT45OGO DFOR$EXIT46Ob# DFOR$EXIT45O@O DFOR$EXIT<1PG PDFOR$WRITE_INT_FMT<2Pb#DFOR$WRITE_INT_FMT<1P@ PDFOR$WRITE_INT_FMT4%`PGlPLIB$SET_SYMBOL4&dPb#LIB$SET_SYMBOL4%hP@lPLIB$SET_SYMBOL4%PGPLIB$SET_SYMBOL4&Pb#LIB$SET_SYMBOL4%P@PLIB$SET_SYMBOL<1QG QDFOR$WRITE_INT_FMT<2Qb#DFOR$WRITE_INT_FMT<1Q@ QDFOR$WRITE_INT_FMT4%LQGXQLIB$SET_SYMBOL4&PQb#LIB$SET_SYMBOL4%TQ@XQLIB$SET_SYMBOL<1QGQDFOR$WRITE_INT_FMT<2Qb#DFOR$WRITE_INT_FMT<1Q@QDFOR$WRITE_INT_FMT4%QGQLIB$SET_SYMBOL4&Qb#LIB$SET_SYMBOL4%Q@QLIB$SET_SYMBOL<1@RGLRDFOR$WRITE_INT_FMT<2DRb#DFOR$WRITE_INT_FMT<1HR@LRDFOR$WRITE_INT_FMT4%RGRLIB$SET_SYMBOL4&Rb#LIB$SET_SYMBOL4%R@RLIB$SET_SYMBOL4+RGR OTS$INDEX4+R@R OTS$INDEX4+RGR OTS$INDEX4+R@R OTS$INDEX4-\SGdS OTS$MOVEM4-`S@dS OTS$MOVEM4)hSGpSOTS$FILL 4)lS@pSOTS$FILL4%SGSLIB$SET_SYMBOL4&Sb#LIB$SET_SYMBOL4%S@SLIB$SET_SYMBOL4+SGT OTS$INDEX4+T@T OTS$INDEX4+DTGLT OTS$INDEX4+HT@LT OTS$INDEX4-TGT OTS$MOVEM4-T@T OTS$MOVEM4)TGTOTS$FILL4)T@TOTS$FILL4%,UG8ULIB$SET_SYMBOL4&0Ub#LIB$SET_SYMBOL4%4U@8ULIB$SET_SYMBOL4+LUGTU OTS$INDEX4+PU@TU OTS$INDEX4+UGU OTS$INDEX4+U@U OTS$INDEX4-UGV OTS$MOVEM4-V@V OTS$MOVEM4)VGVOTS$FILL4) V@VOTS$FILL4%|VGVLIB$SET_SYMBOL4&Vb#LIB$SET_SYMBOL4%V@VLIB$SET_SYMBOL4+VGV OTS$INDEX4+V@V OTS$INDEX4+VGV OTS$INDEX4+V@V OTS$INDEX4-LWGTW OTS$MOVEM4-PW@TW OTS$MOVEM4)XWG`WOTS$FILL4)\W@`WOTS$FILL4%WGWLIB$SET_SYMBOL4&Wb#LIB$SET_SYMBOL4%W@WLIB$SET_SYMBOL4+WGW OTS$INDEX4+W@W OTS$INDEX4+4XGtb# DFOR$DELETE4=t@t DFOR$DELETE40uG07 DFOR$CLOSE9 DFOR$OPEN ;DFOR$READ_SEQ_FMT=S(d=YYYYYYYY:x= =88=  X(( ;= DFOR$DELETE? SYS$GETDVIW=%SYMS=(8  9  $=L(=8  =U(=J(AREPLENT=(= %GBLEDIT4=P@= JTA_BPRIX= JTA_IDNTh=K<p=X<x=Z<= JTA_MXPV= JTA_PSWD= JTA_ZFID= 8  Z-=V=K=0$8       C LIB$DATE_TIME=O=8  EEXEMPT=<#>8= Dev:file or (n,s,v)>P GDFOR$REWRITE_FMT=pI SYS$GETJPIW=H<=C<8OTS$STRCMP_LEQS=Z+p ;=\==@48       2 3   = %DELETEJTA_FUSR= JTA_XCMD=Y-< =8 (= A8=%SHOW@= JTA_NSLKP=R+X=S+`=R/Wh= JTA_FTTYx= JTA_FNAM= JTA_FIMG=I<=P<=_SUMM=_LIST=V<=#S==H+=&%=%REGEN= %GBLEDITCON= %REPORT88     =  = JTA_RPTFILE( =0 t;=@ P MGETFIDOSYS$OPEN= 0P;== 0ܦ;== 0ħ;==0;= P$< , =+< =*< =-< =0t;=4 7 DFOR$HANDLER= ;Q DFOR$INQUIRE= 8 P =0&8     9  x  ;=0 ;=@  ; S SYS$CONNECT= 0;= *