F JTSAVSPC$MAIN 12-SEP-1996 21:26DEC Fortran V6.2-508 `$DATA$$BSS$$IODATA$i0$CODE$$LINK$0J JTSAVSPC$MAINLIB$GET_FOREIGN DFOR$EXIT(J\IVLEN DFOR$OPEN DFOR$HANDLER DFOR$DELETE DFOR$CLOSELIB$SET_SYMBOL DFOR$REWRITE_FMT DFOR$WRITE_SEQ_FMT DFOR$READ_KEY_FMT DFOR$READ_INT_FMT OTS$MOVEMOTS$FILLOTS$MOVE OTS$INDEX 8= 6\76H7 =80P#~^^~cGG$ X0\$ `"dX"`="0BR"GGhBpb@Zk0"000BG?"B@ZkG8B@Zk0¦.JB0G8G0"9?G8*G 0D8D 0"!?D(D X"4GHBPb@ZkB"0 GG`X=0"ph"?&1"X}"@GxBb@ZkGj0"0FF4G0B200BR"?"B@ZkTGG8B@Zk?"4G0B"`B@Zk0@00"991 CG!C<CGG"G0BGB@ZkB"GB@ZkGG]"B@Zk"B"GB@ZkGG4GB@Zk0"GG33B]"B@ZkG8B@Zk0#8C00BGTBG?"B@ZkG8B@Zk0"0B?"B@Zk""?'9#X=0⦀"\X"TGb@0"4G@GH]GP4G8ݶXb"00"9#8K4G=tG=G=]TG4"4G} #tG8]"]G]TGݶ"TG_&R""GBb@ZkGb"0" ! `"G`=X0"hp=x?'89#=@b {##~"TG_&R"X"h"GHBPb@ZkGG0"aG00" 0BR_B0bsuhBSF@4G0 0¦֢0 ײ00"$0BZ8@G @"TG_&R"GGBb@Zk08D0" !D8"4GHBPb@Zk0V""?$! X=0BR"\]X"TGb{@0"00("0BR"G,?"B@ZkG8B@Zk0¦֢B0ײ0 b"0" 9#0 H`=X"TG_&R"X"@ "GBb@Zk0 8Db"0" ! 00J`=X"TG_&R"X"@ "GBb@Zkb""TG_&R"GGBb@Zk""$, X0("\X"TGb%@0"0?& 1"X=b"\}&0vJB`0("dX"`="TGBb@ZkGX"4GHBPb@Zk4GcG]]}#kGGGGr.rJ*@R4G8ݦ8 B!8  B0@8ݦ801BPB,H@ 8ݦ֢0B8в8=1 4B?GGGk8GGk.V JF4hGtLIB$GET_FOREIGN4lb#LIB$GET_FOREIGN4p@tLIB$GET_FOREIGN4 G OTS$MOVEM4 @ OTS$MOVEM4 GOTS$FILL4 @OTS$FILL4 G  DFOR$EXIT4b# DFOR$EXIT4 @  DFOR$EXIT<dGpDFOR$READ_INT_FMT<hb#DFOR$READ_INT_FMT<l@pDFOR$READ_INT_FMT4GOTS$MOVE4@OTS$MOVE4 GOTS$FILL4 @OTS$FILL4G OTS$INDEX4@ OTS$INDEX4 G$ OTS$MOVEM4  @$ OTS$MOVEM4 ,G4 OTS$MOVEM4 0@4 OTS$MOVEM4@GHOTS$MOVE4D@HOTS$MOVE4TG\OTS$MOVE4X@\OTS$MOVE4 hGp OTS$MOVEM4 l@p OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 GOTS$FILL4 @OTS$FILL4 G OTS$MOVEM4 @ OTS$MOVEM4 GOTS$FILL4 @OTS$FILL 4GOTS$MOVE4@OTS$MOVE4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN<PG\DFOR$READ_KEY_FMT<Tb#DFOR$READ_KEY_FMT<X@\DFOR$READ_KEY_FMT4G DFOR$DELETE4b# DFOR$DELETE4@ DFOR$DELETE4 ,G8 DFOR$EXIT40b# DFOR$EXIT4 4@8 DFOR$EXIT4 G OTS$MOVEM4 @ OTS$MOVEM4 GOTS$FILL4 @OTS$FILL< GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<hGtDFOR$REWRITE_FMT<lb#DFOR$REWRITE_FMT<p@tDFOR$REWRITE_FMT4G DFOR$CLOSE4b# DFOR$CLOSE4@ DFOR$CLOSE4G LIB$SET_SYMBOL4b#LIB$SET_SYMBOL4@ LIB$SET_SYMBOL4 ,G8 DFOR$EXIT40b# DFOR$EXIT4 4@8 DFOR$EXIT = DFOR$READ_KEY_FMT=@88       2 3   ,`LIB$SET_SYMBOL DFOR$WRITE_SEQ_FMT==8 =fcn>= =DBS.GDS;=88OTS$MOVE8 OTS$MOVEM=0;= 7 DFOR$HANDLER=;8OTS$FILL; DFOR$EXIT=8 OTS$INDEX LIB$GET_FOREIGN DFOR$READ_INT_FMT=GCY$CM:` DFOR$REWRITE_FMT DFOR$CLOSE= GCY$STORE DFOR$OPEN= DFOR$DELETE= 0\;= I=910 JTSAVSPC$MAINDEC Fortran V6.2-508 = 44= JTSAVSPC$MAIN4= ج-999 >>>>@@ D@  ̰$ $= (4 := 84= \ = \44= IVLEN\4=/'&W [aW $= l4 := 4=  =