«Ы:тE:з F Ю A$(32),S%(56,7),B(1),N(1),Y(1),U(1),L(1),H%(18,1),C%(18):п1,127:тG(1):тU(1408):тT(6667):тJ:Q=0:W=0:I=0:г U=0 ё 4:тI:E=E+c:н:U=0:‹ с"LOAD CADDY TO RAM":G=Ґ:щ Їх тU(2015+U*7):G=Ґ:U=U-(G=0):U=U+6*(U=6) э G=13:тI:c=c-(U=5 Ђ E):з c G$=A$:E=0:г J=1 ё 18:C%(J)=U:н:тT(2098):х M=Ґ-49 э M=1 „ M=0:тT(2141) ‹ тT(2057):тJ:тU(1798):тE:е ЌTB@ 7х G=Ґ:з G=32 Ы:тG(2):тT(6004):тU(5689):х G=Ґ э G=13 Iэ G=13:R=R+1:о … п1,127:ц:G=¦(99):г K=0 ё 1:H%(R,K)=0:U(K)=0:L(K)=0:н NЫ:тG(0):тT(2210):тU(2372):з C%(R)=5 х U=і(5)-1:тI:тE:э c:C%(R)=U:сЉ42,4)A$ 6K=R:тL:тV:сЉ78,0)G$Љ92+(R>9),0);R:тV:г J=0 ё 7:K=0 X=љ#c:з X<50 L=X:X=51 Mз X<255 г Z=52 ё X:сЉ21+K,J)A$(L):S%(K,J)=L:K=K-(K<55):н:е ЌTG@ ‹ н:тJ:тE ? V=-(Y(1)>Y(0)):г K=0 ё 7:сЉ1,K)Д19," "):н:тU(7180):тT(7476) • S=H%(R,V):l=L(V):B=B(V):N=N(V):п1,70:сЉ21+B,N)A$(31):п1,70,1,84:сЉ78,1);O;Љ92,1);P;Љ83,3);V+1:з S%(B+1,N)<>22 тA(7635):сЉ78,5)A$Љ79,5);Y(V):п1,85 aтY:сЉ85,3)A$:сЉ87,6);Q" ";:L=Q:тR:сЉ87,7);W" ";:L=W:тR:п1,82:сЉ82+l,2)A$(31):тT(2585+U(V)*26) ’L=0:х тT(2771+V*96-46*L) L=¬ L э ¦(0)>251:с Ѕ7:тT(2963):тU(2993):тV:C=6:п1,67:х сЉC-5*(C>7),4);:G=Ґ:C=C+(G=252)-(G=253):C=C+14*(C=15)-14*(C=0) P тA(3018+C*10):C$=A$:сЉ6,7)C$:э G=13 Ђ C<14:п1,127:тT(3168+V*94):L=1:D=1:K=32 FсЉ20,D)ЅK Љ20,D-L)A$(25)Љ77,D)ЅK Љ77,D-L)A$(17):з D=0 „ D=7 L=L*-1 Hз K=32:K=K-13*(¦(3)=32):D=D+L:е ЌTN@ ‹ тT(3356):тV:п1,82:сЉ1,7)C$:тV K=7:П#F=3638 SсЉљ#F,K)A$(31)Љљ#F,K+1+8*(K=7))" ":з ¦(4)=13 с Ѕ7 ‹ K=K-1:о 1-(K<0) е ЌTQ@,ЌTP@ >тQ:H=(C*(8-K)/4+2)-(l*C)/(і(6)+4):з U(V)=3 Ђ C<>1 H=і(2)-1 LтU(3654+K*3):п1,82,7:X=B:Y=N:G=1+2*(A5 J=H/(”(D-N)+1) ‹ J=1 ;г Z=1 ё 2:L=0:B=X:N=Y:г K=0 ё H:з B>55 „ B<0 K=H:е ЌTW@ 0з Z=1 сЉ21+B,N)A$(31) ‹ сЉ21+B,N)A$(S%(B,N)) )B=B+G:L=L+1:з L>J L=0:N=N+(DN) §н:н:B=B-G:П#F=3679+S%(B,N):U=љ#F:сЉ21+B,N)A$(31):тJ:тT(3712+52*U):H%(R,V)=H%(R,V)+1-(U=4):з U=4 сЉ21+B,N)A$(S%(B,N)):B=B(V):N=N(V):l=L(V) ‹ L(V)=і(9) Ѓ (1-5*(U=0)) dU(V)=U:B(V)=B:N(V)=N:K=A-B:J=T-N:Y(V)=Ё(¶(K*K+J*J))*10:з U=2:U=1:з і(5)=1:тT(7653):тJ:L(V)=20:тQ з U=1 N(V)=Y(V):Y(V)=0 aтQ:з Y(0)+Y(1) е ЌTI@ ‹ тQ:Ы:тG(3):г V=0 ё 1:N(V)=(N(V)+і(10)+1)*-(L(V)<20):з N(V)>37 N(V)=37 !B(V)=49+N(V)*(1+2*(B(V)г J=1 ё 5:г K=C ё C+2:сЉK,J)A$(љ#F):н:н:Y=6:Z=1:L=0:K=0:тQ 3з L=-3 сЉ1,Y)" " ‹ сЉ1,Y)Д3,A$(25+2*(Z=1)+L)) з ¦(0)=13 е ЌTd@ +!L=L+Z:з ”(L)<4 е ЌT_@ ‹ L=0:Y=Y-Z:K=K+1 "з K=6 Z=-1*Z:K=0:Y=Y-Z #е ЌT_@ ]$H=2*((7-Y)*4+L+4*(Z=1)+Z):тG(5-X):тQ:тG(3):с Ѕ7:г K=1 ё H:з K>1 з B(V)<9 „ B(V)>87 е ЌTf@ 8%сЉB(V),5)A$(32+32*(K=1))ЉB(V)-X,5)A$(18):B(V)=B(V)-X W&сЉ48,5)A$(30)A$(22)A$(31):н:L(V)=19-(B(V)>47 Ђ B(V)<51):H%(R,V)=H%(R,V)+1:тX:е ЌT\@ 'ЭтA(K):П#F=K:и#F,A$:б (ЭтU(K):П#F=K:J=љ#F %)L=љ#F:з L<98 сЉJ,љ#F)A$(L):е ЌTi@ *J=L-100:з J<94 е ЌTi@ ‹ б +ЭтT(J):П#F=J 2,X=љ#F:з X=255 б ‹ Y=љ#F:и#F,A$:сЉX,Y)A$:е ЌTl@ 4-ЭтY:тA(4445+7*(S=0)+S ѓ 50*3):A$=АГ(S+1),S)+A$:б 8.Ы:тQ:тT(4596):J=6:г K=1 ё R:G=4:X=K:тU:з Q-W E=(Q>W) /з K ѓ 9=0:X=K-8:п1,82:G=5:тU K0G=4:н:J=89:X=1:K=K-1:тU:з R=18 тT(5396):тJ:х э Ґ=13:щ ‹ тT(5479):е ЌTC@ 1ЭтV:п1,66:б 2ЭтJ:с Д200,Ѕ7):б ѓ3ЭтU:тL:Щ#c:S%(K,0)=O:S%(K,1)=P:O=0:I=0:Q=0:W=0:г L=X ё K:O=O+S%(L,0):I=I+S%(L,1):Q=Q+H%(L,0):W=W+H%(L,1):н:тV:з J<89 п1,84,1,85 34сЉJ-1,1);O;ЉJ,2);I;ЉJ-1,4);:L=Q:тR:з J<89 п1,85 5сЉJ,3);Q;ЉJ,5);W:з G=5 п1,85 06сЉJ-1,6)Ѕ(7+7*(R<18));:L=W:тR:п1,127:J=J+G:б 57ЭтR:з L=I „ L=0 с" -":б ‹ с Ѕ(44-ґ(L-I));”(L-I):б U8ЭтX:з L(V)=20:тJ:тG(5):тT(5625+V*32):тV:сЉ35+46*V,0);H%(R,V)Ѕ7:тV:тQ:тG(3):L(V)=0 9б :ЭтQ:г J=1 ё 99:G=¦(0):н:б ;ЭтE:Щ#0:F=Ћ"CADDY":б w<ЭтG(K):П#F=K*256+384*(K=6):г J=1 ё 32+16*(K>3):A$(J)=Ѕ1+Ѕ130+Ѕ63+ЅJ:п1,138,61,J,љ#F,љ#F,љ#F,љ#F,љ#F,љ#F,љ#F,љ#F:н:б Ћ=ЭтL:U=C%(K):тI:П#c=K*2-2:П#c=љ#c*256+љ#c:A=љ#c:T=љ#c:O=љ#c:P=љ#c:B=љ#c:N=љ#c:O=”(B-A)*11-O:Y(0)=O+E:Y(1)=O*M:B(0)=B:B(1)=B:N(0)=N:N(1)=N:б >ЭтI:тA(5548+U*13):c=Ћ A$:б яя