ZXTape! 2 First Numbers - Side BCollins Educational P.K. McBride1983English Educational5.95 ?NoneOriginal ReleaseTZXed by Andrew Barker}NUMBERS F &H "NUMBERS" >>  MACBRIDE 1983 << 0:5:7: an=19 :4,4+n*2;6;n:n:4,24;6;0 6:8,10 ;2;"";9 ,10 ;0;" WRITING ";10 ,10 ;2;" ";11 ,10 ;0;" NUMBERS ";12 ,10 ;2;"" N23658j\,8:19,0;"Press  Q  for a Quiet program" !A21,0;" or  B  to have the Beeps.":0 "'q=0:="Q"q=1:40( #"B"33! ( 80P -N=18:G$ 2R=07:B < G$+R,B FR:N P5"A",16,568,124|,254,568,568,568,568,"B",8,12 ,254,255,254,12 ,8,0,"C",28,28,28,28,127,62>,28,8,"D",0,16,480,127,255,127,480,16 ZA"E",63?,15,31,63?,125},249,112p,32 ,"F",32 ,112p,249,125},63?,31,15,63?,"G",4,14,159,190,252,248,240,252,"H",252,240,248,252,190,159,14,4 _$1900l:g>0100d*g d 5: i34,6;" Start ":1,12 n@y=140150:x=02:y-20+x,y:x:y sy=15030-1 x8x=130132:x,y:x:.002xn,-40(:y #b=8:3100 :3000 r=3100 :2000 $1900l:g>0100d*g 4: 27,2;"Start ":1,12 "a=3.2L-.4L-.03{u\ 0131+40(*a,123{+a*40(:a 2y=108l32 -1:x=01 58:+y+x,y:x:y 6x=90Z170:y=3132 :x,y:y:x -3200 :b=11 :7:3000 r=3200 :2000  $1900l:g>0100d*g ,+6::3,4;"Start " 1#a=2.3333-1.6L-.03{u\ 60115s+30*a,123{+30*a:a @#a=1.6L-2.3333-.03{u\ E/115s+33!*a,59;+33!*a:a J$b=11 :3300 :3000 Or=3300 :2000 T$1900l:g>0100d*g >5::1,9 ;"Start ":.5,12 Xy=16068D-1:x=02:y*2/3+30+x,y:x:y 6x=75K160:y=66B68D:x,y:y:x 313 ,22;" Stop":.5,0 d=1502:d :8,18;" Start again":.5,12 Ay=104h32 -1:x=133135:x,y:x:y >b=11 :3400H :3000 :r=3400H :2000 $1900l:g>0100d*g ,4::3,20;" Start" Ax=15090Z-1:y=148149:x,y:y:x ?y=14898b-1:x=90Z91[:x,y:x:y #a=2.3333-2.3333-.03{u\ /115s+35#*a,71G+35#*a:a >b=11 :3500 :3000 :r=3500 :2000 &$1900l:g>0100d*g X 2: Z!1,10 ;"Start " ]Qa=2.2 3.015zu\:234+140*a,502+140*a:a bQa=-3.4Y2.83333.03{u\:131+36$*a,59;+36$*a:a l>b=11 :3600:3000 :r=3600:2000 $1900l:g>0100d*g  1:  3,3;"Start " 8x=82R164:y=145146:x,y:y:x Qy=146502-1:x=01:60<+x+y*.73333,y:x:y =b=8:3700t:3000 :r=3700t:2000 $1900l:g>0100d*g  +4::2,6;"Start " *Qa=1.6L4.7fff.04|# =:130+32 *a,127+32 *a:a 4Qa=7.8y1.6L-.04|# =:130+36$*a,60<+36$*a:a 9Qa=4.63337.8y.04|# =:130+32 *a,127+32 *a:a >>b=14:3800:3000 :r=3800:2000 R$1900l:g>0100d*g ,6::6,21;" Start" Oa=02*.03{u\:124|+32 *a,124|+32 *a:a Ay=12824-1:x=155156:x,y:x:y >b=11 :3900<:3000 :r=3900<:2000 $1900l:g>0100d*g +3::1,9 ;"Start " Pa=1.5@7.8y.03{u\:127+480*a,87W+64@*a:a =b=8:4000:3000 :r=4000:2000 $1900l:g>0100d*g  25 lW7:0:g=0:19,0;" Pick a number by pressing it " q>20,0;" Press  S  to Stop " vC21,0;" Any other key to go on. ":0 ="s"Ŧ="S":1940 B>480Ư<58:g=-480:g=g+(10 g=0)  7:  10 ,11 ;"GOODBYE": BI=568:t=112 :r:25:a=1b:l,c,A$ C22528X+(l*32 +c),i:i58:i=i+2:2030 i=60<i=568 q=0.1}L,0 !q=1d=16:d a:t: *7:t=1b:l,c,a$:l,c;A$:t  3,14,"",4,17,"",6,17,"",8,17,"",10 ,17,"",12 ,17,"",14,17,"",16,17,"" 5,10 ,"",2,12 ,"",0,16,"",1,20,"",4,22,"",7,22,"",10 ,20,"",13 ,17,"",16,14,"",16,16,"",16,19,"" 2,11 ,"",1,14,"",2,17,"",5,19,"",9 ,18,"",10 ,17,"",11 ,18,"",14,19,"",17,18,"",19,15,"",18,11 ,"" H4,13 ,"",7,11 ,"",10 ,9 ,"",14,9 ,"",14,11 ,"",14,13 ,"",14,15,"",14,18,"",9 ,17,"",11 ,17,"",16,17,"" 2,18,"",2,15,"",2,12 ,"",5,10 ,"",8,10 ,"",7,14,"",8,18,"",12 ,20,"",17,19,"",19,14,"",18,11 ,"" 3,14,"",6,12 ,"",9 ,11 ,"",13 ,10 ,"",17,11 ,"",20,16,"",18,20,"",14,22,"",10 ,21,"",8,17,"",9 ,14,"" t2,12 ,"",2,16,"",2,19,"",4,21,"",7,19,"",9 ,17,"",12 ,15,"",15,13 ,"" .1,15,"",3,12 ,"",7,11 ,"",9 ,16,"",11 ,20,"",15,21,"",19,20,"",20,16,"",19,11 ,"",16,10 ,"",12 ,11 ,"",8,21,"",5,22,"",3,20,"" <3,20,"",1,16,"",2,11 ,"",6,10 ,"",10 ,11 ,"",12 ,15,"",11 ,18,"",8,20,"",11 ,20,"",14,20,"",17,20,"" 4,10 ,7,10 ,8,3,17,10 ,6,20,16,2,17,21,5,10 ,23,1,4,21,8,2,18,4 M(23730\+256*23731\)-(23653e\+256*23654f\) -q<2b GHg lci8 32A] 11UP  u\ "11UP" >>  MACBRIDE 1983 <<  T=17:G$ (R=07:B 2 G$+R,B <R:T A 70F F"A",1,3,7,15,31,63?,127,255,"B",128,192,224,240,248,252,254,255,"C",255,255,126~,126~,60<,60<,24,24 P@"D",129,165,36$,36$,36$,0,82R,74J,"E",255,248,248,200,196,224,144,128,"F",255,31,31,19,35#,7,9 ,1,"G",255,129,129,129,129,129,129,255 Z1:1:7: d23692\,64@ n8,15;"" s15;"" x)15;"":15;1;"11" }15;"" )15;"":15;1;"UP" 15;"" "15;"":14;"" 14;"" ?14;"":14;"":14;1;"" (" Please  ENTER your name";n$ 4n$>96`n$(1)=(n$(1)-32 ) n$>12 n$=n$(12 ) -n=1̱n$:8+n,15;n$(n):n Ln=10 0-1:21,0;n;" ":1,-12 :n 21,0;" " 23692\,64@ ;f=-20:3000 :15;6;2;"" .3000 :15;7;6;"" ;f=-18:3000 :15;7;1;"" .3000 :15;7;1;"" =f=-16:3000 :14;7;1;"" 23000 :13 ;7;1;" " T=12 0-1 f=-(4+T):3000 *T;7;1;"";31-T;"" T DT=122:f=T-4:3000 :7:0::T 2392X ,0  b(20,2) .st=0:1505:e=1600X  7: , c=-1 6!t=10 20:1000 @"e=1t=20:400 Jc=c+2:1200 N,t=200,22;t:340T P20-n,c;t T#1505:e=1t=20 t X7no=10 :s=0:c=5:i=110 Z7:7:0: ]t=(*11 )+10 bz=0:1000 l 2000 q!z=1700:670 v 1200  2000 !z=1700:670 +t=200,6;t:670 20-n,c;t st=1:1500 i  1600@ Melody by Jake McBride Ʃz=10,2;"WELL DONE ,";N$:.4L,7:.4L,6:.4L,4:.4L,2:.4L,7:.9ffff,9 :670   n=1t b(n,1)=(*20) *b(n,2)=(*(29-c))+c+3 3(b(n,1),b(n,2))>64@1010  Ie=0b(n,1),b(n,2);1;4;"":1070. Gx=13:.15~,10 :b(n,1),b(n,2);" " .15~,22 $5b(n,1),b(n,2);1;4;"":x ) 10 .n B n=1t:p=2 #n/2=(n/2)p=5 x=15 ,b(n,1),b(n,2);1;p;"" .1}L,-12  b(n,1),b(n,2);" " .1}L,-7 x 20-n,c;1;p;"" .5,0 n  J20,0;" Press  S  to Stop the program ":1510 Ie=0:20,0;" Press  E  for the Exercises " K21,0;" Press  ENTER  to go on. ":0 $="e"Ŧ="E"e=1:1540 5st=1Ʀ="s"st=1Ʀ="S"no=i:1600@ 13 1510 9l=2021:y=031:l,y;" ":y:l  @0:1:6: JB7:l=10 14:c=525:l,c;" ":c:l T78:11 ,7;"Score - ";s;" out of ";no ^.13 ,11 -n$/2;"Goodbye ";n$ h"Anyone else there ?";a$ ra$="yes"a$="YES"90Z |a$="no"a$="NO"1700 ="Please  ENTER  yes or no ";a$:1650r   go=0 ""  ENTER  How many ";h$ h$=""2005 0go=go+1:21,0;" " ^h=1̱h$:h$(h)<480ůh$(h)>579h=10 :2,-20:h:2005 H !h$=ts=s+1:z=1: go2 $21,0;"Try again "  2005 Lm=16-(f>-16)-(f>0)-(f>12 ):.01z# =,f:m: 6(b f eJ sJ XzGG   pH14NFREDAno'