HRECORDPASSWORDS 12-SEP-1996 21:16DEC Fortran V6.2-508 h$DATA$ $BSS$0$IODATA$i\ $CODE$$LINK$0JxRECORDPASSWORDS SYS$GETJPIWLIB$GET_FOREIGN(J` IVLEN(Jxt GETPVLIB$SET_LOGICAL DFOR$EXIT DFOR$WRITE_INT_FMT DFOR$HANDLER DFOR$WRITE_INT_FMT_XMIT DFOR$READ_INT_FMTLIB$SYS_TRNLOG OTS$INDEX OTS$MOVEMOTS$FILL OTS$DIV_IOTS$MOVE P=806M76EZ$\\76\7 =d \ #~P^X^`cG#GG0"0J`HF 0"Q2v^J`SH@FQ0 0"00" Q2_J Q0 !v>H 00"0B H0"D0H0"L0P4G0"xA4GGG0b0"GGBb@Zk0"&P"80BXR"<]& "@"Dݲ8"@="0BR"0bs"GBb@Zk0"G4G0X"B"B@Zk0@00"9 4GG4G0X"B"B@Zk0@00"9 4G0"!0 0@ 4G0"10B15B61 B0"0BXR"GTBGG@B@ZkGB@ZkG4G0"B"B@Zk0@00"99# 4GB"0"!!1 @0"!!H@8=0"H"?&1"8}"8GXB`b@Zk00"0G65B0"0BR"GTBGG@B@ZkGB@ZkG4G0"B"B@Zk0@00"99# 4GB"0"!!1 @0"!!H@8=0"H"?&1"8}"8GXB`b@Zk0G! @0"0BR"GTBGG@B@ZkGB@Zk""&P"8ݲ0#<8"TGHbV@0"B"00"1"0J@=80"H"?&1"8}"8GXB`b@Zk0?&Bb@Zk005vJ0¦0F00"90"!"0L!C0"10BR0bpS:_Kr@JRGpS0b{0p4vJ{S`KFp00¦p7JuJFp0t0vJtB"0"9#G0"p1"@=8=H="?&1"8}"8 "GBb@Zk""0t 8"8]"tGhBpb@ZkG4G0X"B"B@Zk0@00"9G!9@0X"0BXR"GTBGG@B@ZkGB@Zk""&P"8ݲ0X <8"TGHb@0"G4G0X"B"B@Zk0@00"9?C0"!0 0@!G 0X"0BYR"GxB@Zk4GGB@Zk""&P"8ݲ0X <8"TGHb@0"0?&0vJB80bXs"<}8"0"1"0BR"0bs"Gb@0pL0"00"1F0B0bs0tF0uB"0¦"G@ݶ80BZ#H]"?&1"8}"8$"GBb@Zk""0 8"8]"tGhBpb@Zk4G0"0B0"0BR21@B0brB.J00¦֢0F0ز0"991 C0BZ_G8]0"GB8]"4GxB@Zk00@0"0"&"8ݲ0"9#<=?&1"@=0bs"D}8"@="GGGGBb@Zk0""4GBb@Zk4GcGP]X]`p#kGGGGr.rJ*@R4GHݦHHH B!HH  B0@HݦLHL01BPB,H@ HݦH֢0BHHвH=H1 4B?GGGkHLGGk.V JFGGGGGGԢ4G0=P0]PR VB'@0}Ps31`BB3.3J0]T2pN0}TsB@@N0}TsSB@! a0`Ba@@ 0 B 0}Ps0`B0]Pr0P BGk4G SYS$GETJPIW4 b#x SYS$GETJPIW4@ SYS$GETJPIW4dGpLIB$GET_FOREIGN4hb#xLIB$GET_FOREIGN4l@pLIB$GET_FOREIGN4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4 HGP OTS$MOVEM4 L@P OTS$MOVEM4TG\OTS$FILL4X@\OTS$FILL4pGx OTS$INDEX4t@x OTS$INDEX< GDFOR$READ_INT_FMT< b#xDFOR$READ_INT_FMT< @DFOR$READ_INT_FMT4 0G8 OTS$MOVEM4 4@8 OTS$MOVEM 4<GDOTS$FILL4@@DOTS$FILL4XG` OTS$INDEX4\@` OTS$INDEX< GDFOR$READ_INT_FMT< b#xDFOR$READ_INT_FMT< @DFOR$READ_INT_FMT4 G OTS$MOVEM4  @ OTS$MOVEM4GOTS$FILL4@OTS$FILL< GDFOR$READ_INT_FMT< b#xDFOR$READ_INT_FMT< @DFOR$READ_INT_FMT4G OTS$DIV_I4b#x OTS$DIV_I4@ OTS$DIV_I<GDFOR$WRITE_INT_FMT<b#xDFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT< GDFOR$WRITE_INT_FMT_XMIT<b#xDFOR$WRITE_INT_FMT_XMIT< @DFOR$WRITE_INT_FMT_XMIT4G  OTS$INDEX4@  OTS$INDEX4 HGP OTS$MOVEM4 L@P OTS$MOVEM4TG\OTS$FILL4X@\OTS$FILL4G OTS$INDEX4@ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4G OTS$FILL4@ OTS$FILL<G(DFOR$WRITE_INT_FMT< b#xDFOR$WRITE_INT_FMT<$@(DFOR$WRITE_INT_FMT< DGPDFOR$WRITE_INT_FMT_XMIT<Hb#xDFOR$WRITE_INT_FMT_XMIT< L@PDFOR$WRITE_INT_FMT_XMIT4GOTS$MOVE4@OTS$MOVE4X Gd LIB$SET_LOGICAL4\ b#xLIB$SET_LOGICAL4` @d LIB$SET_LOGICAL4t G DFOR$EXIT4x b#x DFOR$EXIT4| @ DFOR$EXIT  LIB$SET_LOGICAL=x; SYS$GETJPIW=(8=8 H=,P= X=8 `=Ph8OTS$FILL8 OTS$INDEX=0P;=p 7 DFOR$HANDLER= ;;8 OTS$MOVEM`; DFOR$READ_INT_FMT( DFOR$WRITE_INT_FMT_XMIT8OTS$MOVE DFOR$WRITE_INT_FMT LIB$GET_FOREIGN DFOR$EXIT= FID,passwd>@ OTS$DIV_I=)X= `= 0 ;== 0t ;= K=;32RECORDPASSWORDSDEC Fortran V6.2-508 = 4x4=RECORDPASSWORDS4=  @ <  /ؼ J< M ܤ $= (4 :=  4=  =  4`4= IVLEN 4=3+* ] a g ] $=  4 := X 4=  = t 4x4= GETPVt 4=' l s $=  4 := P 4=  =   x