~*I(0(AgH/*  "U*A"+ -7, X+-7, X & & &,w7 1,q,Z J7  *"U* J8  j1 J8Z* XJ ( * Jh ZRJZ,O@7  , +-=E "Q"Q*  , @@XJA 2!*Z J a J `Z* J9Z Z5J6@@+ **T*  J=l ,,C  H@ H=,Z9A @2@"7  , % @@4 *T U("@@<@@=@@5@@3@@  8+ &, &, 4F FI5DJ7$ e l  *@"* I 6B  O*(J}(D5D- 2  f3F+62F+3: "@3Q*d/5R5:1RY /$`.6 X+C\G>vJ7I I&l[YI?,+OJ~\ *;O?%pQfY>[>$P]F@_B-`a.9 em}RgR-gR~gSrigPo"@{dm" *U*U*D" [nG[h.oTqL_ *Q TLZ Z4JT , ,~7@7+|   c c,E  +!*Z J **A(U @ J=l ,+`XJZ @2,, R-*>@<+4 `, X+Z1 ( *P*A*],b+ , g+}+ 1Z ZZZ4DT JEO$!*gp3J @/Dc7@7+|,b **U*f+u,!*Z J, 4 l, 5DJ4FJ, J H=,+ @+k  J= "U(U nl ,+dZJE+ 5 xZ Z5Js ` ZRJZ ,  `@@d@@e, R *U P"w-*> <d,E, 5FJ4DJ0D+J, 5DJ4FJ)D0D+J b+  *U(T** 84J2J8+Z * 74Jv3J7,~ & &  j+ 7@8 J83J8 *U(Q*+ J8 &,  & &7JG tZ +$ ^BZ6@7+ B-7, X *T*D"  JG J9XJZ * J*6@:+  J=l ,1, 4 &Z 9 *U*E ,$ & D,  & 2+ + * J*@@G@@7,~ Z Z4J ("Q"! t */A* J9+7@+&2j+ & &l , +1+- Jd *U(E *,  & d, 5 & G,  &,~4 Jl@, X+Z1+YZJe@@d *U*E*26  +I, 5DJ3F!+J3F!+W2F"+Jd , ),_ J^@@]5D;,  "DD";0D+J, 0D+J[f1FM+G1FI +F1F\ +F1Fi +E1F}+E1Fy  *U*U C+D+J:]:]:]:]:], ),_ J^ " Jd7 #, )1 (4*J *U*DL* e6  +U JB, 5DJ2F!+J, $5JR1D+P0*0j+iQ X B "T*E"Tl ,b+p, ^+@** e JB+P 4`d+p6@F+p (3DA.* (*"]+1l`+h J_ *_,~,#1L,~+u!*Z JZ Z *U(*e4JT6JG+k *$3J @+ #4 #, )1 (4*J+ $ G JE,, R-*> *Q"*n+E &+4 zl@, X+Z+ $LZ1H(+v.$1dZ+r+l ( (*U"v3HA.*.*@@@@@@+2F$+J+ \4 J@@ b7@7+|l, X+Z * U"+ Je`B,y,i+ 4[ (aJ+u  (6  +J4D$1D+$1D (UD*+0D+J, 4FJ*%1Jm0@ Jd4D1D+0D+J+ d1J (D D"+C1J+L1J+K1J+qd0@1J+$1J+91J+;1J+=+J *"U" e J3d ,><, X+Z+J,^2H<+2*3* 3 Je,i+ 4[ ( "E U !aJ+u  (1D+ 4D$+Jl0 &, U a Ke J a:eaph`@1 (U E*)+1l,>< % J< e, + 1+ ,^ J< b Ke:e7@3+4 "U((2`p+&3d3+&+@@ @@3> ee@`ph> e,9+, $+&l0 & *T*:, U+&l0 &, U+&l0`, 0D+ ' J ` &, U a J `+& *D"C`p@m0 l0,><,>B, X+Z+J,^B,^< ( D aap@+& ( J b+& " T"Kl0+Pl0 ( J b7@3+Pd0@d, 6  +J ,@@ adB+k ( AT`p@* ( (1D0+idB+)D`n`+U1l`@+\ap@+m *T(U\7@ a+^ J b+` J aaB+S, %ap+&  a4D&  b(D)D(*5Hf "(D*e)D|+d(Ddfl D a F b+&mB+Ud+Xd0 ( J a J b+& *(m7@3, %ap+&$*J(J+&l0@*6  +&, 6  +&@l * Qv`p@ * 1, 6  +~0D+{``@+J+w1D+w0D+~h @+w "*E*~/$4$Q0$+Q)LG,i (  1+,^ $(+u *,  H (,~1D+feB+9,ym ! J5 "U : (* 5 JH &, b+* =`p!laP+A,c &, IaP+F *"QB,c H  J b  &, IaP +J,c H  J b  &, IaP *" K+M,c 4, aP+Q,c 4, aP@+Q,3, aP+U,c,  "Q(ESaP@+U,3, aP+[,c &/(J, aP@+\,3(J, aP+\ *T A \+ &7@3+a: Ha@`Ph: H3j3+9`p[7  +#,~eP & ***d &/ 5,~ J3d ,><, X++J,^2H<+d@+82*3* 31D (A*P"m+Jl +9``0D+v,+r6  +J+ X0*0j+i0D5DJ,} "*T(u,^x+aa`+,^x4Da+J JH@@I, J. H< J3 H,~dB *U(@*~+7H(Z+3HD+ H= D HE,>, q,^ ((H(nH_+ H_,> "U*U($*. 0,> y,> x,> ,> J yZJ x 0 J ,#,^ ,^ ,^ x,^ y,^ ( "T(E"(H(j_ H_+a+[l ,+Z_ QJD.*XJD = JD,~ (D"  "D" !"#$%&'( (D"()*+,-./01 "D"123456789 (D"9:;<=>?@AB "@bBCDEFGHxZ HZ( * E"J4DLXDH,~, &1+[HXJ@@(QJH,~Z&IZ I4JWZ(3DB+T @(S Z (+Q6 (eld +u,>,> Bl, +e+e,^,^ *[  hd$@G42Dh,~l h$50Del$5 D6$65Dfd " "dZ:h+u,^,^,~lZ+h J3+d,>,,P+m,d@+a@ **l+i+{,^,I J,IXH@@ B`@l$ D QJ ,t+u e/d ""UuSD( d D( JI,~,I IXJ+t6JI+},P+`@+[ (+ ""E"}`@+Z (4Jr JI ( Fd[(.d Fe,~O@I? 6+r h Jd h (( JeZ:h,~ B*B,P,~ HB`@,~,Q,~ &6 B, + +  *Q(E  &7,+,,~+O,P+`@7< ,h+l@ B JB,P @  ,~a@,P,~[(Z(XD,M,a@@,~Z 4Jv+7J,~Z  *T*U*,M+,_ &+l4  , 4F , M+%+J, J H=,i+Z JB *QQ*(  (6  +,]1D+,0D-+-l ,3+0D+J, 5DJ4FJ)D "UA(00D+J,P+v+S@@Jl@+8,>,P1a@, B JB,^l ( 9, )1 (d Je,]1D+B0D1D+[a`.$1D.+A,+J E*Q(Al d`+W * Jd+W7@J,h,w e/ d8 7@J:J$JJa`+8 *( J B. J`@. J/*l, ++ 0d  (3LB,~ & &<,T (T "R &=,~,+ Bd, + + ,~ e3*d+R/ d1j+D+y "U*A*[l`+J e Jd+86  +J5Dv+  & 8+ &7HI &A &A & *T**c4Hv & &D &Z(IZ 4Hv,h+f,> &Z JB, J, 2 * *E T"l,  &G Bl, ++ / B, 2 &G@@I Bd, + + * *U*Ut,  &G,y d, 2 &H e, 2,+z &H+u &I,^`@ &I`@ (D "} &Ka@ &L`@ &L,~`@+7JI,~Z (4Jv+u7`6,~+u@@J *Q*Q @@I,y e/ d8 7@J:J$JJ,7 J+`@.JJ,~4  , $4ji "Q*U*0j+i D D(Z$*6  +M. 0 J yZJ x N J , u, 5D6  + (U  +ZJ. 0 O D O@ , 5D $6  ,~ "ZJ0H+,~   &  .  5  =  D  L  S  *TE*_ & & D,  & * J *L6@(+g.*1jZ+c & &O+ & *D"(h &Q & 2LZ H4Ju[ H4Jl[ H,  *,  H4Jo &S+p H,  "(D*p *, Z H4Jul , +, 6@H+x6@H &.21rZ+i+ * **U*y,  &TZ/$L&$(D D R1JS+T, b+  Q &V &( R *T*1JS+V, b++uLT. LE. EQ. NE. GT. GE. &, ,_ &+ *(" , + 26@HZ+=r & &X,~ 2+7@HZ+ &l  &Z  "A 4,  &[ *H$*,.21r+d ,~4  , )1 (4J Jh "Q*0D+ ,+JaP@+ d@dP@ldPl@ @2 h JC \ JZ Z *U T #4JU6JG+k+ #-7, XZ cZ (< Jt@@=O@7ll , ++ (D,,?a@@+5 L ;1J a@@1+1a@+5?`H+] *,  ,  *E"U"46 C+8, 1+9, R-*>,~>@C+5 *$ J @XJ (+eB +5 t "U**=l, +++-, ], G3JD,~ J=, & &G,  &Ga@@ *"T(E+8@@H,~ &4 Jl, Xd7$+L,w+R @@C, 4JP "UU Nej@+S3J=ZDC._4$LaD+Jd@++Z7@C+Pl,  C`j@ *U*E"V+X &_@@C+P &` =,  &`+W4 @,, 4FJ&%1F+b1F (D"(_+c1F+d1F+e1F+f1F+g0F+Jl 6  +h4D\0D+J *Tg+\ L9+ $=,/mddB@`B1+vl ,1+r`B,~ Q p!$l D=,,~ZD4  7 :x:xd ,~!$@+p7@$,~ (T x,z 4Vv+u h d+{S$X$ dS$[,~ 27DI1, ("U,w,~ an@+._4$,~2N3Nh+2Ni+_.&ZFH_"A  #QFH9 . 6ZX1H8+=6 ,~[XPX.,~ U (@,e`+  D?,01+u,w,~ V?+0e`+7DD,~  " U ah@+d(3H=++._4$,~e` + 4D#,%1++,w,~ (A*T$4Vv , ah@+(f=3H=+,._4$%4Lv77  +u  "D (,`h@++5L/ +(l,~_?4Dv#.? $ 3H=+*_. (*U*5Z?0(~,~+27@d+9:7+< ^cZ>\*>c 7PJL  2O@d *Q"D= +7XJ7 Ld*PJ7S>\*>@@d+7-Jt-Jt ( AF-Jt-Jt-Jt-Jt-Jt-Jt "N-Jt-Jt W _2&2f2F3F3f UU(h3&-o:hZ y/*M&*(J (Q (R (R+@e:h-o+h* r *PD"p*s*s*t+o,J @ *( XJy *(XJz /xuPJ * t *U y6@M+Ay?`M+  J^Z y[ /5J *i0*Z0j[aJ`+ +0JX1JW+ + ^ *UU( +  @ ^-7, + 1-7l , X@@ yZ`/*K "  &*XJ @" & &j tPJL */A*ll , ++ `j@+  *U*U" ,  & G J=,  G2JD+ " &Z yXJ ([ y4J  9l @@ ,} (*U* , nd !&(&d`BF[cF[++ ( DB &k, , 7 G J=, q+  "T"U* # *7az KzZy@@d[4F 'l , i &Z$ , + B J @, R+ . ^ (Q"A* ,-7+ tPJL ( He+ 4/*4J B9* ? D $> e, + B J @*i "E* 41JV+ ?S>\*> + @jl,l*i 1JX+ D1JZ+ J1JZ+ O1J[+ H (E T* =  @aJ`+ /1JW+ 2-*>+t:t+t, X-7+ +olmP LPJt "U*Q* E!* BJL-*>, t+ @ tQ @* 0\+ L tP L!( BHL  @, u+ B; @ *T* N @+> tPL H0\!* BJL+ N m6D , + V J , u+ .& * Q* V3fn+ R,~ &Z xw6D, u+ /&0&L+ X,~ n@@L**[+  *E* _, +p,  @@B $LZ1H(+ g7@XDB.$1dZ+ b7DB+b J (D g d J e J/$L&$ &(FBF[``GF[Z d4Jv(D.$Q ] J * p ^1J_ * J ^1J_ * J _ J,~*, g,~+ {*aDx (T* x+ z J+u J\+u* 8 x,~ J`X x+ +u, u+p,~ ""( *, g,~+ *aDx7 \ +ud8 $`@"$ D>, ,~+  "   D>  N?e@, ,>._5$  `n@+ NG,^+t4Ju D> Q T"  ..( N?+u ,>od+ -@lf  , %+ 1+t`@+u Jf *E *  Lf,w+o $X, %+v1+t4Jua@+ !2*f+u+ #6@f3jf+u *T # f f f+u, an@+ -`n@`` e.@+ -`n@+ -  6(/68 *U"" +46 J4V ;36>+ 2._4$ %4Lv`@+ N3J0+t 0/ +u`@+ -,/ *@D" 4+q7N<+ 9,> d,@3L+ 9,^+ -,^ V> + -`@+ -,/ *@" <+s7N<+ C,> d,@2L+ 8,^  `n@+ N+tm@+ Gl DQ* E an@+u + N  `n@+ N@@>+ -a@+ -3v>+ - V>  ("E M+ -7 07 0:x+u ;*;0N 3n;+ -d+ C ;1N + - N;+ C (E*E" V, ]`@+ X +  & &t+ W, ]7@I,~@@I & + W* x J< x "U" ^,> , a,> +<,^,^,~ Jg* B Jg,P+ j gl, + * g+  . g HB+ n g JB,P+ g, + 7+u Nd,  * E* o &v,>B,> ^J@@I@@F dd@(L Lh * JJ,y,>d,>J e/ d "Q" x8 $JJ:F,1+ u F  h,H,H& .,(ZL * =r |7F (E"U* &H^ , 2.(=r &a J,^,^B G3JD+u $G, Z+u7@3,~ *U U( &w ,<,  &@@< 3, ,~7+u+ n*y2J@3J+ ,> , (DP ,%1+ ,^ , ,>d*@&*QLx4Jy, [ x.*W0j\.*0jm/* "Q( 1JQ *WA*?4, !* :+  &z,~ :5Lv+  , 3L< &|+ 0*0j E*U "g Z, J:,~f|@@4@@5, , ), (+ '+@ , 4D I0D1D+ I A" +0D1D.+ I0D1D+ I 1J+ 50J1J+ 71J+ Q1J"+ Y0* ""D 30j+^/*+ ;7@4l`@+^,~6@4+^l` +^0Jl @,~A*`` *( <+ B 4`h+^(H. H4 5$(. H5,~ ,: C .!$dN *(" D0 4N F(N=l D!,*dK D4l,~a`+ _ 4 50n+^ ,  "@( Md`@ , 7 K(NdN 04N c= Na`@l`+^ 5&*4J Th*Fh,6   (QD* U    JK J4lR` C,~m`a`+^a@+^e`@7 4" 4 LK@@4 (  ^@@5d `,~a`@l c@}a`7 4 5``@"j  (,^x,~ 5$ h"` " P f *, dd+ lad+ { &3$ + t2$ 9 t (%$).@@e6D, { " @ o *, "$.e  %*, ~4Lv8$ q,~"( .(+@ + x  " E wG.9H u,>,> , l,^, ,^&$:eQFx4D ~, {[ x.*X+ :s\-6 ( -Qa^'&wka#SD!y! 0Y{z|i,SU+E+@ 0D1D (A" + 1D+ 0D1D+ &0D1D+ &1D + %0D>1D?+ %1D + &0D "E** #1D+ ' D (,~ &: : : @d (,~lO@ @@4@@5f|+@  TQ* +0D1D+ +, 4DJ0$ 0d-+dB+ ?,>J,>,>I,>J,>B,>=,>< *D*Q* 4,>d,>e,>6,>,>3d, , `+Z+J,^3,^,^6,^e,^d,^<,^= *E* <,^B,^J,^I,^,^J+u, +u @( , 4Jv0*0j + E/* ( E+ G0*0j+J/* $(0.((`dp+ B,~ 0(0h+U+ @  "(E" M4D T0$0d + Q`hp+ M+Jd`+J $2D (+v+Je`+ W $ "** Vd+u $d+ud @@<, 5F ]0D+nl , 4FJ, M+ `  ( "E D* ^0D5DJ, @m , J H= H1J?+?0*=+@0*+< &.* " UD"<,~1j0+; &+; &,~ &,~ &,>, 5,^ &,~ & & (T(*D, 7@+J, J H=l ,+[(0DZ+c+u & &, + & & *U*U*M &6@@+, %+C & &+ & +_ & &",T &#+ &&+ (U*U"U &) , $ &* &6@@+, %+C,[+ &- =, a@+/ &0 "U*U*^,~ &3, ++ &5 =, + &:+ &>, %+C &A+ &C+ *U*Q*f &F &J+ &K+ &P+ &S ,=,  &T,~ &W =,  &X+ *T*U*o &Y+ &\+ &_,~ & &b+ & &e, %+ &h+ &j = *U*U*w,  &k+ & &n,T &o+ &q+m &t+ & &w =, : F *U*U* &G, e &I+ &{+g & & =,  &,+ & ,=,  & *U*U*+ &+ & + & &+ &+ & &+ & &+ & *U"U*+u & +  &!+S &#+- *,  &$+8 & &&+ &'+ &) "T*@ , $ &+ &, , $ &. &+ COMMANDS: ACCEPT,CONTINUE,D "DT,DIMENSION,DOUBLE,GOTO,GROUP,HELP,LOCATE, MODE,NEXT,OPEN,PAUSE,REMOVE,START,STOP,S *TRACE,TYPE,WHAT (SEE ALSO FORDDT.HLP; APPENDIX F, FORTRAN REFERENCE MANUAL.)  7 9 A,> D(R "  STARTING FORTRAN DDTx+5$J|hGJ(R@>> ~h8mWQ^=g WJ %FDTPOV PROGRAM OVERLAYED BY ***[ PROGRAM SUSPENDED OPEN SECTION: ] IN HIGH SEGMENT &+&IN LOW SEGMENT AT + IN C$\@igSS-h *#:(,~em}R< qG3d3+R+( b H, %+Z<H0 ( *@,4D+fH FORMAT: R = H y?FDTDTO DIMENSION TABLE OVERFLOW 4P.h6$h,h?FDTMLD MULTI-LEVEL ARRAY DEFINITION NOT ALLOWED.B%FDTA =BX COMPILED ARRAY BOUNDS EXCEEDEDNO ARRAY SPECIFICATIONSUSED MAX ARRAY  EDIMENSIONS[] /,] - F10 ORIGINATED DP SP FORMAL, * N+, uNO PAUSE REQUESTSGROUP AFTER PAUSEN/AIF (, e+ . "@"V (, e+uNO GROUP SPECIFICATIONSGROUP : ,% &\ * JH+2 D"_ ( IS GLOBAL)l +el +el +el +el +el  (U:g+ex(Agw]!+6$ @PAUSE AT ROUTINE \ @. @. G-B-PyHM 7@f *E p+v+ # ;1N + -+ 4`@+ P+ S EQUIVALENT TO (FORMAL PARAMETE xR 0O@+ MAIN PROGRAML#<"-%FDTCHI CHARACTERS IGNORE D: "?FDTIAT ILLEGAL ARGUMENT TYPE = |ARGUMENTS ARE:. = . `20J_ @<>PROGRAM NAME: ,[+C?FDTIAF ILLEGAL ARGUMENT FORMAT  TYPE H FOR HELP?FDTMSN MORE SUBSCRIPTS NEEDED?FDTBOI BAD OCTAL INPUT ?FDTL #GU LOWER SUBSCRIPT.GE.UPPER%FDTNST NOT 'START'ED?FDTNFV IS NOT A FORTR @+AN VARIABLE!?FDTBDF IS UNDEFINED &.+^ IS MULTIPLY DEFINED?FDTINV IN 4VALID VALUE ?FDTNFS CANNOT FIND FORTRAN START ADDRESS FOR ?FDTPRO TOO MANY PAU 58 ( 60