GDO_MODIFY$MAIN 18-MAR-1994 16:39DEC Fortran T6.2-444 @PRIBUF $LINK$iT$CODE$$IODATA$ $BSS$$DATA$0JPDO_MODIFY$MAINLIB$GET_FOREIGN CLI$DCL_PARSEMODIFY LIB$GET_INPUT CLI$DISPATCH DFOR$EXIT0J DO_MODIFY CLI$GET_VALUE(J@NGTERM CLI$PRESENT CLI$_NEGATED STR$UPCASE(J`PSTERM LIB$GET_LUN CLI$_COMMA CLI$_ABSENT LIB$SIGNAL LIB$FIND_FILERMS$_NMFSTR$TRIM(JGFONEW DFOR$OPEN DFOR$HANDLER DFOR$INQUIRESTR_TRIM(JQDETABREVIMGATTOFF GETSTRING DFOR$CLOSELIB$RENAME_FILE DFOR$WRITE_SEQ_LIS DFOR$WRITE_SEQ_LIS_XMIT DFOR$WRITE_SEQ_FMT DFOR$READ_SEQ_FMT DFOR$READ_SEQ_FMT_XMIT DFOR$WRITE_INT_FMT DFOR$READ_INT_FMT DFOR$READ_INT_FMT_XMIT SYS$ASSIGNLIB$STOP SYS$GETCHN TT$M_MECHFORMSYS$QIOW IO$_SETMODE TT$M_WRAP TT$M_TTSYNC TT$M_MECHTAB DFOR$STOP OTS$MOVEMOTS$FILL OTS$INDEX OTS$DIV_IOTS$MOVEOTS$STRCMP_EQLPOTS$STRCMP_LSSSOTS$STRCMP_LEQS 7MODIFY DFOR$EXIT CLI$DISPATCH LIB$GET_FOREIGN8OTS$FILL8 OTS$MOVEM=0;=@ ;7 LIB$GET_INPUT= File(s): = MODIFY MODIFY> CLI$DCL_PARSE=0 Q;=p ;8 OTS$INDEX= tab length too longSTR_TRIM OTS$DIV_I DFOR$STOP=0 N;=`| =0 P;=`| ;LIB$STOP7 TT$M_MECHFORM SYS$ASSIGN SYS$GETCHNSYS$QIOW7 IO$_SETMODE=0 G;=? STR$TRIM=.(8OTS$MOVE=]8=;@=*H=:P= VARIABLE`! DFOR$INQUIRE #DFOR$READ_SEQ_FMT_XMIT=LIST= OUTLEN TOO LONG,% LIB$SIGNAL= OUTFILE== 8    'DFOR$WRITE_INT_FMT=Y=R=  Lines changed in =(No such file: " not found.8=  IOSTAT = P=9X=Q`=( ***Error on Inquire for file: "7 CLI$_ABSENT=  FORM = =  RECL = = to=8/ Check the Fortran Language Reference manual, = Couldn't close file:=@4If no changes were made, delete access is required.@=  CARRIAGECONTROL = X= Output file Spec is: p=0$Substituting for control characters=" and "FSPEC7 CLI$_COMMA) DFOR$OPEN=CONFIRM+ LIB$GET_LUN=UNKNOWNOUTPUT= = -DFOR$READ_INT_FMT_XMIT= EXCLUSIVE =RANGE(= UNCOMMENT8=F77@/ DFOR$CLOSE= X=LENGTH`=CLIPp1ATTOFF 3DFOR$READ_INT_FMT 5DFOR$WRITE_SEQ_LIS(7DFOR$WRITE_SEQ_LIS_XMIT9 CLI$PRESENT=00;= 7 DFOR$HANDLER= 8;=8 ;DFOR$WRITE_SEQ_FMT= CLI$GET_VALUE?REVIMG8OTS$STRCMP_EQLP=8 P="`C STR$UPCASE= TRUNCATE=FIXED=!= COMMENT =8 =DETABE GETSTRING GDFOR$READ_SEQ_FMT=EXACT=xn   Exceeding disk QUOTA could cause this failure. If you have quota and write access to the directory,H7RMS$_NMF=CONTROL [=(Clip text between characters "x7 CLI$_NEGATED=  L2MAX = =PFSTRING1STRING2 Sect. 9.6, for validity of the following qualifiers.=Modify columns=  RECORDTYPE = =  ORGANIZATION =  =(= No more changes to @=( Couldn't open output file: `8OTS$STRCMP_LSSS8OTS$STRCMP_LEQS MLIB$RENAME_FILE= No changes made to =A=LOG=1=JOU= FORMATTEDO LIB$FIND_FILE=H9Invalid OUTLEN=8 88 888   = Working on file 8 =[S888 8 See IOSTAT values in Table 5.1 of the Fortran User Manual =#$~ ^?$ ^ ! (~tG08G {G B0 B" }="=R"b@ZkGG BG@B" @<CGGGG@ZkBGG@Zk?"BGGG@ZkGB@Zk?$&@`BG"C(B9v K(b"hb!C= }P"""G@ZkGBb@Zk4GBbH"@Zk4G bG] ](}08@#kP#tG~0^8^@~HPX޴`hp>x^~޵cGX GX !?HB$ ! `B c $H}"L P8 hbTH"P="R"@ZktG"X="B `B hbR"!&H&HHݰP}TP"X\@Zkb#" B"1"!&HR"&HL@Ӱ" B4GX"0A B?&1"="b@Zk%!B`B!Gb"]4G@Zk4GDJ?$B ! PB!="]b@Zk 0 D0@/1A\ A 0A0B< B*B/1 B%1@APBA/A]/I_&Xb""GR"0b""G@ZkGpBxb@Zk/@0A A NA$1@A$@%A$HB_%J!]!b"4G@Zk4G @B!%5@DB"b]@ZkG-PB_&""XbG /=R"0b"" @DEG/I@ZkGpBxb@Zk_&G APB="DEXb"%HR"0b""G@ZkGBb@Zkð4G\ @ )G APB%1@XbFA%A=%H_&""GR"0b""G@Zk0A@ @/1@?GPB$H_&"Xb"GR"0b""G@ZkpBGxb@Zk 4G\JG$@0@ @A%1@/1APB/A/@=/I_&Xb""GR"0b""G@Zk0@ @*ð_&PB""GR"Xb0b""G @OE$H@ZkGpBxb@Zk G= OAD*AI]PB_&Xb""GR"0b""G@Zk6BGb@ZkPB_&Xb,""?"R"`b"GG@Zk_& TG?" "B"bR"P!]0b""G@Zk$ TGB"="b@ZkTG4GGBGB"@Zk_&?"%Bh tGb"R"@b""G@ZkGtGB"b0""X ]"@ZkhBGG<@Zk_!(1A]ܠGBGTG8B"4GG@Zkh B"}="=TGbݰ@ZkݠGBGhBGxJ!G@Zk4GGB@Zk$Gc B" ="}TGb]@ZkGGG&@BGTB GG@ZkGB@ZkTGBݰ"}="b@Zk4GGB@<CGGGGG@ZkBB"G@Zk =BG#@<CGGGGG@ZkBGG@Zk0?"B$@GGG@ZkGB@ZkGGBGTGB"4GG@Zk#?#x=G8ÀBGTG0B"4GG@Zk0GhBG<@Zk(1Aܠ&BB!"b4G]@Zk%!B b"4G@ZkGEPB_&""GXbR"0b"\" AD,I@Zk% !Pb B"4G}b@Zk 0 D0@/1A#A0`@ j@` LA/1@A A pBGxb@Zk,1A,A,A,IGB$ !b"4G@Zk4G @B!,5A DB"b]@ZkG)PB_&x|""XbGR"0b"" o@E#aH}@ZkGpBxb@Zk_&GR"PB"="}0b"Xb"G@ZkGBb@Zkð 4G @d )`G APB*1@AXbEA*A*AI]_&""GR"0b""G@Zk 0AGA DA,1@GPB$H_&"Xb"GR"0b""G@ZkpBGxb@Zk4GJG|*@ 0@A NA@ n@%1A#1`@PB#A#@#aH}_&Xb""GR"0b""G@Zk0@ @*ð_&PB""\GR"Xb0b""ܡG NAE*AI]@ZkGpBxb@ZkG= @D'HPB_&Xb""GR"0b""G@Zk*BGb@ZkB$Gbc }!"4G@Zk4G7B$b P!"@Zkb0c cD`0@ܡ.1AGܡ_&PB "Xb"R"0b""$1@$A$A<$HG@ZkxݥIGB$ b b}"4G@Zk_&R"PB "="x0b""XbG'H<@Zkxݥ)G4G"G|.Ax\0A A j@/1@A#1`@#APB#A#aH_&}< "Xb"R"0b""G@Zk0A Axݥf_&B"bR"<8b"GG@Zk_%J!tGi⤰"B="PBX ]X R"]Xb@Zk_&?"B=!="bR"0b""G@ZkTGtGB@b!}b"@""]"@ZktG¤"B0""l]"X ݴb#aH}@Zk_&4G"BR"bb"<"G@ZktG""B="PB!])!R"]Xb=@Zk%!%"="EBAEb AݰTG@Zk\H]_&`="?" CR"#CiD*`Bb!}4Gb@b""G@ZktGB*AIb"8!]@""]"@ZktGB}"b@""]"@ZktGtGBh ݴ}"b0""]"@ZkB!_& `?=tGbݵ"?"R"@b""G@ZktGBB"b0""xJ!]}]"}@ZkTG_&"BR"b"<"bG@Zk=P="b#B?"R"@"PB4GXb@ZkBXb _&} Gb"?"R"@b""G@ZktG⤰¥"B@""砈]"x!ݵb'H@Zk4GtGB "0""b]"@ZkBP="b#"R"@PB"Xb4G@ZkB?%b)!b } G"?"G@b""G@ZktG¥"B@""]"x!ݵb(I@Zk4GtGB "b0""]"@Zk?"GBb }"bG0b""@ZkB _&Gb"H`?"XR"@b"X"G@ZkGtG"B0""bX]" `Xݴ@Zk_&tGBx `"b?"XR"@b"X"G@ZktGBH!bX"""X]"@Zk_& TG?"B!`ݵ"bR"X]0b"X"G@Zk_&G?"B b!`}"bR"Xݴ0b"X"G@Zk_& G?"BP"!`="bR"X0b"X"G@Zk_&G?"B!`"bR"X0b"X"G@Zk_&?"R"Bb `}"b0b"XX"G@Zk_&?"B `ݴ"bR"X@b"X"G@ZkGtGB"b0""!`XݵX]"@Zk_&?"R"BHB!`]"b@b"XX"G@ZkGtG"B0""bX]" `Xݴ@Zk_&?"B"!`="bR"X@b"X"G@ZktG"B""bH]"d H}@Zk_&?"R"B0b!`}"b@b"XX"G@ZktGB"b0"" `XݴX]"@Zk_&?"R"B!`"b@b"XX"G@ZktGB"b0""( `XݵX]"@Zk_&?"R"B `"b@b"XX"G@ZktGBx Hb"""H]"@ZkBP="b#"R"@PB"Xb4G@ZkpB0"xbtGTG@Zk5GB0b _&`} GbX]"?"R"@b"X"G@ZkGtGb"B0""bX]"Xk!`}Xݵ@ZktG_&BH!`"X?"bR"0b"X"G@ZkP="Bb#"R"C@"PB4GXb@Zk_&B"bR"<8b"GG@Zk_&R"G"B8b"bG<@ZkP="Bb#"R"!@"PB4GXb@ZkcG0]8]@}HPXݤ`hp=x]}ݥ#kp#tG~ ^(^0~8@H޴PX`>h^p~xG?%},Gq.)!p,_%0,HS qJ,pHA 0HDРaD2,C(BG0bCHA 2HBF BG}G}D="="8R"@Zk4GBCGHB"@Zk4GP@B,1@1l@@@8@8B"@Zk4GB@ 1@P@H8H8CDGHB"@Zk4G"B91 C1y@HP@C@PB"@Zk4G" @B 1@GDLGP8B"@ZkGb-A"G`BGpc L0@GTBG@ZkGXB@ZkG`B6BG<!G8GGTBG@ZkGXB@Zk4GBCG`B"@Zk"P@PBC4GGPB"@ZkP@BG"T8D (BG}TR"=tG}=0b="@ZkBC4GGXB"@Zk0@ b@BGG8 G@Zk=GGG<$"@ .JXD@B@ZkGPdGG`B+1`A8+@81CG"TBG@ZkGXB@Zk6/GbG6Kc XF@BG@Zk TG`BGG7BTBGG@ZkGXB@ZkbB%(B'!k!}"="0bXR"}tG@ZktGB"(B="}\R"}0b@ZkP\$8B" 44G`BBXĢ<CGGCGGGG@Zk`BGG@ZkB<C`BGGGGGGG@Zk`BGG@ZkA`B<CGGGGGG@Zk`BGG@ZkGGGG4G\4G`BCX8B" @<CGGGGG@Zk`BGG@Zk@`B<CGG-1AGGGG@Zk`BGG@ZkA<C`BGGGGGG@Zk`BGG@ZkGGGG`B@ZkGXB@ZktGCC(BD0bG@G}"="]@Zk"xb#B`"d1"hR"c@G ](]0}8@HݤPX`=h]p}x#k#G~G ^(^0~8@H޴PGGG#=] 0"B8 F ?&1"=0"R"pB]xb(1" 8O=\TG@Zk4GPBGXb@Zk"4G 0B?&@@1"(]"=GG0JbGJG@Zk4GPBGXb@Zk$`0D=] HCHH!C2oà#&~" ^G(^0~8@H޴PG[ Gb#0"G G@¤""8F'pBݲ(1" GxbG@Zk4GPBXbG@Zk0B?$@! =(G ݰ]"bG HGHG@Zk4GPBXbG@Zk"4G c`"rq`H1J2FfvӀH5JFCGG`bC{Df0" 0bG޴G(!GB0s"G!&H (&HbB@ZkG ](]0}8@HݤP`#kG#tG~ ^(^0~8@H޴PX`>hGG]0,_&p.G0HS pJPBGXb3DCC!v HG2@B==="=R""@ZktGTG"CB ac0"#" rtGbpBxbbðb @ZkG4G "G(BGG@Zk "0@5)!_`BGhbG@Zk0@`LBG6CG@G0@&@@<CGGGGG@ZkBGG@ZkB71A(1AC(@GGGBGGG@ZkGB@Zk4G(BGGG@Zk0@G== C8FBG ]8 rb`=bbXb@ðbHݤ 㰰b(]P$#0}hp#k4HGlLIB$GET_FOREIGN4`b#PLIB$GET_FOREIGN4h@lLIB$GET_FOREIGN4 xG OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL4 G0 CLI$DCL_PARSE4 b#P CLI$DCL_PARSE4 ,@0 CLI$DCL_PARSE44G@ CLI$DISPATCH48b#P CLI$DISPATCH4<@@ CLI$DISPATCH4DGT DFOR$EXIT4Hb#P DFOR$EXIT4P@T DFOR$EXIT4=G< CLI$GET_VALUE4>$b# CLI$GET_VALUE4=8@< CLI$GET_VALUE4=XG CLI$GET_VALUE4>`b# CLI$GET_VALUE4=@ CLI$GET_VALUE49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT49 G< CLI$PRESENT4:0b# CLI$PRESENT498@< CLI$PRESENT49XGp CLI$PRESENT4:hb# CLI$PRESENT49l@p CLI$PRESENT4CG STR$UPCASE4Db# STR$UPCASE4C@ STR$UPCASE49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT4=G4 CLI$GET_VALUE4>(b# CLI$GET_VALUE4=0@4 CLI$GET_VALUE<5HGDFOR$WRITE_SEQ_LIS<6hb#DFOR$WRITE_SEQ_LIS<5|@DFOR$WRITE_SEQ_LIS<7GDFOR$WRITE_SEQ_LIS_XMIT <8b#DFOR$WRITE_SEQ_LIS_XMIT<7@DFOR$WRITE_SEQ_LIS_XMIT49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT4=(G@ CLI$GET_VALUE4>0b# CLI$GET_VALUE4=<@@ CLI$GET_VALUE<3PGDFOR$READ_INT_FMT<4hb#DFOR$READ_INT_FMT<3@DFOR$READ_INT_FMT49G  CLI$PRESENT4:b# CLI$PRESENT49@  CLI$PRESENT4=<GT CLI$GET_VALUE4>Db# CLI$GET_VALUE4=P@T CLI$GET_VALUE<3pGDFOR$READ_INT_FMT<4b#DFOR$READ_INT_FMT<3@DFOR$READ_INT_FMT49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT4=G0 CLI$GET_VALUE4> b# CLI$GET_VALUE4=,@0 CLI$GET_VALUE4 8GX OTS$INDEX4 T@X OTS$INDEX<3pGDFOR$READ_INT_FMT<4b#DFOR$READ_INT_FMT<3@DFOR$READ_INT_FMT<3GDFOR$READ_INT_FMT<4b#DFOR$READ_INT_FMT<3@DFOR$READ_INT_FMT<3G@DFOR$READ_INT_FMT<4(b#DFOR$READ_INT_FMT<3<@@DFOR$READ_INT_FMT<5DGxDFOR$WRITE_SEQ_LIS<6Tb#DFOR$WRITE_SEQ_LIS<5t@xDFOR$WRITE_SEQ_LIS<7GDFOR$WRITE_SEQ_LIS_XMIT<8b#DFOR$WRITE_SEQ_LIS_XMIT<7@DFOR$WRITE_SEQ_LIS_XMIT<7GDFOR$WRITE_SEQ_LIS_XMIT<8b#DFOR$WRITE_SEQ_LIS_XMIT<7@DFOR$WRITE_SEQ_LIS_XMIT<7GDFOR$WRITE_SEQ_LIS_XMIT<8b#DFOR$WRITE_SEQ_LIS_XMIT<7@DFOR$WRITE_SEQ_LIS_XMIT49 G` CLI$PRESENT4:0 b# CLI$PRESENT49\ @` CLI$PRESENT4=x G CLI$GET_VALUE4> b# CLI$GET_VALUE4= @ CLI$GET_VALUE4  G OTS$INDEX4  @ OTS$INDEX<3 G DFOR$READ_INT_FMT<4 b#DFOR$READ_INT_FMT<3 @ DFOR$READ_INT_FMT<3p G DFOR$READ_INT_FMT<4 b#DFOR$READ_INT_FMT<3 @ DFOR$READ_INT_FMT<- G DFOR$READ_INT_FMT_XMIT<. b#DFOR$READ_INT_FMT_XMIT<- @ DFOR$READ_INT_FMT_XMIT<3 G, DFOR$READ_INT_FMT<4 b#DFOR$READ_INT_FMT<3( @, DFOR$READ_INT_FMT <-< GX DFOR$READ_INT_FMT_XMIT<.@ b#DFOR$READ_INT_FMT_XMIT<-T @X DFOR$READ_INT_FMT_XMIT<5X G DFOR$WRITE_SEQ_LIS<6l b#DFOR$WRITE_SEQ_LIS<5 @ DFOR$WRITE_SEQ_LIS<7 G DFOR$WRITE_SEQ_LIS_XMIT<8 b#DFOR$WRITE_SEQ_LIS_XMIT<7 @ DFOR$WRITE_SEQ_LIS_XMIT<7 G DFOR$WRITE_SEQ_LIS_XMIT<8 b#DFOR$WRITE_SEQ_LIS_XMIT<7 @ DFOR$WRITE_SEQ_LIS_XMIT<7 G DFOR$WRITE_SEQ_LIS_XMIT<8 b#DFOR$WRITE_SEQ_LIS_XMIT<7 @ DFOR$WRITE_SEQ_LIS_XMIT<7 G@ DFOR$WRITE_SEQ_LIS_XMIT<80 b#DFOR$WRITE_SEQ_LIS_XMIT<7< @@ DFOR$WRITE_SEQ_LIS_XMIT49@ Gh CLI$PRESENT4:T b# CLI$PRESENT49d @h CLI$PRESENT<5p G DFOR$WRITE_SEQ_LIS<6 b#DFOR$WRITE_SEQ_LIS<5 @ DFOR$WRITE_SEQ_LIS4 | G OTS$MOVEM4  @ OTS$MOVEM4  G OTS$MOVEM4  @ OTS$MOVEM4  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$FILL4+HG\ LIB$GET_LUN4,Pb# LIB$GET_LUN4+X@\ LIB$GET_LUN4+dGt LIB$GET_LUN4,hb# LIB$GET_LUN4+p@t LIB$GET_LUN4=G CLI$GET_VALUE4>b# CLI$GET_VALUE4=@ CLI$GET_VALUE4%G  LIB$SIGNAL4&b# LIB$SIGNAL4%@  LIB$SIGNAL4@GP DFOR$EXIT4Hb# DFOR$EXIT4L@P DFOR$EXIT4OG LIB$FIND_FILE4Pb# LIB$FIND_FILE4O@ LIB$FIND_FILE4G, DFOR$EXIT4 b# DFOR$EXIT4(@, DFOR$EXIT40GHOTS$MOVE4D@HOTS$MOVE4hGSTR$TRIM4tb#STR$TRIM4@STR$TRIM49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT4GSTR$TRIM4b#STR$TRIM4@STR$TRIM4 G OTS$INDEX4 @ OTS$INDEX4 G8 OTS$INDEX 4 4@8 OTS$INDEX4 @Gh OTS$INDEX4 d@h OTS$INDEX4 pG OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL4 G4 OTS$MOVEM4 0@4 OTS$MOVEM48G@OTS$FILL4<@@OTS$FILL4 LG\ OTS$INDEX4 X@\ OTS$INDEX4 hG OTS$INDEX4 |@ OTS$INDEX4GSTR$TRIM4b#STR$TRIM4@STR$TRIM4 G OTS$INDEX4 @ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4@GHOTS$MOVE4D@HOTS$MOVE4 `G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL4GOTS$MOVE4@OTS$MOVE4 G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G4STR$TRIM4 b#STR$TRIM40@4STR$TRIM4@GdSTR$TRIM4\b#STR$TRIM4`@dSTR$TRIM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G, OTS$MOVEM4 (@, OTS$MOVEM4 ,G< OTS$MOVEM4 8@< OTS$MOVEM4 XG OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4  @ OTS$MOVEM4 G( OTS$MOVEM4 $@( OTS$MOVEM4,G4OTS$FILL40@4OTS$FILL4@GhSTR$TRIM4`b#STR$TRIM4d@hSTR$TRIM<5GDFOR$WRITE_SEQ_LIS<6b#DFOR$WRITE_SEQ_LIS<5@DFOR$WRITE_SEQ_LIS <7GDFOR$WRITE_SEQ_LIS_XMIT<8b#DFOR$WRITE_SEQ_LIS_XMIT<7@DFOR$WRITE_SEQ_LIS_XMIT<5G@DFOR$WRITE_SEQ_LIS<6 b#DFOR$WRITE_SEQ_LIS<5<@@DFOR$WRITE_SEQ_LIS<7DGdDFOR$WRITE_SEQ_LIS_XMIT<8Lb#DFOR$WRITE_SEQ_LIS_XMIT<7`@dDFOR$WRITE_SEQ_LIS_XMIT<5pGDFOR$WRITE_SEQ_LIS<6b#DFOR$WRITE_SEQ_LIS<5@DFOR$WRITE_SEQ_LIS<7GDFOR$WRITE_SEQ_LIS_XMIT<8b#DFOR$WRITE_SEQ_LIS_XMIT<7@DFOR$WRITE_SEQ_LIS_XMIT4G DFOR$EXIT4b# DFOR$EXIT4@ DFOR$EXIT4G,OTS$MOVE4(@,OTS$MOVE4 8GP OTS$INDEX4 L@P OTS$INDEX4 XGp OTS$INDEX4 l@p OTS$INDEX4 xG OTS$INDEX4 @ OTS$INDEX4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL<'G\DFOR$WRITE_INT_FMT<(@b#DFOR$WRITE_INT_FMT<'X@\DFOR$WRITE_INT_FMT4`G|OTS$MOVE4x@|OTS$MOVE4GOTS$FILL4@OTS$FILL4)G DFOR$OPEN4*b# DFOR$OPEN4)@ DFOR$OPEN4!@Gp DFOR$INQUIRE4"hb# DFOR$INQUIRE4!l@p DFOR$INQUIRE49|G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT49G CLI$PRESENT4:b# CLI$PRESENT49@ CLI$PRESENT49G0 CLI$PRESENT4: b# CLI$PRESENT49,@0 CLI$PRESENT4@GPOTS$MOVE4L@POTS$MOVE4XG`OTS$FILL4\@`OTS$FILL4AhGOTS$STRCMP_EQLP4A|@OTS$STRCMP_EQLP4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL<5GDFOR$WRITE_SEQ_LIS<6b#DFOR$WRITE_SEQ_LIS<5@DFOR$WRITE_SEQ_LIS<7G DFOR$WRITE_SEQ_LIS_XMIT<8b#DFOR$WRITE_SEQ_LIS_XMIT<7@ DFOR$WRITE_SEQ_LIS_XMIT4A0G@OTS$STRCMP_EQLP4A<@@OTS$STRCMP_EQLP 4LG`OTS$MOVE4\@`OTS$MOVE4hGpOTS$FILL4l@pOTS$FILL4)G DFOR$OPEN4* b# DFOR$OPEN4)@ DFOR$OPEN48GLOTS$MOVE4H@LOTS$MOVE4TG\OTS$FILL4X@\OTS$FILL<GxGDFOR$READ_SEQ_FMT<Hb#DFOR$READ_SEQ_FMT<G@DFOR$READ_SEQ_FMT<#GDFOR$READ_SEQ_FMT_XMIT<$b#DFOR$READ_SEQ_FMT_XMIT<#@DFOR$READ_SEQ_FMT_XMIT4 G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4 @OTS$FILL49,GL CLI$PRESENT4:4b# CLI$PRESENT49H@L CLI$PRESENT4 PGh OTS$INDEX4 d@h OTS$INDEX4IpGOTS$STRCMP_LSSS4I@OTS$STRCMP_LSSS4KGOTS$STRCMP_LEQS4K@OTS$STRCMP_LEQS4 G OTS$INDEX4 @ OTS$INDEX4  G4 OTS$MOVEM4 0 @4 OTS$MOVEM4 4 GD OTS$MOVEM4 @ @D OTS$MOVEM4 T Gt OTS$MOVEM4 p @t OTS$MOVEM4 t G OTS$MOVEM4  @ OTS$MOVEM4  G OTS$MOVEM4  @ OTS$MOVEM4  G OTS$MOVEM4  @ OTS$MOVEM4  G! OTS$MOVEM4 !@! OTS$MOVEM4 !G(! OTS$MOVEM4 $!@(! OTS$MOVEM4 \!G! OTS$MOVEM4 !@! OTS$MOVEM4 !G! OTS$MOVEM4 !@! OTS$MOVEM4 !G! OTS$MOVEM4 !@! OTS$MOVEM4!G!OTS$FILL4!@!OTS$FILL4!G"STR_TRIM4"b#STR_TRIM4"@"STR_TRIM490"GP" CLI$PRESENT4:H"b# CLI$PRESENT49L"@P" CLI$PRESENT49p"G" CLI$PRESENT4:"b# CLI$PRESENT49"@" CLI$PRESENT49"G" CLI$PRESENT4:"b# CLI$PRESENT49"@" CLI$PRESENT49#G0# CLI$PRESENT4: #b# CLI$PRESENT49,#@0# CLI$PRESENT49P#Gx# CLI$PRESENT4:h#b# CLI$PRESENT49t#@x# CLI$PRESENT49#G# CLI$PRESENT4:#b# CLI$PRESENT49#@# CLI$PRESENT 49#G# CLI$PRESENT4:#b# CLI$PRESENT49#@# CLI$PRESENT49#G$ CLI$PRESENT4:#b# CLI$PRESENT49#@$ CLI$PRESENT49$G,$ CLI$PRESENT4:$b# CLI$PRESENT49($@,$ CLI$PRESENT498$GX$ CLI$PRESENT4:H$b# CLI$PRESENT49T$@X$ CLI$PRESENT49\$G|$ CLI$PRESENT4:h$b# CLI$PRESENT49x$@|$ CLI$PRESENT4$G$STR_TRIM4$b#STR_TRIM4$@$STR_TRIM4  %G0% OTS$INDEX4 ,%@0% OTS$INDEX4H%G\% OTS$DIV_I4L%b# OTS$DIV_I4X%@\% OTS$DIV_I4 x%G% OTS$MOVEM4 %@% OTS$MOVEM4 %G% OTS$MOVEM4 %@% OTS$MOVEM4 %G% OTS$MOVEM4 %@% OTS$MOVEM4%G&OTS$FILL4&@&OTS$FILL4 &G& OTS$INDEX4 &@& OTS$INDEX4p&G&STR_TRIM4&b#STR_TRIM4&@&STR_TRIM49&G& CLI$PRESENT4:&b# CLI$PRESENT49&@& CLI$PRESENT49&G' CLI$PRESENT4:&b# CLI$PRESENT49'@' CLI$PRESENT49'G0' CLI$PRESENT4: 'b# CLI$PRESENT49,'@0' CLI$PRESENT4 <'GT' OTS$INDEX4 P'@T' OTS$INDEX4 p'G' OTS$MOVEM4 '@' OTS$MOVEM4'G'OTS$FILL4'@'OTS$FILL4'G'STR_TRIM4'b#STR_TRIM4'@'STR_TRIM4 'G' OTS$INDEX4 '@' OTS$INDEX4  (G@( OTS$MOVEM4 <(@@( OTS$MOVEM4D(GL(OTS$FILL4H(@L(OTS$FILL4(G(OTS$MOVE4(@(OTS$MOVE4(G(STR_TRIM4(b#STR_TRIM4(@(STR_TRIM4C(G) STR$UPCASE4D(b# STR$UPCASE4C(@) STR$UPCASE4 )G) OTS$INDEX4 )@) OTS$INDEX4 *G * OTS$INDEX4 *@ * OTS$INDEX4 0*GL* OTS$INDEX4 H*@L* OTS$INDEX4 |*G* OTS$INDEX4 *@* OTS$INDEX4 *G* OTS$INDEX4 *@* OTS$INDEX 4 |+G+ OTS$MOVEM4 +@+ OTS$MOVEM4 +G+ OTS$MOVEM4 +@+ OTS$MOVEM4 +G+ OTS$MOVEM4 +@+ OTS$MOVEM4+G+OTS$FILL4+@+OTS$FILL4C+G , STR$UPCASE4D,b# STR$UPCASE4C,@ , STR$UPCASE4 x,G, OTS$INDEX4 ,@, OTS$INDEX49,G- CLI$PRESENT4:,b# CLI$PRESENT49,@- CLI$PRESENT49-G@- CLI$PRESENT4:0-b# CLI$PRESENT49<-@@- CLI$PRESENT49-G- CLI$PRESENT4:-b# CLI$PRESENT49-@- CLI$PRESENT49-G- CLI$PRESENT4:-b# CLI$PRESENT49-@- CLI$PRESENT49-G. CLI$PRESENT4:.b# CLI$PRESENT49.@. CLI$PRESENT<;x.G.DFOR$WRITE_SEQ_FMT<<.b#DFOR$WRITE_SEQ_FMT<;.@.DFOR$WRITE_SEQ_FMT,?.G.REVIMG,@.b#REVIMG,?.@.REVIMG49/G(/ CLI$PRESENT4:/b# CLI$PRESENT49$/@(/ CLI$PRESENT49@/GX/ CLI$PRESENT4:L/b# CLI$PRESENT49T/@X/ CLI$PRESENT<;d/G/DFOR$WRITE_SEQ_FMT<</b#DFOR$WRITE_SEQ_FMT<;/@/DFOR$WRITE_SEQ_FMT,?/G/REVIMG,@/b#REVIMG,?/@/REVIMG<;/G0DFOR$WRITE_SEQ_FMT<</b#DFOR$WRITE_SEQ_FMT<;/@0DFOR$WRITE_SEQ_FMT,10G0ATTOFF,2 0b#ATTOFF,10@0ATTOFF<;L0G0DFOR$WRITE_SEQ_FMT<<T0b#DFOR$WRITE_SEQ_FMT<;0@0DFOR$WRITE_SEQ_FMT<;0G0DFOR$WRITE_SEQ_FMT<<0b#DFOR$WRITE_SEQ_FMT<;0@0DFOR$WRITE_SEQ_FMT,?0G0REVIMG,@0b#REVIMG,?0@0REVIMG<;01Gp1DFOR$WRITE_SEQ_FMT<<L1b#DFOR$WRITE_SEQ_FMT<;l1@p1DFOR$WRITE_SEQ_FMT<;1G1DFOR$WRITE_SEQ_FMT<<1b#DFOR$WRITE_SEQ_FMT<;1@1DFOR$WRITE_SEQ_FMT,?1G1REVIMG,@1b#REVIMG,?1@1REVIMG<;2G,2DFOR$WRITE_SEQ_FMT<<2b#DFOR$WRITE_SEQ_FMT<;(2@,2DFOR$WRITE_SEQ_FMT,102G@2ATTOFF,282b#ATTOFF,1<2@@2ATTOFF<;@2Gl2DFOR$WRITE_SEQ_FMT <<H2b#DFOR$WRITE_SEQ_FMT<;h2@l2DFOR$WRITE_SEQ_FMT<G2G2DFOR$READ_SEQ_FMT<H2b#DFOR$READ_SEQ_FMT<G2@2DFOR$READ_SEQ_FMT4C2G2 STR$UPCASE4D2b# STR$UPCASE4C2@2 STR$UPCASE4A2G2OTS$STRCMP_EQLP4A2@2OTS$STRCMP_EQLP<53G43DFOR$WRITE_SEQ_LIS<63b#DFOR$WRITE_SEQ_LIS<503@43DFOR$WRITE_SEQ_LIS<7@3Gd3DFOR$WRITE_SEQ_LIS_XMIT<8H3b#DFOR$WRITE_SEQ_LIS_XMIT<7`3@d3DFOR$WRITE_SEQ_LIS_XMIT4h3G|3OTS$MOVE4x3@|3OTS$MOVE4A3G3OTS$STRCMP_EQLP4A3@3OTS$STRCMP_EQLP4E3G3 GETSTRING4F3b# GETSTRING4E3@3 GETSTRING43G 4OTS$MOVE44@ 4OTS$MOVE44G4OTS$FILL44@4OTS$FILL4E(4GL4 GETSTRING4F@4b# GETSTRING4EH4@L4 GETSTRING4 `4G|4 OTS$MOVEM4 x4@|4 OTS$MOVEM44G4OTS$FILL44@4OTS$FILL4E4G4 GETSTRING4F4b# GETSTRING4E4@4 GETSTRING4 4G4 OTS$MOVEM4 4@4 OTS$MOVEM4 4G4 OTS$MOVEM4 4@4 OTS$MOVEM4 4G5 OTS$MOVEM4 5@5 OTS$MOVEM4 5G(5 OTS$MOVEM4 $5@(5 OTS$MOVEM4 ,5GD5 OTS$MOVEM4 @5@D5 OTS$MOVEM4H5GP5OTS$FILL4L5@P5OTS$FILL4AX5Gt5OTS$STRCMP_EQLP4Ap5@t5OTS$STRCMP_EQLP4A5G5OTS$STRCMP_EQLP4A5@5OTS$STRCMP_EQLP45G5OTS$MOVE45@5OTS$MOVE495G5 CLI$PRESENT4:5b# CLI$PRESENT495@5 CLI$PRESENT496G$6 CLI$PRESENT4:6b# CLI$PRESENT49 6@$6 CLI$PRESENT<;06Gx6DFOR$WRITE_SEQ_FMT<<P6b#DFOR$WRITE_SEQ_FMT<;t6@x6DFOR$WRITE_SEQ_FMT496G6 CLI$PRESENT4:6b# CLI$PRESENT496@6 CLI$PRESENT,?7G 7REVIMG,@7b#REVIMG,?7@ 7REVIMG49@7Gh7 CLI$PRESENT4:T7b# CLI$PRESENT49d7@h7 CLI$PRESENT497G7 CLI$PRESENT4:7b# CLI$PRESENT497@7 CLI$PRESENT <;7G7DFOR$WRITE_SEQ_FMT<<7b#DFOR$WRITE_SEQ_FMT<;7@7DFOR$WRITE_SEQ_FMT,?7G7REVIMG,@7b#REVIMG,?7@7REVIMG<;8G08DFOR$WRITE_SEQ_FMT<< 8b#DFOR$WRITE_SEQ_FMT<;,8@08DFOR$WRITE_SEQ_FMT,188GD8ATTOFF,2<8b#ATTOFF,1@8@D8ATTOFF<;|8G8DFOR$WRITE_SEQ_FMT<<8b#DFOR$WRITE_SEQ_FMT<;8@8DFOR$WRITE_SEQ_FMT<;8G9DFOR$WRITE_SEQ_FMT<<8b#DFOR$WRITE_SEQ_FMT<;9@9DFOR$WRITE_SEQ_FMT,?9G(9REVIMG,@ 9b#REVIMG,?$9@(9REVIMG<;`9G9DFOR$WRITE_SEQ_FMT<<|9b#DFOR$WRITE_SEQ_FMT<;9@9DFOR$WRITE_SEQ_FMT<;9G:DFOR$WRITE_SEQ_FMT<<9b#DFOR$WRITE_SEQ_FMT<;:@:DFOR$WRITE_SEQ_FMT,? :G:REVIMG,@:b#REVIMG,?:@:REVIMG<;0:G\:DFOR$WRITE_SEQ_FMT<<8:b#DFOR$WRITE_SEQ_FMT<;X:@\:DFOR$WRITE_SEQ_FMT,1`:Gp:ATTOFF,2h:b#ATTOFF,1l:@p:ATTOFF49p:G: CLI$PRESENT4:|:b# CLI$PRESENT49:@: CLI$PRESENT49:G: CLI$PRESENT4::b# CLI$PRESENT49:@: CLI$PRESENT<;(;Gp;DFOR$WRITE_SEQ_FMT<<0;b#DFOR$WRITE_SEQ_FMT<;l;@p;DFOR$WRITE_SEQ_FMT49;G; CLI$PRESENT4:;b# CLI$PRESENT49;@; CLI$PRESENT<;;G;DFOR$WRITE_SEQ_FMT<<;b#DFOR$WRITE_SEQ_FMT<;;@;DFOR$WRITE_SEQ_FMT<;H<G<DFOR$WRITE_SEQ_FMT<<h<b#DFOR$WRITE_SEQ_FMT<;<@<DFOR$WRITE_SEQ_FMT4/<G< DFOR$CLOSE40<b# DFOR$CLOSE4/<@< DFOR$CLOSE4<G=STR$TRIM4 =b#STR$TRIM4=@=STR$TRIM<5 =GL=DFOR$WRITE_SEQ_LIS<60=b#DFOR$WRITE_SEQ_LIS<5H=@L=DFOR$WRITE_SEQ_LIS<7T=Gx=DFOR$WRITE_SEQ_LIS_XMIT<8`=b#DFOR$WRITE_SEQ_LIS_XMIT<7t=@x=DFOR$WRITE_SEQ_LIS_XMIT<7=G=DFOR$WRITE_SEQ_LIS_XMIT<8=b#DFOR$WRITE_SEQ_LIS_XMIT<7=@=DFOR$WRITE_SEQ_LIS_XMIT4/=G= DFOR$CLOSE40=b# DFOR$CLOSE4/=@= DFOR$CLOSE4>G(>STR$TRIM4>b#STR$TRIM 4$>@(>STR$TRIM4ML>G|>LIB$RENAME_FILE4N\>b#LIB$RENAME_FILE4Mx>@|>LIB$RENAME_FILE<5>G>DFOR$WRITE_SEQ_LIS<6>b#DFOR$WRITE_SEQ_LIS<5>@>DFOR$WRITE_SEQ_LIS<7>G?DFOR$WRITE_SEQ_LIS_XMIT<8>b#DFOR$WRITE_SEQ_LIS_XMIT<7>@?DFOR$WRITE_SEQ_LIS_XMIT<7?G$?DFOR$WRITE_SEQ_LIS_XMIT<8?b#DFOR$WRITE_SEQ_LIS_XMIT<7 ?@$?DFOR$WRITE_SEQ_LIS_XMIT<7,?GP?DFOR$WRITE_SEQ_LIS_XMIT<8@?b#DFOR$WRITE_SEQ_LIS_XMIT<7L?@P?DFOR$WRITE_SEQ_LIS_XMIT<5P?G?DFOR$WRITE_SEQ_LIS<6d?b#DFOR$WRITE_SEQ_LIS<5?@?DFOR$WRITE_SEQ_LIS<7?G?DFOR$WRITE_SEQ_LIS_XMIT<8?b#DFOR$WRITE_SEQ_LIS_XMIT<7?@?DFOR$WRITE_SEQ_LIS_XMIT4/?G? DFOR$CLOSE40?b# DFOR$CLOSE4/?@? DFOR$CLOSE4@G(@ DFOR$EXIT4 @b# DFOR$EXIT4$@@(@ DFOR$EXIT<5(@G`@DFOR$WRITE_SEQ_LIS<6<@b#DFOR$WRITE_SEQ_LIS<5\@@`@DFOR$WRITE_SEQ_LIS<7p@G@DFOR$WRITE_SEQ_LIS_XMIT<8@b#DFOR$WRITE_SEQ_LIS_XMIT<7@@@DFOR$WRITE_SEQ_LIS_XMIT<7@G@DFOR$WRITE_SEQ_LIS_XMIT<8@b#DFOR$WRITE_SEQ_LIS_XMIT<7@@@DFOR$WRITE_SEQ_LIS_XMIT4@G@ DFOR$EXIT4@b# DFOR$EXIT4@@@ DFOR$EXIT<5@G0ADFOR$WRITE_SEQ_LIS<6@b#DFOR$WRITE_SEQ_LIS<5,A@0ADFOR$WRITE_SEQ_LIS<7@AGhADFOR$WRITE_SEQ_LIS_XMIT<8XAb#DFOR$WRITE_SEQ_LIS_XMIT<7dA@hADFOR$WRITE_SEQ_LIS_XMIT<7pAGADFOR$WRITE_SEQ_LIS_XMIT<8Ab#DFOR$WRITE_SEQ_LIS_XMIT<7A@ADFOR$WRITE_SEQ_LIS_XMIT<5AGADFOR$WRITE_SEQ_LIS<6Ab#DFOR$WRITE_SEQ_LIS<5A@ADFOR$WRITE_SEQ_LIS<5AGBDFOR$WRITE_SEQ_LIS<6Ab#DFOR$WRITE_SEQ_LIS<5B@BDFOR$WRITE_SEQ_LIS<7BG8BDFOR$WRITE_SEQ_LIS_XMIT<8 Bb#DFOR$WRITE_SEQ_LIS_XMIT<74B@8BDFOR$WRITE_SEQ_LIS_XMIT<5@BGpBDFOR$WRITE_SEQ_LIS<6PBb#DFOR$WRITE_SEQ_LIS<5lB@pBDFOR$WRITE_SEQ_LIS<7tBGBDFOR$WRITE_SEQ_LIS_XMIT<8|Bb#DFOR$WRITE_SEQ_LIS_XMIT<7B@BDFOR$WRITE_SEQ_LIS_XMIT<5BGBDFOR$WRITE_SEQ_LIS<6Bb#DFOR$WRITE_SEQ_LIS<5B@BDFOR$WRITE_SEQ_LIS<5BGCDFOR$WRITE_SEQ_LIS<6Bb#DFOR$WRITE_SEQ_LIS <5C@CDFOR$WRITE_SEQ_LIS<5CG > ? 9  C E G~ H F Fy M Sq U Ri ] [ \ \ \ `e ab f` g i l l i( q t t x z ~ }    ;             ,   &                                  (    T      Xd X      ̜ 5P $= 4 .=  4=  =  .=  4=  =  := G4= `F = G44= FONEWG4=          ! ! $   $     "   % ( 1 6 6 6 ; ; ; C D D$ D G4 G ID $= G4 := pN4=  N= N4@4= GTERMN4= R$ R# R# v         c          , $= N4 G= P4`4=STERM := Q4= 0 ,= Q44= DETABQ4=              @0       h $= Q4 := xT4=  =  (P