AJTMODACE 29-MAR-1999 20:31!Digital Fortran 77 V7.1-107 $DATA$$BSS$$IODATA$iTGTG0"hB"B@Zk =0@0`0"`9J 0"`!4 @TG10B4G0C"B"B@Zk0@00"90"`!!C0 @000"10B`R12B0 B0b300`55B4B0¦"B4vJ&FX\X"0"1"0BR"0bs"Gb@00"vJ`HF0"10BraJqS JqFr4G04TGTG0"HB"B@Zk0@0`0"`9 0"! 0`4BTG10B4G0C"B"B@Zk0@00"90"`!!C0 @000"10B`R12B0 B0b3`B"00`55B4B0¦"B`X0b{#p}Gh"?&1"X}"Hp"GPBXb@ZkGO0"0"1"0BR"0bs"GpBxb@Zk00@0"0B0"0BR2FJFJ0bS04JJ00¦֦6JJ0ײ08KK0"0BZ0b{ 5`C!@CX"B"4G@B@Zk0BR"G@B@Zk0"GBGX]"4GB@ZkG8B@Zk0¦֢B0⦴ײTGTG0"@B"B@Zk0@0`0"`90"!0`0"1 0B`R4@BTG1pB4G0C"B"B@Zk0@00"90"`!!C0 @000"10B20bs0`3tB0`B0u`B"0¦֢0`75B6B0BZ#WC`Xݶ0#pGh="?&1"X}"Hp"GPBXb@ZkGq0"0"1"0BR"0bs"GpBxb@Zk00@0"0B0"0BR2FJFJ0bS04JJ00¦֦6JJ0ײ08KK0"0BZ0b{ 5`C!@CX"`B"4G@B@Zk0BR"G@B@Zk0"GBGX]"4GB@ZkG8B@Zk0¦֢B0⦴ײ0=C0"99CG00"! 5@!5 @0TG3BTG1!B0"GB0BR"GTBB@ZkG8B@Zk;TG4G0"XB"B@Zk0@0"`0`t0"!q B"0`0"1"0B`TGX0¦"hݶ"?&1"X}"H|"GPBXb@ZkGY0"!0BS R0"1G1QB0b300զvJtJFն0K0"0"1"0BR"0bs"GpBxb@Zk0 HH0"00JJ0"0BR0@B0bS065B0FFX`"PB"4G@B@ZkX]"4G@B@Zk0BR"G@B@Zk0"GB`]"G@B@Zk0⦴B00"9!C0 0"!T 0¦֢006 JF6F0G0BrV`Jp1JpFrG0JpQJF0BzaKz0 G4G 0  V K  0" ! J !0¦ VAJ VEV_&GCR"0bS01B0t0"0BR"B@ZkG8B@Zk0⦴0C,@H<0"90"9@ ! .VJ>00B "0.Q0J0>0BR0bs"2v@J&TFX]C\}X"0"L1"GGGGGBb@Zk0"0"L1"0BR"tG0B8b@Zk0L4GPBXb@Zk0"0"BR0b S0@?"TG0l"B"B@Zk0@0`0"`90 0"`!05 @@?"10B4G0Cl"B"B@Zk0@00"`90"!!C0 @000"`10B`R55 B25@B0bӢ@"3B@"1B0l"GB0BlR"GTBB@ZkG8B@Zk0l ""'@#XC\X"TGb@0"0Т0"0Br4GyB#!C!D C # CG"G0B_BR"B@ZkB"GB@ZkTG`B#0CF C # CGXݷXGB"B@ZkA"GB@Zk@#1C0l"GBX]GB@ZkG8B@Zk0"!5 @ Gb"0 `#X"TG_&R"X"GBb@ZkG0b"0"! `=?"X="TG_&R"X"GBb@Zkb""TG_&R"GGpBxb@Zk"4G@BHb@Zk4GcG]]}#k"#~ ^(^0~8GGG=]? 0b34Gx0 G4G8B@b@Zkx"0 x0 C.c.CJS cJSF040բJղG0"TG(B0b@Zkx0 G ](]0}8@#kGGG!4G0h `0h 4G0PB0l 0}l s35`B3@,H@ 0h 0B0]h 0}h sjB0l GGkGGGGGGԢ4Gp w =p  B'=p 115 BBq.qJt wpN=t 1B``Nt wB`A0@BA  `0`B`]p R0@Bp W=p 1 6B?GkGGGGr.rJ+@`JR4Gݦx 6x Bx  @0@=| ݦ| ֢65BVB.JB x 0@=x ݦx ֢ B| GGGGk.W JF<%0G<DFOR$SET_REENTRANCY<&4b#DFOR$SET_REENTRANCY<%8@<DFOR$SET_REENTRANCY4GOTS$FILL4@OTS$FILL4GLIB$GET_FOREIGN4b#LIB$GET_FOREIGN4@LIB$GET_FOREIGN4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4\GdOTS$MOVE4`@dOTS$MOVE4xG OTS$INDEX4|@ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4,G4 OTS$MOVEM40@4 OTS$MOVEM48G@OTS$FILL4<@@OTS$FILL<GDFOR$READ_INT_FMT< b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT4#G  OTS$DIV_I4$b# OTS$DIV_I4#@  OTS$DIV_I4 @GLLIB$SYS_TRNLOG4 Db#LIB$SYS_TRNLOG4 H@LLIB$SYS_TRNLOG4|G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN4G( DFOR$CLOSE4 b# DFOR$CLOSE4$@( DFOR$CLOSE4<GD OTS$INDEX4@@D OTS$INDEX4lGt OTS$MOVEM4p@t OTS$MOVEM4xGOTS$FILL4|@OTS$FILL4+G SYS$GETDVIW4,b# SYS$GETDVIW4+@ SYS$GETDVIW4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL44G<OTS$MOVE48@<OTS$MOVE4DGLOTS$FILL4H@LOTS$FILL4`Gh OTS$INDEX4d@h OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL 4@OTS$FILL4/8G@OTS$STRCMP_LEQS4/<@@OTS$STRCMP_LEQS<GDFOR$READ_INT_FMT< b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL44 G< OTS$INDEX48 @< OTS$INDEX4h Gp OTS$MOVEM4l @p OTS$MOVEM4t G| OTS$FILL4x @| OTS$FILL4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G OTS$MOVEM4 @ OTS$MOVEM4 G$ OTS$FILL4 @$ OTS$FILL<l Gx DFOR$WRITE_INT_FMT<p b#DFOR$WRITE_INT_FMT<t @x 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_XMIT4 G OTS$INDEX4 @ OTS$INDEX44 G< OTS$MOVEM48 @< 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<X Gd DFOR$WRITE_INT_FMT<\ b#DFOR$WRITE_INT_FMT<` @d 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_XMIT4 G DFOR$OPEN4 b# DFOR$OPEN4 @ DFOR$OPEN4G( DFOR$READ_KEY4 b# DFOR$READ_KEY4$@( DFOR$READ_KEY4xGLIB$WAIT4|b#LIB$WAIT4@LIB$WAIT4G OTS$INDEX4@ OTS$INDEX44G<OTS$MOVE48@<OTS$MOVE4DGLOTS$FILL4H@LOTS$FILL4lGt OTS$INDEX4p@t OTS$INDEX 4G OTS$INDEX4@ OTS$INDEX4G  OTS$INDEX4@  OTS$INDEX4,G4 OTS$INDEX40@4 OTS$INDEX4G OTS$INDEX4@ OTS$INDEX<4G@DFOR$READ_INT_FMT< 8b#DFOR$READ_INT_FMT<<@@DFOR$READ_INT_FMT,!lGxJTSCR,"pb#JTSCR,!t@xJTSCR4$G,OTS$MOVE4(@,OTS$MOVE48G@OTS$MOVE4<@@OTS$MOVE4\Gd OTS$MOVEM4`@d OTS$MOVEM4hGpOTS$FILL4l@pOTS$FILL4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX<GDFOR$READ_INT_FMT< b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT,!GJTSCR,"b#JTSCR,!@JTSCR4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G OTS$INDEX4@ OTS$INDEX<$G0DFOR$READ_INT_FMT< (b#DFOR$READ_INT_FMT<,@0DFOR$READ_INT_FMT,!GJTSCR,"b#JTSCR,!@JTSCR4<GDOTS$MOVE4@@DOTS$MOVE4LGTOTS$MOVE4P@TOTS$MOVE4`GhOTS$MOVE4d@hOTS$MOVE4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4-TG` SYS$ASSIGN4.Xb# SYS$ASSIGN4-\@` SYS$ASSIGN, GREPLENT, b#REPLENT, @REPLENT4 G SYS$DASSGN4b# SYS$DASSGN4 @ SYS$DASSGN4G OTS$INDEX4@ OTS$INDEX44G< OTS$INDEX48@< OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM l4GOTS$FILL4@OTS$FILL4dGl OTS$MOVEM4h@l OTS$MOVEM4tG| OTS$MOVEM4x@| OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4G OTS$FILL4@ OTS$FILL4PG\ DFOR$REWRITE4Tb# DFOR$REWRITE4X@\ DFOR$REWRITE4'GDFOR$WRITE_SEQ4(b#DFOR$WRITE_SEQ4'@DFOR$WRITE_SEQ4G DFOR$CLOSE4b# DFOR$CLOSE4@ DFOR$CLOSE4)G DFOR$EXIT4*b# DFOR$EXIT4)@ DFOR$EXIT43`GlSYS$OPEN44db#xSYS$OPEN43h@lSYS$OPEN,1GGETFID,2b#xGETFID,1@GETFID =I<=P<==S =(=@48       2 3   `LIB$WAIT DFOR$READ_KEY;=8 =@; DFOR$REWRITE= LIB$GET_FOREIGN LIB$SYS_TRNLOGx; REPLENT= 8    SYS$DASSGN=80 DFOR$CLOSE=8 P DFOR$OPEN=8p DFOR$WRITE_INT_FMT=$=8(DFOR$WRITE_INT_FMT_XMIT;;8 OTS$INDEX8 OTS$MOVEM=0;=$ 7 DFOR$HANDLER=;8OTS$FILL8OTS$MOVE; DFOR$READ_INT_FMT=0!JTSCR=>H= P=X=I`=:h=)p=A(# OTS$DIV_I=8)8  9  SYS$DISK %DFOR$SET_REENTRANCY'DFOR$WRITE_SEQ= Dev:file or (n,s,v)>) DFOR$EXIT=\= =M(=K<,=A8=88@+ SYS$GETDVIW- SYS$ASSIGN8OTS$STRCMP_LEQS=9p=x=0 ;=@ 1GETFID3SYS$OPEN= 0;== 0|;== 0d ;=