ZXTape! 0PARTY TIME (Computer-Tutor)0Created with Ramsoft MakeTZXParty-Time \H 1:1:5: P20,5;6;1;"LOADING - Let tape run":0,0 "pts":7 #)7:7:19,0;" " ("ptg":19,0;" " 2"ptp" pts @ +AA" $x! 4Z$JA@P @ # %$KA`Y @ # 2BJ& A`X P #.8 & #x&" |&# 2Z$JA@P @ # $*$xKA`XϠ @ #09B& A`^ P #.8 &@ &#x&" &A$" "|>!$p?x?`??# 2Z$JA@P @ # $*#A`X @ #89"& A`1 P #.8I & &#x&&0c (@# " 1#$Ȉ @ " P@ @0@@# 2Z$JA@P @ # $J < A`X @ #<9"& A@ P #.8I & &#x&& c(# " Q#$ "#J_~_ ~ # *$JA@P @ # $J! A`X @ #.9$& @ P#x.8J &? &#x&& U0"" # )$JA@^ @ # "J& A`X @ #.8& @ P#x&8B & &#x&&U>(`"`" Bd ?$J$JA@P @ # )$JA@A @ # "AJ& A`X ` #.8&  #x&8" < &#x&0&I!$ "`" "d $J$JA@P @ # )$JA`^"@ @ # "BJ& A`X ` #.8 & ?#x&8" a""p0?& ?&**@@#83<& ?x&*?*<<<@#8& a0&**B8D8B8<8B@#8~c& &**?@DDD @DD@ @#8a8&&*?*@x(x @DD8>@#81?p&.&*Ç*B@(@ BD<B@!<a&+**< << < 8x<@! `&*?* @8@|<|>B~@<B<@BBBDf@@BBDbB@8888x8DxBBB(Z|@BBBR@@DDD DD|~|>B@@B~BJN>@xB~~B<~< <@< 8D@;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;8;;;;;;;;;;;;;;;;;;;;;;;;88;;8;;8;;;;;;;;;;;;8;;;;;8;;;;;88;;8;;;;;;;;;;;;;;;;;;;;;8;;;;;;8;;8;;;;;8;;;;;;;;;;;;;;;;;;;;;;8;;8;;;;;8;8888888;;;;;;;;;;8;;;8;;;;;;88888888888888;;;;;;;8;;;;;;;;888888888888888888;;;;;8;;;;;8888888888888888888888888;8;8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888000000000000000088888888888888888888888888888888888888888888888888gggggggggggg88888888888888888888gggggggggggg88888888888888888888gggggggggggg8888888888?88888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888ptg X?|UUUU`0xxx0 >> 8> 8||<8808<|~<~~<((DD>*>66 <~~<<~B<~~<B~<<~~"9"220 n Ni$<213 ,0;"No. too small, please try again.":220 Oi$>40(13 ,0;"No. too large, please try again.":220  cnt=i$ "V"What is the highest number to be allowed in answers to additions?"''i$ 'i$=""290" ,613 ,0;" " 6/n=1̱i$:i$(n)<"0"i$(n)>"9"220 @n JNi$<313 ,0;"No. too small, please try again.":290" TOi$>2113 ,0;"No. too large, please try again.":290" ^ add=i$ r"Please enter the list of letters and numerals you want your child to practice with. (To use the full keyboard simply press ENTER.)"''k$ wBk$>59;13 ,0;"Too many characters":370r |2k$=""k$="abcdefghijklmnopqrstuvwxyz1234567890" !251=255460 b13 ,0;"Since the printer is connected, do you want your child to use it. (Y/N)" =""420 0="y"Ŧ="Y".004yn,34.61 p:460 =="n"Ŧ="N".004yn,34.61 p:ptr=0:460  420 D:3,12 ;"SUMMARY";3,12 ;1;"_______" O5,0;" Here is a summary of the options you have selected." 9 ,0;"COUNTING Max. selected ";cnt;11 ,0;"ADDING Max. selected ";add;13 ,0;"CHARACTERS Selected";5;k$:25125517,0;"PRINTER ";("On"ptr=1)+("Off"ptr=0) Q20,0;" Do you wish to repeat the 'difficulty' section? (Y/N)" =""510 0="y"Ŧ="Y".004yn,34.61 p:200 L="n"Ŧ="N".004yn,34.61 p:1:1:7::40(  510 b6:6:0: d-s=1:x=2:y=6:8000@ l 0:7,9 ;"Hello";9 ,9 ;"My name is Clever Clogs":150:7;1;18,8;" ";19,8;" What is your name? ";20,8;" ":.2~L,12 :.4L,12 vn$ xn$=""630v {7n$(1)>"`"n$(1)=(n$(1)-32 ) 1:1:5: b15,168:225,0:0,-129:-225,0:0,129 r1:2,8;" ";3,8;" ";4,8;" " 88X,147:4,-11 :4,11 :89Y,147:4,-11 :4,11 :90Z,147:4,-11 :4,11 :91[,147:4,-11 :4,11 1:131,147:131,136:130,147:130,136:131,146:131,135:0 510 ,16-(5+n$)/2;"Dear ";n$ .13 ,4;"Please come to the party" ]7:2:n=116:1;n,2;" ":n  100d 81;6;19,8;"Press 'G' to go." &.2~L,12 :.4L,12 =""760 0="g"Ŧ="G".004yn,34.61 p:790  760  8800`" h pkm=130:n=8235:1;6;1,n;(146+*4):n:m z+21,5;"Let's play some games" km=120:n=8235:1;6;1,n;(146+*4):n:m 6:6:0: (game=0:gf1=0:gf2=0 <.61020 -s=1:x=3:y=6:8000@ _n=814:n,11 ;" ":n:6,9 ;"I shall choose":300,  502 gf2=gf1:gf1=game game=1+(*6) gf1=gamegf2=game970  1115[ 5:5:0: gf2=gf1:gf1=game -s=1:x=0:y=0:8000@ #3,9 ;"You can choose"  &.2~L,12 :.4L,12 7,10 ;"1 Counting";9 ,10 ;"2 Find it";11 ,10 ;"3 Paint box";13 ,10 ;"4 Match up";15,10 ;"5 Gobbler";17,10 ;"6 How many?" =""1050 $9="1".004yn,34.61 p:game=1:1120` .9="2".004yn,34.61 p:game=2:1120` 89="3".004yn,34.61 p:game=3:1120` =9="4".004yn,34.61 p:game=4:1120` B9="5".004yn,34.61 p:game=5:1120` L9="6".004yn,34.61 p:game=6:1120` V 1050 `1000+1000*game k0s1=(score/15):s1>s2s2=s1:85004! n6:6:0: o-s=1:x=3:y=6:8000@ t:10 ,12 ;"Another?";12 ,14;"(Y/N)" ~^88X,111o:79O,0:0,-557:-79O,0:0,557 &.2~L,12 :.4L,12 =""1160 3="n"Ŧ="N":.004yn,34.61 p:1200 0="y"Ŧ="Y".004yn,34.61 p:930  1160 S6;2;1;17,16-(8+n$)/2;"Goodbye ";n$  300, '1:1:7::36$ 1:1:7: y5,11 ;5;1;1;" ";6,11 ;" Counting ";7,11 ;" "  200 /s=1:x=25:y=14:8000@ =0,22;1;6;0;"Score ";score  d=0  c=0  no=1+(*cnt) p=(*8) #20,10 ;" " a199,46.:-161,0:0,115s:179,0:0,-97a ں(*8):n=213 :n,5;" ":n:n=1415:n,5;" ":n:1  obj=1+(*8) 4n=1no 9Jy=2+(*14):x=5+(*22):(y,x)" "21059 :#x>23y>12 21059 >9 ;p;y,x;o$(obj) H.2~L,0 Rn p"How many, ";(n$);"? ";i$ qi$=""2160p r0n=1̱i$:i$(n)<"0"i$(n)>"9"2160p s n:ans=i$ ans=no2217 2;18,25;" ";19,25;" ":7;208,27:7;15,0,-2 1.5@,-12  c=c+1 oc>220,10 ;"There ";("are "no1)+("is "no=1);no;" ":100d:2045 /20,10 ;" Try again ":2160p ~2;18,25;" ";19,25;" ":7;208,27:7;15,0,2 20,10 ;" Well done ":.2~L,0:.2~L,2:.2~L,4:.6,5:score=score+1:0,28;1;6;0;score:100d &d=d+1:d=38900":  2060  n=0:d=0 ̓2:2::5,11 ;1;1;1;5;" ";6,11 ;" Find it ";7,11 ;" " 200 7:0  /s=1:x=25:y=14:8000@ Hn=0:6;0;1;1,21;"Score ";score _3,3:248,0:0,168:-248,0:0,-168 c=1+(*k$) #10 ,1;(n$ƥ<.3) %12 ,5;"Find this one -" 15,14;" " ^104h,63?:47/,0:0,-23:-47/,0:0,23 Uk$(c)<"{"k$(c)>"`"15,14;(k$(c)-32 );15,17;k$(c) &Uk$(c)<"["k$(c)>"@"15,14;k$(c);15,17;(k$(c)+32 ) 0Ek$(c)<"A"(k$(c)>"Z"k$(c)<"a")k$(c)>"z"15,15;k$(c) D=""3140D F.004yn,34.61 p X?=k$(c)Ŧ=(k$(c)+32 )Ŧ=(k$(c)-32 )3500 ""3205 n=n+1 4,11 ;"Try again":2;18,25;" ";19,25;" ":7;208,27:7;15,0,-2:1.5@,-12 :4,11 ;" ";10 ,1;" " n<33140D 3055 ""3505 4,11 ;"Well done" >2;18,25;" ";19,25;" " @7;208,27:7;15,0,2 .2~L,0:.2~L,2:.2~L,4:.6,5:4,11 ;" ";10 ,1;" " Rscore=score+1:1,21;1;6;0;"Score ";score d=d+1 #d=4502:8900": 3055  i=0 3:3:7::5,11 ;6;0;1;1;" ";6,11 ;" Paint box ";7,11 ;" "  200 J:s=1:x=14:y=10 :8000@:x=127:y=87W A5,16-(17+n$)/2;"Choose a colour, ";n$ ""4060 =""4061 .004yn,34.61 p i$= i$<"0"i$>"7"4060 ;ٰi$:9 :(7ưi$<4)+(0ưi$>3) a:0,0:255,0:0,159:-255,0:0,-159 U0,3+(5ptr=0);"1 Stop, 2 Rubout"+(", 3 Print"ptr=1) 4x,y:x+1,y:x,y+1:x+1,y+1  10 F0:x,y:x+1,y:x,y+1:x+1,y+1:0  10 '*23561 \,1:23562 \,1 ,""4140, .8i:x,y:x+1,y:x,y+1:x+1,y+1 / 10 0@i:x,y:x+1,y:x,y+1:x+1,y+1:0 1 10 6=""4142. @i$= Ji$="1".004yn,34.61 p:0:0,3+(5ptr=0);1;1;" ":n=1100d:n:8900":23561 \,255:23562 \,255::7: Tfi$="2".004yn,34.61 p:i=i:0,11 +(5ptr=0);1;i;" " ^ti$="3"ptr=1.004yn,34.61 p:0,21;1;1;" ":n=1100d:n:0,0;" ";0,16-(n$+10 )/2;n$;"'s picture"::::::0,0;" ";0,3+(5ptr=0);"1 Stop, 2 Rubout"+(", 3 Print"ptr=1) h)i$"5"i$"6"i$"7"i$"8"4140, |Vx=x+2*(i$="8")-2*(i$="5"):x=x+2*(x<1)-2*(x>253) Vy=y+2*(i$="7")-2*(i$="6"):y=y+2*(y<1)-2*(y>157)  4142. 4:4:0::5,11 ;6;2;1;1;" ";6,11 ;" Match up ";7,11 ;" "  200  c=0  c=c+1 er=(*8):r:(6r<4)+(1r>3):(6r<4)+(1r>3) o:1;6;0;0,22;"Score ";score::s=1:x=25:y=14:8000@ seed=(*65520)  ny=0  n=15 nx=n*40(-4 Bx=5:y=124|:5140:.2~L,n*12 -12 n:5200P  (seed+n)  m=112 "Ma=(*2):b=(*2):x=x+4*(a=1)-4*(b=1) #Ma=(*2):b=(*2):y=y+4*(a=1)-4*(b=1) (x<1x=1 )x>21x=21 ,y<104hy=104h -y>140y=140 2x+nx,y+ny:4,0:x+nx,y+ny+1:4,0:x+nx,y+ny+2:4,0:x+nx,y+ny+3:4,0 7..005y# =,x*3:.005y# =,y-110n <m A12 ,5*n;n K P%17,0;"Find another..." U wt=0 ZXnx=145:ny=-90Z:x=5:y=124|:n=1+(*5):5140 d=""5220d ni$= xi$<"1"i$>"5"5220d 1.004yn,34.61 p:21,15;" " gi$=n21,14;1;"Good":2;18,25;" ";19,25;" ":7;208,27:7;15,0,2:.2~L,0:.2~L,2:.2~L,4:.6,5:score=score+1:1;6;0;0,22;"Score ";score:m=1100d:m:5500| gwt=wt+1:wt=321,12 ;1;"It is ";n:m=1100d:m:5070 ""5305 21,15;"No":2;18,25;" ";19,25;" ":7;208,27:7;15,0,-2:1.5@,-12 :5220d c<35070 +8900":7:7:0:: 5:5:1::5,11 ;2;6;1;1;" ";6,11 ;" Gobbler ";7,11 ;" "  200  _6,6:243,0:0,163:-243,0:0,-163 n=18 c=151+(*5) x=1+(*20) y=1+(*30) (x,y)" "6100  ٺ(*8);9 ;x,y;c .005y# =,x:.005y# =,y  10 n b=0:c=8:i$="8" x=1+(*20) y=1+(*30) (x,y)" "6150 $!x,y;"":n=110 :n .Qx,y;(""i$="8")+(""i$="6")+(""i$="5")+(""i$="7"):n=110 :n 3Mb=1n=110 :.005y# =,n+x:.005y# =,n+y:n:b=0 4c=06330 8=""6180$ Li$= Vnx=x+(i$="6")-(i$="7") `ny=y+(i$="8")-(i$="5") jnx<1nx=1 tnx>20nx=20 ~ny<1ny=1 ny>30ny=30 1x,y;" ":x=nx:y=ny:.01z# =,x:.005y# =,y $(x,y)" "c=c-1:b=1  6180$ n=1502:n ^(7x10 )+(15x<10 ),16-(11 +n$)/2;"Well done, ";n$  10 Щ1:n=021:n,0;1;" ":n:n=1480:(*8):.01z# =,n:.01z# =,n-12 :n:0  502 8900": l6:6:2::5,10 ;4;0;1;1;" ";6,10 ;" How many? ";7,10 ;" "  200 k=12 col=(*8) tot=1+(*add) a=1+(*tot)  b=tot-a :no=a:l=6:p=2:c$=(151+(*5)) v:0,20;1;6;0;"Score";1,20;" ";1,21;score:7800x no=a:7700 Iscore=score+1:1,21;1;6;0;score C6,10 ;"+";15,4;no;15,10 ;"+" no=b:l=6:p=14  7800x no=b:7700 Iscore=score+1:1,21;1;6;0;score D6,22;"=";15,16;no;15,22;"="  ino=tot:p=26:7700:score=score+1:1,21;1;6;0;score  l=6:7800x %15,28;tot 4 100d >v18,11 ;" ";1;18,13 ;" ";19,13 ;" Good ";20,13 ;" " H 502 Rn=012 \ .05|L,n fn p 100d k 8900": 5try=0:18,11 ;" " D15,p+2;"?":1,p+2;i$:i$=""7710 (0n=1̱i$:i$(n)<"0"i$(n)>"9"7710 2 n:i$=no 0col;9 ;l,m+p;c$ no=no-1 .05|L,l+m+p m:n: Ee=e:l=yy+5 J2;l,x;" " Tl ^2;y+6,x;" " c0;y+7,x;"" hB7;8*x+10 ,8*(21-y)-8,1 rB7;8*x+21,8*(21-y)-8,1 wq0;8*x+16,8*(21-y)-10 :0;-2,-7:0;4,0 |_7;8*x+8,8*(21-y)-29:7;15,0,s*2  !>6:6:0: !H/s=1:x=10 :y=14:8000@ !R15,16;n$;17,16;"Do you want to";18,16;"blow out the";19,16;"candles?";21,21;"(Y/N)" !\=""8540\! !f="n"Ŧ="N" !p 8800`" !zkm=115:n=8235:1;6;1,n;(146+*4):n:m !'21,7;"Press 'B' to blow" !0m=120:n=8235 !51;6;1,n;(146+*4) ! =""n ! =""m !"b"Ʀ"B"8585! !/n=8235:1,n;" ":n !v502:.2~L,0:.2~L,0:.4L,2:.4L,0:.4L,5:.8L,4 !l.2~L,0:.2~L,0:.4L,2:.4L,0:.4L,7:.8L,5 !.2~L,0:.2~L,0:.4L,12 :.4L,9 :.4L,5:.4L,4:.4L,2 !q.21~W =p,10 :.22~aG,10 :.46k,9 :.48u[,5:.5,7:1,5 ! 100d: "j0:0:7: "tGn=8235:m=26:m,n;"":m:n "~17,3;"" "/8,3;"" "/9 ,3;"" "Pn=15:6;9 +n,3;"":n "812 ,8;7;0;"Here is the cake" "97;15,3;"" "016,3;"" " " 502 "$9000(#+100d*(*10 ) #2.25~,0:.25~,0:.5,5:.5,5:.25~,0:.25~,0:.5,5:.5,5 #<.25~,7:.25~,7:.5,9 :.5,9 :.25~,7:.25~,7:.5,9 :.5,9 #FJ.5,12 :1,12 :.5,12 :1,12 #P.25~,12 :.25~,10 :.5,9 :.5,9 :.25~,12 :.25~,10 :.5,9 :.5,9 #U 502 #Z #.4L,0:.2~L,4:.4L,2:.2~L,5:.2~L,4:.2~L,7:.2~L,4:.6,0 #l.4L,0:.2~L,4:.4L,2:.2~L,5:.6,4:.6,0 #.4L,0:.2~L,4:.4L,2:.2~L,5:.2~L,4:.2~L,7:.2~L,4:.6,0 #Z.6,9 :.4L,2:.2~L,5:.6,4:.8L,0 # 502: #.5,0:.5,0:.5,7:.5,7:.25~,9 :.25~,11 :.25~,12 :.25~,9 :1,7 $}.5,5:.5,5:.5,4:.5,4:.5,2:.5,2:1,0 $.5,7:.25~,7:.25~,7:.5,5:.25~,5:.25~,5:.5,4:.25~,4:.25~,4:.75@,2 $.25~,2:.5,7:.25~,7:.25~,7:.25~,5:.25~,7:.25~,9 :.25~,5:.5,4:.25~,2:.25~,2:1,0 $" 502: $^~.4L,7:.2~L,4:.4L,5:.2~L,2:.4L,7:.2~L,4:.4L,0 $h.2~L,0:.4L,2:.2~L,4:.16~# =,5:.16~# =,4:.2~L,2:.4L,7:.2~L,4:.6,0 $r.4L,7:.2~L,4:.16~# =,5:.16~# =,4:.2~L,2:.4L,7:.2~L,4:.4L,0 $|.2~L,0:.4L,2:.2~L,4:.16~# =,5:.16~# =,4:.2~L,2:.4L,7:.2~L,4:.6,0 $ 502: $.2~L,4:.2~L,5:.2~L,7:.2~L,7:.2~L,9 :.2~L,11 :1,12 $̑.2~L,7:.2~L,4:.2~L,5:.2~L,7:.2~L,7:.2~L,9 :.2~L,11 :1,12 $K.2~L,7:.4L,12 :.2~L,12 :.4L,11 $I.2~L,11 :.4L,9 :.2~L,9 :.6,7 $.2~L,7:.2~L,9 :.2~L,7:.2~L,5:.2~L,4:.2~L,2:1,0 $ 502: %&.2~L,0:.2~L,0:.2~L,0:.4L,0:.2~L,4:.4L,7:.2~L,4:.4L,0 %0.2~L,0:.4L,2:.2~L,2:.6,2:.4L,-1:.2~L,-3:.6,-5 %:.2~L,0:.2~L,0:.2~L,0:.4L,0:.2~L,4:.4L,7:.2~L,4:.2~L,0 %D.2~L,0:.2~L,0:.4L,2:.2~L,2:.2~L,-5:.2~L,-3:.2~L,-1:.6,0:.4L,0 %N 502: %.4L,0:.2~L,0:.4L,0:.2~L,0:.4L,5:.2~L,5:.4L,5:.2~L,5:.4L,7:.2~L,7:.4L,7:.2~L,7:.6,9 :.6,5 %.4L,0:.2~L,0:.4L,0:.2~L,0:.4L,2:.2~L,2:.4L,2:.2~L,2:.4L,0:.2~L,-2:.4L,-3:.2~L,-5:.6,-7:.6,-7 % 502: %3.2~L,0:.2~L,0:.2~L,0:.4L,0:.2~L,0:.4L,2:.2~L,2:.4L,2:.2~L,2:.2~L,4:.2~L,5:.2~L,7:.2~L,7:.2~L,5:.2~L,4:.65&fff,4:.6,2 %!.2~L,7:.2~L,4:.2~L,4:.4L,4:.2~L,4:.4L,5:.2~L,2:.6,2:.2~L,4:.2~L,5:.2~L,4:.2~L,2:.2~L,0:.2~L,2:.65&fff,0:.4L,0 & 502: &RC.2~L,4:.2~L,5:.2~L,4:.2~L,2:.2~L,0:.2~L,2:.2~L,4:.2~L,5:.2~L,4:.2~L,2:.2~L,0:.2~L,2:.4L,4:.2~L,4:.2~L,7:.2~L,5:.2~L,4:1,2 &\E.2~L,4:.2~L,5:.2~L,5:.2~L,4:.4L,5:.2~L,4:.4L,5:.2~L,7:.2~L,9 :.2~L,9 :.2~L,11 :.2~L,12 :.2~L,7:.2~L,5:.2~L,4:.2~L,5:.2~L,2:1,0 &f 502: &.2~L,0:.2~L,0:.2~L,0:.4L,4:.2~L,0:1,7:.2~L,0:.2~L,0:.2~L,0:.4L,4:.2~L,0:1,2 &.2~L,0:.2~L,0:.2~L,0:.4L,4:.2~L,0:1,7:.2~L,7:.2~L,9 :.2~L,7:.2~L,5:.2~L,4:.2~L,2:1,0 ' 502: n dtcorsxye E6!amffdc ipbnoo a brCI16NK$abcdefghijklmnopqrstuvwxyz1234567890O*#O