?>2CB H ALNHEDQ?=C , ??X?W?T V?:IN> %\QL*H ?*JIF >HA<(*R%-%TXAIOX)H)8!L7> *[H)8!"8*RIJ< *5 =:>(**"2QL<=H%\I>\<2AS < ;I5X-QIYLIHIF2B/:?HS*A %\ 9["%V*? 9%R%TK"%-%T.8 +K/I +(H<8!K6>(S62A/" X? ?!/J8(/IRD/AT*HS"8: K!>(*HS$ $K%8A[TOT%Y&>*0I8 %I8 T: YJ*=I8 TSTOTK=> *:I8 T;WK%[$O$%Y GK +I*H8B ?ODFB/G=\B=F Z7IHIFQH[QOQK?B7?H%\I:J7GQ< .IL> .IG >II> *\: YL. =*C(* KQ.^[Q%^%]-$ 9: H7Z: JZ^N[QN^^KQ^^I4 8H7I7X7-$ 9 7I4> %\ 7: 7%-%T-$O1?/2W1!/B8)CJ?&? /AD\ \^% *O+X+T+VI;<(/>K=< *^H!>(*^IN>(%\KC9>(/8H, 7X.:AH^X-L-I>C9< *ZL- 7<(+B8!H.? +BP]%*P^L^%YE"P^H\^*(H,<(/;%Y/G+QH/>(/;+QH> *ZP!P!H,I>/6HW/6 5+Y%%H>/6.H,\^/=L-K<< *%L^\-P^P//=H >(/=H> *^L^X> ;\^H^8 H6< %\ :/9K8P]<(*:8A<(*5K7< *"P-P-L-%Y/N*" 68 HPXPC4> +FK3*L^I4X-L-C2>(+OPP8 K1*(%\ 0%^XX!X %+H,> +X-$X.K]<(*JXW[]+Z%W*N*X*("?%W*N(*&%Q*^K;+XC:XWHWXK%W/9 +&/VV&G9OYQUN\?RNO^?V??::4HC%Y/^*\X\QB%W*( **HU<(HV> *(HW?H%\/>H\QA8!I9<(*<=81Y8DJ>Z8A(/Z4"("ZR4XUH\K;<(*=X\K:Z4"(R4+2H\HUXU/9MY?7HD?(?6ON<(%\K=<(*SK<9K;>(*HHV< *PHW=H*PX).X*9K7%T;(G "S O "S O C6".":K5%TK %X."8F?H+U8FK4%TK =H 3%T."K4%TK 2+HK1%TK 8!H%+H8!H2> *YH1X>H>I4X?HQ=D?> %\HQ> HWD?C?> %\HW8 D?HW\?. +!L?8!HVP?> +"L?C$8!HWC$P?> +CH?I6X>.?R?.?P?P?+C;XXDK?XE;$8AX0%*>HE0K>HWXW;(UHDXUK=XQ%%H>X2HWKX1HU\2: XDXFXE%[<(*=%Y/**>PD*>%*>HWK;XW: XQ%%HE<(H>XEPFPF*&PD%\HF> K:K9%)HF>(+K%-HE% %T%V. 8%!.[%V+D 8%T 8I9%U%!-(HF>(+7%V.HHF%X%V.\%R%V.$ 8%V.+% %R%TH(%-%V.. 8%V.3 8%V.7%R%T-$XQEPH?=:CD%^H0<(/??*LH1%S+\H1% %T%V,Y"Q%T-$ -P >%\HW\NP=H=K=? %\%[I=<(* I7> -P%[I=< %Q%%\%[< *4XQ%%H>%Z%\%^ <%V-8% %R%TH(XD <%V.HH=%X%T%V* %R%T <%V+\% %R%T%!-*H=8A%)H(%-%R%TH=8!X=H:XNLN%(%TP=+$HD%-%!+B-$%^HW ;-$[YZ[IJT]FEC?/[L3X3">C0"*:AYL%[< -P ?H7K>> %\H0>(X3X2X0K= /:2B/9">K8XQ%%H> 7 6[WB?X">B?WB?T">B?CK[XB?TK:KX8!HW=(/58A 7B?WKX/4(/B/5(++L X]%<+W%"): X /9+PY(=PE-WPVJW Y*+K0%"ANK L]PA%-H)> %TH(%3: XGK?[F%[I;> -P%Q%^P P!%+L^%Z >KGZ^IHX =/ %\*ZSF* H 8!H!>(+AH 8!H!>(*9%!*2H E%!,!H EH! EX-$%!- H *<3XX^*A*D K;[ : []K:*K<[ : []*;X[]K9[ K>*(/ -P8 AW< ++%"))H]X]/+^K=XBIDXCLBA,I6>(\BPBB 0O08?<%^ ?I6HW"G-$*^[2% *^*V*0*^*^%%H>%Z*^H>\NS2(+ZHX\NK:\NHV\N%* 9%-H(%3H:XNHX9H<(/88D\NK7\N%* 9H:XNHU\NK:\N/6.GM+B +%D P-(AQ?,?;0HW\N%*X%!,!%V*?% %3H(%R%THD%3/?\N U\N%*X.P %"H(X9: H^X P P L K=< +!:AH [%O%I4ZPNPA58A^P: H X S& (+D: H X *6K%X L [JK&%]H9X(H I5X L ;H 8!H^> +MO%%ZK:H]XK%X^H\^.\8A> /9/8 %\J$*L&<(%Q9F8F8FXW&[AKAHW\HP=H=J!?/?KA> *IJ"U-$]?>D[F(%^%!+B-$: [UXW% *2-P*2-P-P%^SU*?%V+\HW% %T%!,+%!,--$A-$XH%V*?% %R%TH=%)H=8!X=KA< %T =LH%X%TP=+ H(%-%T/U;2C/E- ]?BC>(/=L %&(R :. C9*1. /6/5%V,(+ H8!L >(+!%"+ SPSP/PH;2C/3BP.3L6 *"F &P DH,L,(?A*0Z,K=Z-N,8!J.>(*(R,R-*IJ,K=Z,K=Z-N,>(*]R,R-*V%\J,8!H">(P"J,8!H&>(P&J.^,J-K<."1/;(.1L > 9 8 9+Q%/+M+L 9 :.1 :%V,QL^% %T.1(+ %V-ZL^8!%X%T+)%!,//S*O(!*"*7Y?("X%/*CL %S+5L /?L^\ ** -P/C(%\XAYI/9\ %,\ /!J K-HZ*:U80-*7^%:CI*O)WH%Z(K>K=ZL8A%]%1/<(%\.0L^%ZK8H]X/7(+JPLPL+BLL.= + %V,%V/\CFKFSE$7D(I S(!-Z0X? T[%/*0 H%\^%1L />K9K8XOHO[Y%/%" 7L %Z/6H%ZL^%Z =%V%V,&/<(*\%V.A.TYMJ$8!K:Z$N$Z$%V%V.C.T%V-ZL^%.Z?LL8![J?S*8%X%T 8..(+V%V.LHW%X%T/I%!.Q/I"(%/+ 6L X =HA<(% %R%TPG*^H(%3;$%3-$HYH%[>(*-H(XAHYH: YIH)YOX)/(*:H<(%\K=<(*ZK (%\HS"*S: H=<(*8I5?(*?HR+%&K3K2[)%VH>% %T/"+\?6MY?< ]?^MZUZK%[I;> -P"%^I4%]%1HW% %T%1%[I=> *!"HW? =HW= <=H% %[I<> %\%T%[<(+ I=>(+[%Q%[I;>(/1%QX XP!%+H^X H(X9XR%,\^HR> LRC >(+O%V*GHRI5 ;:["HRI5%ZI>K"%X%T+TH> %"%!*QH9X(L^ 2H,>(+ %[>(-$*)%!*W-$% +(+)/"P%\XQ%%H>XWHW%&+(/";E9,%[> -P%^+ O0=C"0FC %"8AX,H(X9H^X P^L^K>>(* %,X,P^P^P P 8AP^[6"X.P P "[VH9X( =K6>(*4%V+\L^%.% %TL^%Z+MK(+CH, ;H. ;KV ;L^% %TL^XJ.J%!-PK:*7YM% %RXJ+4SVL 8!HJ>(+Q%V+\L % %T%V+%% %R%T%V+\L % K9%T%T%V+%H(%RK9%T%T/VD9,B.. P0L(*YR%R&*L%\J ^%J$8!J%Z%J%8!HS>(PSJ%.F0[RKP8D8F[PKPA78DSR+GK=%T.6< +LKQ>(*;K=%TSQ*;(%-%1K8<("2% %T/,<7\&?%0?Y %T:A =;&IH=8 ZI8%TR*RKN%T%TK(*"PH*[LH ;%V\R2IO:2A 9K8Y2%T%TP;: IL> -$/7(J?8A> +IJAYH 3+LQNJYH/2: J?+HR?+IJYH/1JF4.4*^G?+0LO4%" M<7E"CIW?CS !EJ .QM*RQMMM2B%2MMK?> *G:AYMXJJ&<(*^K>=*[I8A:I8K=]M.K<]MQMK;]M: YM.O:XWXUHW?/9HW8!2I 82AXWK7/6HK*(KUKX%T.70K4 3<(/2XW 3K1> /2/9: INYN 0%[I<> +(//IQDJ4B8?^2DF&:MX-M]MZ^BJBMB>=6B/BMJJB/BICFCOCRCTCXB CVC%C2C3C)C/C.B B2B.B0B BMJJ"/BMJJBICOCPCDCECFB CTCACDCIB B1B4B0B0BMJJBICFCOCRCTCRBMBJSABRSVFO TRNTMAFORTRLTM?1)^=U=BG(OBZL=RA?B<>>GB?CECOCFB?2A- X*X+03"?\= MPMQMXH32?=: YT%=:A2J%PD;:%S*P -<%S"HV%-<%S$6&-<:A2J%PC;-;:A2J%PB7-:J$]9J] ?J^ >K=O< < ;2IJ] ::A 9;VG8O7> *< 6O5>(O8C4>(+HH? !SBS!S"+B;XO3 32AK [ K&XH\HS +PK[ K$XH\HS +W: 2K1XH2J/%>?;70[?BA0224*\BCXLH I8> /*%<++CR"0>%!>B*>E>>O>PF?&HM$LNK?> *HIV[]: IV[ K>[^O^S^<(* [ O S =H**8![!*>K!>(*YK]YV*TK]YV*H8! S O S =H**;O [!K= S K!K?> *2K YV*H2J.FMVQVK<<(+AK=< S/%SDX&/;2J/J2A0Y/R0\C:K9>(/80Z/R H? \H?8!H]> HP?+/%"2$H\X];(QLHXQ%!-(>E?=A?H3= B $P=R< K=9Z8J[+S-O-Z1S-KS**>K,>(*.2J 8H"&XBT/7R1S+J0[)* *>+P+LJ&Z>O)AQ9J8JJ8J8JS)+QO)AQZS)O)C5K4<(**K3<(* K2<(+&S(K1<(+&S(K0=H* K/< S(2J/(>O 4??)DA2>[?&A?9?H1?ERDH3PAO?0M\>(*%N0?H*.*,;(F0K==H*KJ-?HR:2J ?/< ;2J :X1IZXKX4LK<(+G$ H4IY> *:KE*78(B-H"SH!>(+PKF$ H!S00.Z%NXK/[0[6+[XS6O0<(+*H=+Y:S0K6<(+WIX$ ;X+WHIX$ /S?:-4%OI\$ I%$ /0IY[0IZ:AM)F67D$[!K?["O"S"<(*2[^[ K!YVS *QO^S^AO*X: [ O^8J8J8J*O<(*$8![ >*"AOK >(*KS"*CK8 K"?*+K=*2K!8!IV2IO< <2A<(O"YWK;[^S^S^O^S^K"?H*7O^< [S^KL8!O^<(+NKL[L%SBHV%/:K"K$?H+\IN?+\8AYN2KIW 92A/82J-W LX[ $%X] "$X)X3 V%%SFHV /:2J/7V/J/IH3K"AHKVE L[&JM[%JDZX*B*X*0*-K 8F8F[ JDZXK AQO( (K 8F8FAQO% %S%*3K%[(S%K C= %2J;.> /*Z3K<"K&K;> *9O:8H9T :2J 9H:A2J%PD;+U2J%PF 8)2J 7;&G: : 8)2J 7 8 62JIWK5>(/4 7X9?K32I 22A/)IR$(A$0ZV&M):AD??&FBZC?9?H38$*EPA\8D(&MA\8D(BIBIB$B B-B CECNCDB COCFB CCCOCMCPCICLCECRBMB B/CTCOCOB CMCUCCCHB COCRB CTCOCOB CLCICTCTCLCEB CCCOCDCEB>BMCFCFCECRBMCICOCNBMBMB*B*BMCTCICOCNBMA9BBBBBBBBBBBBBBBBBBBBBBBBBBBBB%!,4 ?%!,6X.H*[\K>"VK\X*"V = < ; K\X*K9"V/8(.VH*I4X8L8X8H8C7> +OH8C6K]> +OH8C9> +YH* 5H8C4>(*>H* 3%\> +SEC?KZPBI$G]DB0?XL($/%A\ \XOP\[(C H^*]V\,Z ^ *P:A[-S1S1S1U.[/H* >8[0[1 *WK/K-[/U*;%X%TP.H*%Z(+SS1S1S1S1+ESD/D(.QCQC]C4HDI7XEPDPDPEPELD8!LE> *5PDPELD8!LE?(*1HDI5XDHEI5XEI6[4LDX=LE\DH \EPDPES4*HDI5XD*N: HDXD*MPDPF*H4XGPDLD ?8ALDXLLLC>>(+HLD =: +0PDPELE8!LDXEHE8!HGXGHEXT X.H-<(*UK?X-H.XT%X%T%!,1*I%V-$HT%X%T.(*(+K8AXTK9H*"[ ;P**>X*HS8!H*>(.,K8H* 7P*+L(/VH*"[L*8A> +(P*P*9EI6X,L*P*%X%TP,+*+ZK<-H>G03>CK;\ *F"A\I("YA >2I.O?2A8!Z)K>Z(:J(J)?.2QN(2AR(=H*HZ K=Y2YMX;2C *5*+X2HR?H,]H K9<(+QK8>(/7;X*V%(+W%")$*I^^.,]^$^5^5^ \Z2Z"[YZ[IJT]FEC?/[L<7EJ M C6%!+HP3"H%!+N%T/?% %TK> =%!+B%]0-.HIL<(+ K><(+"K=9< K<>(/;% /:%E+".*TH[I[>(/9%")/?Z H K8< K7< K6< K5<(*>K4?H*>%&..R...XHT>(H K3?+]H9D9DX%HTH%9DH K2X%<%E+AHX]H[K1XLX,%&+S%(++L X]%<+W%"): X /9+PY(=P=HB(K?K^HWXW%Q%%K]8A>(*Z;(D>K]\>: H$XNH>\N%[<(-$I=<(*AK>> *D =*DHW\NH$X%H$I6X$%[I=<(*;K<> *D8A\N+C =*DHW\N%[I<> *D%[<(-$I=>(*A*D K;[ : []K:*K<[ : []*;X[]K9[ K>*(/ -P8 AW< ++%"))H]X]/+^K=XBIDXCLBA,I6>(\BPBB CE-DPQE%[I;> *(%*(PWPWK?XQ%%H>QC]CIEQC]CQDK*(*X+G*?]: HWXDK8*(%.[K%ZHD9DHD8AQC]CK8*(*E+B:AQC]CK-$*(**(:AQC]C*E%[<(/KI=<(+ZI7<(+Y8A<(+[*(SKSKSK/KA^AZQ] Z.?BE)H4XDK? >%[I;>(/=%Q% %\*U*J*JI=<(*DK<> *J/;K:XQ%%H> 9 XE: HE> *8A 9+P%[I;>(*+%QHE 9+P.HWXG%[I=< *?.HF8!XF: HWXWHWPF*9HGXW+AK8 *JHW=(*J8!9HE>P*J8A 9HW 9 9*DI4XFLFC7> +*8A/ H> 6/5/ %Q: XD% /?/?*+*?K><(*)K=> /?%Q+QXD*\K<[&%[K;> *5HW8![%*\%QK)%Z/?HD[ HWS 8!+MK:[&K)%Z(;XHU 9HV 9HW 9S(*R*ES(/?0> /?+^: H4X4%[K8< /?%[<(-$I=> %Q/7?SVJ ?P)XVX:X+X"X=XTXXH%.I>$<%%D%H%L$\$ $%$)$.$5CGCTB.=BCACNCDB.=Z OCRB.= CNCOCTB.<$CTCRCUCEB.=S=OCFCACLCSCEB.=PCECQB.=FCNCEB.=ECLCEB.=\CGCEB.=[CLCTB.=D*/*5*2*,*:*)+*Z*(&-&//, =-H -G^,+*S>.D<.E:.C;.B$.A%.&/Y!1D\1UF(GABF DDCFEEFDDDAD0X>\?6??CCD B*D CSD B+D6B EAB0D;)TVE)ZVC) VA) V).VA(:WV(=WW)AWW)EWJ)IWQ)NX(7RH(L^*DC^(N\H(()Z)6GT)9G )<\)?C (SF8(VX(%4A(+4(."(Z"%(PXU(453( "*("")(2ZKVDOIFGOTOCALLRETURNCONTINUESTOPPAUSEREADTHENWRITEFORMATENDFINIDATAREALINTEGERLOGICALCOMMONDIMENSIONEQUIVALENCESUBROUTINEFUNCTIONINTEGERFUNCTIONREALFUNCTIONLOGICALFUNCTIONELSEENDIFWHILEENDWHILEENDDOCMA;CALL 2,IOH;ARG CALL 1,IOHCALL 1,IOH;ARG 0SMA SZA CLA;JMP SMA SZA SPA SNA SMA SZA SPA SNA JMP NOPENTRY CPAGE 2;EAPPAUSE TAD I 1,IFAD;ARG TAD 1,FAD;ARG DCA 1,STO;ARG CIA;0,CHS;CALL 1,MPY;ARG 1,FMP;ARG CALL 1,DIV;ARG 1,FDV;ARG CALL 1,FSB;ARG RETRN CPAGE SPCCALL CLA;STA;HLTCLASTAPAGEENDLAPCOMMN ISZ I DU MY ARG DCA I TAD ACHCMAIACAND AND 7TAD (DCA 7SNA CLABLOCK 0;0DCA 7;TAD I 7;DCA 7;JMP I 7SPA SNA CLA;JMP SNA CLA;JMP TAD (-SKP CLA;CLA CLL RTLTEXT "?";DCA 7;STA;TAD ;DCA 10;TAD ;DCA HLT;TADI ;INC ;DCA I 10;ISZ 7;JMP =$< $V)JK,IH=IL ,J: 1J: 0J5.L3 2"=Z*L B<5ENDH2K+NO-NM(V,)V?,V.+HJ-1&\1%DPHE TNS$TNGMAINAREADAWRITEA(0AFLOTAFIXASTOAISTOASUBSCACLEARAIIPOWAFIPOWAIFPOWAFFPOWAOPENAEXITAH)<(%\"Z%[I;> %\J*M&"<(%Q9F8F8FXW&"[AKAHW"ZKA> *J-$2Y^!R!^!2A.ZF(EFT"[E! ZJ2IO=2A> *W2IO<2A?*D-R2J >H.(( 5O4C3>(: YNO2C1> 0O42AC/>(.[K.[DODSD=(.[0&0!+:*;FD4P>%P>$D)D0]^A./H>>">O?4QK= */R5*Y: J5Y7.QHB8448??\S*?V6-$PYZIZT(CV.(5RA(4PA75Y(=<\<7%Y(5]Y(4 ZM3JZW1WZW/BZW-7ZM-/Z *UZ.);[U [U K[U C[\X[U+X\X!![U)C[%M;] ]9[U[ Y(YZ;UJY(T$[I%6]?)A[UK^[UJW[UD3Y(G)\G+ ]1 W[U2\[<7J]G2+]N2$]Z)5[.=Y^H(!^.=B^; X\ 8T^;^R DV"ZMM1Y2M)Y;M[ZD94[U]8[U]=Z \/$INVALID EXPRESSION$STRING TOO LONG$STRING TOO SHORT$TOO MANY STRINGS$INVALID STATEMENT$INVALID CONSTANT$INVALID $STATEMENT $NUMBER$COMPILER TABLE OVERFLOW$EXPRESSION IS TOO COMPLEX$MIXED MODE EXPRESSION$SYNTAX ERROR$INVALID VARIABLE$ARRAYS TOO LARGE$INVALID $D$A$T$A STATEMENT$NO $E$N$D STATEMENT$EXCESSIVE SUBSCRIPTS AT LINE $REDECLARATION$TOO MANY $STATEMENT $NUMBERS$OOPS!... $COMPILER ERROR$INVALID CONTINUATION$I/$O $ERROR$S$A$B$R.$S$V NOT FOUND$NO ROOM FOR OUTPUT FILE$UNBA ANCED QUOTES$INVALID STATEMENT ORDERING$MISSING $E$N$DS$DOUBLY DEFINED $STATEMENT $NUMBER$STATEMENT $NUMBER WAS NEVER DEFINED.$D$A$T$A $TABLE $OVERFLOW$IMPROPER NESTING$TOO MUCH NESTING=K K=0&0!+V;