HRECORDPASSWORDS 29-MAR-1999 20:31!Digital Fortran 77 V7.1-107 $DATA$$BSS$0$IODATA$i` $CODE$$LINK$0JRECORDPASSWORDS SYS$GETJPIWLIB$GET_FOREIGN(J IVLEN(Jx GETPVLIB$SET_LOGICAL DFOR$EXIT DFOR$WRITE_INT_FMT DFOR$HANDLER DFOR$WRITE_INT_FMT_XMIT DFOR$READ_INT_FMTLIB$SYS_TRNLOG DFOR$SET_REENTRANCY OTS$INDEX OTS$MOVEMOTS$FILL OTS$DIV_IOTS$MOVE P=806M76EZ$\\76\7 =h ` #~X^`^hcG#G"4GBb@ZkG0"vJ`HF 0"QAJ`SH@FQ0 0b00 բvJ ղ0 K 0"0B0b;v H;0D0"H0BL0P4G0t4GGG0b0"GGBb@Zk0""?&P1"8=0bXs"C<}& "@CD8"@="0BR"0bs"GBb@Zk0"G4G0X"B"B@Zk0@00"9 4GG4G0X"B"B@Zk0@00"9 4G0"!0 B 4G0"10B15B35 B0"0BXR"GTBG@B@ZkGB@ZkG4G0"B"B@Zk0@00"9= C 4GB"0"!!5 @0"@8=0"H"?&1"8}"8GPBXb@Zk00"0G35B0"0BR"GTBG@B@ZkGB@ZkG4G0"B"B@Zk0@00"9= C 4G{B"0"!!5 @0"@8=0"H"?&1"8}"8GPBXb@Zk0G3 @0"0BR"GTBG@B@ZkGB@Zk""&P"8ݲ0#C<8"TGHbR@0"B"00"1"@=80"H"?&1"8}"8GPBXb@Zk0?&Bb@Zk005vJ0¦0F00"90"!"0L!C0"10BR0bSv@Kr@JRGS0b{0J{S`KF00¦JuJF0JB"0"9#0"! @=G8}H="?&1"8}"8 "GpBxb@Zk""0 8"8]"tGBb@ZkG4G0X"B"B@Zk0@00"9G39@0X"0BXR"GTBG@B@ZkGB@Zk""&P"8ݲ0X C<8"TGHb@0"G4G0X"B"B@Zk0@00"90"!0 B  0X"0BYR"G`B@Zk4GGB@Zk""&P"8ݲ0X C<8"TGHb@0"00"X1"0vJ_&F8C<=8"0"1"0BR"0bs"G`b@0pL0"00"1F0B0bs0tF0uB"0¦"@ݶG80BZ#H]0 P"?&1"8}"8$"GpBxb@Zk4G0"0B0"0BR25@B0brB.J00¦֢0F0ز0"995 C0BZ_G_G8]0"GB8]"4G`B@Zk00@0"0B0¦"'#8C<ݲ0"1"_&R"@]CD=8"@="GGGGpBxb@Zk0""4GBb@Zk4GcGX]`]hp#kGGGGr.rJ+@`JR4G@ݦ6@ B@ @0@@=@ݦ֢65BVB.JB @0@@=@ݦ֢ B@GGGGk.W JFGGGGGGԢ4G(w( B'(=115 BBq.qJ(wpN(=1B``N(wB`A0@BA  `0`B`(]R0@B(W(=1 6B?Gk<4G@DFOR$SET_REENTRANCY<8b#DFOR$SET_REENTRANCY<<@@DFOR$SET_REENTRANCY4 G, SYS$GETJPIW4$b# SYS$GETJPIW4(@, SYS$GETJPIW4GLIB$GET_FOREIGN4b#LIB$GET_FOREIGN4@LIB$GET_FOREIGN4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 dGl OTS$MOVEM4 h@l OTS$MOVEM4pGxOTS$FILL4t@xOTS$FILL4 G OTS$INDEX4 @ OTS$INDEX< GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT x < @DFOR$READ_INT_FMT4 DGL OTS$MOVEM4 H@L OTS$MOVEM4PGXOTS$FILL4T@XOTS$FILL4 lGt OTS$INDEX4 p@t OTS$INDEX< GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT< @DFOR$READ_INT_FMT4 G OTS$MOVEM4 @ OTS$MOVEM4 G(OTS$FILL4$@(OTS$FILL< GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT< @DFOR$READ_INT_FMT4G OTS$DIV_I4b# OTS$DIV_I4@ OTS$DIV_I<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_XMIT4 G OTS$INDEX4 @ OTS$INDEX4 PGX OTS$MOVEM4 T@X OTS$MOVEM4\GdOTS$FILL4`@dOTS$FILL4 G OTS$INDEX4 @ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4 GOTS$FILL4@OTS$FILL<8GDDFOR$WRITE_INT_FMT<<b#DFOR$WRITE_INT_FMT<@@DDFOR$WRITE_INT_FMT4GOTS$MOVE4@OTS$MOVE4X Gd LIB$SET_LOGICAL4\ b#LIB$SET_LOGICAL4` @d LIB$SET_LOGICAL4t G DFOR$EXIT4x b# DFOR$EXIT4| @ DFOR$EXIT 4; LIB$SET_LOGICAL=8 (=0=@ SYS$GETJPIW=(` LIB$GET_FOREIGN=,x= =8 =P8OTS$FILL8 OTS$INDEX=0X;=p  7 DFOR$HANDLER=;;8 OTS$MOVEM; DFOR$READ_INT_FMT8OTS$MOVE DFOR$WRITE_INT_FMT= FID,passwd>@ DFOR$EXIT DFOR$SET_REENTRANCY(DFOR$WRITE_INT_FMT_XMIT OTS$DIV_I=)=8  = 0 ;== 0x ;=