>CSOUT 18-MAR-1994 16:39DEC Fortran T6.2-444  CPRINT $LINK$i4$CODE$\$IODATA$D$BSS$0$DATA$(J8CSOUT(JhPROMPT(JhCSNEW(J CRLF(JESCOUTGTMODE(J(RING DFOR$WRITE_SEQ_FMT DFOR$HANDLER DFOR$WRITE_SEQ_FMT_XMIT(J0 ANSI(JP BOLD(Jp UNDSCR(J HBLINK(J pREVIMG(J ATTOFF(J CLRHOM(J@ CLRTOC(J` @CLREOS(J hCLRALL(J@CWHERE(J CURPOS(J CLRLIN(J CLRBOL(J (CLREOL(JCSBIG(JCSWIDE(JpCSPOSGTERM(J BLONWH(J WHONBL(J JUMP(JP SMOOTH(J0 KEYAPP(JP KEYNUMLIB$SET_CURSOR(J SCREGN(JH SCROLL(JxCURBCK(JCURFWD(JhCURDWN(JpCURUP DFOR$WRITE_INT_FMT(JXSAVCUR(JxRESCUR(JORGOFF(J8ORGON(JhCURHOM(JHOME(JINDEX(J8REVIND(JXNXTLIN(JpG1ASC(JG1GRAF(JGRFOFF(JGRFONINCHAR DFOR$READ_INT_FMT(JCPSAVE(J0CPPUSH0J`OLDPOSIT(JXCPPOP(JCPBUMP(JpREPOSIT DFOR$WRITE_SEQ_LISOTS$STRCMP_EQLPOTS$MOVE OTS$MOVEMOTS$FILL OTS$INDEX =BATCH=;  DFOR$WRITE_SEQ_FMT;=0H;=| 7 DFOR$HANDLER==0H;=| 7 DFOR$HANDLER==0Hh;=| 7 DFOR$HANDLER==0H ;=| 7 DFOR$HANDLER==0H;=| 7 DFOR$HANDLER==0H;=| 7 DFOR$HANDLER=;(DFOR$WRITE_SEQ_FMT_XMIT=x=88OTS$STRCMP_EQLPGTMODE=A=D=C LIB$SET_CURSOR8OTS$FILL8 OTS$MOVEM=8 =0P ;= 7 DFOR$HANDLER==0P ;= 7 DFOR$HANDLER==0P ;= 7 DFOR$HANDLER==0P;= 7 DFOR$HANDLER==0P;= 7 DFOR$HANDLER==0Ph;= 7 DFOR$HANDLER==0Pp;= 7 DFOR$HANDLER=8OTS$MOVE DFOR$WRITE_INT_FMT=[X= INTERACTIVEh=;p=Bx=r=0P@;= 7 DFOR$HANDLER= DFOR$READ_INT_FMT=8 OTS$INDEXINCHAR;=[6n=0H;=` 7 DFOR$HANDLER==0H;=` 7 DFOR$HANDLER==0H;=` 7 DFOR$HANDLER==0HX;=` 7 DFOR$HANDLER==0H;=` 7 DFOR$HANDLER==0Hp;=` 7 DFOR$HANDLER= DFOR$WRITE_SEQ_LIS=@2oldposit pointer outside limitscursor stack fullh=8*no more cursor positions on stack= cursor stack empty==0p;=0 =0;=0 =0;=0 =0;= 0 )0@=)BH=(0P=(BX=0;=0 =0;=0 =0;=0 =08;=0 =0h;=0 =0;=0 =0;=0 =0; $ =0 =0;= 0 [?6l=8=7=[?6h=E=M=[H=0 ;=0 =0 ;=0 =0 ;=0 =0P ;=0 =0 ;=0 =0 ;= 0 [?4lx=?5l=[?5h=>===[?4h=0;=` =0;=` =0p;=` GTERM=# =#4 =0;=0 =0;=0 =0@;=0 =0h;=0 =0;=0 =0;=0 =0(;= 0 [2J =[0J =[1J =[0K =[1K( =[2K0 =0;=0 =0;=0 =0 ;=0 =0H;=0 =0p;=0 =0;= 0 [4m =[1m =< =[0m =[7m = [5m =#_&G~R"H^GP^X~`hp޴xcGp,G0,8b"B8"pH A 0Hb"aD8@ZktG(BC@#aH8}0b"@""8]"@ZkÀ#_&G~R"H^GP^X~`hp޴xcG[ p,,8b" "8"BpH@ H! b`D8="@ZktG(BC#aH@8}"0b@""8]"@ZkG#_&G~R"H^GP^X~`hp޴xcG[ p,,8b" "8"BpH@ H! b`D8="@ZktG(BC#aH@8}"0b@""8]"@ZkG#_&G~R"H^GP^X~`hp޴xcGp[ "B 8bb"8"@ZkÀ#_&R"~H^P^X~`hp޴xcG@[ ,, "H@ Hp(!8"D "TGXB8]<1"`b@Zk4G "(HBGB"0GG@Zk_&GR" P"B8b"Gb88""G@ZktG "(B8""0b8]" 8@ZktG(BC$H@}8"0b@""8]"@Zk/G#~H^P^X~`hp޴xcG[ p$¤4G`  "BGbGG8=8b"8"GG@ZktG "(B""0b8]" 8@Zk0@ @GcH]P]X}`hpݤx#kG#?$~! ^^ GG 3G#~^^ G[  'G#~^^ G[  G#~^^ G[  G#~^^ G[  G#~^^ G`[  ?$! =" b#/_G]] 0#kG#~^^ GG MG#~^^ G[  CG#~^^ G[  9G#~^^4" G[ `b#"81"@?$!  =" b#_b#"4"81"K@##~^^ G[  G#~^^ G`[  G#~^^ G@[  ?$! =" b#_G]] 0#kG#~^ ^(~08@޴HPXGG,G2,pGHA 2H 0 "D?Ft&B0GJG#~^ ^(~08@޴HPXG[ ,G2,p¤GHA 2H   DFBG,G#tG~^ ^(~08@޴HPXG,[ 2,Gp¤GHp"A 2HpB   `BDhb,1"FB0R"p("@ZkTGp¤,Ơ DGC Bc@/ 7J8 D`#@#"8 F }" ="p¤Hb#@ӘBpB"  "4G@Zk4GBG@Zk G<C8BGGG]"TG@ZkG0B@Zk%!$CoDg@}G="Xb#'_CCD@G}"b#y_ƤDxDGGG" ="4AHb#j@$ x ݰ"Xb#_Әb#"]_G] ](}08@ݤHPX`#kG#?$~! ^^ GG 9G#?$~! ^^ G[  -G#?$~! ^^ G[  !G#?$~! ^^ G[  G#~^^ G[  G#~^^ G`[  ?$! =" Hb#_G]] 0#kG`#~P^X^`~hpx޴cGG8=(G(&(""( 0 ,1" BTG@@"Db@Zk4G("((tGBpB"G,0G@ZkTGrBG8=b@Zkl`#~P^X^`~hpx޴cG[ `#~P^X^`~hpx޴cG[ (TGXBG`b @8$H HG"G, B"8}"GG@ZkG(XB"`bG !@8B"H}8}"G@Zk4GPB8"hB"@ZkTGPBG@Zk4GPBB"@ZkTGPBG@Zk4GPBB"@Zk GG<CBGGG8]"@ZkGB@Zk$C%vHG@8<}`#?&1"~GP^X^`~hpx޴cGp[ tG(HB"XB8}"!@8 "H"`b@Zk4GPB8"hB"@ZktGPBG@Zk4GPBB"@Zk GG<CBGGG8]"@ZkGB@Zk$C'vHG@8<ݰ`#?&1"~GP^X^`~hpx޴cGh =d \ @[ tGH!XBB"@8}"8 "H"`b@Zk4GPB8"hB"@ZktGPBG@Zk4GPBB"@Zk GG<CGGG8]"w`#?&1"~GP^X^`~hpx޴cG8[ TGH!XBB"@8}"8,"H"`b@Zk4GPB8"hB"@ZkTGPBG@Zk4GPBB"@Zk GG<CBGGG8]"@ZkGB@Zk$C'vHG@8<ݰA`#?&1"~GP^X^`~hpx޴cG[ TGH!XBB"@8}"8,"H"`b@Zk4GPB8"hB"@ZkTGPBG@Zk4GPBB"@Zk GG<CGGG8]"B@ZkGB@Zk$C&vHG@8<8"b#_GcP]X]`}hpxݤ#kG#~^^ GG0 WG#~^^ G[ ( MG#?$~! ^^ G[  CG#?$~! ^^ G[ 8 7G#?$~! ^^ G[ P +G#?$~! ^^ G`[ P G#~^^ G@[ P G#~^^ G [ H G#~^^ G[ @ ?$! =" b#_G]] 0#kG#~^^ GG G#~^^ G[  G#~^^ G[  G#~^^ G[  ?$! =" @b#[_G]] 0#kGP#~P^X^`~hpx޴>^cGGGpG4G¤P08"p XD "$B 8TG<ݰT1"b@Zk4G"PBtGB"T0GG@ZkG'¤#8x"<8"xb#_HGDxD@""HB"`B@b"hbH"X"G@Zk0@@HDu@DG G`!"}@HB"@b"HFU B0F)@""`BGhbH"X"@Zk4G8]"X H?0@XB51@HF8=6@GGBG@ZkGPB@Zk0@B/"yHXKG?GPB4GGGB"@Zk4GGPBP@GB"@Zk?&1" G8%A 0C8@E !1@A@!@!!H8="H}`B"8}"8"G X@E@%1@A@%@%H?&8H}"1"`B"8}"D"0BG8b@Zk P A&@0@ 8D@%1 AA%@@}%H8?&H"1"`B"8}"8"" XD@)1 A A@})@)!I?&8=H"1"`B"8}"D"GxD)1 A'@ A'H@?&8H"1"`B"8}"P"0BG8b@ZkcGP]X]`}hpxݤ=]#kG#~H^P^XcGGX01B,F, à#~H^P^XcG[ XP""4G,xb"8"G0 B"@=?"8]_&(bR"@Zkb#""1"_X, ⦐00 @, !@pBB."v4JUJF>/"ywJXKG?0à#~H^P^XcG[ XBb,Z BB @pCB,.@HUJHJ}G&s"0"8}<ݲh"""8]"8b#,_qG#~H^, P^XcGp[ ""!1 @, 1I BB"@]TG_&8(b"?"R"xb"8"G@ZkOG#P~H^P^XcG @[ X#@, 0@0F0 @ % BpB"@]4G_&8(b"?"R"xb"8"G@Zk+G#4G~H^P^XcG[  X",1 BQFbb#⦘"BBB./"1"VJXKJKӲ_cGH]P]X`#k<PGDFOR$WRITE_SEQ_FMT<hb#8DFOR$WRITE_SEQ_FMT<|@DFOR$WRITE_SEQ_FMT<GDFOR$WRITE_SEQ_FMT_XMIT<b#8DFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT<G4DFOR$WRITE_SEQ_FMT<b#8DFOR$WRITE_SEQ_FMT<0@4DFOR$WRITE_SEQ_FMT<8G`DFOR$WRITE_SEQ_FMT_XMIT <Pb#8DFOR$WRITE_SEQ_FMT_XMIT<\@`DFOR$WRITE_SEQ_FMT_XMIT<GDFOR$WRITE_SEQ_FMT<b#8DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<GDFOR$WRITE_SEQ_FMT_XMIT<b#8DFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT<lGDFOR$WRITE_SEQ_FMT<xb#8DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT,GGTMODE,b#8GTMODE,@GTMODE4(GDOTS$STRCMP_EQLP4@@DOTS$STRCMP_EQLP<`GDFOR$WRITE_SEQ_FMT<lb#8DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<GDFOR$WRITE_SEQ_FMT_XMIT<b#8DFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT<GDFOR$WRITE_SEQ_FMT_XMIT<b#8DFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT<8GdDFOR$WRITE_SEQ_FMT<@b#8DFOR$WRITE_SEQ_FMT<`@dDFOR$WRITE_SEQ_FMT<pGDFOR$WRITE_SEQ_FMT_XMIT<xb#8DFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT,G GTERM,b#GTERM, @ GTERM4h G OTS$MOVE4| @ OTS$MOVE4 G OTS$MOVE4 @ OTS$MOVE4  G OTS$MOVEM4  @ OTS$MOVEM4  G OTS$FILL4  @ OTS$FILL,h G GTMODE,| b#GTMODE, @ GTMODE4 G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4  G LIB$SET_CURSOR4  b#LIB$SET_CURSOR4  @ LIB$SET_CURSOR<T G DFOR$WRITE_INT_FMT<\ b#DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT< b#DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVE4 @ OTS$MOVE4G OTS$MOVE4@ OTS$MOVE4GOTS$MOVE4@OTS$MOVE4 G,OTS$MOVE4(@,OTS$MOVE4 <GT OTS$MOVEM4 P@T OTS$MOVEM4 XG`OTS$FILL4 \@`OTS$FILL<GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT4 GOTS$MOVE 4@OTS$MOVE4 G,OTS$MOVE4(@,OTS$MOVE40G<OTS$MOVE48@<OTS$MOVE4 LGd OTS$MOVEM4 `@d OTS$MOVEM4 hGpOTS$FILL4 l@pOTS$FILL<GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT< @DFOR$WRITE_INT_FMT4G$OTS$MOVE4 @$OTS$MOVE4(G4OTS$MOVE40@4OTS$MOVE48GDOTS$MOVE4@@DOTS$MOVE<GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT4GOTS$MOVE4@OTS$MOVE4G OTS$MOVE4@ OTS$MOVE4GOTS$MOVE4@OTS$MOVE4 ,GD OTS$MOVEM4 @@D OTS$MOVEM4 HGPOTS$FILL4 L@POTS$FILL<GDFOR$WRITE_INT_FMT<b#DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4G$OTS$MOVE4 @$OTS$MOVE4 DGL OTS$MOVEM4 H@L OTS$MOVEM4 PGXOTS$FILL4 T@XOTS$FILL,GGTMODE,b#GTMODE,@GTMODE4G OTS$STRCMP_EQLP4@ OTS$STRCMP_EQLP,hGINCHAR,pb#INCHAR,@INCHAR,GINCHAR,b#INCHAR,@INCHAR4 GH OTS$MOVEM4 D@H OTS$MOVEM4 LGTOTS$FILL4 P@TOTS$FILL4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX<HGXDFOR$READ_INT_FMT<Pb#DFOR$READ_INT_FMT<T@XDFOR$READ_INT_FMT<0G@DFOR$READ_INT_FMT<8b#DFOR$READ_INT_FMT<<@@DFOR$READ_INT_FMT<G,DFOR$WRITE_SEQ_LIS< b#DFOR$WRITE_SEQ_LIS<(@,DFOR$WRITE_SEQ_LIS<GDFOR$WRITE_SEQ_LIS<b#DFOR$WRITE_SEQ_LIS<@DFOR$WRITE_SEQ_LIS<0GhDFOR$WRITE_SEQ_LIS |<Hb#DFOR$WRITE_SEQ_LIS<d@hDFOR$WRITE_SEQ_LIS |=d\6QH76QH76W76W76V76V76V7 == =$= =(= A=1)(CSOUTDEC Fortran T6.2-444 = 484= CSOUT4=H@      $$$$$((((( ,,,,,1;2244(4080 $= 4 H= 4h4=PROMPT G= h44=CSNEW F=  44= CRLF H= 44=ESCOUT F= 4(4= RING := 4=  = 40 4= ANSI4=3+*MMM $= 4 F= 4P 4= BOLD H=  4p 4=UNDSCR G= H4 4=BLINK H= p4 4=REVIMG H= 4 4=ATTOFF := 4= ( = 4 4= CLRHOM4=:21u $=  4 H= 4@ 4=CLRTOC H= @4` 4=CLREOS H= h4 4=CLRALL H= 4 4=CLRLIN H= 4 4=CLRBOL H= (4 4=CLREOL := `4=  = 44= CSBIG4= !4 $= 4 H= 44=CSWIDE G= p44=CSPOS :=  4= @ =  44= BLONWH 4=WON $=  4 H=  44=WHONBL F=  44= JUMP H= P 44=SMOOTH H=  404=KEYAPP H=  4P4=KEYNUM :=  4= @ =  44= CURPOS 4=TL        ԁ               G       8 $= @ 4 H=  44=SCREGN H=  4H4=SCROLL H= 4x4=CURBCK H= 44=CURFWD H= h44=CURDWN G= p44=CURUP := |4=  = 4X4= SAVCUR4=uml & . . 2 2 6 6 7 7 7 $= 4 H= 4x4=RESCUR H= 44=ORGOFF G= 844=ORGON H= h44=CURHOM F= 44= HOME G= 44=INDEX H= 484=REVIND H= 4X4=NXTLIN := P4=  = p44= G1ASCp4=  K $= 4 H= 44=G1GRAF H= 44=GRFOFF G= 44=GRFON :=  4=  = @44= CWHERE@4=KC c c j h h r s, u u  y  z z | | | ~, ~ }         ;      @ $= 4 := <4= @ = 44= CPSAVE4=<4   $                        -      $= 4 H= 404=CPPUSH J= 4`4= OLDPOSIT G= X44=CPPOP H= 44=CPBUMP I= p44=REPOSIT := 4=  =