ZXTape!0Created with Ramsoft MakeTZXproverbs C  "PROVERBS" PROVERBS  T 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&  QnAPROVERBS/logo @ ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file 8,8,:, A.Cowley July 1982 start=1:6 "usr""a":start=0 5new=1:e$(18):m$(18):8000@ :t=0 c$(35#) p$(3,11 )  u=0  v=0  600X 'i=(*35#)+1 *c$(i)="1"141 - c$(i)="1" . 1000 0""COMPLETE THE FOLLOWING PROVERB" 1 800  2z=1i:a$:z 33,0;a$ 42" ... ?" 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 `-INK=1:12 ,0;:9000(# lq$=k116t n^14,0;"SORRY, correct answer is no. ";k:.5,-10 :1.5@,-20 o"v=v+1:t=t-1:d$="-" p?a$;" ...?":"Your answer: ";p$(1+3*(q$5x=5-x (y=a$(2):y>5y=5-y xw=xw+x:xw>mxmx=xw x*scx,y*scy:8050r F"00401103611102619006100908600600","2110110161600800","261011616007" :"005002600670031006100360066003200610029060061009086006" 4"m103011040361806609081600","12161011056160660906" 7"0030016003201103619006100908600600","25101101616008" A"00300160031018061001631103619006100908600600","25101101616008" ?"m1030110361706101111016061002618066081620160666606101600716" #"m201013130360086860630360081818" "i=05:.1}L,i:i Sstart=0start=1:23692\,250:21,0;'''''''''' new=08230& h7:22,89Y:211,0:0,-43+:-211,0:0,43+ 6:1:11 ,3;" _____ ";12 ,3;" Please ENTER your first ";13 ,3;29;14,3;" name (2 - 15 characters) ";15,3;29 .new=1:0:n$:n$=""8160 )n$<2n$(1)=" "8160 i=1̱n$ *n$(i)=" "n$=n$(i-1):8180 Dn$(i)<"A"n$(i)>"z"(n$(i)>"Z"n$(i)<"a")űn$>158200 %n$(i)<"a"n$(i)=(n$(i)+32 ) i ;7:n$(1)=(n$(1)-32 ):8230& Fn$>1518,4;6;"SORRY ! TOO MANY LETTERS!" Dn$1518,5;6;"THAT'S NOT YOUR NAME !!" G1,-36$:502:18,0;31;:8160 v#23659k\,16:0:"" 010 ,10 -n$/2;"Hello : ";n$ h''" PROVERBS - Griffin Software "'' 3"Name : ";n$'"________________________________"'' >1:100d:i=05:.1}L,5-i:i 523692\,0:21,0''''''''''''' 10  new=1:8000@ !4)'''"------======ooOOOOoo======------"'' !5421,30;"*":15:""85048! !6421,30;" ":15:""85048! !7 85015! !8421,30;" ":15:""85048! !9;1:1:4::0,12 ;"PROVERBS" !:L96`,166:63?,0:96`,164:63?,0 !>''5;"End of program." !H!6:''"Do you want to :"'' !R%" _"'" 1";:" Start again" !WC" _"'" 2";:" Let another person use this"'" program" !\0" _"'" 3";:" Finish the program" !f@ink=5:21,0;:9000(#:.15~,0 !p!q$="2"new=1:8000@ !z!q$="1"new=0:8000@ !14,0;">";16,0;"________________________________ THIS OPTION WILL REMOVE THE PROGRAM FROM MEMORY. " ![20,0;"Are you sure you want to use this option ? (Y/N) : C";8; !Eq$=:q$="Y"q$="y"0;"Yes":.15~,10 :8900" !6q$="N"q$="n""No":.15~,-10 :85059! ! 8600! "2:6:2: "?10 ,0;" Removing program from memory.":100d " 0  #' #(,ink;"Press keys 1 to 3 : N";8; #)q$=:q$=""9001)# #*/q$<"1"q$>"3".5,-480:9001)# #+q$: &*:"file"3:"usr""a",168: &> "Sure : ";y$:y$(1)"Y"y$(1)"y":9950& &>:f$="proverbs":1:"m",1,f$:"m",1,"}"+f$ &%2:*"m",1,f$9976& &3:*"m",1,f$ &-2:*"m",1,"}"+f$"a",168 &13:*"m",1,"}"+f$"a"::9950& &2*"m",1,"}"+f$"a":start=0:5 ' "":"" '*:"file"3:"usr""a",168: ' "":"" usr X8W*p< 8888888888888x<`???0033333333333300?? h similes E  "SIMILES" SSIMILES    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&  QnASIMILESylogo @g ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file X&X&DZ& A.Cowley July 1982 start=1:5 "usr""a":start=0 'e$(18):new=1:8000@ :6:600X !t=0:u=0:v=0 $c$(40():p$(3,10 )  !i=(*40()+1 $c$(i)="1"181 ' c$(i)="1" *)j=(*3)+4:j:j:9 : -]" What is the missing word in ";1,10 ;" 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 ,0;:ink=1:9000(# yq$=k139 |614,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$K"right","safe","good","green","hard","heavy","tough","like","soft","bold" CP"cold","weak","black","easy","patient","large","pleased","wise","dull","quick" @,"SIMILES",7,5,0,47/ A,0:0:5:start0 BZ23659k\,15:"":8000@:mx=0:q$,scx,scy,sx,sy:sy=sy+start*72H Ji=1̱q$ T#8035c+q$(i):a$:xw=0 YYa$(1)="m"a$=a$(2):sx=sx+scx*mx:mx=0:xw=a$(1):8040h ^-a$(2)="00"sx=sx+scx*mx:mx=0 h)sx+a$(1)*scx,sy+a$(2)*scy r:a$=a$(3):a$=""mx=mx+2/scx:i:8130 wa$="00"a$:8030^ |(x=a$(1):x>5x=5-x (y=a$(2):y>5y=5-y xw=xw+x:xw>mxmx=xw x*scx,y*scy:8050r :"005002600670031006100360066003200610029060061009086006" ""003001600502100180061008096006" &"0050026006700502100180061009086006" @"003001600529240906600630016005021001800667620180061009086006" ?"m1030110361706101111016061002618066081620160666606101600716" )"m101013181014056008686166630360090619" "i=05:.1}L,i:i Sstart=0start=1:23692\,250:21,0;'''''''''' new=08230& h7:22,89Y:211,0:0,-43+:-211,0:0,43+ 6:1:11 ,3;" _____ ";12 ,3;" Please ENTER your first ";13 ,3;29;14,3;" name (2 - 15 characters) ";15,3;29 .new=1:0:n$:n$=""8160 )n$<2n$(1)=" "8160 i=1̱n$ *n$(i)=" "n$=n$(i-1):8180 Dn$(i)<"A"n$(i)>"z"(n$(i)>"Z"n$(i)<"a")űn$>158200 %n$(i)<"a"n$(i)=(n$(i)+32 ) i ;7:n$(1)=(n$(1)-32 ):8230& Fn$>1518,4;6;"SORRY ! TOO MANY LETTERS!" Dn$1518,5;6;"THAT'S NOT YOUR NAME !!" G1,-36$:502:18,0;31;:8160 v#23659k\,16:0:"" 010 ,10 -n$/2;"Hello : ";n$ h''" SIMILES - Griffin Software "'' 3"Name : ";n$'"________________________________"'' >1:100d:i=05:.1}L,5-i:i 523692\,0:21,0''''''''''''' 10  new=1:8000@ !4)'''"------======ooOOOOoo======------"'' !5421,30;"*":15:""85048! !6421,30;" ":15:""85048! !7 85015! !8421,30;" ":15:""85048! !9:1:1:4::0,12 ;"SIMILES" !:L96`,166:557,0:96`,164:557,0 !>''5;"End of program." !H!6:''"Do you want to :"'' !R%" _"'" 1";:" Start again" !WC" _"'" 2";:" Let another person use this"'" program" !\0" _"'" 3";:" Finish the program" !f@ink=5:21,0;:9000(#:.15~,0 !p!q$="2"new=1:8000@ !z!q$="1"new=0:8000@ !14,0;">";16,0;"________________________________ THIS OPTION WILL REMOVE THE PROGRAM FROM MEMORY. " ![20,0;"Are you sure you want to use this option ? (Y/N) : C";8; !Eq$=:q$="Y"q$="y"0;"Yes":.15~,10 :8900" !6q$="N"q$="n""No":.15~,-10 :85059! ! 8600! "2:6:2: "?10 ,0;" Removing program from memory.":100d " 0  #' #(,ink;"Press keys 1 to 3 : N";8; #)q$=:q$=""9001)# #*/q$<"1"q$>"3".5,-480:9001)# #+q$: #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 #\i=44+t*5:16,i;" O":t/40(+.2~L,i-20:i:20 # &*:"file"3:"usr""a",168: &="Sure : ";y$:y$(1)"Y"y$(1)"y":9950& &=:f$="similes":1:"m",1,f$:"m",1,"}"+f$ &%2:*"m",1,f$9976& &3:*"m",1,f$ &-2:*"m",1,"}"+f$"a",168 &13:*"m",1,"}"+f$"a"::9950& &2*"m",1,"}"+f$"a":start=0:5 '*:"file"3:"usr""a",168: ' "":"" husr XXrp8??0033 3300?? 33333333??pppooOooO~~  9