0!1)? .%@yD:\:__??? ? ?0 ??0 ?30<000??03 <0 00 0?30<000??03 <0 00 0??<<30<0 0 0<0 ?<<30<0 0 0<0  3  00? 0<0 0? 0<< ?@ 3  00? 0<0 0? 0<< ? ? 00<00  03 0 p? 00<00  03 0 ? 0 0?] 0 0?] 000 ??3\ 0 0 ??3[ <0???<<[ <0? ??<<[30<0???[30<???W8 :8 :8 :8 :8 ;8 ;8 ;8 ;8 ;8;8 ;8;;<;8;;<;;8 <8 <80# # <@?E  8U\\\rىO\"DX![!PP!!88swy{~GIڢH K SR P*STOP=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,6) ?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$="Hallo":bllin=5:blcol=17:8900" O8b$="Ik ben":bllin=9 :blcol=16:8900" T9b$="Jeroen":bllin=13 :blcol=16:8900" U 6900 V1:8250: Y8b$="Ik hou":bllin=4:blcol=16:8900" [5b$="van":bllin=7:blcol=19:8900" ^:b$="lolly's":bllin=10 :blcol=15:8900" h;b$="Jij ook?":bllin=13 :blcol=15: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$="LOLLY'S":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$="Ik koop":blink=0:bllin=0:blcol=0:8900":b$="de":bllin=2:blcol=0:8900":b$=z$(colourno):blcol=5 b$="rode "blcol=6 J8900":b$="lolly's":bllin=bllin+2:blcol=0:8900" (6700,+20*(colourno-1) 2500 :b$="Hoeveel":bllin=0:blcol=0:8900":b$=z$(colourno):bllin=bllin+2:8900":b$="zijn er?":bllin=bllin+2:blcol=0:8900" 4c$=w(colourno):x(slevel)=w(colourno):2300 level<3slevel=32500 :b$="Hoeveel":bllin=0:blcol=0:8900":bllin=bllin+2:b$="heb ik":8900":b$="er?":bllin=bllin+2: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$="Hoeveel":bllin=0:blcol=0:8900":bllin=bllin+2:b$="heb ik":8900":b$="er?":bllin=bllin+2: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$="Ik eet de":bllin=0:blcol=0:8900" 5b$=z$(colourno):bllin=bllin+2:blcol=3 J8900":b$="lolly's":bllin=bllin+2:blcol=2:8900" (6700,+20*(colourno-1)  D2500 :b$="Hoeveel":bllin=0:blcol=0:8900" %qb$=z$(colourno):bllin=bllin+2:8900":bllin=bllin+2:blcol=0:b$="zijn er?":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 8b$="Hoeveel":bllin=0:blcol=0:8900" =b$="heb ik":blcol=0:bllin=bllin+2:8900" >b$="er dan?":blcol=0: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$="Ik eet de" :slevel<3b$="Ik koop" <9blink=0:bllin=0:blcol=0:8900" Azb$="de":bllin=2:blcol=0:8900":lin=2:col=5:pcolour=4:pshape=shapeno:1600@ F>b$="vormige":bllin=bllin+4:blcol=0:8900" K/b$="lolly's":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 d2500 :8,0;" ";9 ,0;" ":b$="Hoeveel":bllin=0:blcol=0:8900" iGlin=2:col=0:pcolour=4:pshape=shapeno:1600@ kTslevel<3b$="vormen?":bllin=4:blcol=4:8900":2699 n=b$="vormen":bllin=bllin+4:blcol=5:8900" s>b$="heb ik?":bllin=bllin+2:blcol=0: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$="Ja!"  8900" $bllin=bllin+2:blcol=0 rslevel=3slevel=5b$="Ik heb":8900":bllin=bllin+2:b$="er "+c$:8900":2895O uslevel=4b$="Ik eet":8900":bllin=bllin+2:b$="er "+c$+" op":8900":7000X:2895O ob$="Ik koop":8900":bllin=bllin+2:b$="er "+c$:8900":opern=1:8700!:2895O +slevel=3slevel=52875; slevel=12840 "slevel=2b$="Ja!":blcol=4:8900":1:502:bllin=bllin+2:blcol=0:b$="Ik koop":8900":bllin=bllin+2:b$="er "+c$:8900":200 :2500 :2858* 'b$="Ja!":blcol=4:8900":1:502:b$="Ik eet er":blcol=0:bllin=bllin+2:8900":bllin=bllin+2:b$=c$+" op":8900":200:2860, *7slevel=1opern=1:8700!:2899S ,52500 :b$="Hoeveel":bllin=0:8900" 1.b$="heb ik":bllin=bllin+2:8900" 6Db$="er dan?":bllin=bllin+2:8900":bllin=bllin+2 8 2899S ;4b$="Ja!":blcol=4:8900":blcol=0 @@b$="Ik heb er":bllin=bllin+2:blcol=0:8900" B/b$="dan "+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 4b$="Tel":bllin=0:blcol=4:8900" 3b$="ze":bllin=2:blcol=5:8900" 6b$="maar!":bllin=4:blcol=3: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 5bllin=0:blcol=5:b$="Nee!":8900" blcol=0 *slevel=4level44130" slevel>241451 level=541451 %?bllin=bllin+2:blcol=4:b$="Niet "+a$:8900" '5bllin=bllin+2:blcol=4:b$=z$(colourno) )b$="rode "blcol=5 * 8900" , 4175O 1(level=4slevel=4a$="1")(level=5slevel<3a$="1")bllin=bllin+2:b$="Er is":8900":bllin=bllin+2:b$="niet "+a$:8900":pcolour=4:pshape=shapeno:lin=4:col=12 :1600@:4175O 3(level=4slevel=4)(level=5slevel<3)bllin=bllin+2:b$="Er zijn":8900":bllin=bllin+2:b$="niet "+a$:8900":pcolour=4:pshape=shapeno:lin=4:col=12 :1600@:4175O 6level>24160@ ;mb$="Ik heb er":bllin=bllin+2:8900":b$="geen "+a$:bllin=bllin+2:8900":4175O @zb$="Ik heb":bllin=bllin+2:blcol=0:8900":b$="er dan":bllin=bllin+2:blcol=0:8900" J?b$="niet "+a$:bllin=bllin+2:blcol=0: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  c$="1"b$="Er is":bllin=0:blcol=4:8900":bllin=bllin+2:blcol=8:b$=c$:8900":5135  ob$="Er zijn":bllin=0:blcol=2:8900":bllin=bllin+2:blcol=8:b$=c$:8900" Qb$=z$(colourno):bllin=bllin+2:blcol=5:b$"rode "blcol=3  8900"  5150 (level=4slevel=4c$="1")(level=5slevel<3c$="1")b$="Het is er":bllin=0:blcol=0:8900":bllin=bllin+2:b$=c$:blcol=7:8900":5150 (level=4slevel=4)(level=5slevel<3)b$="Het zijn":bllin=0:blcol=0:8900":bllin=bllin+2:b$="er "+c$:blcol=0:8900":5150 level>25147 nb$="Ik heb er":bllin=2:blcol=0:8900":b$=c$:bllin=bllin+2:8900":5150 ib$="Ik heb er":bllin=0:blcol=0:8900":bllin=bllin+2:b$="dan "+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$="Alle" <*bllin=0:blcol=0:8900" Fb$="lolly's" Pbllin=2:8900" Z b$="gaan" d*bllin=4:blcol=0:8900" i(b$="terug!":bllin=6: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: /12 ,31;" ";13 ,31;" "  9500% 9b$="Ik voel":bllin=6:blcol=16:8900" <b$="me beter!":bllin=12 :blcol=14:8900"  9500%  6900  8250:  9500% blink=2 $8b$="Wil je":bllin=5:blcol=17:8900" .:b$="nog eens":bllin=9 :blcol=15: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$="Bah!":bllin=3:blcol=18:8900":b$="De blauwe":bllin=7:blcol=13 :8900" }b$="smaken":blcol=16:bllin=11 :8900":b$="vies!":bllin=15:blcol=18:8900":6650 level>26580 ^b$="Mmm!":bllin=7:blcol=19:8900":bllin=11 :8900":6650 level>36595 9b$="Lekker!":bllin=9 :blcol=17:8900"  6650 level>46610 ȡb$="Ik":bllin=5:blcol=20:8900":b$="word":bllin=9 :blcol=18:8900":b$="dik!":bllin=13 :blcol=19:8900"  6650 level>56625 זb$="Ik kan":bllin=4:blcol=16:8900":b$="niet":bllin=8:blcol=18:8900":b$="meer!":bllin=12 :8900"  6650 tb$="Ik ben":bllin=6:blcol=16:8900":b$="misselijk":bllin=12 :blcol=13 :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 080P,58::21,-4,/8 180P,58::21,-14,/8 p0,-12 :8,-8,/2:138,0:8,8,/2:0,133 a-8,8,/2:-138,0:-8,-8,/2:0,-110n 9 :clear balloon ?9a=217:a,13 ;" ":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 $ %(255,40(:0,502: &R"blauwe","rode ","groene" &\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 & toEi   7!       blauwerode groene "            p!D1240E22211332hildelconscastcoeveleveinkrkr```>>iolinlpapelbrighlflassh9900& ~~ʁ~]#xM V V\GWq !Hv>Mj~!1~V4e37e3#e3?XvE>   pq? 8<||80<>>88|||8*{\ " !?K !J ~!BAF"w2!P ~*#Fw2͟ F!J ~2!P ~2 *##F![>>>::>>>>::> P> ?،03g0pnlLیv6nw73{;~,llxxp` ???>ÄDEFGHI r 5P2͚!::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#R!h`!h`!hh`!80!80!03MN_Z5uu-S[[mIBOO7?NNZu]VTZ]mM翽_X@ H2 \Dp@T0 2N@  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|||8