'*UD'#'c 8 0a\0'00&?' ġ&Z& 14 &94&쌓'̍$Hl팆0i5n92" 81'3݆0r 00 30&&&[9 (nTSC_F77'-o'TSC_F77' o'F77CMD TSYMBOLSF77  TERRORSF77  TRELASMBCMD  @TF77LIB  TRUNLIBF77 aLLOADCMD TSVTESTTXTT ~~~~~~~~.~D~~~~~~ ~ <~ ~ ~ ~ L~ ~ ~ ~ ~ ~ ~ +~ :~ F~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ,~ O~ t~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ V~ ~a~w~ V~ c~ aZP[fT#:JZIP @ @3EWi{ME OverflowPointerRangeVariantProgram too complicated - compiler abortProgram abort error near line # +G&G!R34@44!44]'ˎŎ' ΄ |{$] 'V'Qǁ<'/>'2 ',' ' 'Z&  Z&o1'50 4~ 41! 9~ooZ&9{}~'~44Ž{}'449' 94uw{yc}52b5 n}4}uwy{5n}~u u 4vjj1&.53b994644h% 55555AL0BFile name syntax error: 0C Call of undefined procedure!46{'&Z&5'52"5np2dn54`3%34F32n5`54`3%34F312n2B5f5n`4eįe54Vf@%턮oo.f5'4d- .d54Pd-.Z^d54@b-.ѣ\0b54@b-.\00b50'94d-.400d504z&2p4vh036&6&6&6&5? 5z &L4v3j7&7&7&7&h5v294"TTT N4o505461. TTT4o501!/53 2h32h3 2h3'2h'4vhh1.54Vfooƒ.f5@4a3a 52fM, CS>32z14d,CSd5 >g'䈀4ddd50h44443?2h- ' . - ' . 99% ' " % ' " o2%_2'O2"? 2%~s/2'nc2"^S4 .o0e&Z&lo5b"52 ]94o0eC&Z&lo5b"52 ]94ol0e&Z&jo5b"52 ]94o0eC&Z&lo5b"52 ]94"TTT4o50& b52]94Vf oo.f54F3f7NON7NON7 NON7NON7NON7NON7NON7NONd5F294F3f7NON7NON7NON7NON7NON7NON7NON7NONd5F294F3f7CSNON7CSNON7CSNON7CSNON7CSNON7CSNON7CSNON7 CSNONd5F29 I\  =& =M&4  =M&%  =%+} *CS9 =4 =4  =_ ӷ *CS  շ Կ * CS 9 ' ڳ % y y y y z &t v ۾ CSi 0H+e+8'.'] 4"W+Z&R&K&D49&4O9'9&#&&49*9O9_' Ȁ G&2  섄 BDF9'_'ՠG'! $#XDVfZf[f\f]f^| &X *' E|  _GDVfBfCfDfEfFz &Ķ  +.$lGffAfBfCfDfEfF ַ BICGE^]EC\[CAZYAĢXĶ $ccAcBcCcDcEcF '4 ַ  ڦ+5ABCDEF':G '6jG&z x iFiEiDiCiBYI*AG' ԄĀ4} &9G9 G'+~' _'OG_G ٍ *OGw_'6M'OG_ G CGffAfBfCfDfEfFv = *%`-E^]EC\[CBZBYX9P8 D$E]EC\[CAZYAĩXffAfBfCfDfEfFv v v v v v v z &9 B D F O_BDF99 X%8 ߣ] \[ Z YX% ڶ iFiEiDiCiBiAiy y y y y y y z "'' ߣ] \[ ZY ۶ ڢX O v ccAcBcCcDcEcF903H ٦X ֊XX Ԧķ ՊĦG9lF&*lE&&lD&"lC&lB&lA&ML*lGĀ493ZBDF'*CSjGXI*m*9G9o03F'I%2~쨰'\쨬'@ 쨶44440zj44480P4448&,쨶쨴 ^쨰4^'0 R40PBRx2~'|0P0O '` &4^ F\XX."X0P0O ' \XX \'4F\^ ^ ^:쨬' 4p/%\XX.c0 RX0OV '90$V'( 94V4b2b404b2b \XX \'4'0x4 4 92~ 43T&>,*042b 44 .T04'4W2b ^ \Z0$<'s<404b2bX -4 XV^\,V ^\&XZ. V 4\V' ^ 9X^ ^y^J>J4 K0b'<.Z404$:'Y60w0!0X'0$<'@<404b2bR0b!R4K0X!600b'0X!0v!<0X' <eZ4<EZ'V<-& V < +&2~jV'-TTj.0b!0v!<0b'T!T +TTj.0b!0vc!60b'TT  0J!0X'40444(0v-44480X004444,44460X004444,4!4460X004444,44"460X004444&, L,^ L^0444(0u@4448,\\^.u\00O'&(0444(0u4448, 004"44(\00O4446,\#x\ \L^4\..0444( 4446,\\ 2bJ',0444(0tb4448&, )0444('4446&,-^\< Z4쨰'# 쨰'<\0p0$hB0$$<'\,N<A`4<Zf'<4A4b2b4a4b2b<00<3 2~0 404x' > K.00  2~04$04 >\%X>2~n<.Z404$:4<eZ4<EZ' n4XY\>'`00<'&<''  4PZ'4 %\>&H\>\<*& >  >\>~w\ >ng\c>W\0$:' 4<0p0B00.04$<'P<A`4<Zf'<4A4b2b4a4b2b<&0'80< <.&f00.2~0 404')0$杇' 4/ > 4 4C\? >3\/>#\ >\> '((Z#1?M_YcJHFDB@}{ywusqomkigeca_  >쨰4\)('>%0o4448<4446"4446&,쨰^4'쨞'{0x444(_4446,^^.I^J0O /.0x444(^J0O4446,^^ 쨞'$*0x4)44(J4448,쨞'(0x444(J4448&,쨞''0x444(J4444,쨞'+0x444(J4444&,쨞'$0x4*44(J4*446,쨞'0x444(&, &쨞'%0l4N4J',4pL4 4쨞'L4&䮈 40l4D0k$--0P*J&40P$2b'[4+ 40P$2b+'#44X40P$2b'0l.4J&]42bP쨞'90x444(0k4448J4448&,X0k4ZJ4]0k4>J4b쨔0,444(0k4448J,4446쨔4444, iEZ40444(0k&4448L4444&,0^^40 J 0 쨔^NwJ4 ;L ->L 6L .0j4448&-,L J4 _L b L L  L  6 L .0j74448&,L JJ.'+0i4+CS40i4LCS.4E^J 30i40^4 /0i4 ^2 (4 ^'W^442X2~^4A\2~^4Z0 X\0 Z 2b/J 4'4/ 2'4!  /J444q W#4Ů4D R0h4Ǯ40 >' 0h4 0h4 "0h44  `4b4 _040hH4O H F&#4#0h,404 0h4 02  |  4L4 4J4 'EL^2~4`\2~L4Z^4J0L'44c41Zb4 c' 0gR4L4X0 \Z 0  14L0L'4c4Zb4 c'9Z4 Z'0f44 0f4L40 \Z 2L0 2x  N2b Q0fe4QL4h0fY4>L4UL4 2KJ'쨢' 0f<4_ 0f84T0f44;0f742쨤'\0f34$0f94+0f84^^.^L0O4^^ /4쨴444i3h''0e40e4 '' 쨤' 0e40e40e4~E 30^^40  0 ^JEJ4\&+ Z4Z'&\\'aJ^4X&' 2~J4 ^ 2~J4 ^^4420d442~ L JL 4 EL'N44b2bcL4c'2~N4^2~L4\J& 0d4# JJ& 0dt4 7J & 0di4 $J5H & 0d^4 J%& 0dS441 2~N4^0d;42~&E2~J4\\5 K42~L FJL @2~J44U40c4T42~L E0^^40 68 0 2~J4_\\ I4u^L IJL C482~J4Z0cJ44^L4^0 6 2~4^2~ 4\^ z^\'4^ r\& '\&2~4 4 =\&7( \&2~ 4Z 4 |z)E J4z&2~J4pL JLhJLa74 ' 4&K2~J4@Zb '2~Z4%L &Z44HZL ZL  0& d'2~J484)L JL 42b *䮈 JL 2~J4L 2b2~4^2~b4\0^40\40V48VZ4VZ' ^44v0a4\4<0ZV&o42~^44A42~\449(40`4$2~^42~\44XI4b0Z &V&2~^4\4%4SZ44%& 0`a4Į?& 0`Q94V&T/& 0`94 =>& 0`*4v (!& 0`4a .& 0` 4L R9/& 0_47 =>& 0_4" (!& 0_4 .& 0_4Z40 0 Z04 2bn2~4:^2~b4\0^40\40V4^ZV&^44r0_T4\480Z (V&2~^4\44:Z 42~4Y^Z'k2~b4B\0^40\40V4{V&^440^4\40Z (V&2~^4\44EZ 4T S2~;^4#V&^440^40Z )V&2~^444Z 42~;4^2~b4s\0^40\40V4^ZV&,^44\440^420Z (V&2~^4\4 4eZ 4t2~4^2~b4<\0^40\40V4!^ZV&,^44\440]|420Z (V&2<~^4\4 4Z 42~4l^2~4}4^4442~J42\2~4q4ۊ\440\44:0ZZ4=0  0 4Z02b A\' 2~\4O\0\4=42~Z vge^' 2~^4 ^2~J4`\2~4 b4ڹ f\44 40\4 2~zZ A\' 2~\4\0[44:2~>GZ  Uyw[2~4^2~4>V^ZV&^44n0[4b0Z2~4^2~b4t\0^40\40V4^ZV&^^444\440["4-& 0[4 0[40[40Z?49 4_ z@Wijhfdb`^\ZX?VTRPNLJHFDB><:420.,*"  ZL o|hEJ\J44b'40Wn$--2b' 4x@s4DbZVZ'Z4VVZ4@ Z'<2~b4X2~4'4X44l4#Z 92~Z4X2~4'4X4424Z2b]JZZ2~Z440Y84 44V2b''4A|4442bVXI410^^Ax\2^^40 04d2b0 04J2b0 4d2d)40U˝$-----2b''X0^^40 04d2b0 4d2b0B 04J2d^\Bh &v4-0W4J4}0^^\2^^40 04d2b0 04J2b0 4d2d 4 42b0'P P2~P44\2~b44C\4[0W$4J4CX0^^40  0 2^2b\ r40V4J4P0^^40 0 4J 2b0 2^2b\ $9\ J\4v&0 DVA4J4 0DHV74J40^^40 042~J4.2b0 42~J4x2b0 2^\2b \2~44Y^0U4404040 04^2b0\2b  4ӱ 2 Eb\LE8^^/^^0 4J&0U4{440T4a&0T4R4 #4+40T4/40T44^' +4 42b/ -4Ҿ 2b*  FF(A^^.B^L0O cJ4'^L0O4446,^^ JJ \0T4448, S0T4448, <0T4448, %0S4448, VJ'J44G GZ4Z4Z'44Ϯ4 4444,4444,4 444,'.4 4446,44I2b 3Z4Z'0R444H8,& H,42btJ'[J44&944Ȯ ' 4& b42b&,42b\^^.^04&\'54I0R 4448&,&,H\88=4NIZ2bZ4444,,0Q4448&, &,2b^^J4ΰ&,0Q4448,0Q4448&,0Q4448,0Q4448&,44;&I,0Q4448&,J0Q4448&,0Q4448&,4歟&,쨢'[J40444(0QZ4448,^^.70444(^0O4446,^^ 0444J(/4446&,044K4(0P4448,&-0444(4444,0444(_4446,&%0444(_4446,^^.I^0O '.04K44(^0O4446,^L^ 4\2b&\\ '% 4& \\ &\\2b'\\0444(,4446\4444,44464444&,2bLJ'J44Z4ZM4Z'J4D& ' 40N4b470N4ܼ4_4d44^4^.-b0^44b44ݷ2b^^ 2b0NK4܋2bMZ4'M ' 40N!4%4܎2b 4Nۃ0N444b92d4ܛ 8Z4Z'4:0M4ۿ4a4k2b 04*@2~04"'J'0Mx4ۣ0M4ۚ2~0N4"']2~04 '-0444(0^4440,O^4 0444($,  04*404>쨢'0444(0L4448&,0444(0L4448&,04O44(0L4448&, *0444(0L4448P&, ,쨢'*0444(0LS4448&, 9E 84!/W0L4XX.A0L 4١X4 4440L 4مX4Px444ڿXX 0K4ٗ0L4َ4~\\' 0K4r\'\44Q쨠' b4o_44؀0K4<䮈 ZZ'nZ44쨠' b42 ' 40K4ɮ422b 4'0K}4ج44b92d4?QhZ2d \0KS4س2d<X40KB4c' 0F74s쨦' yLJR'J42~4^2~b4\&^\L M&^\L ; & ^\9L ' &\' ^\?L L 4Ƅ ]RXZ4'L 4[ 4 L 4C  -2b ES0\4X> &7쨼'64 2~ A^2~4>&E> &쨼'64Ŗ 2SH~ ^2~4['\4خX4 E>&4&  JTZ4Z4Z4Z'  4'_Z4Z'3 '$ 4T8' 4ċ䝜2b 4v n'i&V쨄0XX4쨈2b & X ' U X턮 X  4L>&0 42bخ 4䝜쨖쨖bZZU(0턮0> &bκ,N04b2b204b2b턮04bV2b Z Z'742b>&< 4Z4')> &!>&nV  4¬ &^ u 4 Z^\4\.@b0\b04\4b2b4^9^\\ 2b  W2b^2b  4 => &E  IE>&d0^^4W0 쨈2b\Z>&^4&[ '䮈 '4y >&/0 42bخ 4䝜2b 4 X940@$--2b'C '2 4''4 '42b 4W H&=0 42bخ 4' 䝜 䝜2b40?W$--2b2b˨2~\> &:˔\Z0\ Y\40 Z2b\042~ ^\>&L 4 {^4X&>'/0 42bخ 4䝜2b  *& '쨾4'4x2b^J * 4h0^^40 쨆 Z2b^J E>& 2~=J>&$`2~J>&L 4Y0^^40 >&0n >&)Z4ҡ0b!ǥ0쨔>&3S4p44W0쨔 ɟ F [>0&0ɀ '>=&0a 4^J2bZ E2~^> &6-^\0^^40 \042~s2d^J E2~^0$>';>Z^\0^^40 Z\04 \2~P2d ^J E02$>'>ZXj X2~[j^0"$>';>ZG^\0^^40 Z\042~'2d X'+0\\4^0 2b\^^J AE>&& X X2~#^0]$>'9>Zǝ^\0^^40 Z\042~\2dX'+0\\4^0 &2b\^^J dE2~E^>-&8^\0^^40 -\042~ 2d ^J xE2~^>@&;>X^^\0^2~oZ^40 X\Z2b ]^J E>&0?49n4O 2~^2~4'4M0>4Q E 2~^> &2~(\2~^4^^4 V 'V 04V _XX.*X0 4V&^/4@XX 2^4ZZ2~\4O\44o4&^44[40>4W2~^42~\44CXI4ϕ2~\4I\Z& 2~\4\\44^4T& &`T2b0=4ʋT'[4i_x^4fT']4Vˊ =2|\4\^44х0=C4̉4 IE  4 2~J4^&:,(04J2b 44 >&n4an^><&ö>`h&4& 7Z4Z''4 4^40<&4쨈44ʕ.,2b  4  4  4 0;4 J4&Xb4&6 aX'- 4&2~J4L 2~J4ނL2b 2~J4qL2b 2~J4սL 2E ^L\\'O\4Z4 Z'042~d472b\ 2~\4"Z\2b 4͊4͂J'q2~L4V0:4cǸV4#0bH:4V460XX40 0 042~L4%2bV 2b XL\\'^\4^^Z4 Z'2~b4,4R\ 2~Z44;\42b 0: 4L44^^'$094^XI4d20c894^XI4WXN mE2~y^®^44&/0 42bخ 4䝜2b :Z4Z'2~^44\ 42d E> &3>& 쨈d(e 쨂> & 4 쨂쨄'4 &q0^^4쨄2b~&^~쨀'^^0 42bخ 4䝜2b2b쨄c &&#4 E J4e'f^Z TT'T4\^'^4Z4 Z'K\VV-9b0V444b2d4X9X2bVV ^ X^b04\4b2b4X94ZZ\\2bO2b ZZL Lf 4g0444(064448&, 쨐.> c4쨐W'> Z4> Z' :4<>&4ns> &h>^ ^ ^^'E>&52>&nCSfn >&0b!T0hb' > 쨐J 쨎&J44`  쨎&@0444(054448n4444&, _0444(05q4448,쨎0&+0444g(4444&, :i=&.0444(4444&,  '쨎& 0b!y  G .4R>c4> c' > &s ;E`XVT>c4Xh'^\Z>&~0^^\^j42~> & 0Z\Z\\42~ > &0^ZZ'Z44&c4c'84D'Ѯ &0444(_4446i,.M0O '/044k4(0O4446, =0444(024448䮈 4444, ZV'94U24~R4V2b&RT/g0444(024j448RT4444*44464 l444&, RT,;4V'V44T2b,i0444(014448T4444*44464444&,2bR/f0k444(014448R4444*444 m64444&,VRTT& P PP.4 TT ߮Z2b> &   4VX> &>V'V4l4T2b,i0444(004448T444 n4*44464444&,2b  E,o4&c4 c4c'14mF2b0 42bX4X.+ oX0 4&/4XX 2L4T\2~4' 4 \4440/44\J'Z2~J4 Z2~4K' 4e Z44nx40 0.4\4 0 2~N4Ȟ^2~4' p 4 ^44J40.}44l0.p444i0 &>0.J4 0.H44`0.C44O0.>44> I0oh.444+0 / 0.4c 0.4X0.4O4 *4 EqL>&,nTT.)42~n4V&',  44V 1V04Z4]')42bV0pX4nCS2b>&x쨈X> &^2~^> &@q2~\> &]2~rZ ZT40X4^4\4Z4G 4  4  4 40,4J4| 000qH0ރ00662~J444>0,G4x64,E/000'z>s&![2~}^>&G 4>,&?20+40ԃ0040ރ004^4 4 4 r84D'-4x>#& !/}000'_0+E4i0ԃ004j0ރ00t4U0ރ0066000 4 4\b'-4/Is(0ԃ004000'0ރ004Ѓ 4Yp>#&v >&u~fTT0*4m-^^'>&4\& t 7&  "&\ 4w0 42bخ 4\' 䝜 䝜2d  44>v &r ^@Y^Z\>&0)4O0)4^`4< c'<'u&-Z'Z :'&<4\\ ZZ' <(& ^^ <)&^^<"' <4u 0({4\\(-0(j4\0(w_4YG0(Z40(T4{^'34W ' 4 t &4Ԯ04u %4 ^4Z4Z' %42b %4~ 2bE쨺'4M2~Y^x^4444֮b040 42bخ 4䝜2bv'2d|ErȎ>T& ><&  4Ȏ Ȏ'>&!n40&4n4">&e쨈ȐȐ4yZ4 Z4Z'#0&\4CȐ44]4L 42bwd>&R1\ȔȒȔ'\\2,L\\>& n4\0Ș00n  4> & Ȕ Ȓ Ȓ'$4i>&> &z>&4&  '40%X48쨈44xI0%E4f\444^ȖȖ\.(0%%4Ȗ0Ș004yȖȖ 2b  4 4  4k>'f>*& XV #> & {XV >:& XV>'&5XVu> &j>& ynVY  4 J>&< &" <)c4< c'<\< '<-&< ' 4>*& '> &  >:& >'&E> &,>&n> &  4  >)&} 쨺'0a44<>{Eu>&h2|^2~4\&^44[40"D4Z 4> &>IZ4>AZ'>X> &{2|1^2~4p\2~^4Z\&B2~^4ç4~2XI& 0!4 0!4Z4|44 43  4) g>M&We> &BZ2||^2~4\&^44M40!L4L 4  4 54>& 40!4 "4>\0^0 4>&n46 e>}x&1S4?44&0 4^쨔41^p ,>'\9& 4 4 40 v4\9& 0 k4 0 f4^4  DEL4X&S4Z4Z 4 c' 4~hZd4Z'X2b2bX'72~L4t42042~L4J449L4J$2~L444Z2~L4ʮ ?0~4Q2~L444D /0d43 $0]4( 0V4 22~L4^2~ 4\2~^4XPZZ x2~^44204\444 W^444KZ& 04 044 !04n4 | G2bE>&/^XZ2~V> &J0\\40 H VZ'Z\\ZX&\X2b2~V > &2~ܵT> &}2~ܟR> &i2~܋P P0^^40 TR P XV&04V2b 4^2b>& 4 4  4 8^J 2~J E4&J4b04d4f 4h 4뢮^^'`^4Z4 Z'0&4L4J4 4L48^ ^4L4%^2b J4> 24E>&2~^'0^(4J 44 2~^4J40,4J& 48 4. 04mL'N& 04 04 &N& 04w 04lJ444tE>& n4n404; E>&(2~^2~44 204 > & &4&EJ4J444]> & J&!4B/>'J4V> & _J4D 04r@E44b4HE'42~^044f^04VE ^ZV> & J4 l2|^2~41 G4K K^444 82~^4`42V2~^4KT J4V4T4> &+0$>'Z' &4 Z>X> &X(Z4XQZ'E>&3n4ڇn4KX(& 0V4 0R4  4L iXR&Y>&014Xn4n />&2~*\2~44d4 &404Y &4 &4>&-> &Z'04 042 4E>& 4 44"'4Iq0=4>EA2~^^4444֮b042d44aE >&!2~^>& 4e>,&C,,0ԃ0066^4 ,4>&#nZZ.4D> &7>&nXX.4> & >&nVV.42~^4*^2~4i\&^44 0\& 2~^4^044% 4K,0o4fZ40f4VX40]4FV4  4 !4  4 !4o2~^4t^2~4&I^44$4040$>'> TԼ m<q&T~|zxvtrpnrjhfd`^\ZXVTRPNLJTFDB@\<:b6|20.,*(8$" 4:DH X@ 4w04 4~F>c4쨮'420^4쨺'0R$>'0 440B$>'쨸'4 1>5c4'049쨴4440>(' 쨘'0$>'.40b$>'>қ~կxrTl؅fn`*ZT2NHbB<60%*+$9e oM9bT~|zxvtrpDph xR`^:PrRPNLJ&0:J`v20.,*(",6JTX4 4쨘' 4;>'4'^4>' 쨮'A,00B40h0֝B^^00OXX '&^,^^00OX  X ^-XR^00O.&1^\\-"\00OA-R\\ R'^^^,^00.^0փ0.^00a^0Xփ0l^00s^0փ0i^00m^0փ0t^00 ^0փ0 ,0OX+&\,\0OXX 'XA`4XZf'X4A4b2b4aH4b2bXXl& TXt& CXd& 2Xs& !Xb& Xn& Xg& Xo&\\,\0OX=&\\Z,\0OXX 'GZ00XZ8Z\,"\\,\0OX  X Z00 804448X4446"4446&,\,"\\,\0OX  X)쨠444쨬'0(4~0"40 B642a^^z.-^0xa00 ^0Da00^^ i^^n.-^0xa00^0Da00^^ 2~040 14F04*404> ΝE2.0p0  쨞 '0x4*404>0 0ܝB0 0ΝB040܃00΃004*404<04*@404<  2~04"'P0p0RB2~04 '-.-0*0$0ڝ$&-@---=-0-0*0$--02*0$--0"*0$ - -0*0q$+-)-O-0r*0r$0P$'-*- -:-0R*0.$C-D-"- H--7-8-0R$0B*0$--1-B-G-6-J-9-K-L-S-$-;-P-T-0*0$6-#-S-;-(-E-T-0*0q$-T0^$A-I-R-M-Q-<-,-0$0b*0%$(-Q-R-0* fE 4*4,04<>>'1;2j4 04*404>10s4448쨶44440r4448,8&0`4448&, <0R444884444034448&, Fortran 77 Compiler 04/01/82F77_main Page ***** * line # __LL} fdb fcc '',"'",'',0Bad character: " fdb ,y,y jsr __L ldx #__ fdb **** Operand type of operator ******** Operand size of operator **** leas ,s pshs d pshs x#__Z#true#false#__S,s__Z,xldd tfr d,xldx name global initdbinit pshs u,y,x leay 4,s ldx #debugtblPAenter fcc / ldx #0stop0PAexit leas -4,y Return puls x,y,u,pcpushrealaddrealsubrealmpyrealdivrealcmprealnegrealitorrtoicmpdcmpstrtsteqtstnetstlotsthitstlststhststlttstgttstletstgeadddsubdnegiimulidivipowiipowrrpowirpowr eorb #1 puls a andb orb ,s+indexleaxldxldxleaxldxstd ldd addd __DOm3 jmp __T__F Integer Real Logical Character StackUndefined labels: Do statement terminator Name Type Size Offset Length Segment==========================================x==================External Routines:Name Type========================= fcc / fdb data fdb __A bss__A rmb equ ** Constant strings and literals data** Debug Table datadebugtbldebugtbl equ 0 fdb 0** Do control vhariables__DOm2__DOm3** Local variables and Parameters bss** Common blocks common__A rmb endcom end ldd #setunitcpystr std cpyreal stx backspace leas -,s jsr leas ,s fdb 0 fdb fdb __A rzb rzb rz b rzb stXd __DOm2 std __DOm3__T std DOtest fdb __DOm3 fdb __DOm2 fdb __F cmpd __DOm2 lbgt lblt __F__C lbeq jmp jmp endfile lbra 0f fcc "(",/"/,"" fcc "" 0 jmp jmp [ ldd goto fdb opnunitopnfilopnaccopnrecfope n lHdx #__S jsr pausestopaiordcrdirdrrdlwrcwriwrlwrr ldd # jsr setreadwriteifrifwsetfmtsetfmtendioseteofseterr ldd #setrec ldx #$FFFFsetfmtrewindtstreal lblt lbeq lbgt beq 0fPAnlUnknown option: " lib F77.8lib_F77.com unknown******0.SYMBOLS.F770.ERRORS.F77 Wrong Symbol Table!Fortran 77 Compilation Complete - lines - No errors - errors external assign logical .le. dimension if rewind .eq. .not. character end function integer program then .and. .ge. .lt. .true. backspace continue else endif format goto implicit intrinsic pause real stop to .false. .gt. .ne. .or. access call common data do elseif endfile equivalence file open print read recl save subroutine write err rec return go Number syntaxString syntaxUnrecognizable statement Too many continuation linesIllegal labelLabel on continuation lineBad logical operator Expecting ")"Expecting IdentifierExpecting "="Expecting "to" Expecting numberGOTO statement syntaxPart of line ignoredExpecting "/" IF statement syntaxPAUSE statement syntaxSTOP statement syntaxMissing iteration limit Expecting labelExpression syntaxBad character rangeIMPLICIT statement syntax Illegal constant expressionIllegal symbol typeMultiply defined labelMisplaced statement Statement not allowed hereUnmatched or misplaced ENDIFUnmatched or misplaced ELSE or ELSEIFExpecting "THEN"  Duplicate declarationExpecting ","Expecting "("CONTINUE statement syntax  Too many labels in GOTO statementParameter errorREAD/WRITE/PRINT statement syntaxWrong number of subscrip  tsCode generation error!!!!Illegal DO destination labelDO statements nested too deepDO statement nesting  errorIF statements nested too deepIF-THEN-ELSE terminates outside DO loopImproper DO terminationDO control varia  ble reassignedNot an assignable variableIllegal DO control variableImplied DO loop syntaxFORMAT state ment syntaxToo many labels in program unitOPEN statement syntaxDummy array bound not allowed hereArray ha s too many dimensionsVariable not allowed in DATA statementVariable already initializedDATA statement syntaxArray elements out of order S Copyright (c) 1981 by Technical Systems Consultants, Inc. Chapel Hill, NC 27514 |: 0Ȁ큼+%9+32Ȁ0谯ȥ0i05Jȧ0 8ȩ%1ȏ4 0Ȁ&50s 9Z&90p-%F0p3111 30p'"('[+0-$04c9('D*G'$ 4(5'4+20/_' 0m&04 4o5P&ͽH%]('* ȧȶ'(&&0<*ȏȥ$04-GVGVg-ȥȣȡGVGVXIXIȡȟ ȓJȑGVGVGVȓȕȗșț j^ č^ħAoč%^9_\ \%\i_i^i\J&c^c_d\94\d^f_$\\f\f]f^f_j&5 01ȏZ&Ȍ&Ȁ' Ȁ'0_-90 939;9 & R E L9'  9&:ȅ',4|"]&02 Z&02 02B"5_Y&M 𲦈$9&@02k 0009R E F9~~ mȆ&9mȆ'~9 ? 0 9'ȱ&Φ9'oȱ0p" &OaȀIȁBȂDȃEȄFȊ p'`ȱ& !9'9&~ȱ'Dm'#mȀ'0O&Z&oo9B'lK'01Q[Z&90B1H4 %5ȓ크ȥ%9DȼȾ]}Lѧȹȱ9ȸȊpȗZȟx0 0P0 1O4 &0p"9O021B4 %5ǧKRD%']&Ȇ̮ȗZ0ӯ0.ȟv)e9ȏ0oZm5'+j5Ⱥ 5J5m6',Ⱥm7&Om;&OF''t'(&Dm'm6& m2'm5 .4ئ9& m6&r&9E ) Ѯȏ0Zm5' +j5m6&Ȳ0ȲȺ 5J5m6'ȺDm6&Ȳ0ȲȺͯm7&m;&F'+&' 4(&&(( D'"LL (yt''' D&ަ&'O' ''m&*mL+ ' Lr'I'#b O 3 ;'+'X7'C'N6'['J&oŦȇH& 'B' B&oȇ4T5Hȇ&m6&m2' m5'*ئ9&m6&r'}9*'0ȼ_0) Ⱦ'0Ⱦ0)>'0>0) ܦB&0-=׮D'0DDEI'"'ަD'oQ9D'  9ȹL0į00Rdŧ%%O[ȧcGܧݧutzȧ#!Ħ*&;& mp&0 ' 'GZ'IZ'*~&c =0~&&pw W\=l0 lu/t0tZ'+Z&0 $XmȌ&FF'*FF 'k ' m7&ju'WoGd'4 1Z5 # lc?#_0 ߯č?'!__A'B&\\ ' & #&9!0 &90 ' &90 ' 9tXXXX/4 t9O `ħA̧çM§Į!BP%GVG'p- P P SBA&"c&03RA'HC&0 @S&0 7m7'94XIXIXI0,904c1R& Z&'55c\:\DD[ #j1ঀZ&[ #0+[H00m7'9n&+ P[m7'9#ɯV6'J C&om6&دTl6ZR턯RV0Z!XHZ_oo0 '0 H';X"'A''=',' HXoaoo_a_ Zș%0*g91!' 'ħ 0pmȌ&0090  @h   S1Dmq'!}"(Om'*ȼȽ'@O.  mȱ'b9 9mȱ'\ gf90' )$945+9;& ;999405& 0Q94oo ߮ȣ00 $$mȋ' "& "' !&1, 5410 -Z&5 !9'01_\ &9fI[B~%-XXXXᦀ,& l%,'*SĈ&FO? Z'%'5" 4'ѦA l9B#'  0BZ'A_߁'' '& l' ' A}19Z'"&m&\ $\OD0-oz $m& &l m' ' OE'Z& Z'S@ LZ& 7B#&,B B & '݁' Z'Ӌ@ OΧЧ͆ϮB<& 0 >&0[&0_A& B& D& ,&$0*,'-'S'#'>BǮB,'m'&]&' #Ϧz'8jGw&0'B4&;+6& &/z&&ġ3&`$lġ3'BO <ȋс~'&'m&!įȴOD0]&!ȴĦAa90-''e'0L0-&<0-&/07& z.&+&oO0𦄁+&c0 ZA& ]'Kozm'l < Bįަ+OD0&&+'ޯOD0B'τ ':]&40ϊϦ&#' τ &*ĪA& 'J r CBO 6Fz&+j&M&cτ '?ĪA&!BDτ&"A'SC&&τ`ϦAϧ U& B F$O lϯBAЅ'l W90 8,l[ ' ħoAȩ'"B,&0B '    Lmȉ& G'L& #hy[&' ' '&_r[n[ '>Q :&Y  =9L ' 0'0 &"5[&mȉ'(  D*& 4]' jZ&59& \4jj59ȇ&m6' \0Ȳ]Rڮ0 _*'c;& mp&Z0 '` /\E%eOm'[\T'=m& \%+B$ - 4' \% ' 0 2b9 ' '0\ 0&945 mȆ'$ȸLȸ"o94 5DDDD@903lɍWȣ0܍p 0'-4DZ&<0܆5ȥ'Z& 4 :5ܬȥ%`90 8ȣ ȯ0ȯȭȫȫȭ4#o%0 4 '%144&0 144ȭ4 ȫ5%4 ȫ$ ȫ3 /ȫ ȭ$ !ȭȭȫȭ$ 0 8 !ȯ'c94ȯ큯ȯ59ȥ15ȣ'0 4 %'1,9& 4 $14  9 4愦砧5Z&014940m' 0 1)&Z&54K'0m)0)]&Ȇ4OȸK'Z&0Ȉ& 0oȴ "㌶ "ザK-zA-p70 "0)b '0ħ5K5959ȵ0ȴ_00PoG&ImZ&'ȝ&0w &P0'&j7&Pȝ'oP l7C&o9ȓm'$R&T&V&X&90 ȕ&؆9RV0V\& &' &R09 #r&$01!VR1$m'J+ 1"' 1? 0oG&-k '& 'l< &;& m<&l:o;9&m<'j< m;*m:'j: m;*݁&l7 ԁ&m7'j7 o;0l7j7[& $''''' !''M&B9!' &  ,&, $&9'''"&ۧԦ '&9o90p R'0!o9j2'+20PZXX:^@ &0"o گ94@0@D0D5' #!Bo9009l459B_9'__1N'1$m& !&1"0]'0&B9B9,' ' ' %M9 '9OħAfgz"00hB!>&g&ooA' m'JM&z&hĮB&O90'&&0B'  |'f90B' ҍ<'섁=' <& >& @0 >&4'=&00B4 5' ƍ,'- &&0B' +&u0B'# ֍,'*&g0B' /&S0B' ֍$'Ǧ<'>&&0B4+ 5' ަ-&0BӍ%')+& 0B !&0B'%'9 &(&!0B'름)&0Bf9'Z&bof9*&mq&)4k '5 $'&%')@',"''&$0O0BD90 0 0Bk394/t;Z'Z'5 q&Z&0_5tB''F&mZ'Ql4%^450B94 5 S'0H'%0U'nZ&kBo^o_mȌ& {Bg+? & (&'l'm'%e lJ&l !=^̧gZ& mȍ&iog Bof9ooAE9Įh0h턮B9^ h0h^90%9#A%Z#_' a%z#_999>^ ;^0 C\0\F$ 45df )ffZ&&pp}\^^0\4H%iiii5Z&4AĤ^_#0Ī^_ hccB9o\<'\ ^'m\&XI DV0& 4^5<&%- (Z&'$ Z&" Z&# Z&& $O l:$ 9 *$4'`^^^5O^^0 9o^o_9h_i^9򦄁a%_G*** + ݍ۫__0 9˦0+"Fi_i^0 퍶0+"ލ__0 @ p&&l9J&j9M'' ' 'oz9o999&"94O545&'O 940(P +ʧ540ʦ|{5|9|9'co9O{&|&9JO '' &9B#'.00s%2@&' m'&ĪAA,'90B9OħA94τ9_X' Y'U'S&&&DFFFϧ0)@O9_P ,&"_C&'_R& &\00O9A'SC&]+O94@@DD5oGmF'2b9+&o9' ooA59 ''+&9+& 94섣IF9mq'%D%'r00..1妠8Z&.&mM'.O*0.1?&91 < -'.. mq'^l,4}0}05'9mq'Y4$,'.01! Z&,}0}00.5&i9l,4}0}05'94$,'10Z&,0.5ȏ00&ȱȏ' &r9ȫoH0p2'+ @&v '{#mH']oHA .%VC# a%Nc"J_1?ȫ'\&& 41!@ȶ 0Z' '',& 즀 '',' &&Hy'u!9>0>9Z'>z'5_@0m'@0m' m'ʀm' mz'c_9z'9,'91FmȎ& &0jB /NONȣ9Nl%l'Nȣ99'J&89$pFHJLD ܦm'mq'm'9F&H& J&L9I' 'f$9O9 RTVX9 FHJLoF91F- Z& 4&2cO9050W# 0Z&94!4N N%NiiiiiOiNj&ccccdNfO55NXIXIXINXIXIN9noXIXIXIXIXI9v0x$&99vmu'0ȟ%&99xȡ"Dܯvm-q')0x9v0x$ v&999 19 9 9 9 9 '99 9 @9 9 9 9' '99 9ȣ'0 ȥ%9 9 9 9  9 9 @ 9  9  9  9  9  L% lZ jZ.99  9 Z&90F1RmȎ&`%_ 2Z&91RZ&9lj_4jlGV&jXIj&n5mI'"41ﯤ"08Z&059mI'341ﯡ0禀Z& 10Z&0 5946'JH11 0/F1m5mZ' 461F00Z&Ȳȳ569BLSGNY 3DWPAFXIUOLISBNOLBDBGpNODpCON+NOC+MACCNOMCEXPJNOEJPAGKNOPK1111B1Z1{11111111222,2H2U2l222223*3V333344/4H4b4|***0  Error(s) Detected** Warning!  Warning(s) Reported Excessive BRANCH 4/JUMP(S) DetectedSymbol table overflowUndefined symbolMultiply defined symbolUnrecognizable mnemonic or macroIllegal labelIllegal operandRelative branch too lon1gSyntax errorIllegal indexed modeIllegal constantIllegal optionOperand Overf 5low!Unbalanced clauseUndefined in pass 1Not allowed in this contextMacro existsPhasing error detectedIllegal relocatable expressionLocal label table ove2rflow Externally defined symbol used internallyGlobal symbol not defined in this modul 6eShort BRANCHing to external labels not allowedExternal symbol not allowed in this contextOnly absolute symbols allowed in this contextOnly one ext3ernal symbol allowed per expressionToo many common blocks!Too many qualifier header labelsMult 7iply defined external symbolNested common blocks not allowedForced address truncatedImmediate value truncatedIllogical forcing ignoredNo p4receding ABS--ORG ignored TSC Assembler PageLast Assembled Address: Symbol Table:Delete Old Cross-R 8eference File (Y-N)? Delete Old Scratch File (Y-N)? Illegal Option SpecifiedIllegal File NameNo Such FileDelete Old Binary (Y-N)? 5pMacro Overflow!Insufficient Memory  AB DCC PCDP XY S@U@ * 1^^A 9x&mj&Tu/7?kABSABX:ADC$ADCA ADCB ADD$ADDA ADDB 6`ADDD AND$ANDA ANDB ANDCCASLhASLAHASLBXASLDXIASRgASRAGASRBWBCC$BCS%BEC$ :BEQ'BES%BGE,BGT.BHI"BHS$BIT$BITA BITB BLE/BLO%BLS#BLT-BMI+BNE&7PBPL*BRA BRN!BSRBVC(BVS)CLCCLFCLICLRoCLRAOCLRB_CLVCLZCMP$CMPA ;CMPB CMPD!CMPS!CMPU!CMPX CMPY!COMcCOMACCOMBSCOMMONCPX CWAI<DAADECj8@DECAJDECBZDEFINEDES2DEX0DUPELSE\END@ENDCOMENDDENDDEFENDIF`ENDMTEOR$EORA EORB EQU< <ERREXGEXITMEXTFCB(FCCdFDB,GLOBALIFXIFC|IFNXIFNC|INCl90INCALINCB\INS2aINX0JMPnJSRLBCC$LBCS%LBEC$LBEQ'LBES%LBGE,LBGT.LBHI"LBHS$LBLE/LBLO%LBLS =#LBLT-LBMI+LBNE&LBPL*LBRALBRN!LBSRLBVC(LBVS)LDA$LDAA LDAB : LDAD LDB LDD LDS!LDU LDX LDY!LEAS2LEAU3LEAX0LEAY1LIBLLSLhLSLAHLSLBXLSRdLSRADLSRBTLSRDD >VMACROPMUL=NAMENEG`NEGA@NEGBPNOPOPT0ORA$ORAA ORAB ;ORB ORCCORG8PAG4PSH 4PSHA4PSHB4PSHS 4PSHU 6PSHX4PUL 5PULA5PULB5PULS 5PULU 7PULX5REGlRMBHROLiROLAI ?ROLBYRORfRORAFRORBVRPTRTI;RTS9RZBSBC$SBCA <SBCB SECSEF@SEISETtSETDPpSEVSEXSEZSPChSTASTAASTABSTADSTBSTDSTSSTTLxSTUSTXSTY@SUB$SUBA SUBB SUBD SWI?SWI2?SWI3?SYNCTABCH_atan2 Pcpyreal UXabort _asin asin!X 4vj05pushrealfltbuf cpyreal fltbuf datan fltbuf pushrealcpyreal _atan atanP 4vjLlNLNg' 2D05Iڢ pushrealpushrealdivreal fltbuf #cpyreal &fltbuf )datan ,fltbuf /pushreal7:pushreal@cpyreal _atan2 atan2, Random I/O Operations not implementedabort backspacbackspac  4v3j4i55v29dcmp cmpreal cmpreal!Q 4`hfd-45&/.0쁣'"-4 5&. 4 5&-5`2fncmpstr cmpstr"!X 4vj05pushrealfltbuf cpyreal fltbuf dcosine fltbuf pushrealcpyreal _cos cos#X 4vjNN䈀P05pushreal fltbuf cpyreal fltbuf dexp fltbuf pushreal pushreal)fltbuf ,cpyreal /fltbuf 2dexp 5$fltbuf 8pushreal;addreal >ApushrealDdivreal Jcpyreal _cosh cosh% 4F3fdl5F2h9cpyreal cpyreal&= 4`fhd4 5.f-4' 5. 55`2fncpystr cpystr'  LLll<<<   \ \ \ < <|||   \\( ) * + , -./0123456789:;<"&*,.6:>@BJNRTV^bfhjrvz|~_IF _OF_tbl _PA  =_OF_end _UNIT _EOF _ERR _FMT _ENV fltbuf rndm format puright puleft putrm sigcnt sigcn2 scalef ftoaerr fpbuff data >{ 4p11'(*' (('*&#&0*00Z(ή 3B45.004' 45 ν(*00Z/0 ?&ί(  00 (1.5*&9' (4' &2b95$큿9w4 '054949(9(,9" (,) = COMMON block  @ 5n ABpcrlf setwrite )Gwrc LOwrs \dkpwrc wrs wrs wrs wrs wrs wrc C wrs endio #<KPWZ\^`ehcvti swrs }wri wrl pushrealwrr wrc wrc wrc  index Xdebug debugD%, 4vj, 0oZ.05pushreal pushrealsubreal !cpyreal _dim dimE 4v3jh5v2h9DPDIV divreal divrealF 9endfile endfileG!X 4vj05pushrealfltbuf cpyreal fltbuf dexp fltbuf pushrealcpyreal _exp expH 4v 05itor cpyreal _float floatI;QH+cH+6O','[4&YH&RJ&KL&DN49&4O9O'9H&#J&L&N49*9O94P54P5o8H+.IJKLMN'3HjO&jCh8iNiMiLiKiJYI*IO'IĀ4HmC&9O9CO'+ JJ' 4Pl5OO "4P]54H8J:L5HIJKLMN9MFEMKDCKJBJHAH9f8cHcIcJcKcLcMcN9FDB90Hooooo'kM*CS)jXI*m*90HO'%*@7/EHIIpHF'I*ΆOH*KH90Hoooooooo90H'O%EP'K+E*PmF&m' '%CS nk(-xŬbIgOL}# =pznOwQXes'ŬGGp7ljmVzCi+waf p_A6c[_/ $\ oPYa.BKU4$5 \R|:OfMK8w2MH,ĎR0TODF0XL1AO'I' HHHE*PN=mE+P\F0O$jF %lF .7+DH*J+|H-_XYO'FXLFYH*J+IFX.Y.YPX_YM'oAJ 4+"' J&H* HN-A&bOD| O& 1_H*H-¦F}+4.S.R/NX+ M*X* _ FYX.A.M'9_yL&XX/'Y&"F'_ pDX*JY0VX' AjX&.+VY4,j*2a}.*Y+%.L'R%O Y\:R$ RY1R0j1R40TTTT0T' .' %]'?0}/ '| 0T& 0lFD&愧R%&vR&+00j1'.&j10怯R '-& 0CD'e:F+J*@--&"& ' .- P90R瀯Rl19o?405&_V9 %l?x ?iZ'AE # +4 M5 $H'#HH0:mE* _ % \ 9LNHJ9LNHJ9L$N&H J"9LNHJ9lN&*lM&&lL&"lK&lJ&lI&HML*lO QĀ4H9 H+O'BOv0O]'0`VMl0`k8t0\jO'c0KjOBGOO9aÂu"6ۭaÃhf ΂V0V9+%ISʂ-:찂]d.*:o*00. R0"0x0@'HHO&CJO\Z00G4HJLN5 lJH+O'% J?OoB ?OB0BB 0NN0 o0W0K0E0?'lBX SX0F:O?*CH0-0oJ9$bȁ @]͂7TUk1r|Kܣ< ~ϙe`B4V07.V0V0 j' V0V 50yHH00^0C0L0T0m'l T0<0OO?M&O9 ֽ;_A߈ Å+ڨ1!Cz8;)\8;)\H?H0dHm?*CS?A?HH9<0ĦHH0s0 %0O AA@@&0R0b00U 0d0D0ͦ@ U' O'HH9Iڢ!hIڢ!h‚Mb3#g%:)PQ*#~YC,5$7[>,"/ITBT9!O'oBHAH%MƄO0O'O0 0wHH00 O`"oOkcB 9OlO'O0?0V00 O`"oO-0r0PT0|00x@XXX0@:jmB' HH0XAHH9$y XE~+{~a{m}zۯd~7&mc8+ }]^$}4 8>+1Iڢ!h€Negative argument to sWqrtNegative or zero argument to alogArgument too large for exp(x)Floating point Overflow/UnderflowFloating to Integer conversion error|DPSUB DPADD abort DPMUL DPDIV abort rndm rndm rndm rndm X rndm rndm rndm rndm €rndm ƀrndm ˀrndm fpbuff ftoaerr putrm putrm Pformat ]puleft upuright puright puleft format ftoaerr sigcnt sigcn2 sigcn2 .sigcn2 >sigcYnt aformat qvftoaerr sigcn2 sigcnt format Āfpbuff format #fpbuff *ftoaerr ^format format putrm putrm Āputrm ˀformat @Cabort ׀abort  abort ڀabort drnd xdphalf Zdpten dpone Jftoa scale dsqrt dtan dlog dexp pdsine gdcosine jdatan 5fltpkg[>T0H+e+8'.']4"W+Z&R&K&D49&4O9'9&#&&49*9O9_'ȀG&2 섄 BDF9'_'ՠG'!$#XDVfZf[f\f]f^|&X\*' E| _GDVfBfCfDfEfFz&Ķ+3$lGffAfBfCfDfEfF BICGE^]EC\[CAZYAĢXĶ$ccAcBcCcDcEcF'9+5ABCDEF':G'6jG&zxiFiEiDiCiBYI*AG'Ā4}&9G9G'+~'!_']OG_G}*OGy_'6M'OG_GCGffAfBfCfDfEfFv:*'b޽E^]EC\[CBZBYX9P8 D$E]EC\[CAZYAĩXffAfBfCfDfEfFvvvvvvvz &9BDFO_BDF99 ^X%8]\[ Z YX%  iFiEiDiCiBiAiyyyyyyyz "'']\[ZYXO vccAcBcCcDcEcF903HXXXķĦG9lF&*lE&&lD&"lC&lB&lA&ML*lGĀ492x4Vnf_3hBDF'*CSjGXI*m*5֧G5֎40d,|'I%pushrealJcpyreal RUabort ipowr ipowrp 4,CSm,CSh5_isign isignq`4954v'b' 540mK&KDN% H'"6D' & D6DD5 ~4 mK'mJ'DF%H'ϮBDw&a&& 1?B$B ڱ&^X$B Á ' &$ rN%1?}#&$ .''OjlJ ;' & N%FDD546mK'TDB'NBw& ' $D% ' OQD%BD' N%54v b H 5v~-&H'iw'' sO;~H9H' 3-9I/O error # Internal file Overflow/Underflow while closing file # while writing on file # while reading on file # UNO 9A_FMT P^adgERR pMODE wEOF  rutcvti cvti ERR _OF_tbl _OF_end pcrlf pstring putch getch iflush 6IOERR fclose getOFe lowiou 4,h5_max0 max0v"7 4vj-j ln5pushreal pushrealcmpreal pushrealrtoi _max1 max1w 4/h5_min0 min0x"7 4vj.j ln5pushreal pushrealcmpreal pushrealrtoi _min1 min1 y 4v n5 idiv _mod mod z 4v3jh5v2h9DPMUL mpyreal mpyreal { 49negi negi | 4dd5negreal negreal }9S 4vjh- 12~142bl5pushrealdphalf pushrealaddreal subreal cpyreal "'_ifix _nint nint~iO<4vQ 0SU4#4@ 54vhh'' U54v4jaj#4W54vS54vS'U&qU&#' &oQ&-3%QHBDFS&0P 0P/ NKoJ#ME'me& wIK& K 57'O K 4d5f~544#-$O 55S& 39444'b445directDIRECT444 'b44 5sequentialSEQUENTIALfortnn.datxxxxxxUnable to open file "" on unit # Both "recl=n" and "access='direct'" must be specified to open file on unit #Record length too large on unit #Illegal access mode on unit #Too many files open to open unit #File name syntax error - opening file on unit #5g@ng cvti "'cpystr :?DJIOERR P]bgnuzIOERR getOFe fclose _OF_tbl _OF_end IOERR IOERR :@pcrlf Cpstring FIpstring NQIOERR b|cmpstr cmpstr Ѐcmpstr cmpstr Z]cpystr eopnunit opnacc /opnfil Topnrec kfopen ropen>H54,5 &$9Pause - cvti pcrlf pstring pstring getOFe flush pause0 pause1 pause 2x4Fld3f5pushrealpushreal 4pf쁯f4'&M4'&545 ''& 45'&5/4 ٽ'& 5't4 &455'X4 a'ܽ&/45.445.' 4 5.5"A" FORMAT item expected _UNIT getOFe UNO _FMT getch +getch :getch Pgetch sgetch scan FMTERR _W _W inchar _W _W _W inchar rdc rdcL 4p'&VmJ' ' '-&| +&0-9.04o mJ&| 'x 't & ^i'&4 &mL&'0-&| 0-!9.04o 5. +5}'59 "I" FORMAT item expected Illegal field width Illegal numeric input on unit #_UNIT getOFe UNO _FMT getch $EOF 36getch ?getch TZimul _bgetch ygetch |getch  scan FMTERR _W FMTERR inchar ˀimul IOERR rdi rdi- 4v'&M ' '.'T& $t& F& f&  4 ' &5 x'fl'ݽ.o4 & 5'74 .'T&lb t&lb F'f'  5'4 O5 455 "L" FORMAT item expected Illegal field width Illegal logical input on unit #_UNIT getOFe UNO _FMT getch GMIOERR Rgetch gscan nqFMTERR t_W y|FMTERR inchar IOERR inchar ̀getch  getch rdl rdl ~ 4v'&b445j.5f&, 45 ' '45 ' &o kf' e' /4455.o'.', .00%榀.M' 性&ot ' '-& |'.'@ &mL&>00-9.O04 5 ' 'O &mL&00-99.804 5 e'E' d'D&|'-&z' |+& &mL& )00-9.O4 04| |5 &}-"|'?| |'| '&&!, CS| | }'䊀j5*S "F" or "E" FORMAT item expected Illegal field width for "F" or "E" item Illegal numeric input on unit #_UNIT getOFe UNO _FMT getch 8;@getch Qgetch bscan epsFMTERR v_W }inchar _D Ԁpushrealڀcpyreal dpone pushrealcpyreal 'itor *-pushreal0dpten 3pushreal6mpyreal 9addreal <?cpyreal mitor pspushrealvdpten ypushreal|divreal cpyreal pushrealmpyreal pushrealaddreal cpyreal imul  pushreal!dpten $pushreal'mpyreal *-cpyreal 2:=@pushrealCdpten FpushrealIdivreal LOcpyreal U_FMT Z_scalef iqv{pushrealcpyreal FMTERR IOERR rdr rdrX/ 4`'oJK& & & &oK5O@ REWIND error on unit #_UNIT getOFe UNO ;>IOERR rewind rewind!X 4vj05pushrealfltbuf cpyreal fltbuf drnd fltbuf pushrealcpyreal _rnd rnd 4v&z \&0j O&0j0 90j-8g',05Negative argument to rpowi pushrealpushreal&pushreal,pushreal/mpyreal 6pushrealAfltbuf Dcpyreal Gfltbuf Jdlog Oitor Rfltbuf UpushrealXmpyreal [fltbuf ^cpyreal afltbuf ddexp gfltbuf jpushrealpcpyreal uxabort rpowi rpowim 4v0-@g',0j0h5v2h9RNegative argument to rpowrpushrealfltbuf cpyreal fltbuf dlog pushreal"fltbuf %pushreal(mpyreal +fltbuf .cpyreal 1fltbuf 4dexp 7fltbuf :pushreal@cpyreal MPabort rpowr rpowrl4p&,(&  (&+|.3 %M3,')&Tz3 "}&J(4@fmK'  &5@G/&"4@fmK'  &5@'& '&'&4@f5@ x&4@fmK' 5@b&"4@f n&L z&oL5@ H$& 4@fM5@h&%4@f45.5@zp&l5 '0- 9._A-Z. a'i'l& : e'f&'.&9~44?-&|0-9.0O54 4 1?}'CS594 &D0D 54v,; 4*"_(&\ )&Z&" P%?  1?.^ ~ on Unit # on Internal fileFORMAT too complicatedUnrecognizable FORMAT itemIllegal Blank mode"." expected in F or E itemValue = ch = " "  _FMT HKSV`hm€putch ǀgetch putch getch putch +putch 0Yputch scalef EMPZczimul getch pcrlf pstring _UNIT cvti Ȁpstring ˀpcrlf ΀getOFe Ӏputch ׀_FMT ݀putch putch putch _FMT putch  putch %putch (ERR scan fmttbl fmtptr  fmtend fmtstop _W _D inchar FMTERR scan *" 4v ) ,))j)05pushreal%cpyreal _sign sign !X 4vj05pushrealfltbuf cpyreal fltbuf dsine fltbuf pushrealcpyreal _sin sin X 4vjNN䈀P05pushreal fltbuf cpyreal fltbuf dexp fltbuf pushreal pushreal)fltbuf ,cpyreal /fltbuf 2dexp 5 fltbuf 8pushreal;subreal >ApushrealDdivreal Jcpyreal _sinh sinh!X 4vj05pushrealfltbuf cpyreal fltbuf dsqrt fltbuf pushrealcpyreal _sqrt sqrt6H'/4'5~Stop - cvti pcrlf pstring pstring "pcrlf %F77end stop0 stop1 stop 4v3jh5v2h9DPSUB subreal subreal*5 4vj(2x(42z(42b05 _sin _cos divreal $cpyreal _tan tan#, 4v2x42z42b05 _sinh _cosh divreal cpyreal _tanh tanh 4k'd&4ck52h9tstreal tstreal0x- ' . / & , 99% # " $ tstlt tsteq tstgt tstle tstne tstge tstlo tstls $tsthi (tsths ,tstxxl DB'3-~4V3 , 06&m,-65~ԍ 'nH# Ͼ' n HI#B   System error # I/O unit # not open! - abortedEnd of File on unit # - program abortedProgram aborted because of I/O errorUnit # not in correct mode for operationFormatted I/O error on unit # Array index error!User Program ABORT!getOFe pcrlf _OF_tbl fclose _OF_end =idiv [pcrlf ^pstring atrace dglq_EOF w_ENV |_ERR _ERR _ENV F77end cvti #abort WUNO fEOF pERR MODE INDEX _abort utilitie4 594`dd4''' -D1N% '5/=4 &5 /a&"&. ͣ4 5& 5"A" FORMAT item expected_UNIT pstring _UNIT getOFe UNO $_FMT ?putch Fputch U_FMT ^scan e_W {putch FMTERR wrs wrc wrc 4`f'&  n& fg \1! &01?44 i&E'F,2d4*5& "'4 5.545&5`59ʽ "I" FORMAT item expected Illegal field widthcvti _UNIT getOFe UNO _FMT wrc .putch 3putch 8Oscan V_W fputch zputch putch FMTERR FMTERR wri wri  4`{f'u'& 'M & fg 6l'&4 5.f'T F5`59 True False "L" FORMAT item expected Illegal field width _UNIT getOFe UNO _FMT  "putch /putch 4putch 9scan @CFMTERR F_W KNFMTERR Xputch lputch wrl wrl W 5w44`w&J '*%o' %o 0%o''f' e'H',ӳ/-,' F', /w,|'u,m'*Z.o '_'\ 4-'4 5. w'-5 "F" or "E" FORMAT item expected Illegal field width value for F or E FORMAT itemcpyrea l pushrealfltbuf cpyreal _FMT format $sigcnt )sigcn2 ,fltbuf /ftoa 2ftoaerr 7fpbuff >fpbuff Hfpbuff Ofpbuff _fpbuff i_UNIT lgetOFe qUNO |scan FMTERR _W _D  puleft _D puright format Àfltbuf ƀftoa ɀftoaerr Ҁ_W _D puleft puleft _D puright  format  fltbuf ftoa ftoaerr fpbuff _W )fpbuff 6_W ?Fputch Pfpbuff Swrs X[_UNIT ^getOFe cUNO hputch kruFMTERR wrr wrrDOtestDIOsubs&PAsubsabs Tacos addreal Iaint kaio?alogalog10amax0Zamax1amin0Zamin1amodanintfasinIatanatan2backspacgcmpreal Ncmpstr!}cos"cosh#Qcpyreal%Jcpystr&idata'~debug>dimDzdivrealEIendfileF.expGfloatHQfltpkgIHfpp[gotobAiabsc:ichard2idime;indexfinitginitdbhint/ifixi]iopjipowilipowrnqisignpElowioqmax0u_dim Dzdivreal EIendfile F._exp G_float HQdrnd IHdphalf IHdpten IHdpone IHftoa IHscale IHdsqrt IHdtan IHdlog IHdexp IHdsine IHdcosine IHdatan IHdcmp [DPSUB [DPADD [DPMUL [DPDIV [itor [rtoi [goto bA_iabs c:_ichar d2_idim e;index finit gdebug ginitdb hdebug h_int i]_ifix i]imul jfmul jidiv jipowi lipowr nq_isign pEpcrlf qpstring qputch qgetch qflush qIOERR qfclose qgetOFe q_max0 u<_max1 v_min0 w<_min1 x_mod yCmpyreal zInegi {2negreal |7_nint }opnunit ~opnacc ~opnfil ~opnrec ~fopen ~pause0 pause1 pushrealIrdc rdi vrdl rdr jrewind _rnd rpowi rpowr Vscan ;fmttbl ;fmtptr ;fmtend ;fmtstop ;_W ;_D ;inchar ;FMTERR ;_sign v_sin _sinh Q_sqrt stop0 stop1 subreal I_tan _tanh ytstreal Dtstlt tsteq tstgt tstle tstne tstge tstlo tstls tsthi tsths F77end  cvti  abort  UNO  EOF  ERR  MODE  INDEX  _abort  wrs nwrc nwri wrl uwrr T  : ~~&L& 9~9 J   sXHJ0㌣LN㌜GI㌕N71!.0 m++@ & ׎@&1: 8  mP'RLN$HJ& 4J0  G$ 545"$(@ 1+ 90 0 7& L4 1+m+q"0 & &"10#4':019u;&  0tY $$ 2b 5HJ0@ & 1+ m+g"@ & "14ą5&!/*ĊĦ4%5'E' 'C P' A9lRN4000 m+[0Z & m'G &8D&1E b1% Em' 0b0 554  5'umR&nN040 '[<&>&@&B&40 @ =& R( 150@597o oNL'_137o3>5E&>140_\ &O1 `%0 585 9 9 0>yn '90/   0.9'Z&9'Go' denied'Go pending. Warnings detected. Still go (Y or N)?Can't go. Command line overflow7''13 3707 P ,9Ž @0  !DD9 not loaded. Memory conflict with loade rN V94 "401T$ &504aT$ &546D 54610$ &t/@&u'D1+G$q$+^"'/&;4 @5& 4ą5'' 4ą5&>99#G9 0 Ս00  @9  0: - illegal input file type - contains assembly errorsToo many input modules45&N0ǯ0i'/&44ŀ5&)0< w^09YN)' 05 %4ą5&d9 &9 Delete  (Y or N)? 46 10b4;54-% 352f0o 10o 3&;o94ą5&045'&_ ' L'  \$  \90e4  $')+'' '% %''='0%545'4ą5&H 4ą5&H9B%H 0@ 0&e${  gQL" Q=T0Error in load addressToo many libraries specified0ï  3'^+'V4ą5'C@W&Qo;o4 18401&7b' &1 50%( ӆ% 9505&' '? 4[0 - not found40|0~0®0 m+(/) @'0&E0E0+ 54+" +0E19 50 Module Map. MODULE NAME ADDR SIZE -------------- ---- ----400 5.~'Z&94&H00 Φ& Z&94&+b00 Z!&  4@5'kC}0^ot0ghȮg0'/'*4]0^Y0g5]'Z& 4 :5g]%9External Symbol Table0v 'uZ&9jZ&9F'0_0y45&0S4ą5&0Q0^0n0E0r04ą5'0EE w9noneLoad Map. Absolute Relocatable No output file produced Program length:  Transfer addr: #'+19k;&Y##N90; '4 4 5 5 ;@&  4ą5&99 # #$99 g 4N90;&1 ';@&4 :bCSb9OM '4  9CS114 )a4ą5&K&99;; 5%9eEE0&09E0 @ relative to  Linking error at $4ą 5'94&)&4ą5&w45&m4ą@5&~'^'-&' '' ? 5$06vxz|~ &  5 Symbol table overflow-'I,N$I990oModule name table overflow@404'bo&x&50 mlD@D9 Attempt to redefine ent ry point 4b2a%_'a&2d9&+딣3T0_0f2%0크o%904OMK?%0(u-3] ]크%9Insufficient memorya cacdoc0a9__ _c% _ibiai_J&cacbd_94_dafb$ _c_f_f`fafbj&50𦄁&945 4$rLrS%54 5YDDDD@9ok lk]0l l0lnppn4#o%0 4 '%144&0 144 n4 p5%4 p$ p3 /p n$ !nnpn$ 0l'c94l큯l5915'0 4 %'1,9& 4 $14  ]9 4愦砧5Z&014940mk' 0 1)&Z&54]' Z&59 4a%z"0,0'%m&0[ 4 1Ħ1줪5 5ABCDpFGI@L M NOPS@UYZUnknown option ignored - 1vp039%' 99XIXIXIcXIXIc90W#Z&`94!4 %iiiiiij&ccccdf55XIXIXIcXIXIc9 9 9 9 9 9 @ 9]_4lGV&jXIj&5v&x&z&|9 'P9B 645&"4ą5'4ą5'D1Dk9D&;45&14ą5''U+SY450 94 Y&0& V1?Y' 0&C ?4B5'1?& '0Z& 1? 10040YYd 50Y2b 54 Y'@4# Y5 554& SVX1U9D&45&4ą5& NY9UYNSN9445&'4ą5&190䦠Z&05&904 ]40" 5"|  logical flags(0:8190) integer i, prime, k, count * * Initialize flags, counter * do 10 i = 0, 8190 flags(i) = .true. 10 continue count = 0 * * Now find primes * do 100 i = 0, 8190 if (flags(i)) then  prime = i + i + 3 k = i + prime 20 if(k .gt. 8190) goto 30 flags(k) = .false. k = k + prime goto 20 30 count = count + 1 if(mod(count, 10) .ne. 0) then write(*, 1000) prime 1000 format(i7, $) else write(*, 1001) prime 1001 format(i7) endif endif 100 continue * * All done - report total count * write(*, 1002) count 1002 format(//1x, i6, ' primes') *  stop end                                                   !!!!!!!!! ! ! ! ! !!!!!!!""""""""" " " " " """""""######### # # # # #######$$$$$$$$$ $ $ $ $ $$$$$$$%%%%%%%%% % % % % %%%%%%%&&&&&&&&& & & & & &&&&&&&''''''''' ' ' ' ' '''''''