ZXTape! 0Created with Ramsoft MakeTZXtawny A lArithmetic 1  1983 Tawny Ltd.  Devised by; Mrs J.A. Rees. Author; T.J. Gilberts. S23659k\,0:0:"TSP":0:0:0,0;:"TBAS" TSP @0 ?ߟ>pB@|?<<@B8888x88@8BBbDpx8D88888888g88D88xx<8~pp>x88@8h8?~D D0@DDxD BBR(ppD D@D <@D DD<Á`DDDT@<0 B< <8x@g0? 88x~>8x10< ?9xx 8B<|px >8pp3B<<<f8BB88888 x`p80(BBBBBbD@Ds@B@@BBB@B@@@BB@D BDD0@D<p08?B< BBR(@B1`B@@B@~<B|<|BB|B<Bx(8xD"Dp #B 8B~|xx8p< s ~>B~BJ@B0`px~@@|NB|@@|B@BD@(@D"<? B BBD@@1 8<BBBZF@D0p 8< B@@DBBBD@B@D$@Dx<8x<<<>@B x<BB<<<<B$B~xx p080<8 B~~B><~x<<|>B<<B>|>B<<|@~Bx>B<p080<|><@|||>~x <@< <~x<<@>B< pB>B>B<B< @<B><~@B|>~x8B8 D8 <8 << xB$Bp 0GGEEEGEBBBGGGGGGGGGGGGGGGGGGGGBBEEEEGEBBBGGGGEEEEEGGBBBBGGGGGGGGGGGGGGGGGEEEEEBBBBBBBBGGGEEEEEBBBBBBBBBBGGGGGGGGGGGGGEEEEEBBBBBBBBBBBBGGGGGGEEEBBBBBBBBBBBBBBGGGGGGGGGGGGGBBBBBBBBFFBBBBBBBGGGBBFFFFFFEEBBBBBGGGGBBFFFFEEEBBBBBBGBBEEEFBBBBBBBBBGGGGGGBBBBFBBBBBBBBBGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBGGBBBBBBBBBBBBGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBGGGBBBBBBBBBBGGGGGGGGGGGGGGGGGGGBBBBBBBBBBGGGBBBBBBBBBGGGGBBBBBBBBGGGBBBBBBBBGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBEEEEEEEEEERTBAS ;; ;(ARITHMETIC 1  1983 Tawny Ltd. R23659k\,0:(23635S\+256*23636T\)+00132,012 Security 723659k\,2:64399:23659k\,0 1"TCODE":dum=64400:23659k\,2  /g(10 ):g$(10 ,2):9200# #k=110 :g(k),g$(k):k d 8210 nb8;1,1;"MESSAGE TO PARENTS";3,13 ;"OR CHILDREN";6,0; x^'" This lesson is designed to"''" teach children to add and"''" subtract numbers up to 9." w'" Later lessons deal with"''" adding and subtracting"''" hundreds, tens and units,"''" multiplication and division." 8010J 8210 \mx=2:my=3:8:1:x=3:y=1:a$="MAIN MENU":9800H& '0:7:" Do you wish to:-" '" 1/ Learn to add up to 9." 3'" 2/ Learn to subtract numbers less than 10." '" 3/ End session." n$="1":m$="3":8060| i$="3"l=0 1000*i$  145 A8210 :8;9 ;1,5;"ADDING UP TO 9" %6,1;"Do you wish to:-" '" 1/ Set up your own sums." !'" 2/ Let Tawny set the sums." '" 3/ Go back to main menu." n$="1":m$="3":8060|  i$="3" $i$="1"1110V .h8210 :8;9 ;1,5;"ADDING UP TO 9";3,3;"TAWNY SETS THE SUMS" 8s(9 ,3) Bks=19 :s(s,1)=(1+*8):s(s,2)=(1+*(8-s(s,1))):s Gk=1100d:k L 1400x Vf8210 :1,5;8;9 ;"ADDING UP TO 9";3,4;"SET YOUR OWN SUMS" `6,1;" The following screen will"''" present you with nine blank"''" sums to fill in. Tawny will"''" prevent you entering numbers"''" which give a result greater" jf'" than 9. When the question mark"''" flashes press the required"''" number, then the ENTER key." o 8010J tH8210 :s(9 ,3):n$="0":m$="9":mx=2:my=3 yZ1,5;8;9 ;"ADDING UP TO 9";3,4;"SET YOUR OWN SUMS" ~ns=-111 :8+s,21;5;" ";(s(s>0s<10 ));5;30;" ";:s Ds=19 :a$="? + ? =":x=2:y=11 :9800H& c=210 8 7x=c:a$="?":1:9800H&:0:8060| a$=d:9800H& c10 1170 %s(s,1)+d<10 1170 a0,0;"Illegal: Sum result greater thannine. Press ENTER to retype.";r$  1162 $s(s,(c-2)/8+1)=d c A8+s,24;8;s(s,1);"+";s(s,2);"=?" k=120:k s xA8210 :8;9 ;1,5;"ADDING UP TO 9" ns=-111 :8+s,21;5;" ";(s(s>0s<10 ));5;30;" ";:s `s=19 :8;9 ;8+s,24;s(s,1);"+";s(s,2);"=?":s ;7,2;"The sums are set."''" Do you wish to:-" '" 1/ Start solving." '" 2/ Abandon these." n$="1":m$="2":8060| i$="2"1000 'n$="0":t=0:cf=0:m$="9" s=19 "s(s,3)=115906 A8210 :1,5;8;9 ;"ADDING UP TO 9" >cf=13,6;8;9 ;"CORRECTIONS" "6,1;"Sum number ";s a$=s(s,1)+" + "+s(s,2)+" = ":y=8:x=5:mx=2:my=5:9800H&:x=21:a$="?":1:9800H&:0 -l=y:c=20:n$="0":m$="9":8060|  a$=i$:9800H& )s(s,1)+s(s,2)d1610J Hs(s,3)=1:t=t+1:x=200:y=80P:7310 "0,0;" Would you like to see Tawny do the sum ? Press key Y for YES Press key N for NO then Press the ENTER key.";a$:a$=""1570" ,ta$(1)="y"a$(1)="Y"gt=(2+*9 ):o1=s(s,1):o2=s(s,2):1800:15906 1a$"n"a$"N"1570" 6s @ 1660| J%x=200:y=74J:7210* T~gt=1:2:7:y=20:x=4:mx=1:my=2:a$="Tawny will do the sum":9800H&:0 Yk=0400:k ^:o1=s(s,1):o2=s(s,2):1800:15906 |j:mx=2:my=4:a$="You had "+t+" right.":x=0:y=2:1:9800H&:0 t=9 1700 10 ,0;" You must have 9 right to play."'''" Tawny will repeat the sums"''" you had wrong when you press"''" the ENTER key.":8010J:cf=1:1504 bmx=2:my=3:y=10 :x=2:4:a$="You win a game":9800H&:9 8010J:5000  :7000X:8250: h=o1:cc=7:7100 h=o2:cc=14:7100 !dmx=2:my=2:y=20:x=10 :a$="+":9800H&:x=18:a$="=":9800H& &"a=0:p=o11-1 0cc=7:7700 :ll=18-p:7500L D a=a+1 Ncc=21:7700 Xll=18-a:7600 bp lp=o21-1 vcc=14:7700 ll=18-p:7500L  a=a+1 cc=21:7700 ll=18-a:7600 p +y=20:x=21:a$=a:9800H& @y=16:x=216:4:7310:0:7 vmx=1:my=2:y=1:x=2:a$="Tawny is":9800H&:a$="RIGHT":6:x=11 :9800H& 70:7:k=1a:.2~L,k-12 :k  8010J  K8210 :8;9 ;1,1;"SUBTRACTING LESS THAN 10" %6,1;"Do you wish to:-" '" 1/ Set up your own sums." !'" 2/ Let Tawny set the sums." '" 3/ Go back to main menu." n$="1":m$="3":8060|  i$="3" i$="1"2060  r8210 :8;9 ;1,1;"SUBTRACTING LESS THAN 10";3,3;"TAWNY SETS THE SUMS" s(9 ,3) [s=19 :s(s,1)=(1+*8):s(s,2)=(*(s(s,1))):s k=1100d:k  2145a  p8210 :1,1;8;9 ;"SUBTRACTING LESS THAN 10";3,4;"SET YOUR OWN SUMS" 6,1;" The following screen will"''" present you with nine blank"''" sums to fill in. Tawny will"''" prevent you entering numbers"''" which give a result less" f'" than 0. When the question mark"''" flashes press the required"''" number, then the ENTER key."  8010J  H8210 :s(9 ,3):n$="0":m$="9":mx=2:my=3 %d1,1;8;9 ;"SUBTRACTING LESS THAN 10";3,4;"SET YOUR OWN SUMS" *ns=-111 :8+s,21;5;" ";(s(s>0s<10 ));5;30;" ";:s /Ds=19 :a$="? - ? =":x=2:y=11 :9800H& 4c=210 8 97x=c:a$="?":1:9800H&:0:8060| >a$=d:9800H& Cc10 2120H D$s(s,1)-d02120H E\0,0;"Illegal: Sum result less than 0. Press ENTER to retype.";r$ F 21059 H$s(s,(c-2)/8+1)=d Mc RA8+s,24;8;s(s,1);"-";s(s,2);"=?" Wk=120:k \s aK8210 :8;9 ;1,1;"SUBTRACTING LESS THAN 10" fns=-111 :8+s,21;5;" ";(s(s>0s<10 ));5;30;" ";:s k`s=19 :8;9 ;8+s,24;s(s,1);"-";s(s,2);"=?":s p;7,2;"The sums are set."''" Do you wish to:-" u'" 1/ Start solving." z'" 2/ Abandon these." n$="1":m$="2":8060| i$="2"2000 'n$="0":t=0:cf=0:m$="9" s=19 "s(s,3)=12240 K8210 :1,1;8;9 ;"SUBTRACTING LESS THAN 10" >cf=13,6;8;9 ;"CORRECTIONS" "6,1;"Sum number ";s a$=s(s,1)+" - "+s(s,2)+" = ":y=8:x=5:mx=2:my=5:9800H&:x=21:a$="?":1:9800H&:0 -l=y:c=20:n$="0":m$="9":8060| a$=i$:9800H& )s(s,1)-s(s,2)d2250 Hs(s,3)=1:t=t+1:x=200:y=80P:7310 0,0;" Would you like to see Tawny do the sum ? Press key Y for YES Press key N for NO then Press the ENTER key.";a$:a$=""2225 ta$(1)="y"a$(1)="Y"gt=(2+*9 ):o1=s(s,1):o2=s(s,2):2310 :2240 a$"n"a$"N"2225 s  2275 %x=200:y=74J:7210* ~gt=1:2:7:y=20:x=4:mx=1:my=2:a$="Tawny will do the sum":9800H&:0 k=0400:k :o1=s(s,1):o2=s(s,2):2310 :2240 j:mx=2:my=4:a$="You had "+t+" right.":x=0:y=2:1:9800H&:0 t=9 2290 10 ,0;" You must have 9 right to play."'''" Tawny will repeat the sums"''" you had wrong when you press"''" the ENTER key.":8010J:cf=1:2186 bmx=2:my=3:y=10 :x=2:4:a$="You win a game":9800H&:9 8010J:5000  :7000X:8250: h=o1:cc=7:7100 Dmx=2:my=2:y=20:x=10 :a$="-":9800H&  a$=o2:x=14:9800H& 20,1;"first" a=0:p=1o2 cc=7:7700 $ ll=17-(o1-p):7500L ) a=a+1 .cc=14:7700 3ll=18-a:7600 8p `L20,0;"leaves":y=20:x=7:a$=(o1-o2):9800H& ak=120:k bx20,10 ;" So ";21,10 ;" ":a$=o1+"-"+o2+"="+(o1-o2):x=15:y=20:9800H& e@y=16:x=216:4:7310:0:7 jvmx=1:my=2:y=1:x=2:a$="Tawny is":9800H&:a$="RIGHT":6:x=11 :9800H& o;0:7:k=1o1-o2:.2~L,k-12 :k t 8010J y m8210 :8;9 ;1,5;"YOU HAD 9 RIGHT";3,1;"NOW YOU CAN PLAY A GAME" 6,0;" The game is called breakout."''" you have to knock down the"''" brick wall at the top of the"''" Television by bouncing" '" balls against it. You can"''" bounce the balls on your bat"''" Press key 1 to move left, and"''" key 0 to move right."  8010J pa$="" z0:0:7: 7'1;2;"" '''a$ Ik=120:1;2;k,0;"";k,31;"":k 7;31;" "; s$="O O O O " +ba=4:s=0:cc=10 :cr=cc %l=19:c=(1+*30) ;rl=l:rc=c:li=-1:ci=-1+2*(c>15) }ba=0s=120x0,0;"Sorry, no balls left. ";10 ,12 ;1;"GAME OVER":8010J:  co=(l,c) K0,0;"Number of balls - ";s$:rl,rc;" ";l,c;"O":rl=l:rc=c 220,cr;" ";20,cc;"":cr=cc (co=1li=-li:.01z# =,12 2l=2co=2li=-li:.01z# =,12 l=l+li co=2s=s+1 Fcc=cc+(1.5@(="0"cc<28))-(1.5@(="1"cc>1)) $4c=1Žc=30ci=-ci:.01z# =,12 .c=c+ci 8l216100 BSba=ba-1:s$=s$(3):.01z# =,-24:20,rc;" ":6070 ]_19,24:12 ,0:0,115s:-12 ,0:0,-115s b`200,24:12 ,0:0,115s:-12 ,0:0,-115s l'32 ,139:167,0 v'32 ,135:167,0 '32 ,124|:167,0 '32 ,121y:167,0 '32 ,120x:167,0 Acp=21:bc=0:cc=21:7,cc;6;""   n=1819-h-1 1n,cc-1;7;19-n;g(gt);g$(gt) n =y=20:my=2:mx=2:x=cc:a$=h:9800H&  *1x,y:4,0:10 ,17:1,0:10 ,-17:4,0:-12 ,20:0,1:12 ,20:-4,0:-10 ,-17:-1,0:-10 ,17:-4,0:12 ,-20:0,-1:-12 ,-20 /@65172,x+2:65173,y+1:dum=65170 4 Sx,y:10 ,-15:20,40(:-21,-32 :-8,7 B65172,x+10 :65173,y-10 :dum=65170  jl=8ll tl,cc;"":l y.1}L,-12 ~l=ll8-1 l,cc;g(gt);g$(gt) l+1,cc-1;" " l bc=1: l=8ll  l,cc;" " l+1,cc;g(gt);g$(gt) l -l,cc-1;18-ll:.1}L,0 l=ll8-1  l,cc;" "  l bc=0:  cp=cc (c=cpccͼ(cc-cp) 2$7,c-1;6;" " <2bc=18,c-1;g(gt);" ";g$(gt) Fc Pcp=cc Z JN#1;1,0;"Press the ENTER key to continue." T""8020T ^=""8030^ h"": |0,0;" Type the required NUMBER then Press the ENTER key.";i$:i$=""8060| -i$>1.5,-12 :8060| i$m$8060| d=i$  0:0:9 : :k=04:k,0;6;25;" ";:k :23676|\,252 D1;4;0,27;" ";1,27;"";2,27;"";3,27;" ";4,27;" " N23676|\,255 X6,0; b #2,"",5,"" $7,"",3,"" $2,"",6,"" $6,"",5,"" $"2,"",4,"" &H65010,175-(y*8):65012,mx:65014,my:p=1̱a$:65009,8*(x+(p-1)*mx):65011,a$(p):dum=65000:p: +TCODE p=r!( *=\s#r*Y\R>w"]\66 ͊::\ P P P 3MVV \Wq !v>'3 1Q<@&0A= P@ !_Wc PP!S PHT+* JUR(ĸ4B*!@  <  ``MMWMMP< P P P 3<MpVoV\GWq !Wv>K:&o9*6\8֐*{\&o)))>M >~#[K!C#  :ͪ"Kw # = = F>M K ):_  yO8 ( x(  >( J ˊx( B ˂C}\ͪ"-O wK}\ ͪ"-O ɀ@ ɀ@ ZZ  !v>' j???* io6& h(??~~