ZXTape! 0Count with Oliver (Mirrorsoft)0Part 1: LollipopsLOLLIPOPS w!Rc=23613=\+256*23614>\:c,0:c+1,0:61499; 0:0:0::#0;1,5;2;6;1;1;" LOADING-PLEASE WAIT ":#0;0,0;0;0;" ":0:0:0: 17,0;:"LT" e2:2:2:1:17,0;:"LC"61500<:17,0;:"LP" LT  K"~~???~~?~?~~~~???~<<~?~??~~~||~??~??~~??~?~???~???~~??~?~?~??~~~~?~~~~~~?~?~???~~~~~??~ ???????|???A??|????x??x????A?C0 0 <~0  0 8 B< BB< B<B<<@<B<|@~<<~B<>~8 8  Df8h888@88D88f8h888@88D88(f8B8Dxb8D8x8x88(BB@BBDbBB@@B@@BB8 88 8  BH@B~BJN>|@@~@B~8 8 ~  "<BD TDDD@BDTD @BD TDDD@BDTD @DB D B DDxF@TxDx@ B~@BBDFB@@@BB@ZB0  80 8~  <B< T< <<<<8 (< <BB< T< <<<<8 (< <:B8 8 < 88@B<(x@<@< x><<~B<@~~B<~$B>0 0 8<@@@RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWVVUUTTUWVTTUUTTVVWWWWWWWWWWWWWWWVVUUTTUUVTTUUTTVVVWWWWWWWRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW7LC <    pq? 8<||80<>>88|||8*{\ " !?K !J ~!BAF"w2!P ~*#Fw2͟ F!J ~2!P ~2 *##F![>>>::>>>>::> > ?،03g0pnlLیv6nw73{;~,llxxp` ???>Ä? e blue @=82͚!::O ~ ͫ:<2Ë:4!@'''''o:4g:5!o"{*6\a !:"}/////G'''O "}*:4( (R"}S{**}[{~!G(O(W(_(g(o(w((|2}2!~#~+#{2:602ô:70'''!2:80'!2:90'!2{2*{ R|///Xg:_~_:w#w w#w8DDD:*6\"W*U"6\Y~xp:U26\:V27\{*W"6\0:424!:͖~w#!h`!h`!hh`!80!80!03MN_Z5uu-S[[mIBOO7?NNZu]VTZ]mM翽_X@ H2 \Dp@T02N@  4d@L3@ C@0/ XĂB"B>d `#`" 82N@  @@ d@X0  @dB"8! !& 0@` 0 J3soK(DH @@LL $C$ ddLL4yddX@C1 pŒ0 @@`@?~ޮvp~{un 0 J3soK(DH @@2LL   ddLL4 @@ddX@@0 9 p 0@@3@` ~ޮvp~{un 0 J3soK(DH @@3??7???mm϶y? @@h @ (p@~ޮvp~{un 0 J3soK(DH @@2LL   pddLL4 ddX@@0 `p@ 0?_o@@@ȤO8 $~ޮvp~{un?88|||8ELP z\=z##kk# <@8&&8pֶ\\\\ֲz\2dJ\/X![!@P!!88; K SR PSTOP=23613+256*23614 STOP,0:STOP+1,0 200:begin (500:select 21300:print <2000:ask F2700 :accept P'a$=c$2800 :120x:correct Z+try=14000:60<:prompt d5000:divulge n 40( xslevel3125} z 190 }Jslevel<5slevel=slevel+1:3700t:try=0:60<  try=0 level=level+1 6500d:end level ?level>56000p:level=1:410:40( 502 Ea=318:1;7;a,19;" ":a  begin  9810R& tim=0 -23675{\,88X:23676|\,255 sd=1 Hz(5,3,2):y(5,2):x(6):w(3) 2v(16,2):t(3,16,2) !r(3):q(14,2) z$(3,5) ?p(14,4):o(14,3):n(14,4) 1m(16,3):l(2,7,7) a=13 z$(a):a "d$="1240":e$="22211332" $ go=0 %/childs=0:selch=0:nonsch=0 &lastcol=0 'level=1:slevel=1 (cink=3 )&wkr1=23670v\:wkr2=23671w\ *pu=64608`:pw=pu:pb=pu ,9a=15:b=13:c=12 1z(a,b,c):c:b:a 6&a=15:b=12 ;y(a,b):b:a <'a=114:b=12 =q(a,b):b:a >La=12:b=17:c=17:l(a,b,c):c:b:a @lin=10 :col=21 ACblink=8:blpaper=8:blbright=8:blflash=8 E8400 :8200 J7b$="HELLO":bllin=5:blcol=18:8900" O5b$="I'm":bllin=9 :blcol=20:8900" T9b$="Oliver":bllin=13 :blcol=17:8900" U 6900 V1:8250: Y8b$="I like":bllin=5:blcol=17:8900" ^9b$="lollies":bllin=9 :blcol=16:8900" h*b$="Do you?":bllin=13 :8900" j:tim=01:2250:tim=1:364l k1:750 l 2780 m;""level=1:slevel=1:410:499 o 410 r500:1300 t 2000 u 750 v 2780 w;""level=1:slevel=1:410:499 x>.4La$=c$:379{ ya$=((*5)+3) {`slevel=3slevel=5bllin=8:blcol=12 :blink=0:b$=a$:8900" |a$c$4000:372t 2800 :200 slevel=3190 Kslevel<5slevel=slevel+1:3700t:try=0:372t level=(*5)+1  :320@  a=02 x1;a,18;3;" ";5;" ";3;" ";5;" ";3;" ";5;" ";3;" " |1;2,19;3;"";5;"";3;"";5;"";3;"";5;"";3;"" 1;a+19,18;3;" ";5;" ";3;" ";5;" ";3;" ";5;" ";3;" " a a=318 H1;3;a,18;" ";7;" ";3;" " a Ǟb$="LOLLIES":bllin=20:blcol=18:blink=7:blpaper=8:blbright=1:blflash=0:8900":blbright=0:blink=0 !63470:set up child pics  0  select childs=0 selch=0:nonsch=0 slevel=1 <x(4)=0:x(5)=0:x(6)=0 pw=pu:cink=3 <min=z(level,1,1):max=z(level,1,2) "total=(*(max-min+1))+min %y(level,1)1580D shapeno=(*3)+1 : 630v lshapeno=0 <min=z(level,3,1):max=z(level,3,2) a=120 'w(1)=(*(max-min+1))+min Iw(2)=(*(max-min+1))+min:w(2)=w(1)700 (w(3)=total-w(1)-w(2) *w(3)minw(3)maxa=3 a assign shapes va=1:vb=2 'level=5va=2:vb=1 shapeno=08204  a=1total %v(a,vb)=shapeno:v(a,va)=3:a  920 4a=1total 9v(a,va)=3 >v(a,vb)=(*3)+1 pa zshapeno=(*3)+1 assign colours a=12 b=1w(a) ;coord=(*total)+1:v(coord,va)31000 v(coord,va)=a b:a colourno=1  .pta=1:rows=((total+3)/4) %topl=1+4*(rows-1) a=topltotal  1280 a $!b=rows-11-1 )c=14 .a=4*(b-1)+c 3 1280 5c:b 8a=13 Br(a)=1 La Va=1total `wkshape=m(a,vb+1) wkcolour=m(a,va+1) .t(wkcolour,r(wkcolour),1)=m(a,1) )t(wkcolour,r(wkcolour),2)=wkshape !r(wkcolour)=r(wkcolour)+1 a  try=0  m(pta,1)=a m(pta,va+1)=v(a,va)  m(pta,vb+1)=v(a,vb) pta=pta+1  print  2500 a=116 (-1;a+2,19;" " -)a+5,0;" " 2a 7+chlin=14:chcol=6:1700 <a=1total F coord=a P 1500 Z+pshape=v(a,2):pcolour=v(a,1) d 1600@ na w convert coord to lin,col coord>161530 :lin=4*(4-((coord-1)/4))-1 Acol=3*(coord-4*((coord-1)/4))+16  1599? >lin=q(coord-16,1):col=q(coord-16,2) ? @print at lin,col Jpink=d$(pcolour) T'work=236066\:workh=236077\ ^5chs=620000-520+96`*(pshape-1) `chh=(chs/256) b236066\,chs-256*chh d236077\,chh hd8;pink;lin,col;"ABC";lin+1,col;"DEF";lin+2,col;"GHI";lin+3,col;"JKL" j#d=coord-14*(coord>16) nP.05|L*sd,d:.05|L*sd,d+2:.05|L*sd,d:.05|L*sd,d+5 r%236066\,work:236077\,workh   print child *236066\,pw-256*(pw/256) 236077\,(pw/256) >2;chlin,chcol;"ABCDEF";chlin+1,chcol;"GHIJKL" 1800:1900l *236066\,pw-256*(pw/256) 236077\,(pw/256) (0;chlin+7,chcol;"klmnok" +236066\,1:236077\,60<  print child face *236066\,pw-256*(pw/256) 236077\,(pw/256) &acink;chlin+2,chcol;"MNOPQR";chlin+3,chcol;"STUVWX";chlin+4,chcol;"YZ[\]^" 0+236066\,1:236077\,60< k lprint child body v*236066\,pb-256*(pb/256) 236077\,(pb/256) g3;chlin+5,chcol;"_";4;"`abc";3;"d";4;chlin+6,chcol;"efghij" +236066\,1:236077\,60<  ask try=try+1 slevel>22050  2500 level=52140\ try>12043 colourno=(*3)+1 -slevel=2colourno=lastcol2025 "slevel=1lastcol=colourno ~b$="I buy the":blink=0:bllin=0:blcol=0:8900":b$=z$(colourno):bllin=bllin+2:blcol=4 b$="red "blcol=5 J8900":b$="lollies":bllin=bllin+2:blcol=2:8900" (6700,+20*(colourno-1) 2500 :b$="How many":bllin=0:blcol=0:8900":b$="are "+z$(colourno):bllin=bllin+2:8900":b$="?":bllin=bllin+2:blcol=6:8900" 4c$=w(colourno):x(slevel)=w(colourno):2300 level<3slevel=32500 :b$="How many":bllin=0:blcol=0:8900":bllin=bllin+2:b$="have I?":8900":x(3)=x(1)+x(2):c$=x(3):2300 Nslevel=3x(3)=x(1)+x(2):c$=x(3):2250  level<3slevel=52500 :b$="How many":bllin=0:blcol=0:8900":bllin=bllin+2:b$="have I?":8900":c$=x(3):2300 ,slevel=5c$=x(3):2250  2500 level=42140\ try>12080  level52071 Hcolourno=(*3)+1:x(3+colourno)12069 lastcol=colourno:2072 -stc=colourno:colourno=lastcol:lastcol=stc Y1:100d:8,2;" ";9 ,2;" " :b$="I eat the":bllin=0:blcol=0:8900" 5b$=z$(colourno):bllin=bllin+2:blcol=4 b$="red "blcol=5 J8900":b$="lollies":bllin=bllin+2:blcol=2:8900" (6700,+20*(colourno-1)  E2500 :b$="How many":bllin=0:blcol=0:8900" %qb$="are "+z$(colourno):bllin=bllin+2:8900":bllin=bllin+2:blcol=6:b$="?":8900" 'try>12300 *a=1childs /p(a,2)=colournoselch=selch+1:o(selch,1)=p(a,1):o(selch,2)=colourno:o(selch,3)=p(a,3):2110> 4nonsch=nonsch+1:n(nonsch,1)=p(a,1):n(nonsch,2)=p(a,2):n(nonsch,3)=p(a,3):n(nonsch,4)=p(a,4) >a C 2220 \ 2600( flevel52217 p&x(slevel)=w(shapeno):c$=w(shapeno) z 2300 try>12300 "x(1)=x(1)+x(2) x(2)=selch "x(3)=x(1)-x(2)  c$=selch  2300 try=12300  2500 9b$="How many":bllin=0:blcol=0:8900" =b$="will I":blcol=2:bllin=bllin+2:8900" <b$="have?":blcol=3:bllin=bllin+2:8900"  2400` Ca=18:.05|L*sd,-6:.05|L*sd,6:a _ ` print sum etry>12499 jslevel=32430~ oslevel=52430~ t 2499 ~bllin=8:blcol=4 7((x(1))+(x(2)))>2blcol=2 Vlevel>4(level=4slevel=5)fcol=4:scol=4:2450 9slevel=3fcol=lastcol:scol=colourno:2450 fcol=4:scol=colourno /blink=d$(fcol):b$=(x(1)):8900" ,blink=0:b$="+":blcol=blcol+2 )x(1)>9 blcol=blcol+2 slevel=5b$="-" 8900" Dblink=d$(scol):b$=(x(2)):blcol=blcol+2:8900" 9blink=0:b$="=?":blcol=blcol+2:8900" blink=0  clear mesage area a=07 !a,0;" " a ' (clear signal -try>12660d 2Y1:100d:8,2;" ";9 ,2;" " 4shapeno=(*3)+1 57slevel>2x(3+shapeno)126124 6-slevel2lastcol=shapeno:26179 7shapeno=lastcol26124 9b$="I eat the" : slevel<3b$="I buy the" <9blink=0:bllin=0:blcol=0:8900" AGlin=2:col=0:pcolour=4:pshape=shapeno:1600@ F=b$="shaped":bllin=bllin+2:blcol=4:8900" K/b$="lollies":bllin=bllin+2:8900" Mslevel<32657a Pa=1childs Sp(a,3)=shapenoselch=selch+1:o(selch,1)=p(a,1):o(selch,2)=p(a,2):o(selch,3)=shapeno:2655_ Unonsch=nonsch+1:n(nonsch,1)=p(a,1):n(nonsch,2)=p(a,2):n(nonsch,3)=p(a,3):n(nonsch,4)=p(a,4) _a a 6800 dE2500 :b$="How many":bllin=0:blcol=0:8900" iGlin=2:col=0:pcolour=4:pshape=shapeno:1600@ kTslevel<3b$="shapes?":bllin=4:blcol=4:8900":2699 n=b$="shapes":bllin=bllin+2:blcol=5:8900" s>b$="have I?":bllin=bllin+2:blcol=4:8900"  accept chno=1:a$="" 2780 2inch=:inch<480inch>5792715 a$=a$+inch /(slevel3)(slevel5)2755 b$=a$ .bllin=8:blcol=12 :blink=0 6(slevel=5)(level<4)blink=d$(lastcol) 8900" blink=0 chno=c$2799 >.05|L,-12 :.05|L,12 :.05|L,-12 chno=chno+1 ""2770 2715  "s"2799 $sd=1sd=0:2795 sd=1 ""2795  correct Kd=12 36$2:.025{L*sd,d:.025{L*sd,d+12 :d 3000 2500 bllin=0:blcol=0 slevel=12817 level>22845 blcol=4  b$="Yes!"  8900" $bllin=bllin+2:blcol=0 Hslevel=3slevel=5b$="I have "+c$:8900":2895O Dslevel=4b$="I eat "+c$:8900":7000X:2895O Cb$="I buy "+c$:8900":opern=1:8700!:2895O +slevel=3slevel=52875; slevel=12840 "hslevel=2b$="Yes - "+c$:8900":1:150:b$="I buy "+c$:8900":2858* 'Xb$="Yes - "+c$:8900":1:150:b$="I eat "+c$:8900":2860, *7slevel=1opern=1:8700!:2899S ,0b$="Then how":bllin=bllin+2:8900" 11b$="many will":bllin=bllin+2:8900" 6/b$="I have?":bllin=bllin+2:8900" 8 2899S ;5b$="Yes!":blcol=4:8900":blcol=0 @=b$="I will":bllin=bllin+2:blcol=2:8900" B0b$="have "+c$:bllin=bllin+2:8900" ENslevel=3opern=1:8700!:2500 :200:2899S J 7000X L#2500 :200:2899S P 200 S happy child pw=pu-768 cink=3:1800  1500 ^1;lin,col;" ";lin+1,col;" ";lin+2,col;" ";lin+3,col;" " childs=childs+1 p(childs,4)=coord l3=childs-startch coord=l(l1,l2,l3) ,lin=q(coord,1):col=q(coord,2) 1600@ "p(childs,1)=coord+16 p(childs,2)=pcolour p(childs,3)=pshape Jlevel=5x(3+pcolour)=x(3+pcolour)+1:3599 -x(3+pshape)=x(3+pshape)+1  move child up b=40-1 $chlin+b,chcol;" " .b Lchlin=chlin-4 V 1700 s t normalchild ycink=3 ~pw=pu  1800  prompt  4200h Da=16:.1}L*sd,-20:.1}L*sd,-29:a  4100  2500 6b$="Count":bllin=0:blcol=4:8900" 5b$="them":bllin=2:blcol=5:8900" 5b$="now!":bllin=4:blcol=6:8900" (slevel<34600:4199g :(level<3)(slevel=3)4700\:4199g 6level<3slevel=54900$:4199g Blevel>2slevel=34700\:4600:4199g (slevel=44800:4199g  4900$   print no  2500 4bllin=0:blcol=6:b$="No!":8900" blcol=0 *slevel=4level44130" slevel>241451 level=541451 %>bllin=bllin+2:blcol=4:b$="Not "+a$:8900" '5bllin=bllin+2:blcol=4:b$=z$(colourno) )b$="red "blcol=6 * 8900" , 4175O 1(level=4slevel=4a$="1")(level=5slevel<3a$="1")bllin=bllin+2:b$="There is":8900":bllin=bllin+2:b$="not "+a$:8900":pcolour=4:pshape=shapeno:lin=4:col=12 :1600@:4175O 3(level=4slevel=4)(level=5slevel<3)bllin=bllin+2:b$="There are":8900":bllin=bllin+2:b$="not "+a$:8900":pcolour=4:pshape=shapeno:lin=4:col=12 :1600@:4175O 6level>24160@ ;mb$="I do not":bllin=bllin+2:8900":b$=" have "+a$:bllin=bllin+2:8900":4175O @|b$="I will":bllin=bllin+2:blcol=2:8900":b$="not have":bllin=bllin+2:blcol=0:8900" J7b$=a$:bllin=bllin+2:blcol=8:8900" O/(slevel3)(slevel5)4190^ T6b$="?":blink=0:bllin=8:blcol=12 Ya=15:.05|L*sd,-12 :bllin,blcol;" ";bllin+1,blcol;" ":8900":.05|L*sd,0:a [ 4195c ^1:200 c 2500 g hunhappy child rpw=pu-384 wcink=3 | 1800  flash the set  1500 b=03 8;lin+b,col;" " b  1600@  flash col inshop opern=2:8700! [ \flash allchilds fa=1childs kcoord=p(a,1) p+pcolour=p(a,2):pshape=p(a,3) z 4500 a  flash sel childs a=1selch coord=o(a,1) +pcolour=o(a,2):pshape=o(a,3)  4500 a  $flash ch non sel .a=1nonsch 3?coord=n(a,1):pcolour=n(a,2):pshape=n(a,3) 8 4500 Ba   divulge Da=16:.1}L*sd,-20:.1}L*sd,-29:a cink=2 5600:angry child  4100  2500 *slevel=4level45120 slevel>25140 level=55140 b$=c$  *bllin=0:blcol=6:8900"  Mc$="1"b$="is":bllin=bllin+2:blcol=5:8900":5135  :b$="are":bllin=bllin+2:blcol=4:8900" Ab$=z$(colourno):bllin=bllin+2:b$"red "blcol=3  8900"  5150 (level=4slevel=4c$="1")(level=5slevel<3c$="1")b$="There is":bllin=0:blcol=0:8900":bllin=bllin+2:b$=c$:blcol=3:8900":5150 (level=4slevel=4)(level=5slevel<3)b$="There are":bllin=0:blcol=0:8900":bllin=bllin+2:b$=c$:blcol=3:8900":5150 level>25147 Gb$="I have "+c$:bllin=2:blcol=0:8900":5150 gb$="I will":bllin=0:blcol=0:8900":bllin=bllin+2:b$="have "+c$:8900" /(slevel3)(slevel5)5160(  5b$=c$:bllin=8:blcol=12 :blink=0 !6(slevel=5)(level<4)blink=d$(lastcol) # 8900" %blink=0 ( 3700t *L(slevel<3)(level>2slevel=3)opern=1:8700! -1:200 22500 :b$="All the" <*bllin=0:blcol=0:8900" Fb$="lollies" Pbllin=2:8900" Zb$="go back!" d*bllin=4:blcol=0:8900" npw=pu-1152 scink=3 x 1800 }pw=pu slevel<35315 6level<3slevel=55450J:5325  5400  5700D cink=3  a=1childs ,pcolour=p(a,2) 6pshape=p(a,3) 9.coord=p(a,1)-16:wc=p(a,4) ; 5500| @a I Ja=1nonsch M.coord=n(a,1)-16:wc=n(a,4) Opcolour=n(a,2) Tpshape=n(a,3) Y 5500| ^a { |move toy back ,lin=q(coord,1):col=q(coord,2) b=03 lin+b,col;" " b  coord=wc 1500:1600@   angry child pw=pu-384 cink=3 a=115 (cink=3cink=2:5620 cink=3  1800 a C D child cry g&wkr1=23670v\:wkr2=23671w\ l61500< v$23670v\,wkr1:23671w\,wkr2   child down c=04 chlin+c,chcol;" " c chlin=chlin+4  1700   u-pw=62928:pb=pu-384:85004! zua=13:.03{u\,-15:.02{# =,-27:b=15:.15~,-35#-4*b:b:a  100d pw=pu:pb=pu:85004!  8250: 8b$="That's":bllin=6:blcol=17:8900" :b$="better!":bllin=12 :blcol=16:8900"  6900  8250: blink=2 $6b$="Play":bllin=5:blcol=19:8900" .7b$="again":bllin=9 :blcol=18:8900" 34b$="?":bllin=13 :blcol=22:8900" 8go06280 = 9870& B9a=15:b=13:c=12 Gz(a,b,c):c:b:a L go=1 Qpb=pu  0   d end level n1:250 x zKlevel=2pw=pu-768:pb=pu:8400 :8200 :6565 }Ulevel=3pw=pu-768:pb=pu-384:8400 :8200 :6565 3level=4pw=pu:pb=pu-768:6550 Vlevel=5pw=pu-384:pb=pu-1152:8400 :8200 :6565 =pw=pu-384:cink=3:pb=pu-1152:8400 [a=1510 -1:b=011 :22528X+32 *a+b,60<:b:a 8200 :6565 $colourno=1pw=pu-1152 68400 :8200 :colourno16565 qb$="Yuck!":bllin=3:blcol=18:8900":b$="The blue":bllin=7:blcol=15:8900" pb$="ones are":bllin=11 :8900":b$="nasty!":bllin=15:blcol=17:8900":6650 level>26580 ^b$="Yum!":bllin=7:blcol=19:8900":bllin=11 :8900":6650 level>36595 7b$="Nice!":bllin=9 :blcol=18:8900"  6650 level>46610 ȥb$="I'm":bllin=5:blcol=20:8900":b$="getting":bllin=9 :blcol=16:8900":b$="fat!":bllin=13 :blcol=19:8900"  6650 level>56625 pb$="I feel":bllin=6:blcol=16:8900":b$="full!":bllin=12 :blcol=17:8900"  6650 pb$="I feel":bllin=6:blcol=16:8900":b$="sick!":bllin=12 :blcol=17:8900" [a=1510 -1:b=011 :22528X+32 *a+b,58::b:a  6699+ pw=pu  500  :420 + ,blue 1 6719? 6?a=124:dur,pit:(dur-1)*sd/10 ,pit:a 8sd=0300, ; ?4,2,4,9 ,4,9 ,4,9 ,2,7,2,6,2,4,2,2,4,2,4,11 ,4,11 ,12 ,11 ,4,2,4,9 ,4,9 ,4,9 ,2,7,2,6,2,4,2,2,4,7,4,6,4,4,12 ,2 @red E 6739S J@a=123:dur,pit:(dur-.5)*sd/15,pit:a Lsd=0300, O St4,6,2,6,4,4,2,7,6,6,4,2,2,2,4,6,2,6,4,4,2,7,6,6,4,2,2,9 ,6,14,4,9 ,2,9 ,6,14,4,9 ,2,7,6,6,6,4,12 ,2 Tgreen Y 6759g ^7a=120:dur,pit:(dur/22)*sd,pit:a `sd=0300, c gG4,0,2,2,6,5,6,5,4,5,8,9 ,4,7,2,5,4,7,2,9 ,12 ,5,6,9 ,6,9 ,4,9 ,8,12 ,4,10 ,2,9 ,4,10 ,2,12 ,12 ,9  short 12345  6950& ?a=125:dur,pit:(dur-.5)*sd/8,pit:a  12345  6950& ?a=1535:dur,pit:(dur-.5)*sd/6,pit:a % &_4,9 ,4,9 ,2,7,2,5,4,5,2,7,2,9 ,2,9 ,2,12 ,2,12 ,2,10 ,4,10 ,4,10 ,1,10 ,3,10 ,2,9 ,2,7,4,7,2,5,2,4,2,2,2,4,2,7,2,5,4,5,4,9 ,3,9 ,1,9 ,2,7,2,5,3,5,1,5,2,7,2,9 ,2,9 ,2,12 ,2,12 ,2,10 ,4,10 ,4,10 ,3,10 ,1,10 ,2,9 ,2,7,4,7,2,5,1,4,1,4,2,2,2,4,2,7,2,5,4,5 Xeat ba=1selch lcoord=o(a,1) v 1500 b=03 lin+b,col;" " =.02{# =,-12 :.05|L,0:.02{# =,-12 b  7100 a  b=16 pw=63072`  1800 *.03{u\,-15:.01z# =,-27 pw=63216  1800 b  3000 K  balloon 095_,58::21,-4,/8 195_,58::21,-14,/8 p0,-12 :8,-8,/2:120x,0:8,8,/2:0,133 a-8,8,/2:-120x,0:-8,-8,/2:0,-110n 9 :clear balloon ?7a=217:a,15;" ":a k lbeep vd=1̱f$/4 Tװf$(4*d-34*d-2)/32 ,f$(4*d-14*d) d  large child colours lin=6:col=0 :a=03:2;lin+a,col;" ":a 7a=49 :cink;lin+a,col;" ":a Ta=10 11 :3;lin+a,col;" ";4;" ";3;" ":a @a=12 13 :4;lin+a,col;" ":a <a=1415:0;lin+a,col;" ":a !4print large child !7&wkr1=23670v\:wkr2=23671w\ !8dsp=8*45- !96236066\,(pw+dsp)-256*((pw+dsp)/256) !>#236077\,((pw+dsp)/256) !f463317U,pb+dsp-256*((pb+dsp)/256) !k#63318V,((pb+dsp)/256) !pGa=05:627724+a,8:62778:+a,a+20:a !u62784@,13 !w"627724,lin:627735,col !z63300D !$23670v\,wkr1:23671w\,wkr2 !+236066\,1:236077\,60< !blink=0 ! !print large toy !blink=d$(pcolour) !'work=236066\:workh=236077\ !5chs=620000-520+96`*(pshape-1) !chh=(chs/256) !236066\,chs-256*chh !236077\,chh ! b$="ABC" !Jbllin=lin:blcol=col:blpaper=8:blbright=8:blflash=8 !a=14 ! 8900" !b=13 !b$(b)=(b$(b)+3) !b !bllin=bllin+2 !a !%236066\,work:236077\,workh ! !access the set "+level=5buy=w(shapeno):8730" "buy=w(colourno) "Mopern=1l1=slevel-(slevel>2):l2=8-x(l1):startch=childs "~a=1buy "elevel=5coord=t(shapeno,a,1):pcolour=t(shapeno,a,2):pshape=shapeno:8850" "coord=t(colourno,a,1) "0pcolour=colourno:pshape=t(colourno,a,2) "2500 +1000*opern "a " "large letters "&wkr1=23670v\:wkr2=23671w\ "bl=627724 " bl,bllin "bl+1,blcol "bl+2,blink "bl+3,blpaper "bl+4,blbright "bl+5,blflash "bl=bl+6 "d=1̱b$ " bl,b$(d) #bl=bl+1:d # bl,13 # 627680 #$23670v\,wkr1:23671w\,wkr2 # $Tchangg udg set $ &R"blue","red","green" &\6,7,6,7,1,3,6,7,1,3,1,3,9 ,10 ,9 ,10 ,2,4 &fc9 ,10 ,2,4,2,4,9 ,10 ,2,4,2,4 &zQ1,3,3,3,3,3,3,3,3,3 &18,0,18,3,14,0,14,3,10 ,0,10 ,3,10 ,6,18,12 ,18,15,14,12 ,14,15,10 ,9 ,10 ,12 ,10 ,15 & 5,6,7,3,4,1,2,5,6,3,4,1,2,0,5,3,4,1,2,0,0,3,4,1,2,0,0,0,3,1,2,0,0,0,0,1,2,0,0,0,0,0,1,0,0,0,0,0,0,12 ,13 ,14,10 ,11 ,8,9 ,13 ,14,10 ,11 ,8,9 ,0,13 ,10 ,11 ,8,9 ,0,0,10 ,11 ,8,9 ,0,0,0,10 ,8,9 ,0,0,0,0,8,9 ,0,0,0,0,0,8,0,0,0,0,0,0 &12 ,13 ,12 ,13 ,3,5,12 ,13 ,3,5,3,5,15,16,15,16,4,6 &e15,16,4,6,4,6,16,16,4,7,4,7 &+stack=23653e\+256*23654f\ &RND=(*256) &,"LP"23552\-RND,stack-23500[+RND & tacn9900& LP z\\z?0Part 2: Toy ShopTOYSHOP gRc=23613=\+256*23614>\:c,0:c+1,0:61999/ 0:0:0::#0;1,5;2;6;1;1;" LOADING-PLEASE WAIT ":#0;0,0;0;0;" ":0:0:0: 17,0;:"TT" e2:2:2:1:17,0;:"TC"620000:17,0;:"TP" TT  S~~???~~?~?~~~~???~<<~?~??~~~||~??~??~~??~?~???~???~~??~?~?~??~~~~?~~~~~~?~?~???~~~~~??~ ??????|??A??|????x??x????A?C0 0 < 0 80 B< BB< B<B<<@<B<|@~<<~B<>p88 Df8h888@88D88f8h888@88D88(f8B8Dxb8D8x8x88(BB@BBDbBB@@B@@BB888 8 BH@B~BJN>|@@~@B~8p8  "<BD TDDD@BDTD @BD TDDD@BDTD @DB D B DDxF@TxDx@ B~@BBDFB@@@BB@ZB0 0 8 <B< T< <<<<8 (< <BB< T< <<<<8 (< <:B8 8 < 88@B<(x@<@< x><<~B<@~~B<~$B>0 0 8<@@@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUURUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUURVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVWRVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWRWWWWWWWWWWWWWWWVWWWWWWWWWWWWWWWRWWWWWWWWVVTTUUVVTTUUVVWWWWWWWWWRVVVVVVVVVVTTUUVVTTUUVVWWWWWWWWWRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRWWWWWWWWWWWWWWWWWWWWWWWWWWWRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW1TC 0  7;|<> |x`????|p|~>>||88pp??oO??x22i1舐`x !A$DA@@ ?`s66>?p88?_D  !A@ ?Ätoys? P AAAAAA @=82͚!::O ~ ͫ:<2Ë:4!@'''''o:4g:5!o"{*6\a !:"}/////G'''O "}*:4( (R"}S{**}[{~!G(O(W(_(g(o(w((|2}2!~#~+#{2:602ô:70'''!2:80'!2:90'!2{2*{ R|///Xg:_~_:w#w w#w8DDD: pq? 8<||80<>>88|||8*{\ " !GS !R ~!JAF"w2!X ~*#Fw2ͧ F!R ~2!X ~2 *##F![>>>::>>>>::> !X`H!!H!XH!`!hH!X !H6$m$`@)ZPАd. & Z (0@! @n>VԺ~@>>6$m$`@)ZPАd. & Z (DC? 0$0! @n>VԺ~@>>6$m$`@.}Ot/??Wn>VԺ~@>>6$m$`@)ZPАd. & Z (@0 0! 1 @n>VԺ~@88|||8pTP G\oG#ii# <@,&&8h\\\\ģɣѣG\2dJ/5X![!@P!!88/ K SR PSTOP=23613+256*23614 STOP,0:STOP+1,0 200:begin # 502 (500:select 21300:print <2000:ask F2700 :accept P'a$=c$2800 :120x:correct Z+try=14000:60<:prompt d5000:divulge n 40( xTlevel>86000p:pass=0:500:0::410:502 40( begin  9800H& tim=0:sd=1 Hz(8,3,2):y(8,2):x(3):w(3) Ov(16,2):u(3,16,2):t(3,16,2) ,s(3):r(3):q(8,2) p(16,3) Tz$(3,6):y$(3,6):x$(3,6):w$(3,6) a=13 z$(a):a a=13  y$(a):a a=13  x$(a):a a=13  w$(a):a "d$="1240":e$="22211332" 'pass=0 (cink=3 )&wkr1=23670v\:wkr2=23671w\ */pu=23675{\+256*23676|\:pw=pu ,9a=18:b=13:c=12 1z(a,b,c):c:b:a 6&a=18:b=12 ;y(a,b):b:a <&a=18:b=12 =q(a,b):b:a @lin=10 :col=21 Ablink=8 E 8400 Fs143,76L:0,75K:-8,8,/4:-126~,0:-8,-8,/4 G0,-114r:8,-8,/4:126~,0:8,8,/4:0,24:27,-8,/8 H2143,76L:27,-23,/8 J6b$="Hello":bllin=4:blcol=4:8900" K4b$="I'm":bllin=9 :blcol=6:8900" L8b$="Oliver":bllin=14:blcol=3:8900" M 6900 N6a=415:a,1;" ":a O9b$="Will you":bllin=4:blcol=1:8900" T8b$="help me":bllin=7:blcol=2:8900" Y:b$="get some":bllin=10 :blcol=1:8900" ^7b$="toys?":bllin=13 :blcol=4:8900" c 500 d$tim=02250:358f e 500 f 2750 h7""pass=0::410:500:499 k tim=1 m 410 r 1300 w 2000 |>.4La$=c$:387 a$=((*6)+3)  750 7""pass=0::410:500:499 Ga$=c$2800 :200::pass=(*15)+1:320@  4000  375w  a=03 *1;a,0;" " a a=419 )1;a,0;" ";a,17;" " a X1;20,0;" ";21,0;" " |b$="TOY SHOP":bllin=1:blcol=1:blink=6:blpaper=8:blbright=0:blflash=0:8900" 64750  0  select level=(pass/2)+1 pw=pu:9300T$ <min=z(level,1,1):max=z(level,1,2) "total=(*(max-min+1))+min %y(level,1)1580D shapeno=(*3)+1 &$a=13:x(a)=0:a 0x(shapeno)=total : 630v D<min=z(level,2,1):max=z(level,2,2) Ia=120 N'x(1)=(*(max-min+1))+min XIx(2)=(*(max-min+1))+min:x(2)=x(1)600X b(x(3)=total-x(1)-x(2) g*x(3)minx(3)maxa=3 ia lshapeno=0 v%y(level,2)1680 colourno=(*3)+1 $a=13:w(a)=0:a w(colourno)=total  730 <min=z(level,3,1):max=z(level,3,2) a=120 'w(1)=(*(max-min+1))+min Iw(2)=(*(max-min+1))+min:w(2)=w(1)700 (w(3)=total-w(1)-w(2) *w(3)minw(3)maxa=3 a colourno=0 assign shapes shapeno=08204  a=1total /v(a,2)=shapeno:v(a,1)=3:a  920 4@a=1total:v(a,2)=3:v(a,1)=3:a >#a=12:b=1x(a) R?coord=(*total)+1:v(coord,2)3850R fv(coord,2)=a pb:a zshapeno=(*3)+1 assign colours colourno=0980 a=1total v(a,1)=colourno a  1020 a=12 b=1w(a) @coord=(*total)+1:v(coord,1)31000 v(coord,1)=a b:a colourno=(*3)+1 Spta=1:rows=((total+3)/4):topl=1+4*(rows-1) a=topltotal  1280 a !b=rows-11-1  c=14  a=4*(b-1)+c  1280 c:b .set up arrays sh & col 8a=13 Bs(a)=1:r(a)=1 La Va=1total `wkshape=p(a,3) j,u(wkshape,s(wkshape),1)=p(a,1) t,u(wkshape,s(wkshape),2)=p(a,2) ~s(wkshape)=s(wkshape)+1 wkcolour=p(a,2) .t(wkcolour,r(wkcolour),1)=p(a,1) )t(wkcolour,r(wkcolour),2)=wkshape !r(wkcolour)=r(wkcolour)+1 a  set up ans  try=0 level<6c$=total -level=3level=8c$=x(shapeno) .level=6level=7c$=w(colourno)  1299 p(pta,1)=a p(pta,2)=v(a,1) p(pta,3)=v(a,2) pta=pta+1    print  2500  2600( a=116 (01;a+3,1;" " -%a+5,19;" " 2a <a=1total F coord=a P 1500 Z+pshape=v(a,2):pcolour=v(a,1) d 1600@ na s,chlin=17:chcol=23:1700 w convert coord to lin,col 2lin=4*(4-((coord-1)/4)) @col=4*(coord-4*((coord-1)/4))-3 ? @print at lin,col Jpink=d$(pcolour) T'work=236066\:workh=236077\ ^6chs=620000-520+128*(pshape-1) `chh=(chs/256) b236066\,chs-256*chh d236077\,chh hh8;pink;lin,col;"ABCD";lin+1,col;"EFGH";lin+2,col;"IJKL";lin+3,col;"MNOP" mDd=12:.03{u\*sd,12 :.03{u\*sd,24:d r%236066\,work:236077\,workh   print child 2;chlin,chcol;"";cink;chlin+1,chcol;"";chlin+2,chcol;"";chlin+3,chcol;"";1;"";3;"";4;chlin+4,chcol;""  ask try=try+1  2500  2600(  b$="How" blink=0 bllin=0:blcol=20  8900" *bllin=2:blcol=19:b$="many"  8900" #g$="?" % 2090* ' 2300 *e$(level)"1"2140\ 4b$="toys"+g$ >bllin=4:blcol=19 H 8900" R 2299 \e$(level)"2"2230 fb$=z$(shapeno) kbllin=4:blcol=18 p.y$(shapeno)" "8900":2180 ub$(6)=g$ z 8900"  2299 bllin=6 b$=y$(shapeno) b$(6)=g$  8900"  2299 b$=x$(colourno) "g$=" "bllin=42250 +bllin=4:blcol=18:8900" b$=w$(colourno)+" " a=b$1-1 )b$(a)" "b$(a+1)=g$:2290 a +bllin=6:blcol=18:8900"  Ca=18:.05|L*sd,-6:.05|L*sd,6:a try=12460 lin=0:col=28 e$(level)"1"2370B pshape=4 $pcolour=4 . 1600@ 8 2460 Be$(level)"2"2430~ Lpshape=shapeno Vpcolour=colourno `+y(level,2)=3pcolour=4 j 1600@ t 2460 ~pink=d$(colourno) 5pink;1,29;"";2,29;""   clear mesage area a=07 a,18;" " a a=47 a,28;" " a ' (clear signal 2a=03 <a,28;" " Fa  accept 2750 -a$=:a$<480ůa$>5792715  "s"2799 $sd=1sd=0:2765 sd=1 ""2765  correct Kd=12 36$2:.025{L*sd,d:.025{L*sd,d+12 :d 3000 2500  b$="Yes!" +bllin=0:blcol=19:8900" 2b$=c$:bllin=2:blcol=22:8900" g$=" ":2090* "opern=1 , 8700! 6pass=pass+1 ;level=(pass/2)+1 S Tclear mess l 1&2+? ^ b$=" " hbllin=0:blcol=18 r 8900" |bllin=2:8900" b$=" " bllin=qlin:blcol=qcol 8900"  happy child pw=pu-336P 9300T$ 9300T$ B3;chlin+1,chcol;"";chlin+2,chcol;""  move toy to child 1500 b1;lin,col;" ";lin+1,col;" ";lin+2,col;" ";lin+3,col;" " coord=a )coord=2coord=53600 ,lin=q(coord,1):col=q(coord,2) 1600@  move child up b=40-1 $chlin+b,chcol;" " .b Lchlin=chlin-4 V 1700 s t normalchild ycink=3 ~pw=pu  9300T$ B3;chlin+1,chcol;"";chlin+2,chcol;""  prompt  4200h Da=16:.1}L*sd,-20:.1}L*sd,-29:a  2500  4100  1:200:2500 7b$="Count":bllin=0:blcol=18:8900" 6b$="them":bllin=2:blcol=19:8900" 6b$="now!":bllin=4:blcol=20:8900"  100d opern=2:8700!   print no!  b$="No!" bllin=0:blcol=20 " 8900" 'e$(level)="3"4168H ,b$="Not "+a$ 6bllin=2:blcol=18 @ 8900" Cg$=" ":2090* E 4199g Hb$="Not "+a$ J+bllin=4:blcol=18:8900" Lg$=" ":2090* g hunhappy child rpw=pu-168 w 9300T$ |B3;chlin+1,chcol;"";chlin+2,chcol;""  flash the set  1500 b=03 8;lin+b,col;" " b  1600@   divulge Da=16:.1}L*sd,-20:.1}L*sd,-29:a cink=2 5600:angry child  2500  4100  1  250  2500 e$(level)="3"5120  b$="There" +bllin=0:blcol=18:8900" b$="are "+c$ +bllin=2:blcol=18:8900" g$="!":2090*  5160( b$=c$  +bllin=1:blcol=22:8900"  5b$="are":bllin=4:blcol=20:8900" g$="!":2090* (opern=1:8700! + 3700t 22500 :b$="Now" <+bllin=0:blcol=20:8900" Fb$="all "+c$ P+bllin=2:blcol=18:8900" Z b$="go" d+bllin=4:blcol=21:8900" n b$="back!" x+bllin=6:blcol=19:8900" } 5700D )level=3level=85320 )level=6level=75390 a=total1-1 ?coord=p(a,1):pcolour=p(a,2):pshape=p(a,3)  5500| a  5443C a=x(shapeno)1-1 coord=u(shapeno,a,1) pcolour=u(shapeno,a,2) pshape=shapeno  5500| a  5443C  a=w(colourno)1-1 coord=t(colourno,a,1) "pcolour=colourno ,pshape=t(colourno,a,2) 6 5500| @a J 5725] Ycink=3 { |move toy back  stc=coord  coord=a ,lin=q(coord,1):col=q(coord,2) b=03 lin+b,col;" " b )coord=2coord=55800  coord=stc 1500:1600@   angry child pw=pu-168  9300T$ B2;chlin+1,chcol;"";chlin+2,chcol;"" C D child cry Npw=pu-504 S 9300T$ XB3;chlin+1,chcol;"";chlin+2,chcol;"" \ ]pw=pu b 9300T$ g&wkr1=23670v\:wkr2=23671w\ l63300D v$23670v\,wkr1:23671w\,wkr2   child down c=04 chlin+c,chcol;" " c chlin=chlin+4  1700   pend s1:250 u z+lin=12 :col=24:blink=8  8400 pw=pu:9300T$ 172,84T  0,72H:-8,8,/4:-88X,0:-8,-8,/4:0,-80P:8,-8,/4:88X,0:8,8,/4:24,-8,/8:172,84T:24,-16,/8 7b$="Thanks":bllin=2:blcol=9 :8900" 5b$="for":bllin=5:blcol=12 :8900" %b$="the":bllin=8:8900" 8b$="toys!":bllin=11 :blcol=10 :8900" lin=14:col=0 c=13 pshape=c:pcolour=c  8600! col=col+8 c  6900 2a=212 :a,9 ;" ":a blink=2 $6b$="Play":bllin=3:blcol=11 :8900" .7b$="again":bllin=6:blcol=10 :8900" 33b$="?":bllin=9 :blcol=14:8900"  theme  6950& @a=133!:dur,pit:(dur-.73333)*sd/14,pit:a % &4,9 ,2,6,4,7,2,4,4,9 ,2,6,4,2,2,2,4,4,2,6,2,7,2,6,2,4,4,9 ,2,6,6,2,4,9 ,2,6,2,7,2,7,2,4,4,9 ,2,6,4,2,2,2,4,4,2,6,2,7,2,6,2,4,4,9 ,2,6,6,2 z2;lin,col;" ";lin+1,col;" ";3;lin+2,col;" ";lin+3,col;" ";lin+4,col;" ";lin+5,col;" ";3;lin+6,col;" ";1;" ";3;" ";lin+7,col;" ";1;" ";3;" ";4;lin+8,col;" ";3;" ";4;lin+9 ,col;" " !4print large child !>'work=236066\:workh=236077\ !Fchs=pw-520 !Hchh=(chs/256) !M236066\,chs-256*chh !W236077\,chh !\ b$="ABCD" !aJbllin=lin:blcol=col:blpaper=8:blbright=8:blflash=8 !fa=15 !k 8900" !pb=14 !ub$(b)=(b$(b)+4) !zb !bllin=bllin+2 !a !%236066\,work:236077\,workh ! !print large toy !blink=d$(pcolour) !'work=236066\:workh=236077\ !6chs=620000-520+128*(pshape-1) !chh=(chs/256) !236066\,chs-256*chh !236077\,chh ! b$="ABCD" !Jbllin=lin:blcol=col:blpaper=8:blbright=8:blflash=8 !a=14 ! 8900" !b=14 !b$(b)=(b$(b)+4) !b !bllin=bllin+2 !a !%236066\,work:236077\,workh ! !access the set ")level=3level=88780L" ")level=6level=78830~" "a=1total "$coord=p(a,1) ")+pcolour=p(a,2):pshape=p(a,3) ".2500 +1000*opern "8a "B 8899" "La=1x(shapeno) "Vcoord=u(shapeno,a,1) "[.pcolour=u(shapeno,a,2):pshape=shapeno "`2500 +1000*opern "ja "t 8899" "~a=1w(colourno) "coord=t(colourno,a,1) "0pcolour=colourno:pshape=t(colourno,a,2) "2500 +1000*opern "a " "large letters "&wkr1=23670v\:wkr2=23671w\ "bl=627724 " bl,bllin "bl+1,blcol "bl+2,blink "bl+3,blpaper "bl+4,blbright "bl+5,blflash "bl=bl+6 "d=1̱b$ " bl,b$(d) #bl=bl+1:d # bl,13 # 627680 #$23670v\,wkr1:23671w\,wkr2 # $Tchange udg set $^*23675{\,pw-256*(pw/256) $h23676|\,(pw/256) $ &H)"teddy","bikes","boats","bears"," "," " &R," are"," are"," are","blue"," red","green" &\3,8,3,8,3,8,7,8,7,8,1,3,13 ,16,3,6,13 ,16 &f6,8,1,3,6,8,6,8,1,3,1,3,13 ,16,13 ,16,3,6 &pe13 ,16,3,6,3,6,13 ,16,3,6,3,6 &z1,1,1,3,3,1,3,1,3,3,1,3,3,3,3,3 &18,19,18,23,18,27,14,19,14,23,14,27,10 ,19,10 ,27 &+stack=23653e\+256*23654f\ &RND=(*256) &,"TP"23552\-RND,stack-23500[+RND & tacn9870& TP G\\G