AJTMODACE 12-SEP-1996 21:15DEC Fortran V6.2-508 @$DATA$*$BSS$L$IODATA$i$CODE$ $LINK$ FFFIII FFIIDDFSZC0JJTMODACEEXEMPTLIB$GET_FOREIGN(JILENLIB$SYS_TRNLOG(JP8FGETFID DFOR$OPEN DFOR$HANDLER DFOR$CLOSE SYS$GETDVIW(JIVLEN SYS$ASSIGNUNEXEMPT DFOR$EXITFILACC DFOR$DELETELIB$SET_SYMBOLREDACLOPRMSGREPLENTLIB$WAIT(JGETPV LIB$SPAWNJTSCR(J\LPRC(J FILCK SYS$DASSGN DFOR$WRITE_SEQ_FMT DFOR$REWRITE_FMT DFOR$WRITE_INT_FMT DFOR$WRITE_INT_FMT_XMIT DFOR$READ_INT_FMT DFOR$READ_INT_FMT_XMIT DFOR$WRITE_SEQ_FMT_XMIT DFOR$READ_KEY_FMT DFOR$READ_SEQ_FMT DFOR$REWRITESYS$OPENGETFID DFOR$INQUIRE(J HIUFCK DFOR$READ_SEQ_FMT_XMIT SYS$CONNECT(J GTXABOTS$MOVEOTS$FILL OTS$MOVEM OTS$INDEX OTS$DIV_IOTS$STRCMP_LEQS OTS$DIV_L l=TL6M76M76 JTD$DB:OPHHW.GDB76 JTD$DB:OPWHW.GDB76H (W,W,W)76H76H (W,W,W) V 76W 76 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 =0#(~^^~cGGGBb@Zk4G0"G0"Q2_JpJPFQG0b4vJpSJF0"00¦"0ײG0"Y:YKxKXGYTG0b HxKD0 0"0"0B0b 000"B"4GB@Zk4GGB@Zk0¦0 0"000"000" 0B rF r&"X0b{#\}&"`#dX"`="0BR"GGBb@Zk0"$00"0BR"GTGB@ZkGB@Zk0¦.JB^ 0G8GY 0"9?G8*GT 0"0BR"GB@ZkTG4G0"B"8B@Zk0@0(0"(B"TGB@ZkGGB@Zk0"(9 0"(!!1 @0"0BR"GGB@ZkGB@Zk0¦(֢0(TG @0"0BR"GTBGTGB@ZkGB@Zk'P#X0"! \=X"4Gbd @0",0FF0",111 B0B02B"0b0s31`B0"3aJ`X}04"h("?&1"X}"@GBb@Zk""08 X("X]"tG0B8b@Zk""0< X("X]"tG0B8b@Zk0<?"PBXb@Zk0@0<"F0<ײ040"@9?$!OC0400"410Br3Jq JqFr0B8Z0b vHzS@KD0<0զ6JtJFն0⦔79v>K70h"0h"_&R"X]H \'P{#`}0"dX"0"H1"`]"tG0B8b@Zk0"D0D0"H0"0BR"GGB@ZkGB@Zk<@b"0¦,֢0⦐"6J4G`Xݶ4Gh=pxTG("tG_&R"X"G`Bhb@ZkGaxb"("tG_&R"GGBb@ZkG4G0"B"8B@Zk0@0H0"H90"0BR"GGB@ZkGB@Zk?$P! X=0"\#4GGX]"0bs"0"GGBb@Zk00"0BR"GGB@ZkGB@Zk0"!0¦L60"0BR"GB@Zk0⦀FF 0"0BR"GB@Zk4GGB@ZkG4G0"B"8B@Zk0@0P0"P9 0"P!!1 @0"0BR"GGB@ZkGB@Zk ""&"Xݲ0 \X"TGb@0"T4G0"X0BTR0bXs2SB0@B0\T0\01B0C"4GxB"B@Zk 0¦X֢0B0Xײ0X#0"\90 C0"\!B"0T0"\111 B0B0bs"qB0J`=X0B`Z#h]("?&1"X}"@ "GBb@Zk0\ 1@0"0BR"GGB@ZkGB@Zk0"! G4G0" B"8B@Zk0@0d0"d991 C0@"0BR"GGB@ZkGB@Zk0"d!G6B0"0BR"GTBGGB@ZkGB@Zk ""&"X0#\X"TGb@0"T0T0`"0BR"GGB@ZkGB@Zk$""& "Xݲ0@#\X"TGb@0"h$""& "X0b`s"\}X"TGb@0"lB""0"h10b@s"1!J0"`Xp}h=("?&1"X}"@"GBb@Zk""0l0"`! H`=X("X]"tGBb@Zk""0` X("X]"tGBb@Zk0G4G0" B"8B@Zk0@0d0"d9G!9@0"0BR"GTBGGB@ZkGB@ZkG4G0" B"8B@Zk0@0d0"d9G!9@0"0BR"GTBGGB@ZkGB@Zk ""&"Xݲ0 \X"TGbj@0"T0T0`"0BR"GGB@ZkGB@Zk$""& "Xݲ0`#\X"TGbP@0"lB""0"1"`=X0"h("?&1"X}"@D"GBb@Zk""0l0"`! H`=X("X]"tGBb@Zk""0` X("X]"tGBb@Zkt""$ X0"\X"TGb@0"p4GG]G 4Gݶb"0p0"9#8K4G=tG=G=]TG"4G}@#tG]"]G]TGݶ("TG_&R""G`Bhb@ZkG.TGG0"B"8B@Zk0@a0L?'8vKCX0"\X"0"t1"GGGGBb@Zk0"@0@0F0"@0B@R_B0btsBSF @GBb@Zk"4GBb@Zkpb"0 ? ` =X=("TG_&R"X"@"GBb@ZkG4G0x00t"0"1"0BxR"tG B(b@Zk0x("TG_&R"GGpBxb@ZkGBb@Zk"4GBb@ZkTGG0"B"8B@Zk0@D0p"0BR"G?"B@ZkB"GB@Zk0 "G?"33B]"B@ZkGB@Zk0"p9 C0"@!b"0¦@֢0 "6J`Xݶ"h4Gp=TGxTG}TG=("G_&R"X"G`Bhb@ZkG0"@!& "XB"\]&!v H4@`=0¦ "dݲX"`="TGPBXb@Zkpb"0 ? `X=("TG_&R"X"@"GBb@ZkG0"!000"10B20 "B"4GB@Zk?"GB@Zk@?"TG04"pB"8B@Zk0@0|0"|9* 0"|!0 @0 "0BAB4R"?"B@Zk4GGB@Zk?"4G0 "`B"8B@Zk0@00"9 0"!!1 @0 "0B R"G?"B@ZkGB@Zkt""&"Xݲ0 \X"TGb@0"00JJ0"0BR2DJFJ0bS0ԐJ00¦0JJ?"Bb@Zk0@00"@9&4OC0B""0"!0 "!!H0" 1"`=Xݶph=("?&1"X}"@p"GBb@Zk""0 X("X]"tGBb@Zk""0 X("X]"tGBb@Zk""0 X("X]"tGBb@ZkL""$ X0 "\X"TGbW@0"pb"00" 1"0J`=X("G_&R"X"@"GBb@Zkxb"("G_&R"GGBb@ZkGBb@Zk"4GBb@ZkTGG0"`B"8B@Zk0@0p"0BR"G?"B@ZkhB"GB@Zk0 "G?"33B]"B@ZkGB@Zk0"p9 C0"@!0¦b"0@0 7J`X"h4Gp]TGx]TG=TGݶ("G_&R"X"G`Bhb@ZkG 0"@!& "XpB"\]&!v H4@`=0¦ "dݲX"`="TGPBXb@Zkpb"0 ? `X=("TG_&R"X"@"GBb@ZkG0"!000"10B20 "B"4GB@Zk?"GB@Zk@?"TG04"pB"8B@Zk0@0|0"|9* 0"|!0 @0 "0BAB4R"?"B@Zk4GGB@Zk?"4G0 "`B"8B@Zk0@00"9 0"!!1 @0 "0B R"G?"B@ZkGB@Zkt""&"Xݲ0 \X"TGbn@0"00JJ0"0BR2DJFJ0bS0ԐJ00¦0JJ?"Bb@Zk0@00"@9&4OC00¦0֢0"00"1B0BB""0BZ0b {#:AK0 `X}p}h]("?&1"X}"@"GBb@Zk""0 X("X]"tGBb@Zk""0 X("X]"tGBb@Zk""0 X("X]"tGBb@Zk""0 X("X]"tGBb@ZkL""$ X0 "\X"TGb@0"pb"00" 1"0J`=X("G_&R"X"@"GBb@Zkxb"("G_&R"GGBb@ZkB" 0" ! `=X0bs"h}("?&1"X}"@"GBb@Zk$ X0"\_& R"`]0 "dX"`="TGPBXb@ZkGBb@Zk"4GBb@ZkTGG0"B"8B@Zk0@TGtG0"XB"8B@Zk0@0TGG0"B"8B@Zk0@0"@0@CTG!8@0 "0BR"GTBG?"B@ZkGB@ZkL""&"Xݲ0 \X"TGbl@ 0" !?D$D 0 "0B R"?"B@Zk4GGB@Zk0@"0B R"4GB@ZkGGB@Zk0 "0B R"?"B@Zk4GGB@Zk?"4G0 "0B@R"8B@Zk0@0(0"(99# 0"(!!1 @0"0B R"G?"B@ZkGB@Zk0¦(֢"7B0 "0B R"GTBG?"B@ZkGB@Zk00"B"4GB@ZkGGB@Zk?"4G0 "0B@R"8B@Zk0@0(0"(9e 0"(!!  0(51B0"0B R"G?"B@ZkGB@Zk4G0⦠ײ0t""'#X0"! \=X"TGb@0"0 t""_&R"X]0"\X"TGb@0"pb"0"?"`X=("TG_&R"X"@"GBb@Zk =G0"0@?"0Br04"0BR"8B@Zk0@00"9 0"![ ""&@"X0b4s"\}X"TGb@0"pb"00"41"0J`=X("G_&R"X"@"GBb@Zkpb"G0"! `=X("G_&R"X"@8"GBb@Zk0D8 D%0"!?D8/D 0F F0"1?F-F?0BR_F8HF@0bsF8lF`00FF0¦֦FF0⦴8F,0@?#98C04"0B4R"GTBG@?"B@ZkGB@Zk00"!@"<CGGG0BR"G@?"B@Zk0B4R"@"B@Zk04"@?"GB@ZkG0⦴"]00"9091 C 1@0"!0¦֢6@!1 @@"5B@?"  B04"GBG0B4R"GTBGB@ZkGB@Zk0⦤800¦֢81C61B0"900"!@ 1@@"7B7C<CGGG<CGGGG0BR"GB@Zk0B@B4R"GB@ZkGGGB@Zk@?#66C04"GBGGGB@ZkGB@ZkG4G0⦬00@0"08#0¦֢b"("TG_&R"GGPBXb@ZkGBb@Zk"4GBb@ZkTGG0"PB"8B@Zk0@0L$$vH@X0"9#\=X"0"t1"GGGGBb@Zk0@0@0D0"@0@B0"t1?BF GBb@Zk"4GBb@Zkpb"0  `X("TG_&R"X"@"GBb@ZkGN4G0x0"0"1"0BtR"tGBb@Zk0$HEV$GC D0 "B"4GB@Zk?"GB@Zk@?"TG04"pB"8B@Zk0@0|0"|9$ 0|0 "0BEB4R"?"B@Zk?"4G0 "`B"8B@Zk0@00 0"90 "0B R"G?"B@ZkGB@ZkL""$ X0¦ "\ݲX"TGb@0B" 0"! G0" 1"`=Xp=h("?&1"X}"@D"GBb@Zkp""00 $H`X("X]"tGBb@Zkt""$ X0 \X"TGb@0pb"00" ! %H`=X("G_&R"X"@"GBb@Zk0$$vH@X0" ! \=X"4GBb@ZkEV$GC 00"@?"TG04"HB"8B@Zk0@00"9,?00@0 "0BEB4R"?"B@ZkGGB@Zk?"4G0 "`B"8B@Zk0@000"991 C0 "0B R"G?"B@ZkGB@Zk0p@0"0¦֢FXݲ0"X]"4GB@Zk0⦀71B0 "0BR"GB@Zk0B R"G?"B@ZkGB@Zk0"0B R"G?"B@ZkB"TGB@Zk0"G?"33B]"B@ZkGB@Zk00@00"90"!0 0¦֢0B,"@H<00B00"11"?0"0"t1"0BR"tGBb@ZkGBb@Zk"4GBb@Zk4G0tG0"pb"0"?"G`X=h¦hݶp]x_'8Z#]@ #("TG_&R"X"h"GBb@ZkGG0eG00"!?@0uB0D 0"1&F 0B0"4G0B8b@Zk0PPP"00"0B2&s"0t"0¦0"B"4GB@ZktGGB@Zk0$0(0",04"XB"GB@Zk4?"GB@Zkh0h0"""&@"Xݲ04#\X"TGbo@00@0"pb"0"0"11!J`X=("TG_&R"X"@"GBb@Zkpb"0  G`Xh"h=px&8"ݶ@##("TG_&R"X"h"GBb@ZkGG0dG04G00h"10B2hbs0tTGG0"hB"8B@Zk0@0 ("TG_&R"GGpBxb@Zkxb"("TG_&R"GGBb@ZkGBb@Zk"4GBb@ZkTGG0"B"8B@Zk0@0 GBb@Zk"4GBb@ZkB" 0 G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@Zk$ /=X \&"`0BR"d]X"`="TGPBXb@ZkB" 0 G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@ZkB" 0 G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@ZkB" 0$ G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@$Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&%vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"@B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@$Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&%vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@$Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&%vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"XB"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk0,00PD0"0?&1"X=Hb"\}&"`"dX"`="TGPBXb@Zk0$ XH" \=?&1"`=b"d}X"`="TGPBXb@Zk@?"TG04" B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"hB"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@$Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&%vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"pB"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@ `?=00F001C@?#10C4G0C4"`B"8B@Zk0@000@$Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#X "#\=&%vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"B"8B@Zk0@00F001C@?#10C4G0C4"`B"8B@Zk0@000@%Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B00'#Xp"#\=&$vH@`0"1"d=X"`="TGPBXb@Zk@?"TG04"HB"8B@Zk0@00G001C@?#10C4G0C4"`B"8B@Zk0@000@$Q@0"0"!00B!5@0"0B4R"GTBG?"B@ZkGB@Zk0¦֢06B61B04G0$ X(" \=&"`B"d]X"`="TGPBXb@Zk$ XH \&"`B"d]X"`="TGPBXb@Zk$ X8 \&"`B"d]X"`="TGPBXb@Zk$ X \&"`B"d]X"`="TGPBXb@Zk0$1@0@,H0"0 B0"1 BF0BR8@F@0bs0`B0t&"X("\?'9#`=(b#d}X"`="TGPBXb@Zk0xD/B"G00" @.J0J0"01"`=Xh("?&1"X}"@"GBb@Zk$ XH \&"`0B0R"d]X"`="TGPBXb@Zk0Ѐ@00D60"!0x"0BABR"GB@ZkB"GG00#`Xݶ0x ph("?&1"X}"@"GBb@Zk$ X8 \&"`0B0R"d]X"`="TGPBXb@Zk00@0h0D60"!0x"0BABR"GB@ZkB"GG00#`Xݶ0x ph("?&1"X}"@"GBb@Zk$ X \&"`0B0R"d]X"`="TGPBXb@Zk00@0.TGG0"B"8B@Zk0@ GBb@Zk"4GBb@ZkTGG0"@B"8B@Zk0@0pb"0,0#%H`X("G_&R"X"@"GBb@ZkGBb@Zk"4GBb@ZkB" 0 G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@Zk$ X \&"`0BR"d]X"`="TGPBXb@ZkB" 0 G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@ZkB" 0 G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@ZkB" 0$ G0"! `=Xph("?&1"X}"@"GBb@Zk$ X \&"`0BR"d]X"`="TGPBXb@Zkpb"0,0 $H`X("G_&R"X"@"GBb@Zk0000"00JJ0"1_"2F: ?&QNB0b04JJ00¦֢F0ײb"0#X("G_&R"X"@"GBb@Zk""0 X("X]"tG0B8b@Zk""0 X("X]"tG0B8b@Zkpb"0 G`X("G_&R"X"@L"GBb@Zk8b"0 G`X("G_&R"X"@x"GBb@ZkH""0 G`X("X]"tG0B8b@Zkb"("G_&R"G@"GBb@Zk4G0G0"4G0"pb"0BR041B2TB0C4"2AJ`X]("G_&R"X"@l"GBb@Zk0@00 @0"00B0"0BRR"_GBb@Zk"4GBb@ZkTGTG0"@B"8B@Zk0@0TGTG0"hB"8B@Zk0@04"B"4GB@Zk??"GB@Zk 0?#0$0"0¦PPP00"0BTGTG0"B"8B@Zk0@ 0,00TD0"0"!0,0TGTG0"B"8B@Zk0@ 0,0 8O=0QD0"0"!0,0TGtG0"B"8B@Zk0@0$0(TGtG0"pB"8B@Zk0@<TGtG0"pB"8B@Zk@0$0"$901 CTG1@4G0C"B"8B@Zk00!0"$90%C%1@0"00"$111 B0B0B$R"0b(s"C&0vJBX0C1"\=X"0"1"G`b> @0 000"TGTG0"(B"8B@Zk0@ 0"pB"4GB@Zk4GGB@Zk4G0"0TGTG0"0B"8B@Zk0@4G0TGTG0"B"8B@Zk0@0",9 $$G0,TGTG0"xB"8B@Zk0@0,?'G0,TGTG0"B"8B@Zk0@00@0"0$1@TG0"$@.qKPJF>0B,R@F0b,S00}h¦֢00ײB"_#0b,{0 ;aK0 `X]ph}("?&1"X}"@x"GBb@Zk""hX("X]"tGBb@Zk""h X("X]"tGBb@Zk08D ("TG_&R"GGpBxb@ZkL""$ X0 \X"TGb @00?$%vH@X=0" 1"\=0bs"#~X"GGGGGGBb@Zk0D00DG0"G00FTG0B20bs31`B0B.UJ>0¦֢61B0ײTGTG0"B"8B@Zk0@0$0"$9C 0$0@TG1@4G0C"B"8B@Zk0@00"90$$C0@00"!0$!0@!Q @0"10BR0b$s0`B2SB21@B&2v@JTBX]0Cs"\}X"0"1"0B R"0b$s"G`b @0 00$0"4G0" TGTG0"B"8B@Zk0@0$0"$9 0 0$0@TG10@4G0C"B"8B@Zk0@00"90$$C0@00"!0$!0@!Q @0"10B$RP@B0b$S041B0B"0¦֢0$71B6B0BZ#WC6JG`Xݶ0"9#p=h}("?&1"X}"@"GBb@ZkGL0"0"1"0BR"0bs"G`Bhb@Zk00@00@0"00"0BR0bS000¦֢0ײ00"991 C8Cp"B"4GB@Zk0BR"GB@ZkX"4Gp]"B@Zk0"GBGX]"4GB@ZkGB@Zk0@0TGTG0"B"8B@Zk0@0"$0$0(0$0" ! 0$0BTG10B4G0C"B"8B@Zk0@0"00$@0@00"!0,00"10B$R12B1Q B0b30$PB0$0¦֢61B0ײB"0BZ0b${;1`C:[C0 @:AKG`X]0 ph=("?&1"X}"@"GBb@ZkGu0"0"1"0BR"0bs"G`Bhb@Zk00@000"00B0"0BR0bS000¦֢0ײ00"0BZ0b{$1`C%DCp"B"4GB@Zk0BR"GB@ZkX"4Gp]"B@Zk0"GBGX]"4GB@ZkGB@Zk0@0"0¦(֢=B00BF0(0"(981C91 C000@TG%@TG5B0"GBG0BR"GTBGB@ZkGB@Zk,TGTG0"B"8B@Zk0@0"$0$o0 lB"0$0C TG`X=0b4s"h}("?&1"X}"@"GBb@ZkGT04 @04@DL0"4!G!B0"410B4R0bS00"0"1"0BR"0bs"G`Bhb@Zk0000"00B0"0BR61@B0b4sFX}h"B"4GB@ZkX]"4GB@Zk0BR"GB@Zk`"Gh]"B@Zk0"GB`]"GB@Zk0B0TGTG0"B"8B@Zk0@0"808/B"080@TG8C0"! %@8K`=X0b<s"h}("?&1"X}"@"GBb@ZkG""0@ X("X]"tG0B8b@ZkG0<00"@!00TGTG0"B"8B@Zk0@0D0"D9* 0D0@TG1@4G0C"B"8B@Zk0@0@0"@90D$C0@0@0"@!0D!0@!Q @! 0"D10 B0 _="0BUBR"GB@Zk&"Xݲ0 \?'9#`=` d&"hB"l]&@"p0B4Z#t]X"`="h]"p}"Gb @$ X0 \&"`pB"d]&"h"lݲ'@#p0B4Z#t]X"`="h]"p}"Gb @$ X0 \&"`(B"d]&"h"lݲ'@#p0B4Z#t]X"`="h]"p}"Gb @$ X0 \&"` B"d]&"h"lݲ'@#p0B4Z#t]X"`="h]"p}"Gb @$ X0 \&"`hB"d]&"hX"lݲ'@#p0B4Z#t]X"`="h]"p}"Gb{ @$ X0 \&"` B"d]&"h "lݲ'@#p0B4Z#t]X"`="h]"p}"Gb^ @$ X0 \&"`hB"d]&"hh"lݲ'@#p0B4Z#t]X"`="h]"p}"GbA @TGTG0"pB"8B@Zk0@00TGTG0"xB"8B@Zk0@0,0"9"0D"$8vKCX0"\X"tGb @@?"TG04"pB"8B@Zk0@0@0@60@01C@?#10C4G0C4"`B"8B@Zk0@0H0H$0H0"@9C8QC0"H0@0"@151B11 B0BHR0@B@"7vB@":B04"GBG0B4R"GTBGB@ZkGB@Zk""$@ X04 \X"TGb@0L0L0"L!0,4GB<CGG"G0BR"GB@Zk`B"GB@ZkGG]"B@ZkTG7C<CGGGGpB"GB@ZkGGB@Zk@"!B04"GBGGGB@ZkGB@ZkTGTG0"@B"8B@Zk0@0"D0DG0D0@TG1@4G0C"B"8B@Zk0@0"@0@0DC0@0"@!0D!0@!Q @!  0"B"4GB@ZktGGB@Zk"0@ײ0,0"@9D0,0@0D$@$Q@ @?"TG04"B"8B@Zk0@0"@0@30@01@@ 1@4G0C4"`B"8B@Zk0@0"H0H!0H0@@0@0"H0@0"@10BHҢ@"7vB@":B04"GBG0B4R"GTBGB@ZkGB@Zk""$@ X04#\X"TGb@0L0L0"L!0@0"D10 B6B4GB<CGG"G0BUBR"GB@Zk`B"GB@ZkGG]"B@ZkTG@<CGGGGB"GB@ZkGGB@Zk@"!B04"GBGGGB@ZkGB@Zkh0"Ph0T0@0"D!0 @%@0"0BR"GTBGTGB@ZkGB@Zk@b"0¦@֢0D0@6B0 @6J4G`Xݶ4Gh=px=TG]("tG_&R"X"G`Bhb@ZkGxb"("tG_&R"GGBb@Zkh0h0"0Ph"0BTRhbSTG4G0"B"8B@Zk0@0H0"H900"0BR"GGB@ZkGB@Zk4""$P X0"0! \=X"TGb@0X$P X00"\#4GGX]"0bs"0"GGBb@Zk00"0BR"GGB@ZkGB@ZkB"G0 `X0⦴"h("?&1"X}"@"GBb@ZkX""0 X("X]"tGBb@Zk0@0\B"0 G@"4G`X=ph=("?&1"X}"@"GBb@ZkGn 0\DX? <CGGGGX]"4GB@ZkGB@ZkGhݶ`=("G`]"tGBb@ZkGPG""` 4G`X("X]"tGBb@ZkGB""0 G`X("X]"tGBb@ZkG4 0DX? <CGGGGX]"4GB@ZkGB@ZkGhݶ`=("G`]"tGBb@ZkGGp""00 $H`X("X]"tGBb@ZkG0,4D0,G0"`TGTG0"@B"8B@Zk0@0D0"D9 4G0`0"B"4GB@ZktGGB@ZkTGTG0"B"8B@Zk0@0D0"D9y 0D0@TG1@4G0C"B"8B@Zk0@0@0"@90D$C0@0"@!0D!0@!Q @!  0"B"4GB@ZktGGB@Zk"0@ײ0,0@D0",0@0D$@ n=$Q@ ?@?"TG04"B"8B@Zk0@0@0"@93 0@01@@ 1@4G0C4"`B"8B@Zk0@0H0"H9! 0H0@@0@0"H0@0"@10BHҢ@"7vB@":B04"GBG0B4R"GTBGB@ZkGB@Zk""$@ X0"49#\=X"TGb@0L0L0"L!0@0"D10 B6B4GB<CGG"G0BUBR"GB@Zk`B"GB@ZkGG]"B@ZkTG@<CGGGGB"GB@ZkGGB@Zk@"!B04"GBGGGB@ZkGB@Zk""$@ X04#\X"TGbP@0d0`8DG0"d!0d@?"50B04"GBGB"tGB@ZkGB@ZkGh¦֢0Pײh0"T0@0D0@ @0"0BR"GTBGTGB@ZkGB@Zk@b"0@0"D!0 @$@0¦"B$H4G`=X4GhpxTG]("tG_&R"X"G`Bhb@ZkGxb"("tG_&R"GGBb@Zkh0h0"0Ph"0BTRhbSTG4G0"B"8B@Zk0@0H0"H900"0BR"GGB@ZkGB@Zk4""$P X0"0! \=X"TGb@0X$P X00"\#4GGX]"0bs"0"GGBb@Zk00"0BR"GGB@ZkGB@ZkB"G0 `X0⦴"h("?&1"X}"@"GBb@ZkX""0 X("X]"tGBb@Zk0P@0\B"G@" 4G0"1"`=Xp=h("?&1"X}"@"GBb@ZkGy 0\DX? <CGGGGX]"4GB@ZkGB@ZkGhݶ`=("G`]"tGBb@ZkG[ 0`DX? <CGGGGX]"4GB@ZkGB@ZkGhݶ`=("G`]"tGBb@ZkG=G""0 G`X("X]"tGBb@ZkG. 0DX? <CGGGGX]"4GB@ZkGB@ZkGhݶ`=("G`]"tGBb@ZkGGp""00 %H`X("X]"tGBb@ZkGG""$$ X0"! \=X"TGb@0h0h 30"!0@00"10BhR2B0b30@ 0h0"0BR"GTGB@ZkGB@Zk0¦@֢0@0@0"h9TG @0"GBG0BR"GB@ZkGB@ZkTGTG0"0B"8B@Zk0@@?"TG04"B"8B@Zk0@0@0@60@01C@?#10C4G0C4"`B"8B@Zk0@0H0H$0H0"@9C8QC0"H0@0"@151B11 B0BHR0@B@"7vB@":B04"GBG0B4R"GTBGB@ZkGB@ZkTGTG0"0B"8B@Zk0@0@0@01@TG10C4G0C"B"8B@Zk0@0H0HR0H0"@9@%Q@0"H""&@"X0b4s"\}X"TGb+@0L0L0"L!0H0"@10 B6B4GB<CGG"G0BUBR"GB@Zk`B"GB@ZkGG]"B@ZkTG@<CGGGGB"GB@ZkGGB@Zk@"!B04"GBGGGB@ZkGB@ZkGTGTG0"8B"8B@Zk0@@?"TG04"@B"8B@Zk0@0"@0@60@01@@ 1@4G0C4"`B"8B@Zk0@0"H0H$0H0@@$Q@0"H0@0"@151B11 B0BHR0@B@"7vB@":B04"GBG0B4R"GTBGB@ZkGB@ZkTGTG0"8B"8B@Zk0@0"@0@01CTG1@4G0C"B"8B@Zk0@0H0"H9R 0H0@C%Q@0"H""&@"X0b4s"\}X"TGbp@0L0L0"L!0H0"@10 B6B4GB<CGG"G0BUBR"GB@Zk`B"GB@ZkGG]"B@ZkTG@<CGGGG@B"GB@ZkGGB@Zk@"!B04"GBGGGB@ZkGB@ZkG0@0"l0]0l0 %?DwJ7D %G0¦ $Ha1 HD 4G0 0vJaQ HF G0" Q2^Jaq HAF Q0bs0 T:]Ks`JSG T0b  H 0" 8vK 0 7J EV$GC 0 0¦ ~=l֢6B00 "G0BR"GB@ZkGB@Zk0"!0@ / XK?0"90B , "DH<00¦B . "UJ>G4G0"B"8B@Zk0@0H0H?'$vH@X0"! \=X"0"1"GGGGGBb@Zk0DTGTG0"B"8B@Zk0@ h0"1"0B R"tGBb@Zk04GBb@Zk0Dh0"h0"0BR@@?"TG04"HB"8B@Zk0@0$0"$92 0$01@@ 1@4G0C4"`B"8B@Zk0@00"$90$C0@00"$!0$!1 @01B0"@_"6UB@"7pB04"GBG0B4R"GTBGB@ZkGB@Zk""$@ X0"49#\=X"TGb<@0L0L0"L!04GB<CGG"G0BR"GB@Zk`B"GB@ZkGG]"B@ZkTG7C<CGGGGHB"GB@ZkGGB@Zk@"!B04"GBGGGB@ZkGB@Zk""?'@9#X=04"\X"TGb@00@0"08FGpb"0"1"0BR2AJ`=X]("TG_&R"X"@"GBb@ZkG0pb"0 0 H`X("TG_&R"X"@"GBb@Zkxb"("TG_&R"GGBb@ZkGBb@Zk"4GBb@ZkGBb@Zk"4GBb@Zk4GcG]]}#k"_R"#~ ^(^0~8GGG=] 4GB2G4G0B8b@Zk"C.c.CJS cJSF4բ6vJղG"TG B(b@ZkCG ](]0}8@#kGGG!4GpPp4G Bp]p01B0@P.PJDB @p0@pp]RR"_p GGkGGGGGGԢ4GX=X]R VB'@X}s31`BB3.3JX]2pNX}sB@@NX}sSB@! a0`Ba@@ 0 B X}s0`BX]rX BGkGGGGr.rJ*@R4G@ݦ@ B!@  B0@@ݦ@01BPB,H@ @ݦ֢0B@в@=1 4B?GGGk@GGk.V JFð#~^^ ~(08޴@HGGGGGGcB9"G4GX@Zk(X"TGX@Zk("tG]"X@Zk?"tGG(XR"0X@Zk0@(8((8111 B_"2QB@4GGX"0X@Zk0@(8((81(XR2B1Q B(x3@?"TGGG0X@Zk0@(8(b(8111 B@_"2QB1C4GGXX"0X@Zk0@(8((81B0QB(X(xӢ((PB7B@(XZ@# zC:CB<CGGG<CGGGGGGX@ZkGGX@ZkGGGX@Zk4GB<@GGGG X"GX@ZkGGX@Zk@"<CGGGGG@?"X@ZkGGX@ZkGG@?"33BGX@ZkGX@ZkG([8"$@ ݰ ="x#_((TG(8!(PB!0@@4G6@<CGGG<CGGGGGGX@ZkXX"GX@ZkGGGX@Zk@<@GGG<CGGGGGGX@ZkGGX@ZkGGGX@Zk@"<BGGGGG@?"X@ZkGGX@ZkGG@?"33BGX@ZkGX@ZkG"G4GX@Zk8X"TGX@Zk("tG]"X@Zk?"tGG(XR"0X@Zk0@(((ؤƠ&1@? 1&@@4GX"0X@Zk0@(((ؤƠ(8!@!Q @(0@?"TGGG0X@Zk0@((n(ؤƠ&1@@? 1&@&C4GXX"0X@Zk0@(((ؤƠ@%Q@(8((810 B2B1C(xs(PB3tB@GG0X@Zk0@((ؤƠA((8!@p @(0(81(XR(xs2SB2B1Q B(4(5QB5C.JF(71B(X(x{;1`C(@ '@@"<CGGGGG@?"X@ZkGGTBGX@ZkGG@?"33BGX@ZkGX@ZkG"G4GX@Zk0X"TGX@Zk =ld("tG]"X@Zk?"tGG(XR"0X@Zk0@((砵(ؤƠ&1@? 1&@@4GX"0X@Zk0@((砥(ؤƠ(8!@!Q @(0@?"TGGG0X@Zk0@((6(ؤƠ&1@@? 1&@&C4GXX"0X@Zk0@(((ؤƠ@&Q@(8(51B(8Ѣ@_"7VB@"<CGGGGG@?"X@ZkGGTBGX@ZkGG@?"33BGX@ZkGX@Zk8"$@  ="x#_(ؤ(TG(8!(PB!0@@4G6@<CGGG<CGGGGGGX@ZkXX"GX@ZkGGGX@Zk@<@GGG<CGGGGGGX@ZkGGX@ZkGGGX@Zk@"<BGGGGG@?"X@ZkGGX@ZkGG@?"33BGX@ZkGX@ZkGG]] }(08ݤ@HP#k@#~^^~޴cGGGGG%,%H=$B<"2#bD"3GBH"2Xb"=C!!HH@="H"1"P="?"_&R"@"GhBpb@Zk8b"C H4GH"H@P=4GX4G`hBp]TGx="TG_&R"@"GB b@ZkGw4GL"00"1!N0BR2Bb@"3@b"8""@"TG_&R"@""GBb@ZkGC""? X""H@="@]"tGxBb@ZkG5"8"4G"P"BP"R FB_dP"CW".TJJtBdpNL""P"9CW"Y/YYK'KOBL" C"L"#0 B#P"0BP"bP"s fB0b""TG_&R"GGxBb@Zk"<"@""<"Q2v^JpSJPF<"Qb<"SDcG]]}ݤ#ke.S eJaF<#~ ^(^0~8GG=]4G4GBb@ZkP"X*PX*4G0B8b@ZkP"X*PX*G?"B2G)}$.'.$s"JU JFP¦\*vP`*P\*P"`*1"PBd*R"Pbh*s"G b@P`*P"`*!P\*0P"`*PBd*RbSPh*GG ](]0}8@#kGGGGGGFF54GkU2FJFJ@Gk,4G@EXEMPT,8b#EXEMPT,<@@EXEMPT4$G,OTS$MOVE4(@,OTS$MOVE44G<OTS$FILL48@<OTS$FILL4 GLIB$GET_FOREIGN4 b#LIB$GET_FOREIGN4 @LIB$GET_FOREIGN4! G OTS$MOVEM4!@ OTS$MOVEM4G OTS$FILL4@ OTS$FILL4pGxOTS$MOVE4t@xOTS$MOVE4#G OTS$INDEX4#@ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4!G OTS$MOVEM4!@ OTS$MOVEM4G OTS$FILL4@ OTS$FILL4!HGP OTS$MOVEM4!L@P OTS$MOVEM4TG\OTS$FILL4X@\OTS$FILL<-GDFOR$READ_INT_FMT<.b#DFOR$READ_INT_FMT<-@DFOR$READ_INT_FMT<1$G0DFOR$READ_INT_FMT_XMIT<2(b#DFOR$READ_INT_FMT_XMIT<1,@0DFOR$READ_INT_FMT_XMIT <1LGXDFOR$READ_INT_FMT_XMIT<2Pb#DFOR$READ_INT_FMT_XMIT<1T@XDFOR$READ_INT_FMT_XMIT4dGp OTS$DIV_I4hb# OTS$DIV_I4l@p OTS$DIV_I4AGLIB$SYS_TRNLOG4Bb#LIB$SYS_TRNLOG4A@LIB$SYS_TRNLOG4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL48GD DFOR$OPEN4<b# DFOR$OPEN4@@D DFOR$OPEN4+hGt DFOR$CLOSE4,lb# DFOR$CLOSE4+p@t DFOR$CLOSE4#G OTS$INDEX4#@ OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL47G$ SYS$GETDVIW48b# SYS$GETDVIW47 @$ SYS$GETDVIW4!DGL OTS$MOVEM4!H@L OTS$MOVEM4PGXOTS$FILL4T@XOTS$FILL4|GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4#G OTS$INDEX4#@ OTS$INDEX4!G$ OTS$MOVEM4! @$ OTS$MOVEM4(G0OTS$FILL4,@0OTS$FILL4;GOTS$STRCMP_LEQS4;@OTS$STRCMP_LEQS<-P G\ DFOR$READ_INT_FMT<.T b#DFOR$READ_INT_FMT<-X @\ DFOR$READ_INT_FMT4! G OTS$MOVEM4! @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4# G OTS$INDEX4# @ OTS$INDEX4! G OTS$MOVEM4! @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4!0 G8 OTS$MOVEM4!4 @8 OTS$MOVEM4< GD OTS$FILL4@ @D OTS$FILL4! G OTS$MOVEM4! @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL<d Gp DFOR$WRITE_INT_FMT<h b#DFOR$WRITE_INT_FMT<l @p DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT_XMIT< b#DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT< G DFOR$WRITE_INT_FMT_XMIT< b#DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT 4# G OTS$INDEX4# @ OTS$INDEX4!4 G< OTS$MOVEM4!8 @< OTS$MOVEM4@ GH OTS$FILL4D @H OTS$FILL4#\ Gd OTS$INDEX4#` @d OTS$INDEX4! G OTS$MOVEM4! @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4! G OTS$MOVEM4! @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL< G DFOR$WRITE_INT_FMT< b#DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT_XMIT< b#DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT< G DFOR$WRITE_INT_FMT_XMIT< b#DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN4#G OTS$INDEX4# @ OTS$INDEX4XGd SYS$ASSIGN4\b# SYS$ASSIGN4`@d SYS$ASSIGN4'GUNEXEMPT4(b#UNEXEMPT4'@UNEXEMPT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT</GDFOR$READ_SEQ_FMT<0b#DFOR$READ_SEQ_FMT</@DFOR$READ_SEQ_FMT,E8GDFILACC,F<b#FILACC,E@@DFILACC45hGt DFOR$DELETE46lb# DFOR$DELETE45p@t DFOR$DELETE4'|GUNEXEMPT4(b#UNEXEMPT4'@UNEXEMPT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT4#G OTS$INDEX4#@ OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4! G OTS$MOVEM4!@ OTS$MOVEM4G OTS$FILL4@ OTS$FILL4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN4%GLIB$SET_SYMBOL4&b#LIB$SET_SYMBOL4%@LIB$SET_SYMBOL</0G<DFOR$READ_SEQ_FMT<04b#DFOR$READ_SEQ_FMT</8@<DFOR$READ_SEQ_FMT4tG|OTS$MOVE4x@|OTS$MOVE4GOTS$FILL 4@OTS$FILL4#G OTS$INDEX4#@ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4#G OTS$INDEX4#@ OTS$INDEX4!TG\ OTS$MOVEM4!X@\ OTS$MOVEM4`GhOTS$FILL4d@hOTS$FILL4G OTS$DIV_L4b# OTS$DIV_L4@ OTS$DIV_L<|GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT<GDFOR$WRITE_INT_FMT_XMIT<b#DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<)tGDFOR$WRITE_SEQ_FMT<*xb#DFOR$WRITE_SEQ_FMT<)|@DFOR$WRITE_SEQ_FMT4+G DFOR$CLOSE4,b# DFOR$CLOSE4+@ DFOR$CLOSE4'GUNEXEMPT4(b#UNEXEMPT4'@UNEXEMPT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT4#G OTS$INDEX4#@ OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4! G( OTS$MOVEM4!$@( OTS$MOVEM4!@GH OTS$MOVEM4!D@H OTS$MOVEM4LGTOTS$FILL4P@TOTS$FILL4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN4%(G4LIB$SET_SYMBOL4&,b#LIB$SET_SYMBOL4%0@4LIB$SET_SYMBOL</lGxDFOR$READ_SEQ_FMT<0pb#DFOR$READ_SEQ_FMT</t@xDFOR$READ_SEQ_FMT4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4#G OTS$INDEX4#@ OTS$INDEX4 G(OTS$MOVE4$@(OTS$MOVE40G8OTS$FILL44@8OTS$FILL4#LGT OTS$INDEX4#P@T OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL 40G< OTS$DIV_L44b# OTS$DIV_L48@< OTS$DIV_L<GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT< GDFOR$WRITE_INT_FMT_XMIT<b#DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<4G@DFOR$WRITE_INT_FMT_XMIT<8b#DFOR$WRITE_INT_FMT_XMIT<<@@DFOR$WRITE_INT_FMT_XMIT<\GhDFOR$WRITE_INT_FMT_XMIT<`b#DFOR$WRITE_INT_FMT_XMIT<d@hDFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<)GDFOR$WRITE_SEQ_FMT<*b#DFOR$WRITE_SEQ_FMT<) @DFOR$WRITE_SEQ_FMT4+0G< DFOR$CLOSE4,4b# DFOR$CLOSE4+8@< DFOR$CLOSE<|GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT4%GLIB$SET_SYMBOL4&b#LIB$SET_SYMBOL4%@LIB$SET_SYMBOL4'GUNEXEMPT4(b#UNEXEMPT4'@UNEXEMPT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT4#G  OTS$INDEX4#@  OTS$INDEX4#(G0 OTS$INDEX4#,@0 OTS$INDEX4#PGX OTS$INDEX4#T@X OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4GOTS$MOVE4 @OTS$MOVE4G OTS$FILL4@ OTS$FILL48G@OTS$MOVE4<@@OTS$MOVE4HGPOTS$FILL4L@POTS$FILL4dGlOTS$MOVE4h@lOTS$MOVE4tG|OTS$FILL4x@|OTS$FILL4#G OTS$INDEX4#@ OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4! G( OTS$MOVEM4!$@( OTS$MOVEM4,G4OTS$FILL40@4OTS$FILL4LGTOTS$MOVE4P@TOTS$MOVE4\GdOTS$FILL4`@dOTS$FILL4#|G OTS$INDEX4#@ OTS$INDEX4!G OTS$MOVEM 4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL</GDFOR$READ_SEQ_FMT<0b#DFOR$READ_SEQ_FMT</@DFOR$READ_SEQ_FMT4#G OTS$INDEX4#@ OTS$INDEX<) G DFOR$WRITE_SEQ_FMT<* b#DFOR$WRITE_SEQ_FMT<) @ DFOR$WRITE_SEQ_FMT</ G DFOR$READ_SEQ_FMT<0 b#DFOR$READ_SEQ_FMT</ @ DFOR$READ_SEQ_FMT4!!G! OTS$MOVEM4!!@! OTS$MOVEM4!G!OTS$FILL4!@!OTS$FILL4!"G" OTS$MOVEM4! "@" OTS$MOVEM4!"G$" OTS$MOVEM4! "@$" OTS$MOVEM44"G<"OTS$MOVE48"@<"OTS$MOVE4!"G" OTS$MOVEM4!"@" OTS$MOVEM4"G"OTS$FILL4"@"OTS$FILL4!X#G`# OTS$MOVEM4!\#@`# OTS$MOVEM4!p#Gx# OTS$MOVEM4!t#@x# OTS$MOVEM4#G#OTS$MOVE4#@#OTS$MOVE4!#G# OTS$MOVEM4!#@# OTS$MOVEM4#G#OTS$FILL4#@#OTS$FILL4G $G,$ DFOR$REWRITE4H$$b# DFOR$REWRITE4G($@,$ DFOR$REWRITE4'4$G@$UNEXEMPT4(8$b#UNEXEMPT4'<$@@$UNEXEMPT4H$GT$ DFOR$EXIT4L$b# DFOR$EXIT4P$@T$ DFOR$EXIT4#h$Gp$ OTS$INDEX4#l$@p$ OTS$INDEX4$G$ SYS$ASSIGN4$b# SYS$ASSIGN4$@$ SYS$ASSIGN4'%G%UNEXEMPT4(%b#UNEXEMPT4' %@%UNEXEMPT4%G$% DFOR$EXIT4%b# DFOR$EXIT4 %@$% DFOR$EXIT</\%Gh%DFOR$READ_SEQ_FMT<0`%b#DFOR$READ_SEQ_FMT</d%@h%DFOR$READ_SEQ_FMT,%G%REDACL,%b#REDACL,%@%REDACL4%G%OTS$MOVE4%@%OTS$MOVE4%G%OTS$FILL4%@%OTS$FILL4#%G& OTS$INDEX4#&@& OTS$INDEX4<&GD&OTS$MOVE4@&@D&OTS$MOVE4#X&G`& OTS$INDEX4#\&@`& OTS$INDEX4!&G& OTS$MOVEM4!&@& OTS$MOVEM4&G&OTS$FILL 4&@&OTS$FILL<('G4'DFOR$WRITE_INT_FMT<,'b#DFOR$WRITE_INT_FMT<0'@4'DFOR$WRITE_INT_FMT<`'Gl'DFOR$WRITE_INT_FMT_XMIT<d'b#DFOR$WRITE_INT_FMT_XMIT<h'@l'DFOR$WRITE_INT_FMT_XMIT<)'G'DFOR$WRITE_SEQ_FMT<*'b#DFOR$WRITE_SEQ_FMT<)'@'DFOR$WRITE_SEQ_FMT,C(G$(OPRMSG,D(b#OPRMSG,C (@$(OPRMSG4#T(G\( OTS$INDEX4#X(@\( OTS$INDEX4(G(OTS$MOVE4(@(OTS$MOVE4(G(OTS$FILL4(@(OTS$FILL4#(G( OTS$INDEX4#(@( OTS$INDEX4!)G) OTS$MOVEM4! )@) OTS$MOVEM4)G)OTS$FILL4)@)OTS$FILL4P)GX)OTS$MOVE4T)@X)OTS$MOVE4x)G)OTS$MOVE4|)@)OTS$MOVE4!)G) OTS$MOVEM4!)@) OTS$MOVEM4)G)OTS$FILL4)@)OTS$FILL4!)G) OTS$MOVEM4!)@) OTS$MOVEM4!)G) OTS$MOVEM4!)@) OTS$MOVEM4!)G) OTS$MOVEM4!)@) OTS$MOVEM4)G*OTS$FILL4*@*OTS$FILL, *G*REPLENT,*b#REPLENT, *@*REPLENT4'*G*UNEXEMPT4(*b#UNEXEMPT4'*@*UNEXEMPT4*G* DFOR$EXIT4*b# DFOR$EXIT4*@* DFOR$EXIT<9H+GT+DFOR$READ_KEY_FMT<:L+b#DFOR$READ_KEY_FMT<9P+@T+DFOR$READ_KEY_FMT4+G+LIB$WAIT4+b#LIB$WAIT4+@+LIB$WAIT4(,G0,OTS$MOVE4,,@0,OTS$MOVE48,G@,OTS$FILL4<,@@,OTS$FILL4h,Gp,OTS$MOVE4l,@p,OTS$MOVE4x,G,OTS$FILL4|,@,OTS$FILL<)(-G4-DFOR$WRITE_SEQ_FMT<*,-b#DFOR$WRITE_SEQ_FMT<)0-@4-DFOR$WRITE_SEQ_FMT<9-G-DFOR$READ_KEY_FMT<:-b#DFOR$READ_KEY_FMT<9-@-DFOR$READ_KEY_FMT4#.G. OTS$INDEX4# .@. OTS$INDEX45<.GH. DFOR$DELETE46@.b# DFOR$DELETE45D.@H. DFOR$DELETE4+d.Gp. DFOR$CLOSE 4,h.b# DFOR$CLOSE4+l.@p. DFOR$CLOSE4't.G.UNEXEMPT4(x.b#UNEXEMPT4'|.@.UNEXEMPT4.G. DFOR$EXIT4.b# DFOR$EXIT4.@. DFOR$EXIT4#.G. OTS$INDEX4#.@. OTS$INDEX4'.G.UNEXEMPT4(.b#UNEXEMPT4'.@.UNEXEMPT4.G. DFOR$EXIT4.b# DFOR$EXIT4.@. DFOR$EXIT<0/GG> OTS$INDEX4# >@> OTS$INDEX4#P>GX> OTS$INDEX4#T>@X> OTS$INDEX4!>G> OTS$MOVEM4!>@> OTS$MOVEM 4>G>OTS$FILL4>@>OTS$FILL4%4?G@?LIB$SET_SYMBOL4&8?b#LIB$SET_SYMBOL4% b#DFOR$REWRITE_FMT<=$@(DFOR$REWRITE_FMT<)xGDFOR$WRITE_SEQ_FMT<*|b#DFOR$WRITE_SEQ_FMT<)@DFOR$WRITE_SEQ_FMT4+G DFOR$CLOSE4,b# DFOR$CLOSE4+@ DFOR$CLOSE4'GUNEXEMPT4(b#UNEXEMPT4'@UNEXEMPT4ăGЃ DFOR$EXIT4ȃb# DFOR$EXIT4̃@Ѓ DFOR$EXIT4'ԃGUNEXEMPT 4(؃b#UNEXEMPT4'܃@UNEXEMPT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT4KGSYS$OPEN4Lb#PSYS$OPEN4K@SYS$OPEN,I܄GGETFID,Jb#PGETFID,I@GETFID4GOTS$MOVE4@OTS$MOVE4ȇGЇOTS$MOVE4̇@ЇOTS$MOVE4GOTS$MOVE4@OTS$MOVE4#G OTS$INDEX4#@ OTS$INDEX4#@GH OTS$INDEX4#D@H OTS$INDEX4#G OTS$INDEX4#@ OTS$INDEX4#ԈG܈ OTS$INDEX4#؈@܈ OTS$INDEX4!pGx OTS$MOVEM4!t@x OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4!Gȉ OTS$MOVEM4!ĉ@ȉ OTS$MOVEM4!ЉG؉ OTS$MOVEM4!ԉ@؉ OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4!G OTS$MOVEM4! @ OTS$MOVEM4!$G, OTS$MOVEM4!(@, OTS$MOVEM40G8OTS$FILL44@8OTS$FILL4!̊GԊ OTS$MOVEM4!Њ@Ԋ OTS$MOVEM4!܊G OTS$MOVEM4!@ OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4!(G0 OTS$MOVEM4!,@0 OTS$MOVEM4!8G@ OTS$MOVEM4!<@@ OTS$MOVEM4LGTOTS$MOVE4P@TOTS$MOVE4!tG| OTS$MOVEM4!x@| OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4ċG̋OTS$MOVE4ȋ@̋OTS$MOVE4ԋG܋OTS$MOVE4؋@܋OTS$MOVE4GOTS$MOVE4@OTS$MOVE4#G OTS$INDEX4# @ OTS$INDEX4#HGP OTS$INDEX4#L@P OTS$INDEX4#G OTS$INDEX4#@ OTS$INDEX4#،G OTS$INDEX4#܌@ OTS$INDEX4#LGT OTS$INDEX4#P@T OTS$INDEX 4!(G0 OTS$MOVEM4!,@0 OTS$MOVEM4!@GH OTS$MOVEM4!D@H OTS$MOVEM4!\Gd OTS$MOVEM4!`@d OTS$MOVEM4hGpOTS$FILL4l@pOTS$FILL4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4#ĎG̎ OTS$INDEX4#Ȏ@̎ OTS$INDEX4#G OTS$INDEX4#@ OTS$INDEX4#TG\ OTS$INDEX4#X@\ OTS$INDEX4#G OTS$INDEX4#@ OTS$INDEX4!G OTS$MOVEM4!@ OTS$MOVEM4!G$ OTS$MOVEM4! @$ OTS$MOVEM4!8G@ OTS$MOVEM4!<@@ OTS$MOVEM4DGLOTS$FILL4H@LOTS$FILL4!АGؐ OTS$MOVEM4!Ԑ@ؐ OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4!,G4 OTS$MOVEM4!0@4 OTS$MOVEM4!<GD OTS$MOVEM4!@@D OTS$MOVEM4PGXOTS$MOVE4T@XOTS$MOVE4!xG OTS$MOVEM4!|@ OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4!G OTS$MOVEM4!@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4MG DFOR$INQUIRE4Nb# DFOR$INQUIRE4M@ DFOR$INQUIRE4G$ DFOR$OPEN4b# DFOR$OPEN4 @$ DFOR$OPEN</GDFOR$READ_SEQ_FMT<0b# DFOR$READ_SEQ_FMT</@DFOR$READ_SEQ_FMT<OG̓DFOR$READ_SEQ_FMT_XMIT<Pēb# DFOR$READ_SEQ_FMT_XMIT<Oȓ@̓DFOR$READ_SEQ_FMT_XMIT4+ĔGД DFOR$CLOSE4,Ȕb# DFOR$CLOSE4+̔@Д DFOR$CLOSE4KGSYS$OPEN4Lb# SYS$OPEN4K@SYS$OPEN4QG SYS$CONNECT4Rb# SYS$CONNECT4Q@ SYS$CONNECT = JTA_SUMMLEN=S+=  =%REGEN(= %GBLEDITCON8=X+@=H=&%P=%LISTX=R+`=_LISTpREDACL=R/W= JTA_BKPU= JTA_FUSR= JTA_FTTY= JTA_ZCMD= JTA_FNAM==8 =A= JTA_CSLKLIB$WAIT=C<  OTS$DIV_I=8=Q@=Z-H=Z+P= Dev:file or (n,s,v)>pEXEMPT LIB$GET_FOREIGN=H<=\=I<==#S LIB$SPAWN=K<=P<=T<=V<=L=K=Z<=X<== JTA_BPRI(=00;=B(@=Y+<P REPLENT= JTA_ZFIDp OTS$DIV_L= %GBLEDIT= JTA_CKSM= JTA_PSWD=L(=K( SYS$ASSIGNP;=8 = I+(DFOR$WRITE_SEQ_FMT_XMIT=X(=A(= YYYYYYYY0 DFOR$OPEN=S(D=P= X= `=8h=8 p=  DFOR$EXIT DFOR$WRITE_INT_FMT(DFOR$WRITE_INT_FMT_XMIT;8OTS$MOVE8OTS$FILL8 OTS$MOVEM=0;=< 7 DFOR$HANDLER=(;8 OTS$INDEX; %LIB$SET_SYMBOL=)8;=8P'UNEXEMPT )DFOR$WRITE_SEQ_FMT=@x= >;+ DFOR$CLOSE -DFOR$READ_INT_FMT /DFOR$READ_SEQ_FMT=88=8 =:=R(=Z(=D(=$ 1DFOR$READ_INT_FMT_XMIT= 8  9  03JTSCR5 DFOR$DELETE7 SYS$GETDVIW= JTA_ITIMp= JTA_MXPV=U(=V(=  x =(8     =%SYMS 9DFOR$READ_KEY_FMT= JTA_IDNT=J(= JTA_INSP= PJTA_RPRV= JTA_SURW(=I(0=U8=N@=VH=9P8OTS$STRCMP_LEQS=%PURGE`=M+h=@48       2 3   ===$<#>; =DFOR$REWRITE_FMT? SYS$DASSGN=W+ ;=OALIB$SYS_TRNLOG=#<= SYS$DISK(= U(*)K(*)I(*)8= %DELETEJTA_NSLKPCOPRMSG=8 p= JTA_IMGS= JTA_XCMD= JTA_TTYS= JTA_FIMG=R/O= JTA_USRS= JTA_LISTFILE=Y-<=R-=&&EFILACC=H+= =%SHOW G DFOR$REWRITE=%SUMM8=_SUMM@= JTA_SUMMFILEP=0 8;=@ IGETFIDKSYS$OPEN= 0;== 0;== 0;==0\;= P , =+< =*< =-< =0;= 7 DFOR$HANDLER=;=8,8     9 8  M DFOR$INQUIRE ODFOR$READ_SEQ_FMT_XMIT=   ;=0 H;=@  ; Q SYS$CONNECT= 0;= D=4,+JTMODACEDEC Fortran V6.2-508 = 44=JTMODACE4=ؼ  ؼ,  ȼ̼ ؼؼ    ܬ "ܠ 8ܼ K Nܠ c x4 O+ ȼ{     h ܬA      ) ) ) )  A B B B +: < < <  >< <  ^< < < <  o v x z |     X  3 FԌp      P  p  4 I8 FP  P  p mp ( a@ b,  $= 04 := 4= 8 = 84P4= FGETFID84=" lh $= d4 := 4=  = 44= ILEN4=#   $=  4 := 4=  = 44= GETPV4='   $= 4 := |4=  = 44= IVLEN4=3+*     $= 4 := @4=  = \44= LPRC\4=d\[ 0DD, $= 4 := 4=  = 4 4= FILCK4=_WV ]  s s y | 0 ] $= ,4 := 4= ` = H4 4= IUFCKH4=.&%  $= t4 := 4= X = 4 4= GTXAB4=# P% )< $= 4 := 4= \ =  )