ZXTape!ALGEBRAF =r;= ALGEBRAF +236099\,60<:23658j\,8 Alarm po wczytaniu programu 0:0:7::1:7,4;" ":8,5;" WYCZ MAGNETOFON ":9 ,4;" " 920,3;" NACINIJ DOWOLNY KLAWISZ ":0 #.05|L,20:=""9 Plansza tytulowa :a=(*4)+3 a 0:0: f=02555 0,10 :f,165 f f=02555 $255,175:-f,-165 f  502  1;4,4;"***********************";5,4;"* *";6,4;"* *";7,4;"* A L G E B R A F *";8,4;"* *";9 ,4;"* *" 1;10 ,4;"***********************";11 ,4;"* *";12 ,4;"* KRZYWKA LICZBOWA *";13 ,4;"* *";14,4;"***********************" 11,2;" Stanisaw Karpiesiuk, 1988" H7;0;18,0;" " u7;0;1;18,0;" INSTRUKCJA  ROZWIZYWANIE  " ".1}L,20:.1}L,20:.1}L,20:.1}L,40(:.1}L,40(:.1}L,20:.1}L,20 $z$= &z$="I"700 (z$="R"44, * 36$ ,7:0: -23613=\,0 .K1;1,1;"******************************";2,1;"*";2,30;"*";3,1;"*";3,30;"*";4,1;"*";4,30;"*";5,1;"******************************";0:1;1;3,3;" NAGRODA - NIESPODZIANKA ";0;0 0>1;8,1;"******************************";9 ,1;"*";9 ,30;"*";10 ,1;"*";10 ,30;"*";11 ,1;"*";11 ,30;"*";12 ,1;"******************************";0:1;10 ,3;" P O W O D Z E N I A ! ";0 2inf. o rozwizujcym 3.1}L,39' 41;16,0;" PODAJ SWOJE IMI: ";0:b$ 7.1}L,39' 81;16,0;" Czy cyfry mog si powtarza ? TAK - NIE ";0:p$ 9.1}L,39' :p:a(3,3):b(3,4):c(3,3):z(15):gry=1:suma=0:a$="-*+" < szachownica =&7::4,29;"***";5,29;"*A*";6,29;"*L*";7,29;"*G*";8,29;"*E*";9 ,29;"*B*";10 ,29;"*R*";11 ,29;"*A*";12 ,29;"*F*";13 ,29;"***" >k=48016824 ?k,39':0,120x @'480,k-9 :120x,0 Ak B&k=01:l=12 C&m=57:n=35 D$6*k+m,6*l+n;"*" En:m Fl:k Klosowanie liczb L0,0;" ":19,0;" " Ppkt=3000 U&k=13:l=13 Zc(k,l)=(*9 )+1 \p$="N"600X:rne ? ]50,0;" " _b(k,l)=(*3)+1 d+6*l-3,6*k+1;" " f+6*l-2,6*k+1;" " il:k nznaki i obliczenia sk=13 x#b(k,4)=(*3)+1 }!18,6*k+1;"=" !6*k-3,22;"=" .l=1:a=13:z(a)=c(a,k):a o=0:550& #6*k-3,10 ;a$(n) #6*k-3,16;a$(m) .l=3:a=13:z(a)=c(k,a):a o=3:550& /6*k-3,24;z(k+3);" " "6,6*k+1;a$(n) #12 ,6*k+1;a$(m) /20,6*k+1;z(k+6);" " k kursor, wpisywanie liczb .1}L,40( x=8:y=4 y,x;"":5 y,x;" " x$= Fx=x+6*((x$=80P)*(x<16)-(x$=76L)*(x>9 )) Fy=y+6*((x$=68D)*(y<14)-(x$=71G)*(y>9 )) [(x$>"0"x$"9")a((x-2)/6,(y+2)/6)=x$:y-1,x-1;x$ wyjcie z ptli #1;1,0;"Punkty: ";1;pkt;0;" Rozgrywka: ";1;gry;0'"Gotowe - nacinij K" pkt=pkt-1 pkt=0500 x$="K"400  210 rozwizanie gotowe k=13 .l=1:a=13:z(a)=a(a,k):a o=6:550& .l=3:a=13:z(a)=a(k,a):a o=9 :550& k a=16 &z(a+9 )z(a+3)500 a  dobrze!!! suma=suma+pkt+1000 ǖ.1}L,6:.1}L,12 :.1}L,20:.1}L,40(:.1}L,40(:.1}L,20:.1}L,12 :.1}L,6 Q0,0;"DOSKONALE! Zdobye ";1;pkt+1000;0;" pkt" gry=1461 d1,0;"rednia po ";1;gry;0;" grach - ";1;suma/gry;0;" pkt"  630v  nowa gra O"Czy chcesz jeszcze rozwizywa ?TAK - NIE ";z$;" " z$="N"850R gry=gry+1  75K le 6.5,1:.5,1:.5,1 60,0;"Niestety, le. Oto rozwizanie: "  1 k=13 )4,6*k+2;c(k,1) *10 ,6*k+2;c(k,2)  *16,6*k+2;c(k,3)  k:0 ! 465 & obliczenia )m=b(k,l+1):n=b(k,l) +z(k+3+o)=(n2)*z(1)+((n-2)+(n=2)*z(1))*z(2)*(z(3)*(m=2)+(m2))+z(3)*(m-2) 0 4'480,k-9 :120x,0 Xcyfry rne ? YG1;0,0;"Prosz poczeka, trwa losowanie ";0 ]Cm=1k:n=13:c(k,l)=c(m,n)(m 44, R zakoczenie S)suma/gry1gry3870f \bez oceny kocowej ]F:.1}L,39':1;0,10 ;" ";b$;"! ";0 a4,3;"MIKROKOMPUTER ""TIMEX 2048""";6,5;"NIE ZAKWALIFIKOWA CI";8,7;"DO OCENY KOCOWEJ" bl12 ,9 ;"MAM NADZIEJ,";14,7;"E NASTPNYM RAZEM";16,9 ;"BDZIE LEPIEJ" c91;20,2;" DO NASTPNEGO SPOTKANIA! " d 800  e 993 focena kocowa g h.1}L,20:.1}L,20:.1}L,20:.1}L,40(:.1}L,40(:.1}L,20:.1}L,20 i1;0,0;"********************************";1,0;"*";1,31;"*";2,0;"*";2,31;"*";3,0;"*";3,31;"*";4,0;"********************************";0 j:1;2,2;" O C E N A K O C O W A " k1;5,0;"*";5,31;"*";6,0;"*";6,31;"*";7,0;"*";7,31;"*";8,0;"*";8,31;"*";9 ,0;"*";9 ,31;"*";10 ,0;"*";10 ,31;"*";11 ,0;"*";11 ,31;"*";12 ,0;"*";12 ,31;"*";13 ,0;"*";13 ,31;"*";14,0;"*";14,31;"*";15,0;"*";15,31;"*";16,0;"*";16,31;"*";17,0;"*";17,31;"*";18,0;"*";18,31;"*";19,0;"*";19,31;"*";20,0;"*";20,31;"*";21,0;"********************************";0 v11;7,10 ;" ";b$;"! ";0 w10 ,2;"PO ";1;gry;0;" ROZGRYWKACH ZDOBYE";12 ,2;"REDNI ";1;suma/gry;0;" PUNKTW" x91;19,2;" DO NASTPNEGO SPOTKANIA! " ysuma/gry3001 1;1;15,2;"**** JESTE WSPANIAY! ****";0;0:1000:100d:1200:100d:1400x:100d:1600@:993 zsuma/gry2351/ 1;1;15,2;"*** JESTE BARDZO DOBRY! ***";0;0:1200:100d:1400x:100d:1600@:100d:993 {suma/gry12011;1;15,2;"****** JESTE DOBRY! ******";0;0:1400x:100d:1600@:200:993 |suma/gry12001;1;15,2;"****** JESTE SABY! ******";0;0:1300:300,:993 koniec 6:1;10 ,10 ;"K O N I E C";0 .1}L,39'  Krakowiaczek .067} 7K,0:.067} 7K,2:.066}+ ,0:.2~L,-1:.2~L,2:.2~L,5:2,9 :.2~L,7:.4L,4:.2~L,4 .2~L,7:.067} 7K,7:.067} 7K,9 :.066}+ ,7:.2~L,5:.2~L,2:.4L,0:.4L,12 <.067} 7K,0:.067} 7K,2:.066}+ ,0 I.2~L,-1:.2~L,2:.2~L,5:.2~L,9 6.2~L,7:.4L,4:.2~L,4 r.2~L,7:.067} 7K,7:.067} 7K,9 :.066}+ ,7:.2~L,5:.2~L,2  .4L,0 .4L,12   Slow-fox %p=1.2:c=.6:o=.3 p,0:p,12 :o,11 :o,7:o,9 :c,11 :c,12 #p,0:p,9 :p+p,7 p,-3:p,5 7c,4:c,0:o,2:c,4:c,5 8c,2:o,-1:o,0:c,2:c,4  c+o,0  xLato z radiem } k=.03{u\ (o=3*k:c=6*k:p=12 *k <p,-5:p,-7:1440:o,21:o,19 Hc,23:o,21:o,19:c,23:o,21:o,19 wo,21:o,19:o,16:o,12 :c,7:o,-5:o,-7:1440:o,23:o,21 Tc,19:o,23:o,21:o,19:o,17:o,16:o,14 &c,12 :c,16:c,12 : ]o,-8:o,-5:c,0:o,4:o,7:o,12 :o,16:o,19 <c,16:c,16:c,16:o,16:o,19 Hc,16:o,16:o,19:c,16:o,16:o,19 ;o,19:o,17:o,14:o,11 :p,7 ]o,-1:o,2:o,5:o,7:o,11 :o,14:o,17:o,19 &c,23:c,23:c,23: @Hejnal Ek=14 Ja=.3:b=1:c=2:c,7:a,11 :a,14:2*c,19:b,14:a,11 :a,7:a,14:40(:a/2,14:a/2,14:2*c,14 Oc,11 :.1}L,14 T 100d W k=4 Yx=12 ^A.01z# =,-17:502:.01z# =,-22:502:x c100d:k r"pol.litery":5 sh"ALGEBRAF"1650r:"pol.litery"65368X,168:#1;1;" Weryfikacja: ":"":"" rum7EUCCk o}8QYycp8QBSTASIEKPT2  A2N P P-A-*+XKZNbpol.literyXN8 ~