ZXTape! 0Created with Ramsoft MakeTZXproverbs hC5,j A.Cowley July 1982  6 411 ,10 ;"Please wait":"gr""a":"sc" 6:504:7  500 2t=0:o$=" " c$(35#) p$(3,11 )  u=0  v=0  600X 'i=(*35#)+1 *c$(i)="1"141 -c$(i)="1":1000 0Rں(*2)+5;o$;o$;o$;1,1;"COMPLETE THE FOLLOWING PROVERB" 1 800  2z=1i:a$:z 3/4,0;a$;6,8;"... ?" 5(900:z=i+(15*(i>30)) 6y=1z:p$(1):y :i>3069E <j=(*45-)+1 ?j=i60< Bk=(*45-)+1 Ck=jk=i66B D 74J Ej=(*10 )+46. Fj=i+1569E Gk=(*10 )+46. Hk=jk=i+1571G J(900:y=1j:p$(2):y K(900:y=1k:p$(3):y Ni=(*3)+1 Qj=13 Ti>3i=1 Ui=1k=j W!7+j,5;j;". ";p$(i) Z i=i+1 ]j `&12 ,3;"Press key 1 to 3" c 0 dq$= f%q$<491ůq$>51399c i=12 ,0;o$;12 ,7;" Your answer : ";q$ lq$=k116t nc14,0;" Sorry, correct answer is no. ";k:.5,-10 :1.5@,-20 ov=v+1:t=t-1 p?a$;" ...?":"Your answer: ";p$(1+3*(q$<~<<~~<~<<~~<<gm0LXx;*j8sg2`mGO*dҐ£@lÌ[@<>m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @Á}}ýýTOoLl5Tn>Ç xJ`)#?"UJ!)8x`Ã׽;oʷҘf̪) lJxxスa̘[F?K@F6xスmSsge[@e!FbU@1ldÁým(Ìኛ`TpÄ4 000000000000000000000000000000000000000099:<:999;9;<;;<00000000000000000000000000000000000000000000000000000000000000000000000000000000000002222222200000000000000000000000022222222200000000000000000000002222222222000000000000000000002222222222222200000000000000000222222222222222200000000000000002222222222222222000000000000000022222222222222220000000000000000222222222222222200000000000000002222222222222222000000000000000022222222222222220000000000000000222222222222222200000000000000002222222222222222000000000000000000222222222222200000000000000000000222222222200000000000000000000000222222222000000000000000000000002222222200000000000000000000000000000000000000000000000888888888888888888888888800000000000000000000000000000000000000000000000000000000000000000000 similes G A.Cowley July 1982  5 411 ,10 ;"Please wait":"gr""a":"sc" &6:6:508:9 (1:6:6::500 2o$=" ":600X !t=0:u=0:v=0 $c$(40():p$(3,10 )  !i=(*40()+1 $c$(i)="1"181 ' c$(i)="1" *0j=(*5):j:1:7:9 : -nں(*2)+5;o$;o$;0,2;"What is the missing word in";1,11 ;"this simile ?" 0800 :k=1i:a$:k 353,1;"As .?. as ";("a "i<21);a$ 4lp1=i 6 8204:k=1i:b$ :k 9p$(1)=b$ 20) ?j=i60< B8204:k=1j:b$:k Ep$(2)=b$ H0jj=(*20)+1+20*(i>20) Kjj=jjj=i72H N 8204:k=1jj:b$:k Qp$(3)=b$ Ti=(*3)+1 U: Wj=13 Zi>3i=1 ]i=1k=j `" ";j;". ";p$(i) c i=i+1 gj j&11 ,2;"Press key 1 to 3" m=""109m pq$= sq$<"1"q$>"3"109m v;11 ,0;o$;11 ,9 ;"Your answer: ";q$ yq$=k139 |:14,0;" Sorry  correct answer is no. ";k v=v+1:t=t-1 ).5,-10 :1.5@,-20 &"As .?. as ";("a "lp1<21);a$ 3"Your answer: ";p$(1+3*(q$17)*(n$-17)))) W7,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) 79 ,2;" PROGRAM:  ""Similes""" !11 ,5;"CORRECT: ";u #13 ,3;"INCORRECT: ";v ;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 1:20,10 ;"Press any key":0: c:2:128,88X:30,30:30,-30,-:-30,-30,-:128,88X:30,-30:-30,-30,-:-30,30,-:128,88X:-30,-30:-30,30,-:30,30,-:128,88X:-30,30:30,30,-:30,-30,- W0,5;"Hello, nice to see you" -20,5;"Please key in your name"  n$:n$:  <20,0;" NOW today's date (in any form) "  m$:m$:  0: X,1::0,10 ;"""SIMILES""" [}5;2,0;o$;o$;2,4;"This program asks you to";3,2;"complete a well known simile" ^26,1;"Two examples of similes are:-" aI10 ,1;"1. As cool as a cucumber"," 2. As sharp as a needle" dE15,1;"There are 40 well known similes in this program" g620,4;" Press  ENTER  to start " j 0:   6: '1,8;" SCORE A GOAL " *3,1;"5 correct answers win" Ki=17:13 +i,31;"";7+i,24;"" 7+i,24+i;"" :i  t<0t=0:502  9100# t=5739  502:  t=0 90Z,80P:-10 ,0:0,-20:10 ,0:0,7:-3,0:116t,80P:-10 ,0:0,-20:10 ,0:0,20 d150,60<:-10 ,20:-10 ,-20:147,67C:-12 ,0 9165,80P:0,-20:10 ,0 i=.73333:n=13:.4L*i,0:.3*i,4:.3*i,5:(1-n*.1}L)*i,7:n:.4L*i,4:.6*i,0:.4L*i,4:1*i,2   \"bat","lark","pancake","daisy","button","whistle","cucumber","doornail","rake","pikestaff" %X"March hare","mule","feather","peacock","board","berry","rock","sheet","bone","fiddle" *S"rain","houses","gold","grass","nails","lead","leather","two peas","down","brass" /["ice","water","thunder","winking","Job","life","Punch","Solomon","ditchwater","lightning" 4N"blind","happy","flat","fresh","bright","clean","cool","dead","thin","plain" 9P"mad","obstinate","light","proud","stiff","brown","steady","white","dry","fit" >K"right","safe","good","green","hard","heavy","tough","like","soft","bold" CP"cold","weak","black","easy","patient","large","pleased","wise","dull","quick" #02:13 ,0;" ";:0:"" #$2:14,0;" " #15,0;" " #!0:16,0;" " #16,4;"O" # 25 #" 2:15,0;" " #!0:16,0;" " # 5 #12:14,0;" ";:0:"" #12:15,0;" ";:0:" " # 5 #Yi=44+t*5:(t*4+4)/7:16,i;" O":i:20 # 5gr Xp8??0033 3300?? 33333333??pppooOooO~~  9sc @g'#idU#1LS@mSsge[@Bd1iD̓1*Tc̙B88x888888D8D)<H< 3l;nʯ~DDD0 DD@DDDDD0xJcij)"?bU`)oBxDD xD8xxDDDLJ T;L<9Ll3TO_B@DD @D@@m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| TOoLl5Tn>Ç xB8888(8DxD8Dx8h8J`)#?"UJ!)8x`BD@D0DD0DDDD DTD;oʷҘf̪) lJxx|x<8x0xDDDDD D6k=1 R 60< T)bb=(*5):bb:7:9 : V1ں(*2)+5;0,0;l$;l$;l$ W1,12 ;" ";Q$;" " ZC4,1;"Rearrange the letters above to form a word" ]17,0;" ENTER  your answer now " `+9 ,1;"or need help ? ENTER h" ca$:7000X fa$="h"200 ga$6230 h/250:7,1;"Your answer:";a$ lA$=V$116t nd20,0;l$;10 ,1;"Sorry, correct answer is:";13 ,12 ;" ";V$;" " oCV=V+1:T=T-1:.5,-10 :1.5@,-20 p0" Unscramble: ";Q$:" Your answer: ";a$ q"Correct answer: ";V$ r3:"________________________________"::120x t@20,0;l$;1;12 ,9 ;" WELL DONE! " u U=U+1 v T=T+1 wZ.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 yں(*4)+1;17,0;l$;l$;l$;l$;l$;18,1;"So far,you have ";u;" correct";19,13 ;"and ";v;" incorrect" }-7;21,9 ;" More? y or n " ~=""126~ a$=:7000X g=0 h=0 700 a$="n"168 30 J=1502 #C$((II*10 )+I)=" "36$ $I=I+1:I10 149 1I=1:II=II+1:II4149 II=0 J C$(502) 30 0:4:7: $"" 617,0;"" i=116 #i,0;"";i,31;"":i 82,9 ;" CERTIFICATE " 5,2;" NAME:  ";N$((N$-((N$>17)*(N$-17)))) _7,2;" DATE:  ";M$((M$-((M$>17)*(M$-17)))) @9 ,2;" PROGRAM:  ""ANAGRAMS""" !11 ,5;"CORRECT: ";U #13 ,3;"INCORRECT: ";V U+V=0184 715,2;"PERCENTAGE: ";(100d*U/(U+V)) 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 0:20,9 ;"Press any key":0: !h=1250:110n p9 ,0;l$;7,0;"The word begins with the letter";9 ,12 ;" ";v$(1);" " <20,2;"Press ENTER if you're stuck":h=1 99c 'a$=""g=1250:110n 97,0;l$;7,1;"6 letters please" g=1 99c (i=410 :i,0;l$:i: 4:6:9 : j2:128,88X:30,30:30,-30,-:-30,-30,-:128,88X:30,-30:-30,-30,-:-30,30,-:128,88X:-30,-30:-30,30,-:30,30,-:128,88X:-30,30:30,30,-:30,-30,-:9 @0,11 ;" HI THERE " .20,3;" Please key in your name"  n$:n$: 420,1;"NOW Today's date (in any form)"  m$:m$:  6 ! XS7;1,10 ;"""ANAGRAMS""";1;1,10 ;" ________ " [l4,1;"This program jumbles up a six-letter word and asks you to key it in correctly." ^-8,1;"An example of this is:- " a311 ,1;"""undelb"" becomes ""bundle""" dF15,1;"There are 50 different words in this program." g821,4;" PRESS  ENTER  TO START " j 0 m a4:4::480,0:40(,120x:143,0:40(,119w &"WIN THE HORSE RACE" /2,0;"with five correct answers "  zz=3 t<0t=0 i=15 ;z=22-(3*i):x=24-(6-i):747 i PZZ=0:w(5):ta=0:ya=(*5)+1:I=15 W(I)=17:I  790 i=(*5)+1 +ta=5-tw(i)=9 iya714 9i=yaw(i)=9 ta5-(t+(t=0))714 w(i)<9 714 w(i)=9 ta=ta+1 w(i)=w(i)-4 z=22-(3*i) ,x=w(i)+i+1:W(I)<9 ZZ=3 ZZ0X=X-1  747 ZZ=0:i=ya790 w(ya)<9 745  714 61t>1;7,0;" YOU WERE "  751 Hz,x;" ";z+1,x;" ";z+2,x+1;" " zz0 Yz,x-1;" ";z+1,x-1;" ";z+2,x-1;" "  1t>0;1t=5;7;8,0;" ";6-(t+(t=0));("st"t=5);("nd"t=4);("rd"t=3);("th"t<3);" " T5502 T5780  2,11 ,2,9 ,1,7,1,7,1,7,1,7,3,7,1,7,1,9 ,1,9 ,1,9 ,1,9 ,3,9 ,1,9 ,1,11 ,1,11 ,1,11 ,.5,11 ,.5,11 ,1,12 ,.5,12 ,.5,12 ,1,12 ,.5,12 ,.5,12 ,1,11 ,1,11 ,1,9 ,1,9 ,3,7  760 I=130:Z:X  Z/6,X I  t=5t=0   (4,14;" =YOUR HORSE" L22-((3*YA)-1),W(YA)+YA+3-(w(ya)<17);""   ["quarry","fluent","nimble","guilty","rocket","raffle","market","zigzag","yellow","wigwam" !["umpire","urgent","abroad","absent","hectic","action","gaiety","rhythm","genius","purple" "["gentle","prayer","bronze","gossip","gospel","jumper","jungle","junior","kennel","kidney" #["knight","kitten","clover","clutch","dimple","though","enough","ribbon","dinner","degree" $["pencil","direct","thirst","hunger","frosty","eighty","plural","follow","finish","nephew" Xa=1̱a$ Y o$=a$(a) ]%o$<91[a$(a)=(o$+32 ) ba g Fgr X ?<0?~@  `x  >  ??0033 3300?? 333333335sc @g`#idU#1LS@mSsge[@Bd1iD̓1*Tc̙B88x888888D8D)<H< 3l;nʯ~DDD0 DD@DDDDD0xJcij)"?bU`)oBxDD xD8xxDDDLJ T;L<9Ll3TO_B@DD @D@@m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| TOoLl5Tn>Ç xB8888(8DxD8Dx8h8J`)#?"UJ!)8x`BD@D0DD0DDDD DTD;oʷҘf̪) lJxx|x<8x0xDDDDD D