ZXTape! 0Created with Ramsoft MakeTZXmetaphors J  "METAPHORS" Z METAPHORS  &  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&  QnA METAPHORSxTlogo @O ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file +&g*:g+n23675{\,88X:23676|\,255:0:0:23659k\,12 :"":3000 :6 C236099\,25:23675{\,88X:23676|\,255 t=0 c$(40() p$(3,502)  v=0  u=0 500::600X  'i=(*40()+1 *c$(i)="1"141 - c$(i)="1" / 1000 0-"What is the meaning of the metaphor:" 3A800 :3,0;"""";:z=1i:a$:z:a$;"""?" 66,0; 9(900:z=1i:p$(1):z <j=(*40()+1 ?j=i60< B(900:z=1j:p$(2):z Ek=(*40()+1 Hk=jk=i69E K(900:z=1k:p$(3):z Ni=(*3)+1 Qj=13 Ri>3i=1 Ui=1k=j X 1;j;0;". ";p$(i) Z i=i+1 ]j `113 ,4;"PRESS KEY  1 TO 3" c 0 dq$= f%q$<491ůq$>51399c i-13 ,4;" YOUR ANSWER No. ";q$; lq$=k116t m:15,0;" SORRY  Correct answer is no. ";k nKt=t-1:v=v+1:d$="-":.5,-10 :1.5@,-20 o:"MEANING OF:":a$;"?" pF"CORRECT ANSWER:":p$(1)::"________________________________" r 120x tA1:15,8;" * WELL DONE * ":0 u u=u+1 v t=t+1 wbd$="+":.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 x;17,0;" So far  you have ";u;" correct" y*18,14;"and ";v;" incorrect" z 21,4;"More?(Y/N)" { 0 } q$=:q$"y"q$"n"125} ~ 700 q$="n"168 30 j=140( c$(i)=" "45- i=40(i=0 i=i+1 j c$(40() 30 7:7:0: P1,10 ;"_____________";2,6;"***  CERTIFICATE  ***" %5,3;"Name : ";n$ /7,3;"Program : ""Metaphors""" $9 ,3;"Correct : ";u %11 ,3;"Incorrect : ";v u+v=0178 813 ,3;"Percentage : ";(100d*u/(u+v)) 50,0;"" 615,0;"" i=114 )i,0;"";15-i,31;"" i  8180 8000@  4:0:0 ^I=126:13 ,2+I;5;" PLEASE TYPE IN YOUR NAME "(I):5:I 23624H\,4:23658j\,136:n$:23658j\,0:n$<2űn$>15ůn$<65Aůn$>122z17,5;"THAT IS NOT YOUR NAME ":1,-30:17,5;" ":509: 23658j\,0 413 ,3;" "  hi=16+n$+2:s$="HELLO "+n$+" !":14,12 -n$/2+i;s$(i):5:i  8180 $ X(0,10 ;5;"METAPHORS" [g3,2;"This program asks you to give the meaning of 40 common metaphors" ^"8,9 ;"FOR EXAMPLE:-" `b10 ,4;5;"""To fall on one's feet""";12 ,6;"means ""to be lucky""" d 8180 j 7:7:0: S1,1;" HIT THE BELL ";3,1;" AT THE FAIR " U7,0;"with five";9 ,0;"correct";11 ,0;"answers" 12,1;"This go ";d$;"1" 16,24;"" i=154-1 0:i,24;" " j=7-(i/2) (j<5ƺj=j3:i,27;j i $3:3,25;5 f6:2,24;"";3,24;"";3,26;"";4,24;"" !0:15,24;"" !2:15,25;"O" f0:11 ,20;"";12 ,20;"";13 ,20;"";14,20;"" t<0t=0  502 12 ,23;"";13 ,22;"";14,21;"";11 ,20;" ";12 ,20;" ";13 ,20;" ";14,20;" " 30-(t*5) 15,21;"":1:15,24;"":0:14,21;" ";13 ,22;" ";12 ,23;" " 92:15,25;" ":14,25;"O" t=0502:  uv=10 z=13 5-1 uv=uv+3 )z+1,25;" ";z,25;"O"  .1}L,uv #7-(z/2)=t502: 30-(t*5) z z=15 I4,24;" ";2,24;" ";3,24;" "  10 $3:3,25;5  f6:2,24;"";3,24;"";3,26;"";4,24;""  z  t=0 y=2040( #.02{# =,y:.02{# =,y+20 y y=2045- ,.02{# =,80P-y:.02{# =,70F-y y  502  !"to pay through the nose","to put the cart before the horse","to play second fiddle","to make a mountain out of a mole-hill","to paddle one's own canoe" &"to sit on the fence","to take the bull by the horns","to hit below the belt","to make both ends meet","to strike while the iron is hot" +~"to get on your high horse","to turn over a new leaf","to smell a rat","to get into hot water","to be hauled over the coals" 0s"to go on all fours","to be dead beat","to be down in the mouth","to sweep the board","to make no bones about it" 5"to burn the candle at both ends","to have your heart in your mouth","to bury the hatchet","to make a clean breast of","to have a feather in your cap" :}"to give the cold shoulder","to throw cold water on","to lead up the garden path","to lead a dog's life","to draw the line" ?z"to show the white feather","to put your foot in it","to play the game","to hold your tongue","to blow your own trumpet" D"to hit the nail on the head","to go through the mill","to keep the pot boiling","to turn the tables","to let the cat out of the bag" "to pay too high a price","to do things the wrong way round","to be content to let someone else take the lead","to make a big fuss about nothing","to act independently" "to refuse to take sides","to face difficulties boldly","to act unfairly","to have sufficient money","to act at the right moment" ^"to be haughty","to try to do better","to be suspicious","to be in trouble","to be punished" M"to crawl","to be exhausted","to be depressed","to take all","to speak out" u"to overdo work and play","to be very frightened","to make peace","to confess","to have something to be proud of" \"to ignore","to discourage","to deceive","to have a wretched existence","to fix the limit" `"to show cowardice","to say or do the wrong thing","to act fairly","to keep silent","to boast" x"to be right","to experience suffering","to keep going","to reverse a result","to tell what should be a secret" )z=(*3)+4:z:z::9  4 10 +8,502:5,0:5,-5:5,5:5,0:0,-20:-5,0:0,15:-5,-5:-5,5:0,-15:-5,0:0,20 35#+8,502:20,0:0,-4:-15,0:0,-4:10 ,0:0,-4:-10 ,0:0,-4:15,0:0,-4:-20,0:0,20 ׫60<+8,502:20,0:0,-5:-7,0:0,-15:-6,0:0,15:-7,0:0,5 85U+8,502:20,0:0,-20:-5,0:0,6:-10 ,0:0,-6:-5,0:0,20:90Z+8,45-:10 ,0:0,-5:-10 ,0:0,5 110n+8,502:20,0:0,-14:-15,0:0,-6:-5,0:0,20:115s+8,45-:10 ,0:0,-5:-10 ,0:0,5 135+8,502:5,0:0,-9 :10 ,0:0,9 :5,0:0,-20:-5,0:0,7:-10 ,0:0,-7:-5,0:0,20 160+8,502:20,0:0,-20:-20,0:0,20:165+8,45-:10 ,0:0,-10 :-10 ,0:0,10 5185+8,502:20,0:0,-14:-4,0:4,-6:-5,0:-4,6:-6,0:0,-6:-5,0:0,20:190+8,45-:10 ,0:0,-5:-10 ,0:0,5 210+8,502:20,0:0,-4:-15,0:0,-4:15,0:0,-12 :-20,0:0,4:15,0:0,4:-15,0:0,12 b23692\,255:21,0;" ":X=1100d:X:c=115:" ":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 ,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: '"file":"usr" edtvuNNCNCCCSHELLO NCNCCC !  QkD+QnA +( Л2 Zusr Xg??```````` p|>?N @fff??0033 333333333300?? BBBBB< opposites Y "OPPOSITES" IOPPOSITES   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&  Qyx`A OPPOSITESlogo @ ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~Ifile B&B B"236099\,25:4000 ?graph=8400 :23675{\,88X:23676|\,255 0:505:6 ):1:1:7::500  )0:0:4::5000  7500L t=0 c$(40() p$(3,9 )  u=0  v=0  600X 7000X: 'i=(*40() *c$(i+1)="1"141 -c$(i+1)="1" .800 :f=0i /z$:f 0G::" In the list below which word is opposite in meaning to: " 1 :;" ";z$; 35,31;" " 6810*:f=0i 9p$(1):f <j=(*40() ?k=(*40() Bj=ij=kk=i60< E(810*:f=0j:p$(2):f H(810*:f=0k:p$(3):f Ni=(*3)+1 Qj=13 Ti>3i=1 Ui=1k=j W 1;j;0;". ";p$(i) X Z i=i+1 ]j _714,0;"PRESS  KEY 1 TO 3" dQ$= gq$<"1"q$>"3"99c lq$=k116t nG14,0;"SORRY, CORRECT ANSWER IS NO. ";1;K;0 oCV=V+1:T=T-1:.5,-10 :1.5@,-20 pU" OPPOSITE OF: """;z$;"""?":" Your answer: ";p$(1+3*(q$17)*(N$-17)))) :7,2;" PROGRAM: ""OPPOSITES 1""" 9 ,5;"CORRECT: ";U #11 ,3;"INCORRECT: ";V U+V=0184 713 ,2;"PERCENTAGE: ";(100d*U/(U+V)) 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 : 8180 8000@  \I=124:12 ,3+I;5;"PLEASE TYPE IN YOUR NAME"(I):5:I 23624H\,4:23658j\,136:n$:23658j\,0:n$>15űn$<2ůn$<65Aůn$>122z6000p :"HELLO ";N$ /12 ,3;" " iI=1̱N$+8:S$="HELLO "+N$+" !":14,11 -N$/2+I;5;S$(I):5:I  8180  X;0:0:4::0,9 ;"OPPOSITES" [e2,0;" This program asks you to give the opposite in meaning of 40 different words." \:: ^m5:7,0;"For example:- ";8,0;"the opposite of ""wet"" is ""dry""":4 a 8180 b0:1:7 e 0:1:1:::1;6;1;" GET THE TRAIN TO ";1,0;" THE END OF THE LINE ":0 79 ;3,0;"With five correct answers" t<0t=0 Y0;0;13 ,0;,,,,,,,,"________________________________";1 30;0;0;17,26;"" Ai=1(t*4+((t=0)*2))-(t=5)1 [0:15,i;" ";16,i;" ";17,i;"__";1;"" %(i/2)=(i/2)720 ̌14,i+6;0;7;6;"";:1:7;8;8;"";" ";:3:8;8;" ":1 ΃14,i+6;0;7;1;"";:1:7;8;8;"";" ";:3:8;8;" "  i:1  1+((t5)*70F)  t5  0 ".5,6,1.5@,9 ,1,6,.5,7,1.5@,9 ,1,6,.5,7,1.5@,9 ,1,6,.5,11 ,1.5@,9 ,1,6,.5,6,1,7,.5,7,.5,4,.5,4,.5,4,.5,7,.5,7,.5,7,.5,4,.5,4,.5,4,.5,9 ,.5,9 ,.5,9 ,.5,9 ,.5,11 ,.5,9 ,1.5@,6,1,2 9734:i=132 :xx:yy:xx/3,yy:i  t=0   M"fat","rough","deep","narrow","dark","cold","stale","dirty","short","cheap" !\"ugly","sad","poor","former","compulsory","imaginary","puny","hurried","uneven","listless" "d"moderate","obstinate","obscure","warlike","peculiar","faulty","rash","difficult","unknown","weak" #_"few","foolish","foreign","captive","guilty","transparent","proud","temporary","mean","vague" *T"thin","smooth","shallow","broad","light","hot","fresh","clean","tall","expensive" +]"beautiful","happy","rich","latter","voluntary","real","robust","leisurely","level","eager" ,e"excessive","yielding","obvious","pacific","ordinary","perfect","cautious","easy","famous","strong" -]"many","wise","native","free","innocent","opaque","humble","permanent","generous","precise" R  "PART 2" :1800:1030 )7:1:1::1790   .23675{\,168:23676|\,254  t=0 c$(60<) $p$(3,11 ) . u=0 8 v=0 B 1810 L7000X: Vi=(*60<) `c$(i+1)="1"1570" jc$(i+1)="1" t1870N:f=0i ~z$:f C"In the list below which word is opposite in meaning to: " :;" ";z$;9 5,31;" " 1930:f=0i p$(1):f j=(*60<) k=(*60<) j=ij=kk=i1210 )1930:f=0j:p$(2):f )1930:f=0k:p$(3):f i=(*3)+1 j=13 i>3i=1  i=1k=j  1;j;0;". ";p$(i)  ( i=i+1 2j <014,0;" PRESS  KEY 1 TO 3" F=""1350F Pq$= Zq$<"1"q$>"3"1350F nq$=k1450 x514,0;"SORRY, CORRECT ANSWER IS NO. ";K CV=V+1:T=T-1:.5,-10 :1.5@,-20 U" OPPOSITE OF: """;z$;"""?":" Your answer: ";p$(1+3*(q$17)*(N$-17)))) 97,4;" PROGRAM:  ""Opposites 2"""  9 ,5;"CORRECT: ";U #11 ,3;"INCORRECT: ";V U+V=01760 713 ,2;"PERCENTAGE: ";(100d*U/(U+V)) ֺ2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0   8180  8000@  ;0:0:4::0,9 ;"OPPOSITES" \2,0;" This program asks you to give the opposite in meaning of 60 words." &v5:9 ,0;"For example:- ";11 ,0;"the opposite of ""jovial"" is ""sullen""":4 0 8180 :0:1: E N{"depressed","hurtful","plentiful","considerate","destructive","unfair","worldly-wise","servile","unskilful","contrasting" X|"indivisible","inevitable","inexhaustible","infamous","insipid","insolent","significant","timid","repulsive","indifferent" bp"loathe","unfaithful","obese","obnoxious","saddened","physical","previous","inappropriate","sterile","unknown" lf"restrained","commonplace","outspoken","evil","concave","urban","savage","scant","lovely","sensible" vt"different","everlasting","doubtful","indistinct","pleased","partial","crude","encouraging","deceitful","cheerful" e"desperate","simple","internal","familiar","rigid","unlucky","sudden","merry","heedless","cowardly" j"elated","beneficial","scarce","rude","creative","impartial","naive","independent","ingenious","similar" t"separable","avoidable","limited","honourable","tasty","polite","meaningless","intrepid","attractive","interested" i"willing","loyal","lean","pleasant","overjoyed","spiritual","subsequent","relevant","fertile","eminent" e"rampant","remarkable","reserved","righteous","convex","rural","docile","ample","horrible","absurd" e"alike","ceasing","certain","clear","irritated","complete","refined","daunting","honest","dejected" b"calm","elaborate","external","strange","flexible","fortunate","gradual","grave","wary","heroic" &0:6:6:9 : 20,1;"DON'T LET THE CATERPILLAR DIE" -4,4;"FIVE CORRECT ANSWERS WIN" !15,27;"FOOD" t<0t=0  x=14 z=05.50.5  y=1+z*4  2520  z>4.52640P *z=tt52600( 4&y=y-1:z=5.502310 > 2580 H y=y+1 Rx+1,y;" " \ 2570 f y=y+1 px+1,y;" " z 2560  x,y;" "  y=y+1  2550 w=12 $4:x,y;" ";x+1,y;""  y=y+1  2550 w $4:x+1,y+1;" " "x,y+1;"";:0:""  6-t  x,y;" " z  t=0 15,31;" "  5 $&4:14,25;"" ..15,23;" ";:0:"" 8 502 B?14,25;" " Lx=13 :2500 V4,4,2,4,2,11 ,2,9 ,2,11 ,3,6,1,7,2,6,6,4 `4,11 ,2,14,4,16,2,14,2,11 ,2,13 ,2,9 ,4,11 j2,16,4,16,2,14,4,11 ,2,9 ,3,11 ,1,9 ,2,7,4,6 t2,2,4,4,2,11 ,4,9 ,2,7,2,6,2,4,2,2,6,4 ~ 2390V +w=135#:x:y:x/10 ,y:w x=12 0-1 2500 x+4,25;" ":x (100d:7:7:0:  Ĵ0:x,26;"":1:x+1,25;"":5:3:x+2,25;"";:0:"";:5:6:"":2:x+3,25;""  !4:x+1,y;""; 0:""  4:x+1,y;"" 4:x,y;"" 4:x,y+1;"" #4:x+1,y+1;""  ( 20 2!0:x+1,y;"" < 502 Pw=17 Z#0:x+1,y+6;"" d#3:x+1,y+6;"" nw x 50:0:4:23659k\,12 :"" ]10 ,502:20,0:0,-20:-20,0:0,20 ]15,45-:10 ,0:0,-10 :-10 ,0:0,10 "P" 35#,502:20,0:0,-13 :-15,0:0,-7:-5,0:0,20 [40(,45-:10 ,0:0,-4:-10 ,0:0,4 "P" 60<,502:20,0:0,-13 :-15,0:0,-7:-5,0:0,20 [65A,45-:10 ,0:0,-4:-10 ,0:0,4 "O" ]85U,502:20,0:0,-20:-20,0:0,20 ]90Z,45-:10 ,0:0,-10 :-10 ,0:0,10 "S" 110n,502:20,0:0,-4:-15,0:0,-4:15,0:0,-12 :-20,0:0,4:15,0:0,4:-15,0:0,11 "I" 135,502:20,0:0,-5:-7,0:0,-10 :7,0:0,-5:-20,0:0,5:7,0:0,10 :-7,0:0,5 "T" 160,502:20,0:0,-5:-7,0:0,-15:-5,0:0,15:-8,0:0,5 "E" 185,502:20,0:0,-4:-15,0:0,-4:10 ,0:0,-4:-10 ,0:0,-4:15,0:0,-4:-20,0:0,20 210,502:20,0:0,-4:-15,0:0,-4:15,0:0,-12 :-20,0:0,4:15,0:0,4:-15,0:0,11 ,21,0;" ":23692\,0 c=130:c c=115::c  0,12 ;"OPPOSITES" X3,3;5;"This program is divided into two levels of difficulty" %8,8;"1.Easy Questions" &12 ,8;"2.Hard Questions" &20,10 ;"SELECT OPTION" s$= s$="1"8,6;">" s$="2"12 ,6;">" *s$="2"0:100d::1000 !s$="1":0:100d:: lc=110 :c:0,10 ;((*7)+1);0,12 ;"OPPOSITES":5006 p15,6;"THAT IS NOT YOUR NAME ":.5,-20:.5,-25:15,3;" ":506 Xa=(*7)+1 Ya:a:9 Z L"c",00000000 M"c"+3,00000000 N"c"+4,00011000 O"c"+5,00111100< P"c"+6,01111110~ Q"c"+7,11111111 V"c"+2,00000000 `"c"+1,00000000 j @"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:7 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 &3"file"9899&:"USR"62999,2535 : ' "":"" rap  USR BXi >00x0px>^~/F?8|b?|z8~~<x0<~goooooo~<<~~0x0px>^~/F?8|b?|z8~~<x0<~goooooo~<v>~~<<~x~<??0033 3300?? 33333333