0(|*HP [hP [|PbK V;/VKP@( wY:0wY:H @D CR@,>,> p  p  Ep,> p @ p Ep$. ,>,>,> pX8p""Q"+@  :h `27h2wh,  $h..:*x ,^,^,^,^,~,>,>,> &g/ p p "  ,,^,^,^,~,%+6$hDh 4 5h, h,>,>{ ,>,>,>,>,%gJ(Subscript range error on line $D at $1L Subscrip ("t $D of array $S = $D,>$,?mhVariably dimensioned array not form *al - internal bug - abort x9=[]&8;^$q^BB^T.`R[_^;_sk; _t"B_t4.q,dOR{e'%gX@. vY1 @` WJc(J"%  E 3F s"P'  R3[9q:YYZZ?q4((- q9 90(CH @  "E IVnO@+a-\@@,^,>,>,>Z:x.*:x,>,>C<,,^ (   , ~,>C<,,^=l ,>C<,,^,>C<,,^ "D"Q"@jC<, 1*9 C,{C< *,C<,,^,>C<,,^9tL " "C+p9tJC-p9tK p80(+K2**   $ff,>   D* 3I3,+/C#."20.*3j9+3F+7,> /(,>C< (Q*E"3,,^C<,,^C<A,3C<D,4 l{2j+SC<F,6 &C<,7 *P;C<I,;2*+S0Z9 ?.*<=f;, +)X~Bly Dp$X~Bl{p%Z*Z /,@+& ("L \xS:{*:/,^,^x6@+Q,~,>C<,,^,@,^4NL.< (U+(1H148X9HCORE DUMP/1H 7HOv flag17X9HCry0 flag15X9HCry1 flag15x12HFlt ov flag 13X ]8HFPD flag/1H 5(A9,15X))(2(1H-8(9X3HAC O2)/7X8O14/))(1H-)(11H+Locations O10,9H thr fough O10,9H contain /1H )(1H0,O10,8O14)(1H0,O10,8G14.5)(1H0,O10,8I14)(1H0,O10,8 nA14)(1H0,O10,4G25.16)(1H0,40X,O14)(1H0,40X,G14.5)(1H0,40X,I14)(1H0,40X,A14) *U w(1H0,40X,G25.16)@q@r@t@u@w@h@j@l@m@oOFF ON  HPX~@U p$X~ @@`p$0H@$($0$ X~ E@c.D.IX~@ch$$ @"|[m`l9uIoUAoUFo+y DXR_9(k~PfKf2[o_l9w%(/yvz) D"f %)q9 9m 4B[jx4l9r} J} EJ} FK})3@ "` WJR` RS CB ): R[P [hP [|  D"P%u @ m[lZl9tc_[ @Y=l?UlrVUlr0OUlrBKUlro4Ulro6LA$5C `r%HJ(( z# Tr0z#H @d DPS2` C",OA,~Y< C",@A,~ D"S<&#c):z# x7t Tr XYLA$5C (( KW[0KW[H @$ g4k: ,,~@ S<Tc):  KW[X(( K[0K[H @$ G3k: ,,~ K[S<c): X(( +,[0+,[H @D  YNty:  p, &@b) 4B1B "1b1"+ $$.$h@(A=f ,~" ,~ @"S<dc): +!K +,[+:#  pKE pX-XYYZ((  u?0u?H @d I$P #p D F b&".$&$7@"$ (@. &"*  )@  (@ $ &$.$.&(D(F...&  #p**,~-Jan--Feb- -Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec- u?u? `P [hP [|  XYY@Z=l?(( h/;@0h/;@H @ D"i&j)w,>  b+BM  `+d `4@@M,^,~U +  x LP [hP [|(Ty" `qp: XY h/;@(( ;F30;F3H @\ *i&lP,>,> b &"j0 D&" DC!pQ A` @-& "B -&[w "(Q 0F+C!pQ A` @ "B &"t D-& "B &$2 $D ,^,^,~&" "B $D+  P [hP [| )u= CX3 ` 209 :QX "YYZFiFi;F3h0u n]"LA$5C (( G?Q^+{0G?H @$ Ag2NI "p4B! (  n B,~g2NI:"p! (  " Cp gB":p B,~ @"  ]+z G?Q^+m Q^+{XY(( VGM0VGMH @T gO>Ht"p! (  " Cp b ">p,~P [hP [|   VGMX9[M `XY(( ^O[0^O[H @T A(KK9: C",!"PBPBPBPwO@ p*\ p*\ 'p0d (O1$!${ . I G*d ,~ D"EFCGJ ^O[_t9_tC S;tvc):P%u @   XYYZZLA$5C WxJWxVw((  ^Q0^QH @ @  KK;Y C",_w" 0"[Ep0"+ 1",~ Q"A` %pQ$A` E &(4H H=f 4f "B=f ,~Z1DO Ep+ D"]yG  KzE ^,)^2w^I; ^QS<c):  XYYZZLA$5C (( HX|LKLaqR0aqRH @ @ U*G3J;O+I'4\Z p ,5 @@@@@, ,,,! ",~G"\J; , Cp,~|,> ,?p,> ,?Y&DIVERT: illegal   to divert to unit $D,> ,?p,> ,?Y&DIVERT: unit $D is not open (P,> ,?p,> ,?Y&DIVERT: unit $D is not open for FORMATTED I/O,> "@",?p,> ,?Y&DIVERT: Can't write to unit $D D" HX|L KLVCl6 aqRar!;l:?S<LS<H @ c(J"#c): P%u @ x7h | [S5X@YEL((( vWK0vWKH @D "_Z.)V,>,> C",!"PB!"| $ 2f $*b EpSX"(*"@@1DO@,^,^,~ DEFCGJS;tvc):P%u @ LeS vWK25E XYYZLA$5C ((  ^~k0^~kH(^~kemWQ^X^~kemWQ^( ^h/+0^h/+Hc^h/2+^h/+c^h/2[^h/+Vk(Vl oVl:Vl( (T]+0(T]+Hc(T]2+(T]+c(T]2[(T]+Vk(Vl oVl:Vl( 5+05+He52-5+e52]5+Vk(Vl oVl:Vl( >r+0>r+He>r2->r+e>r2]>r+Vk(Vl oVl:Vl( (QK+0(QK+Hd(QK2,(QK+d(QK2\(QK+Vk(Vl oVl:Vl( jnu+0jnu+Hejnu2-jnu+ejnu2]jnu+Vk(Vl oVl:Vl( K+0K+HeK2-K+eK2]K+Vk(Vl oVl:Vl( KY+0KY+HbKY2*KY+bKY2ZKY+Vk(Vl oVl:Vl( ~*0ygH"TM&C@, &,>,^,~%FORDDT not loaded 0 ~*P [hP [|u^v & (  5 KJ05 KJHe5 KNm5 KJe5 KN]5 KJ( }K0}KH +@}K` WJ(