ZXTape! 0Created with Ramsoft MakeTZXmerkki 1 ' )  merkki 1 100d <:10 ,10 ;"ODOTA KUVAA":"fanfaari"23296[ ("merkit""a",168 2 "kuva" 7 1 FC#0;1,3;1;"PYSYT NAUHA JA PAINA ENTER" P 0 UTj=1282:.1}L*(23295Z+j),(23296[+j)+12 :j Z dzj$(30):i$(7):m$(4,1):p$(4,1):k(4):m(4):q$="4 4 5 5 6 7 8 8+9-9 10" x_7:1:0::10 ,2;1;"Anna etunimesi ja paina ENTER":n$: n$>10 n$=n$(10 ) n1,5;0;7;1;"PERUSLASKUTOIMITUSTEN";2,5;"MERKKISNNT " A4,1;"VALITSE":8,135:568,0 6,0;"0 = Lopetus" $'"1 = Kahden luvun yht/vh.-lasku" $'"2 = Neljn luvun yht/vh.-lasku" "'"3 = Sulkujen poisto (2 lukua)" "'"4 = Sulkujen poisto (4 lukua)" 118,0;"Anna luku 0-4 ilman ENTERi" xx=("m") )0:a$=:a$<"0"a$>"4"230 a=a$ 2*a+6,2;"" .1}L,5 !a=1a=21000 !a=3a=43000 e:10 ,5;1;"NKEMIIN, ";n$:18,1;"Uudelleenaloitus komennolla RUN":  4000 #n1=2:a=2n1=4 B i=1n G<k1=0:k2=0:k3=0:f1=0:f2=0 Lj=1n1 V8k(j)=-10 +(20*):k(j)=01110V `1k(j)<0m$(j)="-":f1=1:k2=k2+k(j) j1k(j)>0m$(j)="+":f2=1:k1=k1+k(j) o k3=k3+k(j) tj y%k(1)>0m$(1)=" "  6000p 8,10 ; j=1n1 m$(j);k(j); j .n1=2f1=0f2=01255 u10 ,5;1;"Yhdist erikseen +:t ja -:t";11 ,5;"(ensin + sitten -)":.05|L,10 Oi0=12 :j0=10 :l=2:k(1)=k1:k(2)=k2:7000X &i0=12 :n1=4i0=16 @.05|L,10 :i0-2,10 ;1;"Anna tulos" 3j0=10 :l=1:k(1)=k3:7000X  85004!  i 9500%:120x ,:1,1;"TERMIEN YHDISTELY" a=11520 J3,0;1;"Yhdist ensin eriks. +:t ja -:t Sitten tulos" c6,5;"Esim. Vlitulos Tulos";8,5;1;" -4+2+1-6 = 3-10 = -7 " E12 ,1;1;"Ensin on osattava kahden termin laskut"  1600@ p7,1;1;"Samanmerkk.-->Yht. etum,summa";12 ,0;"Erimerkk.--> Suur. merkki,erotus" 9 ,5;1;" 2+3 = 5";10 ,5;"-2-3 = -5";14,5;"-2+8 = 6 ";15,5;" 9-5 = 4 ";16,5;"-8+9 = -1" @5000:6500d: 4000 #n1=2:a=4n1=4 i=1n j=1n1 8k(j)=-10 +(20*):k(j)=03100 0$m$(j)="+":k(j)<0m$(j)="-" D"p$(j)="+":<.5p$(j)="-" Nj l 6000p m%j0=10 :n1=4j0=5 q10 ,j0; r k3=0 vj=1n1 p$(j);"(";m$(j);k(j);")"; p$(j)="-"k(j)=-k(j) k3=k3+k(j) j @1;12 ,10 ;"Poista sulut":.05|L,10 ,i0=14:j0=10 :l=n1:7000X >16,10 ;1;"Anna tulos":.05|L,10 @i0=18:j0=10 :l=1:k(1)=k3:7000X 85004! /i >9500%:120x *:1,5;"SULKUJEN POISTO" c3,1;1;"Sulut pois seuraavasti:";11 ,1;"Sitten termit yhdistetn" Ԟ5,5;1;"+(+3)= +3 Samanmerkk--> + ";6,5;"-(-3)= +3";8,5;"+(-3)= -3 Erimerkk--> - ";9 ,5;"-(+3)= -3" a=43602 213 ,1;"Esimerkk Sulut pois Tulos" 915,1;1;"-(+2)+(+5) = -2+5 = 3 "  3610 }13 ,1;"Esim.";14,1;1;"-(+3)+(-2)+(+6)-(-7) = ";18,1;"-3-2+6+7 = 13-5 = 8" :16,1;1;"Sulut pois Vlitulos Tulos" 5000:6500d: 3:10 ,5;1;"haluatko vihjeit?" 11 ,5;"(k tai e)" 0:a$= .1}L,10 a$="e"a$="E"4050 !a=1a=21500 !a=3a=43500 n=10 :r=0:: A19,0;2;"Laskun aikana apua h-nppimell": p:v=0*("r") z1,1;1;n;" Tehtv."'';0;" Kunkin rivin jlkeen ENTER"'" Korjaus CAPS SHIFT ja 0"'" Apua h-nppimell";8,1;1;"N:o ";i 3i>11,20;"OIKEIN ";2;r  d621,20;1;"Paina ENTER":0: Xt$="":j1=j0 b x=1l g?k=k(x):k$="-":k0k$="+":x=1k=0k$="" ll$=t$:8000@ vx { i0,j0;" "  @i0,j0;1;"?" T-0:a$=:20,1;j$;i0,j0; VAa$="h"ű(l$+"1")78400 :v=1:t$="":j1=j0: ^Za$=12 l$""l$=l$(1̱l$-1):j0=j0-1:i0,j0;" ";:8000@ `/l$=""l$="+"l$="-"a$=13 8000@ aAl$""xPv=120,1;3;"Oikein, mutta tunaroit":v=23342.[ !H?1,20;"OIKEIN ";1;2;r:6500d: %0:j=-10 202:.05|L,j:j %,+1,5;1;"TULOKSESI ";n$ %0K0,153:255,0:0,35#:255,0 %5 4,1;"Tehtvi ";n %:5,1;"Oikein ";r;4,24;1;"TULOS";5,24;2;q$(2*r+12*r+2) %<r>m(a)m(a)=r %=8,24;1;"THN";9 ,24;"ASTI";10 ,24;"PARAS";11 ,24;2;q$(2*m(a)+12*m(a)+2) %?*1:18,10 ;:t$="TULOS" %D%r=10 1;"LOISTAVA ";t$ %X"r8r<10 "HYV ";t$ %b'r5r<8"TYYDYTTV ";t$ %lIr<5"PYSTYT PAREMPAAN";19,10 ;1;"Autan Sinua" %v 0 %nx0=140:y0=40(:x0,y0:10 ,0:0,105i:-10 ,0:0,-105i %Cj=0102f17:x0-3,y0+j:3,0:j %16,15;1;"4";14,15;"5";12 ,15;"6";10 ,15;"7";8,15;"8";6,15;"9";4,14;"10" %xnum=q$(2*r+1):v=0:q$(2*r+2)" "v=.25~:q$(2*r+2)="-"v=-.25~ &%num=num+v:r=10 num=10 & P3:j=017*(num-4):x0+2,y0+j:5,0:j &Hr=10 9980& &0:6500d & r5 &!a=1a=21500 &!a=3a=43500 & &GJ=04802:.1}L*("e"+j),("e"+j+1):j: Njuhanian r BUv l bkK-LAhTTULOS(u!    Q4 4 5 5 6 7 8 8+9-9 10fanfaari v[Ax   !͵JR8!͵BR8rmerkit X<B>DD<<B@D B@BB@HBB@BbfB@fBHHBBD@8xH8D(88x88B|BB>BBBBB<8D10 n$=n$(10 ) j1,4;0;7;1;"PERUSLASKUTOIMITUS-";2,4;"TEN MERKKISNNT " A4,1;"VALITSE":8,135:568,0 6,0;"0=Lopetus"''"1=Sulkujen poiston merkkisnnt"''"2=Kertolaskun -""-"''"3=Jakolaskun -""-"''"4=Potenssin -""-" xx=("m") :18,0;1;"Anna luku 0-4 ilman ENTERi" 0:a$= a$<"0"a$>"4"210 9f=a$:6+2*f,1;"":.2~L,5 f=11000 !f=2f=32000 f=43000 e:10 ,5;1;"NKEMIIN, ";N$:18,1;"Uudelleenaloitus komennolla RUN":  4000  i=1n a=(1+10 *) m$="+":<.5m$="-" p$="+":<.5p$="-" k=a:p$m$k=-a ,v=0:6000p:10 ,10 ; m$;"(";p$;a;")" ,12 ,10 ;1;"Poista sulut" &i0=14:j0=10 :8000@  85004!  i 9500%:120x H.05|L,10 ::1,1;"SULKUJEN POISTO" 5,1;1;"Samanmerkkiset --> +";7,1;"Erimerkkiset --> -";12 ,1;"Samanmerkkiset";15,1;"Erimerkkiset" 10 ,10 ;"Esimerkki";12 ,16;1;"+(+5) = +5 tai 5";13 ,16;"-(-5) = +5 tai 5";15,16;"+(-5) = -5";16,16;"-(+5) = -5" @5000:6500d:  4000 o$="*":f=3o$=":"  i=1n o$=":"2080  a=-10 +(21*) b=-10 +(21*)  k=a*b  2110>  2b=-10 +(20*):b=02080  *a=b*(-10 +10 *) 4k=a/b >.m$="-":a>0m$="+":.5m$="" Hp$="+":b<0p$="-" Rv=0:6000p \+10 ,10 ;m$;a;o$;"(";p$;b;")" f*12 ,10 ;1;"Anna tulos" p&i0=14:j0=10 :8000@ u 85004! zi 9500%:120x J.05|L,10 ::1,1;"KERTO- JA JAKOLASKUN MERKKI" Ο3,1;1;"Samanmerkkiset ---> +";5,1;"Erimerkkiset ---> -";9 ,1;"Samanmerkkiset";14,1;"Erimerkkiset" K7,10 ;"Esimerkki";9 ,15;1;"(+3)*(+4) = 12";10 ,15;"(-3)*(-4) = 12";11 ,15;"(+20):(+4) = 5";12 ,15;"(-20):(-4) = 5";14,15;"(-3)*(+4) = -12";15,15;"(+3)*(-4) = -12";16,15;"(+18):(-6) = -3";17,15;"(-18):(+6) = -3" 5000:6500d: 4000 i=1n a=(-4+4*) >b=(1+3*):a=1b=(1+100d*) m$="+":a<0m$="-" a>0k=a^b a=0k=0 3a<0k=(a)^b:(b/2)b/2k=-k v=0:6000p 610 ,10 ;"(";m$;a;")";9 ,14;b *12 ,10 ;1;"Anna tulos" &i0=14:j0=10 :8000@ ! 85004! &i 0 9500% : 120x E.05|L,10 ::1,1;"POTENSSIN MERKKI" 3,1;1;"YLEISSNT:";5,1;"Negat. luvun pariton pot --> -";6,1;"Muissa tapauksissa tulos on +" 8,5;"Esimerkki" ;11 ,10 ;"(+2)";10 ,14;"4";11 ,16;"= 16";13 ,10 ;"(-2)";12 ,14;"4";13 ,16;"= 16 huom!" ;16,10 ;"(+2)";15,14;"3";16,16;"= 8";18,10 ;"(-2)";17,14;"3";18,16;"= -8 huom!" 5000:6500d: R:10 ,5;1;"haluatko vihjeit?":11 ,5;"(k tai e)" 0:a$= a$="e"4080 f=11500 !f=2f=32500 f=43500 n=10 :r=0:: A19,0;2;"Laskun aikana apua h-nppimell": p:xx=("r") z1,1;1;n;" Tehtv"'';0;" Korjaus: CAPS SHIFT ja 0"'" Vastauksen jlkeen ENTER"'" Apua h-nppimell";7,1;1;"N:o ";i 3i>11,20;"OIKEIN ";2;r  d621,20;1;"Paina ENTER":0: @j1=j0:l$="" Ji0,j0;1;"?" T-0:a$=:20,1;j$;i0,j0; Y?a$="h"ű(l$+"1")78400 :v=1:j1=j0:" ": ^Za$=12 l$""l$=l$(1̱l$-1):j0=j0-1:i0,j0;" ";:8010J `/l$=""l$="+"l$="-"a$=13 8010J aa$=13 8100 c%l$""(a$"0"a$"9")8010J h,(a$"0"a$"9"a$="-"a$="+")8010J |1l$=l$+a$:i0,j0;a$;:j0=j0+1:8010J #(l$-k)<1e-6m7j1=j0:" ": rv=1:.1}L,-10 :i0,j1;i$;20,1;1;"Uudestaan, ";0;n$:j0=j1:8000@ )j0=j1:i0,j0;i$;i0,j0;k;:j0=j0+k: !4cv=0r=r+1:20,1;2;"Virheettmsti, ";0;n$:v=23378R[ !>Pv=120,1;3;"Oikein, mutta tunaroit":v=23342.[ !H?1,20;"OIKEIN ";1;2;r:6500d: %l:j=-10 202:.05|L,j:j:1,5;1;"TULOKSESI, ";n$:r>m(f)m(f)=r %&K0,153:255,0:0,35#:255,0 %:D4,1;"Tehtvi ";n;5,1;"Oikein ";r;4,24;1;"TULOS";5,24;2;q$(2*r+12*r+2);8,24;1;"THN";9 ,24;"ASTI";10 ,24;"PARAS";11 ,24;2;q$(2*m(f)+12*m(f)+2) %DO1:18,10 ;:t$="TULOS":r=10 1;"LOISTAVA ";t$ %X"r8r<10 "HYV ";t$ %b'r5r<8"TYYDYTTV ";t$ %lIr<5"PYSTYT PAREMPAAN";19,10 ;1;"Autan Sinua" %w0:x0=140:y0=40(:x0,y0:10 ,0:0,105i:-10 ,0:0,-105i %Cj=0102f17:x0-3,y0+j:3,0:j %Ʃ16,15;1;"4";14,15;"5";12 ,15;"6";10 ,15;"7";8,15;"8";6,15;"9";4,14;"10" %xnum=q$(2*r+1):v=0:q$(2*r+2)" "v=.25~:q$(2*r+2)="-"v=-.25~ %%num=num+v:r=10 num=10 %P3:j=017*(num-4):x0+2,y0+j:5,0:j %r=10 9980& &0:6500d & r5 &f=11500 &!f=2f=32500 &f=43500 & &GJ=04802:.1}L*("e"+j),("e"+j+1):j: !  Q4 4 5 5 6 7 8 8+9-9 10Nkfn r  abkvR M-L-27A xfanfaari v[;Ux   !͵JR8!͵BR8rmerkit X;KB>DD<<B@D B@BB@HBB@BbfB@fBHHBBD@8xH8D(88x88B|BB>BBBBB<8D10 n$=n$(10 ) 41,10 ;0;7;"POTENSSIOPPI" 18,135:568,0:4,1;"VALITSE"''" 0=Lopetus"''" 1=Samankant. potenssien kerto"''" 2=Samankant. potenssien jako"''" 3=Potenssin potenssi"''" 4=Tulon potenssi"''" 5=Osamrn potenssi"''" 6=Sekalaisia potenssilaskuja";20,1;1;"Anna luku 0-6 ilman ENTER" xx=("m") )0:a$=:a$<"0"a$>"6"230 9f=a$:2*f+6,2;"":.2~L,5 !f=1f=21000 f=31700 f=42000 f=53000 f=64000 f:10 ,10 ;1;"NKEMIIN, ";N$:18,1;"Uudelleenaloitus komennolla RUN":  4500  i=1n x$="x":.5x$="y" be1=(1+10 *):e2=(1+10 *):f=2(e2e1e1-e2=1)1020 e=e1+e2:f=2e=e1-e2 #6000p:f=210808 .X12 ,13 ;x$;" * ";x$;11 ,14;e1;11 ,18;e2:1100L 8~110n,83S:15,0:10 ,14;x$;9 ,15;e1;13 ,14;x$;12 ,15;e2 L*k=1:k$=x$:7000X:85004! `i ef1=6 j9500%:120x ):1,1;"VIHJEIT" 5,0;1;"Samankant.pot.kerto:";2;"eksp. summa"'';1;"Samankant.pot.jako:";2;"Eksp. erotus" 9 ,0;1;"Potenssin potenssi: ";2;"Eksp. tulo"'';1;"Tulon pot:";2;"kumpikin korot. eriks."'';1;"Osamrm pot:";2;"kumpikin eriks."''';0;"Laskun aikana apua h-nppimell" 6500d:  4500  i=1n We1=(2+4*):e2=(1+5*):e=e1*e2:x$="x":.5x$="y" 6000p:12 ,15;x$;11 ,16;e1;10 ,17;e2:115s,70F:0,25,-1:133,70F:0,25,1:k=1:k$=x$:7000X:85004! i f1=6 9500%:120x  4500  i=1n 0a=(-4+8*):a=02020 x$="x":.5x$="y" m$="+":a<0m$="-" De1=(2+3*+.5):e2=(1+2*+.5) a$=m$:a1a$=m$+a *k6000p:10 ,10 ;"(";a$;x$;9 ,14;e1;10 ,15;")";9 ,17;e2 4?e=e1*e2:k=(a)^e2:a<0(e2/2)e2/2k=-k >"k$=k+x$:7000X:85004! Ri Wf1=6 \9500%:120x 4500 i=1n 0a=(-4+9 *):a=03020 4b=(2+3*):x$="x":.5x$="y" m$="+":a<0m$="-" De2=(1+2*+.5):e1=(2+4*):e=e1*e2 @a1=a:b1=b:7500L:a=a/a1:b=b/a1:b=13020 $a$=m$+x$:a1a$=m$+a+x$ e6000p:6,1;"Nimittjn jlkeen ENTER";5,1;"Osoittajan jlkeen ENTER" 85U,73I:0,30,-1:120x,73I:0,30,1:85U,83S:30,0:10 ,11 ;a$;9 ,14;e1;12 ,12 ;b;9 ,16;e2 6k=(a)^e2:a<0(e2/2)e2/2k=-k &~k$=k+x$:7000X:120x,30:15,0:k=b^e2:x$="e":i0=19:j0=15:8000@:85004! :i ?f1=6 D9500%:120x  4500 Cn1=n:n=1:m=1n1:f=(1+4*):f1=6 !f=1f=21010 f=31710 f=42010 f=53010 m n=n1:9500%:120x R:10 ,5;1;"haluatko vihjeit?":11 ,5;"(k tai e)" 0:a$= a$="k"1500 n=10 :r=0:: p:v=0*("r"):1,1;1;n;" Tehtv."'';0;" Korjaus: CAPS SHIFT ja 0"'" Eksp. asetus CAPS SHIFT ja 7"'" Vastauksen jlkeen ENTER"'" Apua h-nppimell"'';1;" N:o ";i;:f1=61;8;m Ji>1(f1=6m>1)1,20;"OIKEIN ";2;r  d621,20;1;"Paina ENTER":0: X*14,10 ;1;"Anna tulos" Yk$="":k<0k$="-" Zi0=17:j0=15 ["e=0e=1:7010b \#8000@:e=17020l ]11 Ʀ"h"7005] b6i0=i0-1:x$="e":k=e:k$="":k<0k$="-" g 8000@ l La1>b1a1=a1-b1 Va1"9"8010J =(a$"0"a$"9"a$="+"a$="-")a$;:j0=j0+1:l$=l$+a$  8010J 0k=1(l$="+"l$=""l$="-")8200 -k1l$="+"l$=""l$="-"8200 a$x$8200 "k=1l$="+"l$=""j1=j0: k=-1l$="-"j1=j0: %l$""(l$-k)<1e-6m7j1=j0: sv=1:.05|L,-10 :i0,j1;i$;20,1;1;"uudestaan, ";0;n$:j0=j1:8000@ Ћj0=j1:i0,j0;i$;i0,j0;:k$;k;:j1=j0:j0=j0+(k$+k):x$"e"x$;:j0=j0+1:k=1i0,j1;i$;i0,j1;k$;x$;:j0=j1+(k$+x$)  !4Zv=0r=r+1:20,1;2;"Virheettmsti, ";n$:v=23378R[ !>Rv=120,1;3;"Oikein, mutta tunaroit":v=23342.[ !H?1,20;"OIKEIN ";2;1;r:6500d: %y:j=-10 202:.05|L,j:j:1,5;1;"TULOKSESI, ";n$:f1=5n=n1:f=5 %&[0,153:255,0:0,35#:255,0:r>m(f)m(f)=r %:D4,1;"Tehtvi ";n;5,1;"Oikein ";r;4,24;1;"TULOS";5,24;2;q$(2*r+12*r+2);8,24;1;"THN";9 ,24;"ASTI";10 ,24;"PARAS";11 ,24;2;q$(2*m(f)+12*m(f)+2) %DO1:18,10 ;:t$="TULOS":r=10 1;"LOISTAVA ";t$ %X"r8r<10 "HYV ";t$ %b'r5r<8"TYYDYTTV ";t$ %lIr<5"PYSTYT PAREMPAAN";19,10 ;1;"Autan Sinua" %w0:x0=140:y0=40(:x0,y0:10 ,0:0,105i:-10 ,0:0,-105i %j=0102f17:x0-3,y0+j:3,0:j:16,15;1;"4";14,15;"5";12 ,15;"6";10 ,15;"7";8,15;"8";6,15;"9";4,14;"10" %xnum=q$(2*r+1):v=0:q$(2*r+2)" "v=.25~:q$(2*r+2)="-"v=-.25~ %%num=num+v:r=10 num=10 %P3:j=017*(num-4):x0+2,y0+j:5,0:j &Hr=10 9980& &0:6500d &r<51500 & &GJ=04802:.1}L*("e"+j),("e"+j+1):j: m!  ! Q4 4 5 5 6 7 8 8+9-9 10Nkfn r  ev.kXeKLAh,fanfaari v[Ix   !͵JR8!͵BR8rmerkit X:B>DD<<B@D B@BB@HBB@BbfB@fBHHBBD@8xH8D(88x88B|BB>BBBBB<8D