ZXTape! 0Created with Ramsoft MakeTZXINTRO o (0:0:0:1: O#1;1,5;1;2;7;" LAAT DE BAND LOPEN. " $10 ,0;"":"PRIMOSOFT" g#1;0,0;0;" " O#1;1,5;1;2;7;" LAAT DE BAND LOPEN. " #6,0;"":"" c"INTRO"1 #PRIMOSOFT @O5 ?#'##'D$$!D$$$DD$$@$||B~|BJB@|BB#'##'D$$!D$$$DD$$@$||>B<>|<@DBBDBFD@DZBBD$$!$$$$$$$$ $!D$' '||>B<>|<@DBBDBFD@DZBBD$$!$$$$$$$$ $!D$' 'BBfBBBbD@BB@@B>BB>B<<$$!''$$'$$$ BBfBBBbD@BB@@B>BB>B<<$$!''$$'$$$ BBZBBBRB|BB<???$$$$$'$$'$BBZBBBRB|BB<$$$$$'$$'$||B~|BJB@|BB<B|BB><~B~|B~~><BBBB@B@BB@@|BB@|B|BB0|<BBBN@B@|~@???????B$BB@$@D?????????? @B??????????B|<><~~B~~~><<BBBBBBBBBBBBBBBBBBBBBBBBBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBVBVtBBVteGGGGGGGGGGGGGGBBBBBVtehBVtehGGGGGBVtehBVteh8888888888888888888888888888888888888888888888888888888888888888M20-veld ML[wM 8000@ 6000p:a=02:9 +a,4;1;t$(124):a:31,104h:193,0:0,-25:-192,0:0,24 ,236099\,100d:23561 \,0 410 ,6;1;"Hallo, hoe heet jij ?" m18,4;1;1;" Type je naam in en ";19,4;" druk daarna op ENTER. " n$ n$=""25 #a=1̱n$ ("n$(a)<"a"n$(a)>"z"25:a -*n$=(n$(1)-32 )+n$(2) /'n$>12 n$=n$(112 ) 26000p:a=019:1+a,1;1;t$(124)+" ":a:7,7:0,161:241,0:0,-161:-240,0 7>4,8-n$/2;1;;n$;", kies maar uit:" <8,5;1;"1. + sommen.";11 ,5;"2. - sommen.";14,5;"3. + en - door elkaar." AB18,3;1;1;" Druk op de goede toets. " F 0 Ig$= K8g$<491ůg$>513.4L,-5:70F M`g$="1".8L,30:8,5;1;7;2;1;"1. + sommen." Nag$="2".8L,30:11 ,5;7;1;2;1;"2. - sommen." Okg$="3".8L,30:14,5;7;1;2;1;"3. + en - door elkaar." P soort=g$ R 75K UHa=18:7+a,5;1;t$(124):a Z8,6;1;"1. Sommen ";1;"tot";0;" 10.";11 ,6;"2. Sommen ";1;"over";0;" de 10.";14,6;"3. Door elkaar." \ 0 ]g$= ^8g$<491ůg$>513.4L,-5:93] _eg$="1".8L,30:8,6;1;7;2;1;"1. Sommen tot 10." `jg$="2".8L,30:11 ,6;1;7;2;1;"2. Sommen over de 10." bdg$="3".8L,30:14,6;1;7;2;1;"3. Door elkaar." choog=g$:75K d)hoog=1sprong=2:110n eHa=18:7+a,5;1;t$(124):a f8,2;1;"1. Met sprongen over de 10.";11 ,2;"2. Geen sprongen over de 10.";14,2;"3. Door elkaar." g 0 hg$= i9g$<491ůg$>513.4L,-5:103g jog$="1".8L,30:8,2;1;7;2;1;"1. Met sprongen over de 10." kqg$="2".8L,30:11 ,2;1;7;2;1;"2. Geen sprongen over de 10." ldg$="3".8L,30:14,2;1;7;2;1;"3. Door elkaar." msprong=g$:75K na=019:1+a,1;1;t$(124)+" ":a:7,7:0,161:241,0:0,-161:-240,0 o9 ,13 -n$/2;1;"Goed, ";n$;",";11 ,8;"daar gaan we dan.";13 ,10 ;7;2;;"Doe je best!" p 100d ssom=som+1:fout=0 u&som>206000p:7000X x2000:genereren som }2200:bepalen antwoord C6000p:a=07:11 +a,3;1;t$:a _23,23:0,65A:209,0:0,-65A:-208,0 2400` :bepalen plaats d$ %d$="".4L,-5:210 f=1̱d$ 3d$(f)<"0"d$(f)>"9".4L,-5:210 f kindantw=d$ 1kindantw>99c.4L,-5:210 ,2600( :plaats antwoord ^kindantw=antw1800 fout=1450 fout=2470 0fout=3100d:6000p:115s 'kindantwantw5000:1100L  1800 'kindantwantw5000:1500  1800 kindantw=antw1800 /5000:7265a:7500L:115s L30:7265a Q=a=16:1+a,1;1;t$+" ":a Va=360<3 `bi=a/3 j c=a-1 t x=3 ~a>30x=6 a>30c=a-31 x,c;1;bi a  a=112p16124  8,a 240,0 a a=825024  a,160 0,-480 a  a=13  200 Ja,b;1;1;"";a+1,b-1;"";a+2,b;"": (914,b;1;1;"";15,b;"": 2&15,b;1;1;"": xCa,b;1;1;"";a+1,b;"";a+2,b;"": Ca,b;1;1;"";a+1,b;"";a+2,b;" ": Ca,b;1;1;"";a+1,b;" ";a+2,b;"": Ca,b;1;1;"";a+1,b;" ";a+2,b;"": Ca,b;1;1;" ";a+1,b;"";a+2,b;"": Ca,b;1;1;"";a+1,b;"";a+2,b;"": Da,b;1;1;"";a+1,b;"";a+2,b;;"": Ca,b;1;1;"";a+1,b;"";a+2,b;" ": Ca,b;1;1;"";a+1,b;"";a+2,b;"": Da,b;1;1;"";a+1,b;"";a+2,b;;"":  HULPROUTINE 20:7265a  pl=2 %n=13*p-23 na=n +n>29pl=pl+3:na=na-30 \pl,na;3;1;0;1;"";pl+1,na;"";pl+2,na;"" n>28pl=pl-3 .3,10 :30 n ksoort=21600@  r=3*(antw)  k=2  75K n=3*p+1r3 i=n "n>28i=n-30 'n>28k=5 ,0k,i;5;0;1;1;"" -8k+1,i;5;0;1;1;"" .8k+2,i;5;0;1;1;"" /.3,10 :30 1n 3 200 @ 75K Er=3*antw+2 J n=3*p+1r-3 Oi=n:k=2 T%n>33!i=n-33!:k=5 Yn31i=n-3 hj=02 r2k+j,i;1;0;1;6;"" |j .3,10 :30 n  :1265 i$(5,9 ):i$(1)=" GOEDZO ":i$(2)=" PRIMA ":i$(3)="HEEL GOED":i$(4)=" JUIST ":i$(5)="DAT KLOPT"  random=(*5)+1  Y20,10 -(n$/2);2;7;1;1;i$(random);", ";n$  5050  fout=01850: 100d:115s :<100d:6000p:0,23:255,0 ;b$="" <n=b$ = f=1n >c$=b$(1f) ?'(8+f),(13 -f);1;c$ @f C9m=05:18-m,28;1;"":m Da=03 E:18-a,13 ;5;1;"" Fa ]totaalg=totaalg+1 ^ztotaalg=1som>13,2;2;7;1;"1 som goed van de ";som;" sommen.":1890b _etotaalg=1som=13,10 ;2;7;1;"1 som goed.":1890b `3,4;2;7;1;totaalg;" GOED van de ";som;" sommen.":som=13,20;" ":som=13,20;2;7;1;" som." bx=18:y=2 cd=0totaalg-1 dR(x-d),(y+d);"";(x-d)-1,(y+d);"":2+5*(2/(d+1)) eR(x-d),(y+d);"";(x-d)-1,(y+d);"":2+5*(2/(d+1)) fs(x-d),(y+d);"";(x-d)-1,(y+d);"";(x-d)-1,(y+d)+1;"":2+5*(2/(d+1)) g(x-d),(y+d);"";(x-d)-1,(y+d);"";(x-d)-2,(y+d);"";(x-d)-1,(y+d)+1;"";(x-d)-2,(y+d)+1;"":2+5*(2/(d+1)) hD(x-d),(y+d);" ";(x-d)-1,(y+d);" ";(x-d)-2,(y+d);" " iX(x-d)-1,(y+d)+1;"";(x-d)-2,(y+d)+1;"":.05|L,3*d jd kKtotaalg=10 0,21;" ";1,21;" ":1910v l+som20totaalg<10 7000X q502:115s vK7,12 ;"";8,12 ;"":4:7,12 ;"";8,12 ;"":3:a=01:8-a,12 ;" ";7-a,12 ;" ";8-a,12 ;" ":6-a,12 +a;"";7-a,12 +a;"";8-a,12 +a;"":a=18,12 ;" ":2:a y1a=03:5+a,12 ;" ":a {vn=09 :6+n,14;"";7+n,14;"":(10 -n)/2:6+n,14;" ":n Ba=02:17-a,14;5;0;"":a a=011 14,14+a;"":10 :14,14+a;" ":10 :14,14+a;" ":10 :14,14+a;" ":a 14,27;" " a=010 R14,26;" ":9 :14,26;"":9 :a:7000X *ksoort=soort:khoog=hoog:ksprong=sprong -ksoort=3ksoort=(*2)+1 +khoog=3khoog=(*2)+1 /ksprong=3ksprong=(*2)+1 lksoort=1khoog=1p=(*10 )+1:q=(*10 )+1:(p+q)>10 2000 ډksoort=1khoog=2ksprong=1p=(*9 )+1:q=(*9 )+1:(p+q)>20(p+q)10 2010 ߇ksoort=1khoog=2ksprong=2p=(*20)+1:q=(*20)+1:(p+q)>20p<10 2015 kksoort=2khoog=1p=(*10 )+1:q=(*10 )+1:(p-q)<02020 ksoort=2khoog=2ksprong=1p=(*20)+1:q=(*10 )+1:(p-q)<0p<11 (p-q)10 2030 ksoort=2khoog=2ksprong=2p=(*20)+1:q=(*20)+1:(p-q)<0(p-q)<10 2035 4 bepalen antwoord asoort=ksoort asoort=1antw=p+q: asoort=2antw=p-q: `bepalen plaats e a=13 jp$=p+q+antw t_start=(8Ʊp$=3)+(7Ʊp$=4)+(6Ʊp$=5)+(5Ʊp$=6) y,p<10 b=start:1400x+10 *p {Fp=20b=start:1420:b=b+3:1400x:2440 ~Pp10 b=start:1410:b=b+3:1400x+(p-10 )*10 )asoort=1b=b+3:1310 )asoort=2b=b+3:13302 0q<10 b=b+3:1400x+10 *q Tq10 b=b+3:1410:b=b+3:1400x+(q-10 )*10 b=b+3:1320( : (plaats antwoord 2@kindantw<10 b=b+3:1400x+10 *kindantw: <kindantw10 b=b+3:1400x+10 *((kindantw/10 )):b=b+3:1400x+10 *(kindantw-10 *((kindantw/10 ))): 7a=112 :.04|# =,38&-4*a:a: 8a=112 :.04|# =,-10 +4*a:a: pc:0,0:255,0:0,175:-255,0:0,-175: X eindscherm YWw$(3,6):w$(1)="aardig":w$(2)=" goed":w$(3)=" prima" Zsom>15res=1 [(som>12 som<16res=2 \som<13 res=3 ]utotaalg<10 a=02:5+a,1;1;6;0;t$(124)+" ":a btotaalg<10 5,8-n$/2;6;0;1;n$;", de sommen zijn";6,4;"nog wel moeilijk voor je.";7,4;"Vraag of iemand je helpt!":7100 dca=01:5+a,1;1;6;0;t$(124)+" ":a gtotaalg=10 5,9 -n$/2;6;0;1;n$;", je hebt het ";6,8;w$(res);" gedaan.":7100 i20,5;1;1;" Druk op een toets ";21,5;" om verder te gaan. "  0 .2~L,26  6000p ڱa=019:1+a,1;1;t$(124)+" ":a:7,7:0,161:241,0:0,-161:-240,0 @4,8-n$/2;1;"Je mag kiezen, ";n$;"." 8,4;1;"1. Een ander mag nu.";11 ,4;"2. Ik wil nog een keer.";14,4;"3. Stoppen." A18,3;1;1;" Druk op de goede toets. "  0 v$= :v$<491ův$>513.4L,-5:7170  .2~L,26 0v$="1"som=0:totaalg=0:10 0v$="2"som=0:totaalg=0:502  ev$="3"6000p:10 ,9 -n$/2;2;7;1;"*** Dag, ";n$;". ***" #u19,2;1;1;" Druk op R (RUN) en daarna ";20,2;" op ENTER voor nieuwe start." % afout=fout+1:a=13 ckindantw>9 13 ,b-3;1;s$(16);14,b-3;s$(16);15,b-3;s$(16):b=b-6: dx13 ,b;1;s$(13);14,b;s$(13);;15,b;s$(13):b=b-3 f Lprinten goede antwoord Q 502 Vantw>9 b=b+3:1400x+10 *(antw/10 ):b=b+3:1400x+10 *(antw-(10 *(antw/10 ))):5050:f=04:1;a+f-1,b-4;2;7;1;" ":f:100d:7530j `b=b+3:1400x+10 *antw:5050:f=04:1;a+f-1,b-1;2;7;1;" ":f:100d j&som206000p:7000X t E@6:0:7:0::8410 :6000p: Ja=02:9 +a,8;1;r$(114):a:63?,104h:112p,0:0,-25:-112p,0:0,25 Ty10 ,9 ;1;1;"STOP DE BAND":a=17:.1}L,0:.2~L,20:a:502 ^T6000p:a=04:8+a,8;1;r$(115):a h>10 ,9 ;2;1;1;" 20 - VELD " rl$="*****************" |8,7;2;1;l$;12 ,7;l$:a=02:9 +a,7;1;2;"*";9 +a,23;"*":a `557,112p:138,0:0,-41):-138,0:0,41) O19,1;1;1;1;" Hans Kunstman - PRIMOSOFT " !85004!:6000p:6 Hsom=0:totaalg=0:s$=" ":r$=s$+s$:t$=" "+r$+s$: !>'f=020:g=07 !Ha:(144+f)+g,a !Rg:f !\P192,224,64@,224,224,224,224,224 !]Q192,192,192,128,128,128,128,192 !^M480,568,16,568,124|,123{,120x,190 !_M62>,502,502,67C,128,128,128,192 !`H12 ,14,4,31,60<,93],94^,30 !aJ0,64@,128,0,0,128,128,192 !bK24,24,24,16,32 ,64@,128,192 !cA0,0,0,0,3,3,1,7 !dE0,0,0,0,0,128,0,224 !eE15,15,23,23,6,6,4,8 !fL0,0,192,192,64@,128,128,192 !gD16,32 ,16,0,0,0,0,0 !hH12 ,14,4,14,14,14,14,14 !iE12 ,12 ,12 ,8,8,8,8,12 !jC0,0,0,0,0,4,10 ,491 !kE0,0,0,0,0,0,192,224 !lE0,0,0,8,22,33!,568,60< !mA0,0,0,0,0,0,6,7 !nD0,0,0,0,0,64@,176,8 !oJ0,128,128,64@,32 ,32 ,568,24 !pF0,8,8,16,32 ,32 ,568,24 ! '"20-veld"1 a=112p16124 8,a 240,0 a a=825024 a,160 0,-480 a ,13 ,8;1{" " @E15,17;1;" " p=(*8+1) q=(*8+1) p+q<11 400 a=13 :b=4 1000+10 *p a13 :b=13 1000+10 *q  0:s a=13 :b=21 #!1000+10 *(s/10 ) a=13 :b=25 "1000+10 *(s-10 ) & 100d bs(p+q)2000 l 3000 a,b;1;" ": wab;1;" ": wa,b;1;" ": wa,b;1;" ": wa,b;1;" ": wa,b;1;" ": wa,b;1;" ": .u!,b;1;" ": 8wa,b;1;" ": Bva,b;1" ": "FOUTNROUTINE" %#n=13*p-23 d2,n;2;1;" " n r=3*(p+q)  k=2 n=3*p+1r3  i=n n>28i=n-30 n>28k=5  k,i;4;1;"" !&k+1,i;4;1;"" "&k+2,i;4;1;"" %n & 00d * 7 +x=40(73I , 160,x -65A,0 .x / 0 0 500 H:10 ,11 ;2;1;"GOEDZO":502::100d ootaalTL*****************>!>!NHansoorG1oopronS R T