Fruit Mac .8-.dfillhires=5300 ndrawblock=5100 xfirst=5 resethires=5500| blankwindow=5700D money=10 r(3) s(4) 7000X k=14:s(k):k 7:5:5: c$="" 1,5;"";c$;"" 2,4;"";c$;"" $3,3;"";c$;" " %4,3;"";c$;" " %5,3;"";c$;" " /6,3;" " $/7,3;" " ..8,3;" " 8.9 ,3;" " B/10 ,3;" " L%11 ,3;"";c$;"" V"12 ,3;"";c$;"" `013 ,3;"" j014,3;"" t215,3;"" ~,16,3;"" "17,3;"";c$;""  blankwindow money>01780 =0;20,0;"Sorry - all your money is gone"  c0;20,0;"You have '";money;" left";21,0;"Press < ENTER > to play" k$ U20,0;" " money=money-.5 ^0;0;13 ,13 ;" ";14,13 ;" ";15,13 ;" " & blankwindow w=13 d=13+3* oldpict=picture picture=1+(4*) picture=oldpict2040  L=51-1  fillhires  p=0 *pattern=picture 4 b=L5 > p=p+1 H drawblock Rb \pattern=oldpict fb=1L-1 p p=p+1 z drawblock b L d r(w)=picture  resethires w 9r(1)r(2)r(2)r(3)1750 r(2)=21750 win=1 @r(1)=r(2)r(2)=r(3)win=s(r(1)) W0;13 ,13 ;"YOU";14,13 ;"WON";15,13 ;"'";win money=money+win 1750  9000(#+100d*pattern c=1b-1  lnk,p4per c  lnk,p4per Zfirst+p,7*w-2; dc=14 n/lnk;p4per;(144+4*b-5+c); xc   )8000@+100d*picture+10 *L 4h="a"+32 *L-32 "a"+32 *L-1 byte:h,byte h  | pattern=0 picture=0 oldpict=0 L=51-1 'fillhires:handle=05590 L=53,27;" ";4,27;" ";5,27;" ";8,27;"";9 ,27;"" RL=35,27;" ";6,27;" ";10 ,27;"" iL=17,27;" ";8,27;" ";9 ,27;" ";11 ,27;"" L  D N,handle=1:resethires:handle=0 Xw=13 b d=1 lb=15 vp=b  drawblock b iw=17,27;"";8,27;"";9 ,27;"";11 ,27;" " Rw=25,27;" ";6,27;"";10 ,27;" " w=33,27;" ";4,27;"";5,27;"";8,27;" ";9 ,27;" " w  X#15,3,12 ,7 JA0,0,0,0,0,0,0,0 KG0,0,0,3,15,60<,112p,112p LG0,0,0,248,252,62>,14,7 MA0,0,0,0,0,0,0,0 TA0,0,0,0,0,0,0,0 UP224,224,224,240,248,248,240,96` VB3,3,3,3,3,7,6,14 WI0,128,128,128,128,0,0,0 ^A0,0,0,0,0,0,0,0 _A0,0,0,0,1,1,3,3 `K28,568,112p,224,192,128,0,0 aA0,0,0,0,0,0,0,0 hA0,0,0,0,0,0,0,0 iA7,7,7,3,3,1,0,0 jI0,0,128,192,192,128,0,0 kA0,0,0,0,0,0,0,0 rA0,0,0,0,0,0,0,0 sD3,15,15,15,3,0,0,0 tG0,192,192,192,0,0,0,0 uA0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 G0,6,6,14,30,30,62>,126~ A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,1,1,1,2,2,2 F127,191,31,3,0,0,0,0 E0,0,0,128,128,0,0,0 A0,0,0,0,0,0,0,0 A4,4,4,4,4,4,2,2 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,1,1,1,1 O29,60<,126~,255,255,255,255,255 Q224,240,120x,124|,252,254,254,254 A0,0,0,0,0,0,0,0 A1,1,0,0,0,0,0,0 K255,255,255,127,63?,31,7,0 O254,254,252,252,248,224,128,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,0 A0,0,0,0,0,0,0,1 E0,0,0,0,0,0,127,255 D0,0,0,0,0,0,16,188 A0,0,0,0,1,1,3,7 N7,31,127,255,254,248,240,224 M255,255,255,255,15,15,31,63? P254,254,126~,60<,196,246,254,254 &H7,15,31,31,63?,63?,63?,63? 'Q192,193,199,255,255,255,255,255 (Q127,255,255,255,255,255,255,255 )Q254,254,254,254,254,252,252,252 0I63?,63?,63?,63?,63?,63?,31,31 1Q255,255,255,255,255,255,255,255 2Q255,255,255,255,255,255,255,255 3O248,248,240,224,224,192,128,0 :F63?,63?,63?,63?,31,0,0,0 ;I255,255,255,255,0,0,0,0