ZXTape! 0Created with Ramsoft MakeTZXGROCER - -/ :""  21,0;:"" "SHOPPING @I9?|B<B<B>BB|?BBDDbBBb@@BBBBbBf$BB?BBBBR@BR<<~BBBR@ZBB?|~BBJNBJBB||JNB>B|@BDDFBBFBBBB@@FBB$B@@Bxx>B<B<B>B<@????|?@A??|yC?@0A|>g!ЀA@??B@< !?$ ?!$ ?>A??A` @ @ @ @a @   00000000000000000000000000000000000000000000000000000000000000000888888888888888888888888888888000000000000000000000000000000000000000002222222222222222000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000011020000000000000000200000000111020000000000000000201102000000000000000020110200000000000000002010200000000000000002010200000000000000002222222222222222000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888oGROCER - 4&%/ "GROCER" >>  MACBRIDE 1983 << 2:21,0;" PLEASE STOP THE TAPE " <=N=121:g$:r=07:B:g$+r,B:r:N F"a",16,84T,254,254,254,254,254,108l,"b",60<,86V,171,213,171,213,106j,60<,"c",6,15,31,30,60<,112p,96`,128 P"d",0,1,15,63?,63?,31,31,15,"e",124|,254,254,254,255,248,231,159,"f",0,0,0,0,0,192,192,239 Z"g",15,7,7,3,3,6,27,119w,"h",191,191,184,123{,156,0,128,192,"i",240,71G,123{,129,2,26,4,8 d"j",3,7,7,7,3,3,3,7,"k",255,255,255,255,255,193,190,127,"l",128,192,192,224,224,224,224,96` n"m",6,5,15,28,228,4,4,2,"n",255,255,255,195,24,24,66B,60<,"o",160,208,248,47/,32 ,32 ,32 ,64@ x"p",0,0,3,7,7,7,7,6,"q",63?,225,222,191,191,127,195,219,"r",0,224,224,96`,96`,160,160,96` "S",6,6,30,62>,254,254,63?,7,"T",24,0,66B,60<,0,0,0,0,"U",96`,120x,126~,127,127,127,254,128 :21,0;" Press any key to go on. " .5,25:0 2000 :2:7:0: ^10 ,8;" Who's there ?":"Type name then  ENTER ";n$:n$=""141 +n$>90Zn$(1)=(n$-32 ) n$>12 n$=n$(12 ) R:21,(24-n$)/2;" Hello ";n$;"":n=1200:n &bl=16:bc=10 :bx=0 1,7;"":2,7;"P.GREEN GROCERS":3,7;"" BL=1721:C=031:L,C;5;" ":C:L 16,0;"" SN=51-1:C=1N:10 +N,C-1;4;"":C:N L80P,40(:-4,24:568,0:-4,-24 ?X=84T124|4:X,40(:0,24:X >Y=44,60<4:80P,Y:480,0:Y cX=88X120x32 :X,64@:8,0,-2:-8,0,-4:X 1000 K200,40(:8,16:16,0:8,-16 14,24;"" X204,64@:-10 ,32 :44,,0,-1:-10 ,-32  %19,0;5;z$;z$;z$ /197,87W:38&,0,-1 81100L:502:1200:502:1000 "*O=(*3):X=(*d*2)+1 $!p=7:o=1p=6 &#in=2:o=0in=4 '/bx+x>d*5+(5d=3)500 ,PN=1X:13 ,26-d+n;p;in;(144+O):.8L,7:N 6I7,20;"How many on";8,20;"the scales?" E g=0 J)"   ENTER  the answer ";a$ KJz=1̱a$:a$(z)<480ůa$(z)>579z=20:z:330J Lz O!18,0;5;z$ Q)11 ,26;6;a$(1) Tsa$(1)=x22906zY,40(:n=13:1200:25:1100L:25:n:360h Ylg=g+1:g>2t=13:.5,20:t:11 ,26;1;x: 330J ^n=13:1100L:25:1000:25:n:1,-10 :18,10 -n$/2;"Try again ";n$;" ":330J hE7,20;" ";8,20;" " k!11 ,26;7;" " mn=1x:t=13:13 ,26-d+n;p;in;(144+o):.2~L,10 :13 ,26-d+n;" ":.2~L,12 :t rt=13:bl,bc;" ":.2~L,-5:bl,bc;p;in;(144+o):.2~L,-9 :t:bc=bc+1:bc=16bc=10 :bl=bl-1 |n =bx=bx+x:17,3;" How many in the basket?"  g=0 )"   ENTER  the answer ";a$ Jz=1̱a$:a$(z)<480ůa$(z)>579z=20:z:400 z a$=bx18,0;5;z$:n=13:1200:25:1100L:25:n:1300:440 `g=g+1:g>218,8-n$/2;" There are ";bx;" ";n$;" ":395 n=13:1000:25:1100L:25:n:1,-10 :18,(20-n$)/2;"Try again ";n$;"":400 617,3;" "  260 n=1200:n  7: 23,15;"":4,15;"" x5,9 ;" More Sums ? ";6,9 ;" ";7,14-n$/2;" ";n$;" " U10 ,7;"Press  Y  for Yes":12 ,7;"Press  N  for No" &m="y"Ŧ="Y"16,7-n$/2;" Here they come ";n$;" ":n=1200:n:143 0V="n"Ŧ="N"16,7-n$/2;" Come again soon ";n$;" ":580D : 550& D119,4;"Press  R  to run again." N="r"Ŧ="R"132 X 590N 412 ,12 ;"":13 ,12 ;""  L612 ,12 ;"":13 ,12 ;"": 412 ,12 ;"":13 ,12 ;""  -1300:n=113 :t,p:t,p:n .3,7,.3,7,.6,4,.6,7,.6,4,.6,0,.3,2,.3,4,.6,5,.6,2,.6,7,.6,4,.6,0 ( +z$(32 ):2:6:0: F1,9 ;"AT THE GROCERS":2,9 ;"" V4,2;"This is a simple counting and":6,2;"adding program." 28,2;"How hard should the sums be ?" 710 ,2;"For TOTALS up to 5 Press  1 " 712 ,2;"For TOTALS up to 10 Press  2 "  714,2;"For TOTALS up to 20 Press  3 " .0:<491ů>5132070  <d=:20,10 ;" THANK YOU":1,0 *n=1100d:n 4 7: >56,6;"Right or Wrong ?":1100L Hw14,6;"This means right":100d:n=13:1200:25:1100L:25:n RF1,0:14,6;"This means wrong":100d \Bn=13:1000:25:1100L:25:n f1,-10 pE21,0;" Press any key to go on ":0: <<b# dN FREDERICKGEOx @<opgKrA4GU WHICH ) )w,+ :"" :21,0;:"" SHOPPING @I?|B<B<B>BB|?BBDDbBBb@@BBBBbBf$BB?BBBBR@BR<<~BBBR@ZBB?|~BBJNBJBB||JNB>B|@BDDFBBFBBBB@@FBB$B@@Bxx>B<B<B>B<@????|?@A??|yC?@0A|>g!ЀA@??B@< !?$ ?!$ ?>A??A` @ @ @ @a @   00000000000000000000000000000000000000000000000000000000000000000888888888888888888888888888888000000000000000000000000000000000000000002222222222222222000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000011020000000000000000200000000111020000000000000000201102000000000000000020110200000000000000002010200000000000000002010200000000000000002222222222222222000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888WHICH  b/ "WHICH?"  >>  MACBRIDE 1983 << 2:N=119:G$ <R=07:B FG$+R,B:R:N P"A",0,0,0,1,1,1,1,0,"B",0,60<,124|,254,254,254,255,252,"C",0,0,0,128,128,128,0,128 R"D",0,4,5,7,0,0,1,3,"E",250,248,240,193,63?,255,223,189,"F",96`,480,32 ,64@,128,128,128,192 T"G",3,3,3,1,0,0,0,0,"H",126~,127,255,239,247,251,252,255,"I",192,224,248,232,248,224,224,224 V"J",255,255,255,123{,121y,121y,124|,124|,"K",224,224,224,224,224,248,248,224 X"L",0,0,0,142,126~,127,63?,63?,"M",63?,31,31,15,14,28,28,28,"N",128,192,192,192,32 ,0,0,0 Z"O",255,255,255,125},249,241,253,125},"P",224,224,224,224,224,224,240,240 \"Q",192,224,255,232,248,224,224,224,"R",0,0,192,32 ,32 ,63?,63?,63? ^P"T",63?,63?,63?,63?,63?,113q,113q,113q dC21,0;" Press any key to go on. ":0 i 3000 n6:7:0: xF1,8;"WHICH BASKET ?":2,8;"" N3,1;"In this program you will move Paddington on the screen." 26,1;"Move him with the ARROW keys." 8,14;" 7 ":11 ,14;"":12 ,14;"":13 ,7;" 5   8 " 814,14;" ":18,14;" 6 " t19,1;"Try moving him now then ..":21,0;" Press  P  for the Program. " ~120x,92\:0,3:-3,0:6,6:6,-6:-3,0:0,-3 ~120x,46.:0,-3:-3,0:6,-6:6,6:-3,0:0,3 ~150,72H:3,0:0,3:6,-6:-6,-6:0,3:-3,0 }96`,72H:-3,0:0,3:-6,-6:6,-6:0,3:3,0 /P=0:L=11 :C=14:2000 1,10 :21,0;" Who's there ? ":0,0;" Please  ENTER  your name ";n$:n$=""190 +n$>90Zn$(1)=(n$-32 ) n$>12 n$=n$(12 ) S5:7:0::18,(24-N$)/2;"Hello ";n$;" " e=0:620l 3sc=0:g=16:5:7: 20,1;"In Paddington's basket are :-" gx1=(*9 )+1:x2=((*10 )+1-x1):x2=x2+(x2=0):x3=(*10 )+1 x2+x1>10 x2=10 -x1 x=x1:h=2x=x+x2 h=3x=x+x3 &p$=x1+" Bun":x1>1p$=p$+"s" Ah>1p$=p$+" "+(x-x1)+" Pencil":x-x1>1p$=p$+"s" +1,1;6;"10 Apples ";p$ 32,1;"Move Paddington to his basket." S280:B(4,4):T=14:N=13:B(T,N):N:T "g5,10 ,1,9 ,10 ,2,13 ,10 ,1,17,10 ,2 ,+R=(*4)+1:T=14 6)T=RB(T,4)=10 +X:330J @RB(T,4)=10 +X+(*7)-3:B(T,4)=10 +X320@ JT T<gl=20:go=0:L=15:C=0:P=1: ^Ay=23119w32 :502,y:180,0:y hT=14:B(T,1),B(T,2);B(T,3);"";B(T,4):B(T,1)+1,B(T,2);B(T,3);"":T k.5,20 m 2005 r""370r |=""380| )gl+1,12 ;" "  c<7c>8365m =L=B(R,1)-2900:sc=sc+1:430 (gl-l)>3(L+1)/4=((L+1)/4)L+1,12 ;"Not this one !":go=go+1:1,-12 :gl=l:go=2420  365m [1,-17:1,-12 :b(r,1)-1,12 ;" This is his !" e=g:600X g 2:6: s$="more of the same" 7h<3sce-1s$="harder ones":h=h+1 7h>1sc20,0;" Press  E  to end the program " lQ.5,25:21,0;" Press  ENTER  to go on " ve(="E"Ŧ="e")460 =13  630v z$(9 ):z$=n$ r$="Thank you "+z$ 7910:c=725:p:.353333,p-5 hL,C;" ":L+1,C;" ":L+2,C;6;r$(c-6);7;"";B(R,3);"" hL+3,C;" ";B(R,3);"":C/2=(C/2)L+3,C;" ";B(R,3);"" c:.353333,-5: -5,0,0,4,2,4,2,0,0,4,2,2,-5,0,2,4,2,2,2 0:="P"Ŧ="p" HL,C;" ":L+1,C;" ":L+2,C;" ":L+3,C;" " 3C=C+(="8")-(="5"):C=C+(C<1)-(C>28) 3L=L+(="6")-(="7"):L=L+(L<3)-(L>17)  p=1c>7c=7 tL,C;"":L+1,C;"":L+2,C;"":L+3,C;" ":C/2=(C/2)L+3,C;" " .2~L,10  P=1  2000 7:0: F1,8;"WHICH BASKET ?":2,8;"" Š4,0;"This program is about adding on":6,0;"from 10. Pick the type of sum":8,0;"that you want:-" ̟10 ,1;" 1  10 + one number":12 ,1;" 2  10 + 2 numbers (total - 20)":14,1;" 3  10 + 2 numbers (any total)." 518,1;"Press the key to pick.":0 %<491ů>5133030 DH=:20,10 ;"THANK YOU":n=1100d:n: h2pl+x h<w ^bqeNFred  Fred RThank you Fred Smore of the sameP5 Buns 5 PencilsU    GT DOUBLES ) )l+ :"" 21,0;::"" SHOPPING @EO?|B<B<B>BB|?BBDDbBBb@@BBBBbBf$BB?BBBBR@BR<<~BBBR@ZBB?|~BBJNBJBB||JNB>B|@BDDFBBFBBBB@@FBB$B@@Bxx>B<B<B>B<@????|?@A??|yC?@0A|>g!ЀA@??B@< !?$ ?!$ ?>A??A` @ @ @ @a @   00000000000000000000000000000000000000000000000000000000000000000888888888888888888888888888888000000000000000000000000000000000000000002222222222222222000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000011020000000000000000200000000111020000000000000000201102000000000000000020110200000000000000002010200000000000000002010200000000000000002222222222222222000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888oDOUBLES  z} "DOUBLES" >>  MACBRIDE 1983 << (:N=113 :G$ -R=07:B 2 G$+R,B <R:N F"A",568,122z,126~,124|,255,62>,124|,126~,"B",126~,127,127,126~,126~,126~,108l,108l K"C",108l,124|,124|,254,124|,568,124|,254,"D",254,254,254,254,254,254,108l,108l P"E",28,94^,126~,62>,255,124|,62>,126~,"F",126~,254,254,126~,126~,126~,546,546 U"G",480,120x,124|,120x,480,120x,120x,127,"H",120x,120x,120x,40(,40(,72H,136,204 Z"I",28,62>,62>,28,8,62>,127,127,"J",127,127,93],20,20,20,20,546 _"K",12 ,30,62>,30,12 ,30,30,254,"L",30,30,30,20,20,18,17,513 `O"M",0,60<,126~,126~,126~,126~,60<,0 aC21,0;" Press any key to go on ":0 c 1500 d+z$(32 ):4:7:0: i^100d:T=35:N=117:L,C:L,C;T;" ":L+1,C;T;" ":N jLT:9 ,7;6;" ":10 ,7;6;" " k^557,104h:480,0:0,-17:-480,0:0,17 x&17,5,17,11 ,17,17,17,23,15,27,9 ,27,5,25,5,19,5,13 ,5,7,7,3,13 ,3,13 ,9 ,13 ,15,13 ,21,9 ,23,9 ,17 '17,7,17,13 ,17,19,17,25,13 ,27,7,27,5,23,5,17,5,11 ,5,5,9 ,3,13 ,5,13 ,11 ,13 ,17,13 ,23,9 ,21,9 ,15 '17,9 ,17,15,17,21,17,27,11 ,27,5,27,5,21,5,15,5,9 ,5,3,11 ,3,13 ,7,13 ,13 ,13 ,19,11 ,23,9 ,19,9 ,13 39',23:193,0:0,113q:-209,0:0,-81Q:177,0:0,491:-95_,0 39',24:0,16:176,0:0,79O:-175,0:0,-47/:144,0:0,15:-79O,0 :8 9 ,8;"SHOP" ]190:A(6,3):N=16:A(N,1),A(N,2),A(N,3):N Ș17,27,2,5,27,3,5,3,4,13 ,3,1,13 ,23,2,9 ,23,3 DN,BL,BC,BD,PL,PC,PD ;1,17,3,1,17,3,1 G1000:25:1010:39',24:0,16 C0:20,0;"Double next throw on blue square" /x=4:1800:2000:1900l 0Q$=N$:DT=PT:pn=1:700:600X  2000:1900l E0:SP=1Q$=S$:DT=BT:pn=2:700:300, xBT=1DN=DN*2:X=44,:1800:DC=6:2000+5*DN:3,10 ;"DOUBLE SCORE" -1,10 ;"Paddington got ";dn;" " " 1000 ,600X:250 X0L=04:L,5;z$(26):L b)40(,136:192,0: F1,10 ;" ";Q$;"'s go":3,10 ;"How many ?" QDT=1dn=dn*2:3,10 ;"Double it ";q$:.5,10  go=0 2.5,25:" ENTER the score ";m$ Jz=1̱M$:m$(z)<480ům$(z)>579z=10 :z:720 Z:go=go+1 'm$=DN1000+(10 q$=n$): kgo>23,10 ;" Score ";dn;" ":1,-10 :1010-(10 pn=2): GDT=1DC=6:X=44,:1800:2000+5*DN @3,10 ;"Try again ";q$:1,25:720   *L=BL:C=BC:D=BD:SW=0:1020 L=PL:C=PC:D=PD:SW=7 DT=0:N=1DN BT=16:L=A(T,1)C=A(T,2)D=A(T,3) T ?8:L,C+(SW=7);" ":L+1,C+(SW=7);" " -C=C+(2D=1)-(2D=3) $-L=L-(2D=2)+(2D=4) .SW:L,C+(SW=7);(142+(6SW=7)+2*D-(4D=4)):L+1,C+(SW=7);(143+(6SW=7)+2*D-(4D=4)) 3AL=9 C>7C<13 0:2500 +SW*10 8)DT=0:(L,C)=40(DT=1 =.5,SW*2:N B1SW=7PL=L:PC=C:PD=D:PT=DT:1110V LBL=L:BC=C:BD=D:BT=DT V7:0: 7:0: :0,12 ;"DOUBLES":1,12 ;"" [5,3;"A game for 2 players or":7,3;"1 player and the computer." 3,1;"Race Paddington to the shop.":11 ,3;"The dice counts double if ":13 ,3;"you are on a blue square." "1 player or 2 ?";a$ )a$(1)="1"sp=0:1580, )a$(1)="2"sp=1:1580, " 1540 ,)"Player's name ";n$:n$=""1580, -+n$>90Zn$(1)=(n$-32 ) . n$>12 n$=n$(12 ) 1sp=0 6)"Second Player ";s$:s$=""15906 7+s$>90Zs$(1)=(s$-32 ) 8 s$>12 s$=s$(12 ) @ k7:0:x,171:32 ,0:0,-32 :-32 ,0:0,32 : lHDN=(*6)+1:2000+10 *DN:.5,DN*5: i0:DC=1:T=13:N=16:2000+10 *N:.2~L,N*3:N T: 91,DC;" ";2,DC;" ";3,DC;" ": 91,DC;" ";2,DC;" ";3,DC;" ": 91,DC;" ";2,DC;" ";3,DC;" ": 91,DC;" ";2,DC;" ";3,DC;"": 91,DC;" ";2,DC;" ";3,DC;"":  91,DC;" ";2,DC;" ";3,DC;"": ?SP=111 ,7;" ";S$;" WINS ":2520 )11 ,7;"PADDINGTON WINS" ت.6,12 :.2~L,7:.2~L,7:.2~L,7:.6,8:.6,7:d=132 :d:.6,11 :.6,12 3000 b11 ,7;" ";N$;" WINS ":d=13:.2~L,7:.4L,12 :d "Another game ?(Y/N)";r$ ,r$(1)="y"r$(1)="Y"100d -r$(1)="n"r$(1)="N"3035 3000 20,0;z$ Zsp=020,5-n$/2;"Thank you for playing ";n$;"":3060 620,0;" Goodbye ";n$;" and ";s$;" " ;21,0;" Press  R  to run again ": ="r"Ŧ="R"  3070  ( Xc  !  x-bA2NFredSJim# _   QJimM6RnGM