ZXTape! 2e Woorden Maken Edusystems1984Dutch Educational ROM LoaderOriginalTZXed by Wilko Schrterletters ]dJ>_db23613=\+256*23614>\,0:23613=\+1+256*23614>\,0 x&7:7:7:0: 56000 "" 20,0;""; "" 20,0;""; ""  EDUSYSTEMS 1984 =i=23813]25000a:i;7;i;14;¾i:i: Z]\]msz @=??@ ?80 0@@B><~B~|>   @BB@B@B@@ @@B@|B|B@?  BN@B@|B@0@@BB@$@DB@  0<><~~B><?@@@@8p88p8p88<~BB~|<|~@x<<|B||~<~B~~|88p~888p8p88@@bB@BBB@@DBBBbBB@@@b@@B88p~8pp8<|RB|BBB|@BBBBRBB|<|R||B88888p~8pp8@JB@|~|@@BBB|J||@@J@@|888888p8p88pp8B@F$@DB@@@DBBDF@D@B@F@@D888888p8p88<~B~BB@~~x<~B~<<~B<|~@DBBB@B@@B@BBB@|BB@B|B|~~<<@$BB~8=8888888888888888888888888888888==8888888888888888888888888888889998888899999999888888888888888899999999999998999988888888888888999999989999989999888888888888889=898898999999999988888888888888999999999999989999999999999999888=8888888888888988889888888888888=8888888888888988889888888888899999999999999999999999999999999898888888888888888888888888888888?8888888888888888888888888888888???8888888888888888888888888888WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW888888888888888888888888888888?988888888888888888888888888888889888899999999999999999999999999998888999999999999999999999888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888mc1 & [!jZXZ"_![k"aXX*a*_2cw"e!XR8 *eR [e!YR8 *eR *e Rw($*e:c2cO @yyyy?yyyyyy?yyyyyyy?yyyyyyyy??yzz?zyy??yy?yzz?zyy??yy??yyyyyyyyy?yyyyyyyyyy?yyyy>!j7>![ V! [=\s#r!' s#r!::\<( ( !B\6#6#[::\<>2:\v! [~/##w##F##~А<!X( #~ 8++N 8 _:#[W: [_~_:"[w#=*[| *[ *[,"[ *[-"[*[ w|(,{ $ *[$*[{ $ (*[|((z % *[%z *[% (*[}( -"[ ("[> >g@O|GW|_a}o{_))))){G>G>>O@gygyo>@Бw &:H\yC%  :H\% y&- y.!͵!͵}o !͵R @P#+w##@W+#w++>y !W A#BK # M!@##!@~Gw#!@~w#]WH$]v><<<<<~~   P"A 0 2#0;0,0;c$:.01z# =,40(:64850R:x=x-1 h_="8"x<29#0;0,0;c$:.01z# =,30:64900:x=x+1 r=" "1000 p 65204 r tmax=-1:2000  fire pijl 1:8:8  9100# y=207-1  9200# y<11 1100L $?64500:p=p+1:p8p=0:65204 L 1500 `y ~@tmax=(100d*(32 -(xr-8*x-13 ))/32 ) tmax>09300T$:10 ,5;2;"Je krijgt ";tmax;" sec";12 ,5;"om een letter te raken.":6500d:2000 8y=63-1:9200#:1500:y 0:2000  draw pijl 1;y-3,x;"";y-2,x;"";y-2,x;"";y,x;"";y,x;"";y+1,x;"":y=180;19,x-2;"";20,x-2;"";21,x-2;" "   letterregen 8mis=0:raak=0:tmax<0mis=1: 77:1:0::x(28):y(28) ?a$="`qwertyuiopasdfghjklzxcvbnm``qwertyuiopasdfghjklzxcvbnm`" start=(*28+1) b$=a$(startstart+28) i=1284 .005y# =,15  l$=b$(i) *>x(i)=15-(i-1)/2:y(i)=(*2)+1 /(y(i),x(i))" "2090* 4&ں(*7);9 ;y(i),x(i);l$ >l$=b$(i+1) HNx(i+1)=16+(i-1)/2:y(i+1)=(*2+3) M.(y(i+1),x(i+1))" "2120H R6ں(*7);9 ;y(i+1),x(i+1);l$ \l$=b$(i+2) fNx(i+2)=16+(i-1)/2:y(i+2)=(*2)+1 k.(y(i+2),x(i+2))" "2150f p6ں(*7);9 ;y(i+2),x(i+2);l$ zl$=b$(i+3) Nx(i+3)=15-(i-1)/2:y(i+3)=(*2+3) .(y(i+3),x(i+3))" "2180 6ں(*7);9 ;y(i+3),x(i+3);l$ i  random regen %y=21:150:fire=0 v0,0;2;7;c$;0,0;"Je letters:";:z=1r(s):7;0;u$(z,s);:z i=128 .005y# =,15 tmax=tmax-1:2;7;0,16;"Rest-tijd ";7;0;tmax;2;7;"sec ":tmax<0mis=1: xo=x(i):yo=y(i) (dx=(*2+1):2240+dx 7x(i)=x(i)+(x(i)<31)-(x(i)=31):2250 x(i)=x(i)-(x(i)<0) .y(i)=y(i)+1:y(i)>182280 0(y(i),x(i))" "x(i)=xo:y(i)=yo:2280 <yo,xo;" ";ں(*3+5);9 ;y(i),x(i);b$(i) E"".001wn,30:#0;0,0;c$:2500 fire=13000 i  2220  test inkey$ ,="5"x>264850R:x=x-1 -="8"x<2964900:x=x+1 =" "fire=1   fire letterpijl 0,0;c$ 9100# y=y-1 y<4mis=1: 9200#:1500 'x$=(y-4,x):x$=" "3030 &9300T$:raak=1: 0E EDUSYSTEMS 1984:x$=(y-4,x):x$=" "3030  letter gemist 9400$ :7,25;" ";8,25;" ";9 ,3;" ";10 ,3;" ";11 ,3;" ";12 ,5;"";13 ,3;"":  letter geraakt 6::c=2 g=110 "c=2c=1:4008  c=2 c:2,22;" ";3,22;" ";4,4;" ";5,4;" " [6,4;" ";7,4;" " g>14060 )12 ,11 ;1;"De letter" z=96`122z (x$=z5501}+2*(z-95_) z  5 g   Hoofdprogramma 1:7:1: 10 ,2;"Hoeveel spelers doen er mee?";14,2;"2 , 3 of 4 .";16,2;"Tik maar in." 3x$=:x$=""ůx$<502ůx$>5245025 aantal=x$:p(aantal) :6,2;"Willen jullie de";8,2;"spelregels weten?";12 ,2;"Ja of Nee?";14,2;"Druk J of N in." x$=:x$=""5032 x$="j"6000p x$="n"5040  5032  begin beurten Nb1=0:eind=0:r(aantal):u$(6,aantal):h$(6,1) 1q=1aantal:r(q)>5eind=1:q eind=17500L s=1aantal &1:1:7:1: V:#0;7;2;0,0;" Speler ";s;", je mag nu schieten. "  6100 0raak=1r(s)=r(s)+1:u$(r(s),s)=x$ 0b1=0b1=1:7000X:5155# %5:a=65310:7110 #nmis=1r(s)<2#0;7;2;"Druk een toets om door te gaan. ":0:5200P ( 62008 -eind=15200P 2#0;7;2;0,0;"Wil je dat na deze ronde de woor";1,0;"den ingeleverd worden? J of N? " 7x$=:x$""51757 <x$=:x$=""5180< F"x$="j"eind=1:5200P Kx$"n"51757 PN5;#0;0,0;c$;1,0;c$:a=65270:s Z 5055  Volgende beurten  |Graf. letters K15,14;"";16,14;"";17,14;""  L17,14;"";18,14;" ";19,14;""  z15,14;"";16,14;"";17,14;"";18,14;" ";19,14;""  K17,14;"";18,14;" ";19,14;""  z15,16;"";16,16;"";17,14;"";18,14;" ";19,14;""  L17,14;"";18,14;"";19,14;""  v15,14;"";16,14;"";17,14;"";18,14;"";19,14;""  |17,14;"";18,14;" ";19,14;"";20,16;"";21,14;""  z15,14;"";16,14;"";17,14;"";18,14;" ";19,14;" "  ]16,16;"";17,16;"";18,16;"";19,16;""  16,16;"";17,16;"";18,16;"";19,16;"";20,16;"";21,15;""  x15,14;"";16,14;"";17,14;"";18,14;"";19,14;""  v15,14;"";16,14;"";17,14;"";18,14;"";19,14;""  O17,14;"";18,14;" ";19,14;" "  L17,14;"";18,14;" ";19,14;" "  L17,14;"";18,14;" ";19,14;""  z17,14;"";18,14;" ";19,14;"";20,14;"";21,14;""  z17,14;"";18,14;" ";19,14;"";20,16;"";21,16;""  H17,14;"";18,14;"";19,14;""  L17,14;"";18,14;"";19,14;""  v15,14;"";16,14;"";17,14;"";18,14;"";19,14;""  L17,14;" ";18,14;" ";19,14;""  L17,14;" ";18,14;" ";19,15;""  R17,14;" ";18,14;" ";19,15;""  K17,14;" ";18,14;" ";19,14;" "  16,14;" ";17,14;" ";18,14;" ";19,14;"";20,16;"";21,14;""  J17,14;"";18,15;"";19,14;""  p Instructie q s1,0;"Jullie kunnen om beurten met";3,0;"pijl en boog letters uit de";5,0;"lucht schieten." u7,0;"Elke speler moet voor het letter";9 ,0;"schieten eerst een schietschijf";11 ,0;"raken; hoe dichter bij de roos,";13 ,0;"des te meer tijd om bij het";15,0;"letterschieten te richten." w17,0;"Besturing van pijl en boog met";19,0;"de toetsen 5 en 8.";21,0;"Schieten d.m.v. de BREAK/SPACE." y6050: {0,0;"De schietbeurt is voorbij als:";2,0;"1 De schietschijf niet geraakt";4,2;"wordt.";6,0;"2 De tijd om te richten op is." }t9 ,0;"Per schietbeurt kan er een ";8,23;",,";11 ,0;"letter geschoten worden." 13 ,0;"De letterregen bevat alle";15,0;"letters van het alfabet met";17,0;"waarde en twee tekens (`) zonder";19,0;"waarde. Deze kunnen voor elke";21,0;"letter gebruikt worden." 6050: 1,0;"Elke speler krijgt de door";3,0;"hem geschoten letter op";5,0;"een letterbalkje." c7,0;"De letters op dit balkje mogen";9 ,0;"onderling verwisseld worden." b11 ,0;"Na elke schietbeurt kan een";13 ,0;"speler zijn woord inleveren." ^15,0;"De andere spelers maken dan";17,0;"eerst de spelronde af en" 219,0;"leveren daarna hun woord in." 6050: 1,0;"De speler met het hoogste aantal";3,0;"punten (=letterwaarde x aantal";5,0;"letters) heeft gewonnen." 7,0;"De computer houdt de beurten";9 ,0;"en het aantal punten van";11 ,0;"elke speler bij." 13 ,0;"Kijk in een woordenboek, als";15,0;"jullie het over de spelling";17,0;"van een woord niet eens zijn.";19,0;2;"Voor het teken (`) gelijktijdig";21,0;"SYMBOLSHIFT en X indrukken!" 6050:  5040 P#0;7;2;1,0;"Druk een toets om door te gaan. " x$=:x$""6052 x$=:x$=""6054   schiet letters  100d :raak=14000: 3500 :6500d: 8 Verwissel letters =h$(6,1) Bk=1r(s) G#0;7;2;0,0;"Speler ";s;", tik je letters in de ";1,0;"gewenste letter-volgorde in. " Ix$=:x$""6217I L4x$=:x$=""ůx$<96`ůx$>122z6220L Q.03{u\,40( Vl=1r(s) `+x$=u$(l,s)u$(l,s)=" ":h$(k)=x$:l=r(s) jl th$(k)=" "#0;7;0,0;c$;7;2;1,0;" Dit kan niet! ":.1}L,20:6500d:6215G ~q7;1;2;19-11 *(s>2),21*(s=2s=4)+(k-1)*2;x$ k  6500d k=1r(s):u$(k,s)=h$(k) v7;1;1;20-11 *(s>2),21*(s=2s=4)+(k-1)*2;u$(k,s) k h7;1;1;19-11 *(s>2),21*(s=2s=4);" "  d timer nz=175K:z: Xspelers veld ] d$=" " b&5:5:1:0: l?y=11 17:2;y,0;d$;y,21;d$:y v7;1;12 ,1;"SPELER 1";14,1;"PUNTEN :";16,2;" ";12 ,23;"SPELER 2";14,23;"PUNTEN :";16,24;" " y}aantal>2y=06:2;y,0;d$:y:aantal=4y=06:2;y,21;d$:y |aantal>27;1;1,1;"SPELER 3";3,1;"PUNTEN :";5,2;" ":aantal=47;1;1,23;"SPELER 4";3,23;"PUNTEN :";5,24;" " z=1aantal h1;7;1;18-11 *(z>2),21*(z=2z=4);"" ly=12:7;1;18+y-11 *(z>2),21*(z=2z=4);d$:y h7;1;1;21-11 *(z>2),21*(z=2z=4);"" z ;7;1;1;0,11 ;"" Ly=120:7;1;1;y,11 ;" ":y <7;1;1;21,11 ;"" u7;1;1;6,11 ;"";2,12 ;" LETTER ";4,12 ;" WAARDE " y=719:y,12 ;1;7;1;e$(2*(y-6)-1);"=";f$(2*(y-6)-1);" ";e$(2*(y-6));"=";f$(2*(y-6)):y :20,12 ;1;7;1;"`=0 " t=1aantal:20-11 *(t>2),21*(t=2t=4);:z=1r(t)-1:1;7;1;u$(z,t);" ";:z:1;7;1;u$(r(t)+(r(t)=0),t):t Нt=1aantal:1;7;1;16-11 *(t>2),4+(p(t)<10 )+(p(t)<100d)+22*(t=2t=4);p(t):t   L bepaal woord waarde V 0 ts=1aantal ~r(s)=07650 #0;7;1;0,0;" Speler ";s;", kun je een woord ";0,1;1,0;" maken? Druk Ja of Nee in. " ""7556 =""7557 ="n"7650 "j"7556 U1;7;1;21,0;" Speler ";s;", tik je woord in. " x#0;7;2;0,0;5;c$;1,0;"Druk na je woord op ENTER. ":200 ^1;7;21,0;"Druk ook na vergissen op ENTER ":"Mijn woord is:";l$ Q21,0;1;7;1;"Druk na je woord op ENTER. " l$=07650 7;1;1;21,0;"":#0;0,0;"Wil je het woord verbeteren? ";1,0;"Druk Ja of Nee in." ""7582 =""7583 ="j"7565 "n"7582 &#0;1,20;"Nee" l$>r(s)#0;0,0;5;c$;1,0;7;2;"Je gebruikt teveel letters! ":6500d:7560 0j$(6,1):sc=0:l=1̱l$ \h$(6,1):j=1r(s):l$(l)=u$(j,s)j$(j)"1"h$(l)="1":j$(j)="1":j=r(s) j:h$(l)"1"#0;7;2;0,0;5;c$;1,0;"Je gebruikt verkeerde letters! ":.3,20:6500d:7560 i=128 'l$(l)=e$(i)sc=sc+f$(i):i=28 i:l:p(s)=p(s)+sc*l$ Έ1;7;1;16-11 *(s>2),4+(p(s)<10 )+(p(s)<100d)+22*(s=2s=4);p(s) s l#0;5;0,0;c$;7;1,0;"Willen jullie doorgaan? J of N? " ""7685  =""7690  ="j"5050 "n"7685 u#0;0,0;5;c$;1,0;7;2;" Zeker weten????? (ja of Nee?) " #""7715# $=""7716$ ( ="j" 2"n"7710 < 5050 #( Soundeffects #uninote 63200 #uno=64700 #uno+1,10 #uno+2,150 #uno+4,8 #uno+23,28:z=uno # #dualnote 63230 #duno=64730 $duno+7,5 $duno+18,0 $duno+27,220 $" z=duno $6 $TZap 63320 $^z=648204 $h $ multibeep 63280 $mubi=64780 $mubi+1,15 $mubi+2,150 $mubi+4,1 $mubi+5,1 $mubi+7,5 $mubi+8,0 % z=mubi % % l$:l$: &7:2: &t10 ,3;"Programma onderbroken";12 ,3;"Wil je doorgaan?";14,3;"Druk J of N in." &x$=:x$=""9920& &x$="j"40( & x$="n" &x$="`"9970& & 9920& &x$=:x$""9970& &x$=:x$=""9980& ' x$="$" '  aD C !abcdefghijklmnopqrstuvwxyz` !133115221442311391114448860 /X$"mc2"23500[,19750&M: mc2 &M[[&M