ZXTape! 0Created with Ramsoft MakeTZXgroups  F "GROUPS" 0GROUPS  5  N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QnAGROUPS0 logo @ ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~ file $&#$C236099\,25:23675{\,88X:23676|\,255 L:0:0:4:23659k\,12 :"":5000:5 6:507:6  500  t=0 c$(30,1) p$(4,10 )  u=0  v=0  600X  'i=(*30)+1 *c$(i)="1"141 - c$(i)="1" . 1000 00"WHAT IS THE MISSING GROUP WORD IN:" 3B3,6;"A .?. of ";:800 :z=1i:a$:z:a$ 9(900:z=1i:p$(1):z <j=(*35#)+1 ?j=i60< B(900:z=1j:p$(2):z Ek=(*35#)+1 Hk=jk=i69E K(900:z=1k:p$(3):z Ll=(*35#)+1 Ml=kl=jl=i76L N(900:z=1l:p$(4):z Oi=(*4)+1 Qj=14 Ti>4i=1 Ui=1k=j W=2*(2+j),7;1;j;0;". ";p$(i) Z i=i+1 ]j `&15,5;"Press key 1 to 4" c 0 dq$= f%q$<491ůq$>52499c g)15,5;" " i)14,5;"YOUR ANSWER No. ";q$ lq$=k116t n:16,1;" SORRY  Correct answer is no. ";k oKv=v+1:t=t-1:d$="-":.5,-10 :1.5@,-20 pC"A .?. of ";a$:"Your answer: ";p$(1+4*(q$15ům$<65Aům$>122z17,5;"THAT IS NOT YOUR NAME":1,-15:17,5;" ":512: :m$::0:4:13 ,2;" ":C=17+m$:5:S$="HELLO "+M$+"!":17,11 -M$/2+C;S$(C):C: 23658j\,0  8180 ' XA6:6:0::0,9 ;"""GROUP TERMS""" [-3,3;"This program asks you to" ^24,1;"select the correct group term" _!5,9 ;"from a list." a'9 ,6;" For example:-" d011 ,4;"""an .?. of soldiers""" g213 ,2;"The missing word is ""army""" j]17,1;"30 well known group terms are";18,5;"used in this program." m 8180 s 5:5:0: B1,1;"GET THE ROCKET";3,1;"TO THE MOON" =7,1;"5 correct";9 ,1;"answers win" 15,1;"This go ";d$;"1" z=031 21,z;"" t<0t=0 z є15,26;"";16,26;"";17,24;"";18,24;" ";19,24;"";20,24;"" ԗ1:0,25;"";1,24;"";2,24;"MOON";3,24;"";4,25;"" z=143-1 ڔ0:z,26;"";z+1,26;"";z+2,26;"";z+3,26;"";z+4,26;"";z+5,25;"" n6:z+6,25;"";z+6,27;"":2:6:z+6,26;"":5 0z<146:z+7,25;" " &z<13 z+8,26;" " 7t<5t=6-((z-1)/2)502: (21-(t*3)) z '1:2,24;"OUCH"  t=0 z=140( ,.01z# =,z-10 :.01z# =,z+10 z  100d  !"directors","singers","actors","sailors","sheep","geese","cattle","savages","angels","books","pups","flowers","grapes","drawers","stars" 0"eggs","ships","stairs","trees","corn","wolves","locusts","whales","herring","horses","bees","monkeys","lions","bananas","pearls" "board","choir","company","crew","flock","gaggle","herd","horde","host","library","litter","bouquet","bunch","chest","galaxy" "clutch","fleet","flight","forest","sheaf","pack","plague","school","shoal","stud","swarm","troop","pride","hand","rope","smattering","sprinkling","scattering","product","compound" z=(*3)+4 A=(*7)+1 :a:a:9 :  "GROUP TERMS"  x=25 0,x:20,0:0,-5:-15,0:0,-10 :10 ,0:0,3:-3,0:0,3:7,0:0, -10 :-19,0:0,19 30,x-5:10 ,0:0,-3:-10 ,0:0,3:25,x:20,0:0,-12 :-5,0:3,-7:-5,0:-3,7:-5,0:0,-7:-5,0:0,19 557,x-5:10 ,0:0,-10 :-10 ,0:0,10 :502,x:20,0:0,-20:-20,0:0,20 75K,x:5,0:0,-15:10 ,0:0,15:5,0:0,-20:-20,0:0,20 105i,x-5:10 ,0:0,-3:-10 ,0:0,3:100d,x:20,0:0,-12 :-15,0:0,-8:-5,0:0,20 Ξ135,x:20,0:0,-5:-7,0:0,-15:-5,0:0,15:-7,0:00,5 160,x:20,0:0,-4:-15,0:0,-4:10 ,0:0,-4:-10 ,0:0,-4:15,0:0,-4:-20,0:0,20 190,x-5:10 ,0:0,-3:-10 ,0:0,3:185,x:20,0:0,-12 :-5,0:3,-7:-5,0:-3,7:-5,0:0,-7:-5,0:0,19 210,x:5,0:5,-5:5,5:5,0:0,-20:-5,0:0,15:-5,-5:-5,5:0,-15:-5,0:0,20 Q0,50:20,0:0,-5:-15,0:0,-10:10,0:0,3:-3,0:0,3:7,0:0, -10:-19,0:0,19 235,x:20,0:0,-4:-15,0:0,-4:15,0:0,-12 :-20,0:0,4:15,0:0,4:-15,0:0,12 'c=115:kk=3280 :c | @"menu" J1:1:5: T0,13 ;"MENU" ^#6,10 ;"1.Same Person" h#10 ,10 ;"2.New Person" r"14,10 ;"3.To Finish" |$19,10 ;"SELECT OPTION" a$= ^a$="1"6,7;">"::0:100d:U=0:V=0:T=0:30 Ia$="2"10 ,7;">":0:100d:0::0: ?a$="3"14,7;">":0:100d:8120  8070 0:0:4::0,12 ;"WARNING":5,5;5;"Answering 'YES' to the";7,1;"following question will erase";9 ,6;"the program memory" *17,6;"ARE YOU SURE ? (Y/N)"  ="y" ="n"8000@  8140  ""8180 521,30;"*";:15:""8220 521,30;" ";:15:""8220  8190 21,30;" ";: &"":2 &2"file"9899&:"usr""a",21*8: '"":2 ' "":"" x!MDKKKDDKDKDKDKDSHELLO DKKKDDKDKDKDKD!t# 1 - flock shoal scatteringpack uv aQklD-QnA usr X8""<<~~~|<<>>??0033 3300?? 33333333 odd  N "ODD" T.ODD  I  N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QnAODDvklogo @4 ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file ,&* ,C236099\,25:23675{\,88X:23676|\,255 L0:0:4:23659k\,12 :"":5000:500  !t=0:v=0:u=0 c$(12 ) p$(5,12 )  u=0  v=0  600X 'i=(*12 )+1 *c$(i)="1"141 - c$(i)="1" 6k=14 9$j=(*10 )+10 *i-9 <_800 +((j-1)/20):z=1(j-(((j-1)/20)*20)):p$(k):z ?l=14 Bl=k70F Ep$(k)=p$(l)579 Hl Kk L"j=(*6)+6*i-5 Mg900+((j-1)/20):z=1(j-(((j-1)/20)*20)):p$(5):z Ni=(*5)+1 O=1000::0,2;"Which is the odd word out?" P2,0;" " Qj=15 Ti>5i=1 Ui=5k=j W42*(j),7;1;j;0;".";p$(i) Z i=i+1 ]j `.15,5;"Press key 1 to 5" c 0 dq$= fq$<"1"q$>"5"99c i)15,4;"YOUR ANSWER No. ";q$ lq$=k116t n:15,0;" SORRY  correct answer is no. ";k o v=v+1 p t=t-1 q1d$="-":.5,-10 :1.5@,-20 r :120x t31:20,8;" WELL DONE ":0 u u=u+1 v t=t+1 wd$="+":.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :20,8;" " x318,2;"So far,you have ";u;" correct" y*19,14;"and ";v;" incorrect" z 21,3;"MORE?(Y/N)" {=""123{ } q$=:q$"y"q$"n"125} ~ 700 q$="n"168 30 j=112 c$(i)=" "45- i=12 i=0 i=i+1 j c$(12 ) 30 7:7:0: (2,6;"*** CERTIFICATE ***" &5,3;"NAME : ";n$ 07,2;" PROGRAM : ""ODD WORD""" %9 ,3;"CORRECT : ";u &11 ,3;"INCORRECT : ";v u+v=0178 913 ,3;"PERCENTAGE : ";(100d*u/(u+v)) 50,0;"" 616,0;"" i=115 )i,0;"";16-i,31;"" i  8180:8000@ :23624H\,4 ^I=125:12 ,2+I;5;" PLEASE TYPE IN YOUR NAME "(I):5:I :23658j\,136:n$:23658j\,0:n$<2űn$>15ůn$<65Aůn$>122z17,5;"THAT IS NOT YOUR NAME":1,-30:17,5;" ":509:n$: 12 ,0;" ":i=18+n$:s$="HELLO "+n$+" !":12 ,11 -n$/2+i;s$(i):5:i # 8180 $ X0:6:6: Y"0,10 ;"""ODD WORD""" [\3,0;"This program asks you to spot","the odd word in a list of five","words." ^'7,0;" FOR EXAMPLE:-" a&9 ,0;"The odd word in:-" dL11 ,0;"1. butter",,"2. jam",,"3. cream",,"4. cup",,"5. cheese" m=17,0;"is ""cup"" since we can eat the","rest." n 8180 v 0:0:7: t<0t=0 @12 ,0;"3 cherries";13 ,0;"win ------>" -1,4;" PLAY THE FRUIT MACHINE " z=110 15,11 +z;"";8,11 +z;"" tz<74+z,12 ;"";4+z,15;"";4+z,18;"";4+z,21;"" Dz>64+z,15;"*";4+z,18;"*" =11 ,z+11 ;"*";14,z+11 ;"*" Nz=8z=9 z+4,12 ;">";z+4,21;"<" z 911 ,22;"";1;5,24;"" :1:z=11 15:z-5,24;"":z R1:z=11 14:z-6,24;" ";z-5,24;"":z a(3,3) Az=13:y=13:a(z,y)=(*4):y:z  785 Lz=21-1:y=13:a(z+1,y)=a(z,y):y:z {a(1,1)=(*3)+1:a(1,2)=(*3)+1:a(1,3)=(*3)+1 _t=5a(1,1)=0:a(1,2)=0:a(1,3)=0 Yt=3t=4xx=(*3)+1:yy=(*3)+1:xx=yy754 Ct=3t=4a(1,xx)=0:a(1,yy)=0 >t=2t=1a(1,(*3)+1)=0  785 z=12 m=21-1 n=13 a(m+1,n)=a(m,n) n m ca(1,1)=(*4):a(1,2)=(*4):a(1,3)=(*4)  785  z  t5  1,11 ,1,11 ,1,11 ,1,9 ,2,7,2,7,1,9 ,1,9 ,1,9 ,1,12 ,1,11 ,1,9 ,2,7,1,14,1,14,1,14,1,12 ,2,11 ,1,11 ,1,7,1,9 ,1,9 ,1,11 ,1,9 ,4,7  "t=0:780 :3000 z=125:x:y x/4.75,y:z  vy=9 153:x=11 173:2000+a((x-8)/3,(y-6)/3):x:y   "yellow","blue","green","red","pink","brown","beige","purple","mauve","grey","horrible","repulsive","terrifying","shocking","unpleasant","horrid","frightful","horrific","gruesome","fearsome" !"aunt","uncle","niece","nephew","cousin","mother","brother","sister","father","grandmother","child","boy","girl","baby","woman","man","infant","youth","lad","lass" ""assembly","gathering","collection","throng","crowd","audience","congregation","spectators","gang","group","amend","improve","reform","restore","repair","adjust","replace","rebuild","renew","rectify" #"badger","fox","rabbit","hedgehog","mouse","rat","ferret","squirrel","otter","mole","immense","gigantic","huge","enormous","big","large","vast","great","colossal","massive" $"coat","tights","gloves","waistcoat","tie","sweater","trousers","skirt","shirt","hat","hoe","rake","spade","fork","trowel","chisel","scythe","hammer","mallet","plane" %"nice","pleasant","agreeable","kind","friendly","considerate","pleasing","attractive","gentle","benevolent","hawk","heron","kingfisher","magpie","moorhen","parrot","penguin","pheasant","pigeon","raven" "sky","cowslip","sun","candy","berry","striped","robust","particular","plump","secure","fortunate","fastened","baby","friend","boy","girl","child","lady","nephew","mother" "father","son","daughter","uncle","enthusiasm","violence","patience","outrage","strength","assault","dominate","impair","destroy","demolish","tarnish","distort","claws","den","burrow","lair" "fur","larch","industrious","feeble","puny","indolent","courageous","absurd","dishcloth","curtains","sheets","pillowcase","tablecloth","teatowel","vehicle","wood","seeds","compost","grass","flowers" h"oblique","wide","broad","long","narrow","brief","stalk","howl","wafer","greenfly","dragonfly","arrow" l=(*4)+4 l:l:9 :1:  @2:x-5,y+4;" ";x-4,y+4;"": ы1:x-5,y+4;"*";3;x-5,y+5;"*";0;x-4,y+4;"*";4;x-4,y+5;"*": D4:x-5,y+4;"";x-4,y+4;"": @6:x-5,y+4;"";x-4,y+4;"": m=15 x=1521 x,13 ;"OO OO OO" ,x>15x-1,13 ;" " x m 782 "ODD WORD OUT" K 15,502:15,40(,10 :15,40(,5  30,502:5,0:0,-20,-:-5,0:0,20:35#,45-:0,-10 :0,10 ,  502,502:5,0:0,-20,-:557,30:-5,0:0,20:557,45-:0,-10 :0,10 , 6:80P,502:5,0:3,-15:3,10 :3,-10 :3,15:5,0:-3,-20:-5,0:-3,4:-3,-4:-5,0:-3,20 N 115s,502:115s,40(,10 :115s,40(,5 135,47/:3,0:0,-5,-:-3,0:0,5:130,502:10 ,0:0,-10 ,-:5,-10 :-5,0:-5,10 :0,-10 :-5,0:0,20 Λ 150,502:5,0:0,-20,-:-5,0:0,20:155,45-:0,-10 :0,10 , B4:190,40(,10 :190,40(,5 205,502:5,0:0,-10 :5,0,:0,10 :5,0:0,-13 :-15,0,- :0,13 225,502:15,0:0,-5:-5,0:0,-15:-5,0:0,15:-5,0:0,5 P&c=115:z=3280 :c  @"menu" J1:1:5: T0,13 ;"MENU" ^#6,10 ;"1.Same Person" h#10 ,10 ;"2.New Person" r"14,10 ;"3.To Finish" |$19,10 ;"SELECT OPTION" a$= ^a$="1"6,7;">"::0:100d:U=0:V=0:T=0:30 Ra$="2"10 ,7;">":0:100d:0:0:4:: ?a$="3"14,7;">":0:100d:8120  8070 0:0:4::0,12 ;"WARNING":5,5;5;"Answering 'YES' to the";7,1;"following question will erase";9 ,4;"the program from memory" *17,6;"ARE YOU SURE ? (Y/N)"  ="y" ="n"8000@  8140  ""8180 521,30;"*";:15:""8220 521,30;" ";:15:""8220  8190 21,30;" ";: &"":2 &2"file"9899&:"usr""a",21*8: '"":2 ' "":"" P!N ABCDEFGHJIKJLSHELLO ABCDEFGHJIKJL !tvu 1 A vast massive enormous huge courageous 6Q?D-Qn2A 3usr X+<~~<???????0 ` <|||8????0033 3300?? 33333333