wO?w!6D:\wa6=12345@W P P MMZć 3lMww>v>p? 88p`>>???@88x??????  H q'~|B>B<B~.| @ B@BBx<~ @   @ @<< "B@@@@BBfBBBb@.B8888x88888@<8B@8xbBDB@88@88D8D8xxD<88Dx8xD88 Dx888x<8@8xDh 888@888(B8B"B@8xD8D@8D88@8D8D8x|BBZB@~R|.B D@@DDD D D xDDBxDDRBB@|@xD@DDD DDDBBB~.@ ~8 < "$D< @ @/| iD8D88<D8x"@888888D8@88888(Fx888@<8Dx88888x8@8<8h8)B8888xD(8D888888i(DD DD0DDDx|D@ T0x D@@JDD D xDDDDD@DDD<xDDTD)B D@@DD0DDD@ iDD< xD(xD D8< TD D88RDD x< DDDDDx8DxDDDxD 8x x><@8 <<D8@<x 8.6a=05000 nXa=0:m=m-.1}L:m*10 ɺ(m*10 )m=((m*10 +.5))/10 s6m=021,0;"Sorry no more money": x&21,2;5;m;" " 9000(#:q=16 x,y:g(q)=1170 8x,y;"";x+1,y;"":r(q)=(8*)+1 3r(q)6ƥ9000(#:q=16:.02{# =,q*10 -20 mx,y:x,y;f(r(q),1);f$(r(q))(12);x+1,y;f(r(q),2);f$(r(q),34) &q:17,10 ;" " D>.8Lr(4)r(5)r(5)r(6)4000 8r(4)r(5)r(5)r(6)100d  r(5)=1a=.1}L 3r(5)=2r(5)=3a=.2~L 3r(5)=4r(5)=5a=.3  r(5)=6a=.5 " r(5)=7a=.73333 ,r(5)=8a=1 6$r(4)=r(6)a=a*5 @m=m+a:21,2;5;m;" ";18,12 ;1;"Win:`";a:t=1200:t:18,12 ;" " J 100d  Em>519,3;6;"You have gained `";m-5 *5m519,3;"You lost `";5-m \ defining graphics h0:0:7::2000::d=121:p$:w=07:a:p$+w,a:w:d "a",0,0,0,0,112p,252,63?,1,"b",0,12 ,28,568,568,112p,96`,192,"c",28,62>,127,127,62>,28,0,0 3"d",3,4,0,1,3,3,3,7,"e",0,128,128,128,192,192,192,224,"f",15,31,31,31,15,15,7,0,"g",240,248,248,248,240,240,224,0 -"h",0,0,0,0,0,0,3,15,"i",0,0,0,16,16,224,224,240,"j",31,31,63?,63?,63?,31,14,0,"k",240,240,240,224,192,128,0,0 J"l",0,0,0,0,0,64@,128,128 $"m",0,0,24,24,568,568,120x,240,"n",1,7,31,63?,63?,14,0,0,"o",240,224,224,192,128,0,0,0 .-"p",0,0,0,7,15,31,63?,63?,"q",0,0,0,224,240,248,252,252,"r",63?,63?,31,15,7,0,0,0,"s",252,252,248,240,224,0,0,0 8"t",4,5,18,10 ,5,3,3,3,"u",144,32 ,72H,32 ,160,192,192,192 L)f$(8,4):f(8,2) VLf$(1)="":f(1,1)=4:f(1,2)=2 `Lf$(2)="":f(2,1)=4:f(2,2)=4 jLf$(3)="":f(3,1)=3:f(3,2)=3 tLf$(4)=" ":f(4,1)=4:f(4,2)=4 ~Lf$(5)=" ":f(5,1)=6:f(5,2)=6 Lf$(6)="":f(6,1)=6:f(6,2)=6 Lf$(7)="":f(7,1)=4:f(7,2)=6 Lf$(8)="":f(8,1)=5:f(8,2)=5 41'" Press any key to start ":4e4@:: instructions #4;5;"FRUIT MACHINE" '"Press 'enter' for each go."'"When NUDGE flashes,you can nudgedown any reel by pressing the number of the reel. (1,2 or 3)" '"When you have a hold, you can hold any reel by pressing the number of the reel. When you have finished, press 'enter'." z'"The prices shown are for 2 adjacent fruits in the score line. The winning is 5 times as much for 3 in a line." >'"You are given `5 to start with. It costs 10p for each go."  "Type 's' to end the game." * drawing screen `6;3,13 ;"FRUIT";4,12 ;"MACHINE";5;21,1;"`5" ̝12 ,11 ;"";13 ,11 ;"";13 ,20;"";14,11 ;"";14,20;"";15,11 ;"" 8,0;4;""'2;"";7;" 10p"''4;"";3;" "'4;"";7;",";3;"";7;" 20p" i14,0;4;" ";6;" "'4;"";7;",";6;"";7;" 30p" 8,24;6;"";9 ,24;"";7;" 50p";11 ,24;4;"";12 ,24;6;"";7;" 70p";14,24;5;"";15,24;"";7;" `1" &7,12 ;7;"1 2 3"   nudgeing 018,12 ;1;5;" NUDGE " n=-2̥*6 70F:=""4050 <i$=:i$="1"i$="2"i$="3".03{u\,10 :4060 n 318,12 ;" ":.2~L,30: 5i=i$:r(i+3)=r(i):r(i)=(*7+1) <9 ,9 +i*3;f(r(i),1);f$(r(i))(12);10 ,9 +i*3;f(r(i),2);f$(r(i))(34);13 ,9 +i*3;f(r(i+3),1);f$(r(i+3))(12);14,9 +i*3;f(r(i+3),2);f$(r(i+3))(34)   holding :18,8;1;6;" HOLD AVAILABLE " G4e4@:i$=:(i$<491ůi$>513)Ưi$13 5020 ,i$=13 .1}L,0:5070 mi=i$:.2~L,10 :g(i+3)=1:g(i)=1:17,6+i*4;i+3;"HELD"  5020 '18,8;" "  #(j9 ,12 ,9 ,15,9 ,18,13 ,12 ,13 ,15,13 ,18 a mx yBmi@RI !!+)Pu% U"" @=lFRUIT MAC.*