ZXTape! 0Created with Ramsoft MakeTZXWORDCHECK 2 2b 4 0::"" :21,0;:"" INK @I p??B| B8x<88x?'B<<0DDDD?|B@DDDD<DDo?8 @<<<8D 8D/8??<<||~<|>B<>BD??8x8@8D@BBB@BBbB|bH?D<xDBB<`>BB|< ???0?    @ 30Z@@ ?000 `?``4  ?`<`?`P+@ C@0O>`4<߿?߿ 0@` P (@  O0?~?00 @@@(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((88888888888888(((((((((000.(((((88888888888888((((((((000000((((88888888888888(((((((000000..(((88888888888888((((((11000..((((>>888888888888((((()))))1))))(((>>888888888888(((())))))11))))()11.((((((((((((((()))))))1))))))11.((((((((((((((((1111111))))))))((((((((((((((((())))))1)))))))((((((((((((((118888888888888888888888888888888888888888888888888888888888888888iWORDCHECK  ~) 30 "WORDCHECK"  >>  MACBRIDE 1983 << E21,0;" PRESS ANY KEY TO GO ON ":0: r1,0:5000:1,20:21,0;" Press any key to go on ":0 (&5:7:0:0: 2m1,9 ;1;"";2,9 ;" WORDCHECK ";3,9 ;"" <_5,2;"How many words can you make ";7,2;"from my name -PADDINGTON ?" F10 ,2;"3-letter words score 1 point";12 ,2;"longer ones score more.";14,2;"You can't use a letter twice." PO17,2;"My WORD MACHINE will";19,2;"check the words." Us16,25;"";17,25;1;"";18,25;"";19,25;2;"" Zc.5,12 :0,0;" Please  ENTER  your name ";n$:n$=""90Z [+n$>90Zn$(1)=(n$-32 ) \ n$>12 n$=n$(12 ) _Ex=1:w$(75K,10 ):s=0:wc=1:wl=0 d6::7:15,2;" WORD ";16,1;" MACHINE ";17,1;" ";19,1;" ";18,1;"Score 0 ";20,1;" " i7,8:0,40(:8,0:0,9 :568,0:0,-9 :8,0:0,-40(:-72H,0 n!10 ,10 ;"Paddington" xm7:12 ,9 ;"";13 ,9 ;" ";14,9 ;"" }<21,0;" Press  E  to End the program " >A$=" Type your word ":b$=" Then press ENTER ":1000 #i$="":c=9 :p$="paddington" "13 ,c+1;1;"L" .5,10 ""160 =""170 =13 300, #="e"Ŧ="E"700:155 :21,0;" " (j$=:j$<97aj$=(j$+32 ) df=0:n=110 :J$=p$(n)p$(n)=" ":10 ,9 +n;" ":f=1:n=10 n Wf=021,5;"That letter is not there!":1,30:150 ?i$=i$+j$:c=c+1:13 ,c;j$;1;"L":155 ,Ex=x+1:q$(18):r$(18):r$(55+i$)=i$ 1a$=r$:b$=q$ 6%1300:b$="Press >P< to go on" ;=i$<3a$="That's too short !":1000:410 @2000+10 *i$ J(g$:g$(1)i$(1)400 Tg$i$330J Y.wx=0:800 :wx=1450 ^a$="That's a good word" h81000:wc+i$>30wl=wl+1:wc=1 r+wl,wc;7;i$;" ":wc=wc+i$+1 |&s=s+i$-2:18,7;s vn=14:t=40-4:19,1;t;" ":.3,10 *t:t:n:500 >x=x-1+(x=0):a$="I don't know that ":1000 n=16:t=20-2:19,1;t;" ":.1}L+(.2~Lt=2),-10 *t:t:n  500 &a$="You have had that ":1000  !0:"p"Ʀ"P"500 1300:110n G0,0;"Check!Do I stop? Yes or no";g$:g$=""700 ,g$(1)="y"g$(1)="Y"740 #g$(1)="n"g$(1)="N"  700  900 b1300:a$=" Goodbye, ":r$(18):r$(5̱n$+5)=n$:b$=r$:1000 E21,0;" Press  R  to Run it again ":0 "r"Ʀ"R"760  40(  8w$(x)=i$:n=1x-1:w$(x)=w$(n)wx=1 *n: c0,0;" Would you like to see my words?  ENTER  yes or no";g$:g$=""900 #g$(1)="n"g$(1)="N"  2960 b$:b$="end" ?g$(10 ):g$=b$:t=1x:g$=w$(t)t=x:t:925 t ,wc+b$>30wl=wl+1:wc=1 7wl,wc;7;b$;" ";:wc=wc+b$+1:925 n=118:1500:7:17,10 ;a$(19-n);18,10 ;b$(19-n):.25~,20:n  n=181-1:1500:7:17,10 ;a$(19-n);18,10 ;b$(19-n):.25~,20:n n=110 :z=(*8):19,2;z;" ":z/20,z*4:n:19,2;0;" ": -6:n/2=(n/2)1530 16,10 +n;" ";17,10 +n;1;" ";18,10 +n;" ";19,10 +n;2;" "  16,10 +n;" ";17,10 +n;1;" ";18,10 +n;" ";19,10 +n;2;" "  ""aid","and","ant","add","adding" ?"din","dot","dog","dig","don","did","dad","dip","ding","dong" $"doing","doting","doping","doning" D"gap","got","gin","god","goat","goad","gain","gait","gnat","gonad" "into","ingot" 8"nodding","nap","nip","nit","not","nag","nod","noting" & "odd","oat" 0q"pad","pan","pot","pit","pig","pin","pod","pong","ping","pond","pint","pant","pain","padding","panting","paint" :,"paddington","pang","pat","paid","podding" XP"tong","toad","ton","tin","tig","tip","top","tag","tan","ting","tang","toning" b"end" :5030:n=111 :G$:R=07:B G$+R,B:R:N "A",0,2,2,1,2,29,16,8,"B",240,252,254,254,220,108l,116t,568 "C",4,3,3,7,7,238,157,255,"D",31,248,252,254,255,255,223,222 "E",63?,31,8,15,15,15,15,15,"F",190,126~,254,254,254,254,254,254 Ĕ"G",14,14,62>,126~,126~,0,0,0,"H",14,7,15,30,28,0,0,0 M"I",0,24,60<,126~,126~,60<,24,0 ؛"j",128,64@,32 ,16,16,31,17,17,"k",17,17,31,16,16,32 ,64@,128  pM(23730\+256*23731\)-(23653e\+256*23654f\) bGkN xK sA Type your word B Then press ENTER  PERU ) ) + :"" 21,0;::"" INK @Ip??B| B8x<88x?'B<<0DDDD?|B@DDDD<DDo?8 @<<<8D 8D/8??<<||~<|>B<>BD??8x8@8D@BBB@BBbB|bH?D<xDBB<`>BB|< ???0?    @ 30Z@@ ?000 `?``4  ?`<`?`P+@ C@0O>`4<߿?߿ 0@` P (@  O0?~?00 @@@(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((88888888888888(((((((((000.(((((88888888888888((((((((000000((((88888888888888(((((((000000..(((88888888888888((((((11000..((((>>888888888888((((()))))1))))(((>>888888888888(((())))))11))))()11.((((((((((((((()))))))1))))))11.((((((((((((((((1111111))))))))((((((((((((((((())))))1)))))))((((((((((((((118888888888888888888888888888888888888888888888888888888888888888PERU 3 /LQ5 "PERU"  >>  MACBRIDE 1983 <<  r1,0:5000:1,20:21,0;" Press any key to go on ":0 ( 4000 <8:0:2,17;"South America":1,0:4,17;"Here is Peru.":8:3090 :1,10 F{0:6,17;"This is Lima.":t=111 :1:26,113q,1:.2~L,20:t Kx8,16;"My Aunt Lucy";9 ,16;"lives here.":20,3;"Press any key to go on.":0 P~0:0:8,15;" Find out about";9 ,16;"South America.";11 ,16;"You can have -" Z~13 ,16;"A Grand Tour 1";15,16;"One at a time 2";17,16;"A Quick Quiz 3" d 4500 500*a$(1) (5:5::n=114  1200 n  1860D : 44000 Da$(1)="1"500 N)a$(1)="2"4000:80P X_P=0:5:5::8:8:n=114:2990 +10 *n:n bZ600X:N=138&:P:.4L,P:N=10 N=20N=3060< gN lH16,15,16,13 ,13 ,13 ,9 ,9 ,9 ,4,1,2,4,6,8,9 ,11 ,13 ,14,11 ,14,13 ,14,11 ,11 ,11 ,8,8,8,4,16,16,18,16,14,13 ,11 ,9 ?20,2;" Adios from South America ":700 A4000:8:0:1,17;"South America" @n=114:n+2,15;n;" ";c$(n,1):n 320,2;"Which country would you like?" c.5,12 :0,0;"  ENTER  number or 0 to end ";a$:a$=""1030 a$="0"1100L 0Q=1̱A$:a$(Q)<"0"a$(Q)>"9"1030 Q $a$>141030 .n=a$:1200 8 1000 L4000:44000 Va$(1)="1"1000 `'a$(1)="2"4000:80P j 600X 58:8:2990 +10 *n:1860D 0;1,16;"Country:";3,16;c$(n,1);5,16;"Capital:";7,16;c$(n,2);9 ,16;"They speak -";11 ,16;c$(n,3);13 ,16;"Population ";15,16;p$(n);" million" u1,20:20,1;"Press any key for next country":0:20,0;5;z$;z$   s=0 %4000:x=(*14)+1 8:8:t=15:p=10-1:2990 +10 *x:.2~L,20:p:t::0:2,16;"Which country";4,16;"is this ?" q=1:1800 "F2,16;"Which city is";4,16;"its capital ?" ,q=2:1800 6H2,16;"What language ";4,16;"do they speak ?" @q=3:1800 J2,16;"Your score so";4,16;"far is ";s;".";7,16;"Would you like";9 ,16;"some more ?" T`.5,12 :0,0;"Please  ENTER  yes or no ";a$:a$=""1620T ^-a$(1)="Y"a$(1)="y"1510 h1860D:44000 ra$(1)="1"1500 |'a$(1)="2"4000:80P  600X y(3):n=13  3y(n)=(*14)+1:N=11808  8T=1N-1:C$(Y(N),Q)=C$(Y(T),Q)1802   T  C$(Y(N),Q)=C$(X,Q)1802  #N:z=(*3)+1:y(z)=x Dn=13:4+2*n,16;n;" ";c$(y(n),q):n &z4505:a=a$:c$(y(a),q)=c$(x,q)20,3;c$(x,q);" is right.":s=s+1:1,10 :1850: 0N20,3;"No,it is ";c$(x,q):.5,-10 :1,-22 :Q21,0;"Press any key for next question.":1,20:0 DQa=118:a,15;7;z$:a:20,0;z$;z$;z$;z$: 7:0 10 ,5;6+(p);"";11 ,5;"";12 ,5;"";13 ,5;"";14,5;"";15,5;"";16,5;"";17,5;"": \7,5;2+(5p);" ";8,5;" ";9 ,5;" ": ̙3,5;4+(3p);"";3,8;"";4,5;"";5,4;"";6,4;"" Ѱ7,6;4+(3p);"";8,7;"";9 ,8;"";10 ,8;"";11 ,8;"";12 ,8;"": l=9 17:l,4;1+(6p);"":l:18,5;1+(6p);"";9 ,5;"": r1,3;2+(5p);"";2,2;" ";3,2;" ";4,4;" ": B4,2;1+(6p);"";5,2;"": B2,9 ;1+(6p);"";3,9 ;"": B2,7;1+(6p);"";3,7;"": D9 ,7;1+(6p);"";10 ,7;"": 4,3;6+(p);" ";5,2;" ";6,2;" ";7,2;" ";8,3;" ": B2,8;2+(5p);"";3,8;"": &-1,7;1+(6p);"": 0E12 ,7;2+(5p);" ";13 ,8;"": :>1,4;6+(p);"";2,4;"": &5:5::8:8 Gz$(16):n=118:7;0;n,15;z$:n Fp=1:a=114:2990 +10 *a:a:p=0: 0:0:5,16;"Do you want to ";7,16;"Repeat this 1";9 ,16;"Choose again 2";11 ,16;" or Stop 3" 520,2;"What would you like to do ?" L.5,12 :0,0;"Please  ENTER  1,2 or 3 ";a$ a$=""4505 -a$(1)<"1"a$(1)>"3"4505  $ A5000:C$(14,3,13 ):P$(14,3) HN=114:C$(N,1),C$(N,2),C$(N,3),P$(N):N N"Argentina","Buenos Aires","Spanish","25","Bolivia","La Paz","Spanish","6.5" I"Brazil","Brasilia","Portugese","122","Chile","Santiago","Spanish","11" D"Colombia","Bogota","Spanish","27","Ecuador","Quito","Spanish","7" O"French Guiana","Cayenne","French",".06","Guyana","Georgetown","English",".7" D"Paraguay","Asuncion","Spanish","2.5","Peru","Lima","Spanish","18" N"Surinam","Paramaribo","Dutch",".5","Trinidad","Port of Spain","English","1" M"Uruguay","Montevideo","Spanish","2.7","Venezuala","Caracas","Spanish","13"  #(M(23730\+256*23731\)-(23653e\+256*23654f\)  D  sxqz  A3) Argentina Buenos Aires Spanish Bolivia La Paz Spanish Brazil Brasilia Portugese Chile Santiago Spanish Colombia Bogota Spanish Ecuador Quito Spanish French GuianaCayenne French Guyana Georgetown English Paraguay Asuncion Spanish Peru Lima Spanish Surinam Paramaribo Dutch Trinidad Port of SpainEnglish Uruguay Montevideo Spanish Venezuala Caracas Spanish /25 6.512211 27 7 .06.7 2.518 .5 1 2.713