ZXTape! f.machine #D .w(3):h=1:l=0:5000  3000  e=3:c=e:d=6:f=e (!z(3,15):y(3) ) 1000 -g=h3:120x:g 2Mv=l:l,l;" 5p a go. Press amount in pence,then enter",s$:s$=""502 3a=ẖs$:b=s$(a) 4!b<480b>579502 5a 6s=(s$/5) 8s>20s=20 :U8;8;18,6;"CREDITS=";s;20,5;"WINNINGS=`0.00" <)s=ls,s;"GAME-OVER-PRESS-ENTER";s$: Aa=1418:a,27;" ":a:"To start press enter ";f$:s=s-1:k=(*3):m=(*3):w(3):8;8;13 ,12 ;" ";14,12 ;" ";18,14;" ";18,14;s:m=02000 Fg=h:x=l:p=l Pw(g)=ly(g)=y(g)-h U`w(g)>lw(g)<10 p=p+h:y(g)=y(g)+(w(g)<4)-(w(g)>6):w(g)=10 :120x Zw(g)=l120x \4g=3x=x+h:(x>7+m)*.5,-20 `g=g+h:g=4g=h aOg=3(x=m+3)*.1}L+(x=m+5)*.1}L,-20+x/10 bx>3+mg=hg=2 d"x>5+mg=2g=3 f#x>7+m4100:60< h 80P xe=l (i=y(g):i=li=15:y(g)=15 i=16i=1:y(g)=h t=h3 %(w(g)=0)*.0008vQX,502 ili=i+15 j=z(g,i) a8-(e3);j;c+e,d+g*4;a$(j,2);c+e+1,d+g*4;a$(j,3) 8e=e+3:i=i+1:i=i-(i>15)*15:t  s1000:2,6,h,3,4,6,3,5,4,h,3,5,4,5,h m2,6,2,4,3,6,5,2,h,6,2,5,h,6,3 m4,2,4,h,2,5,3,4,6,2,5,h,4,2,6 Da=h3:y(a)=(*15)+h:b=h15:d:z(a,b)=d:b:a d$(8,4) Jd$(2)="-UP-":d$(8)="DOWN":d$(6)="HOLD":d$(h)="SPIN"  45- Uk=0h;h;4;13 ,12 ;"Super";14,10 ;"N-U-D-G-E" Sk>0h;h;4;13 ,12 ;"-HOLD-";14,12 ;"-HOLD-" kk=la=311 2:b=62317:h;4;h;a,b;b$((a-h)/2):b:a 14,27;"Reel" 7a=1618:a,27;a-15;"-??-":a -a=h3:h;a+15,28;"-??-" 23658j\,l c$= .07}\(,10 k=lc$="u"w(a)=1  k=lc$="d"w(a)=7 "c$="h"w(a)=5 $c$="s"w(a)=l %Jc$="h"c$="u"c$="d"c$="s"g$=:g$=c$.1}L,-20:2085% & .06|u\,l:c$=""2050 ')c$"h"c$"d"c$"s"c$"u"2050 (&n=w(a)+h:a+15,28;d$(n) ).3,-10 *a /.1}L,20:.1}L,21:.4L,22:.2~L,19:.1}L,18:.4L,20:.1}L,21 9fa=311 2:b=62317:l;4;h;a,b;b$((a-h)/2):b:a >Ml;h;4;13 ,12 ;" ";14,10 ;" ": Ua=l21:4;((a17)(ah));a,4;" ":a ;a=211 :7;a,9 ;" ":a 9a=58:0;a,10 ;" ":a 7:2:a=l42:77M-a,85U-a:l,68D+a*2:85U+a*2,l:l,-68D-a*2:-85U-a*2,l:a:l Y9 :b=l32 32 :a=h2:103g+a+b,149:l,-59;:a:b Xh:b=l:a=33!71G:a,175-b:l,-135+b+a-33!:b=b+.4L:a Sa=170207:a,175-b:l,-102f+b-a+176:b=b-.4L:a #h:32 ,39':176,l T76L,76L:88X,l:20,-30:-128,l:20,30 J32 ,175:176,l:l,-175:-176,l:l,175 fa=311 2:b=62317:l;4;h;a,b;b$((a-h)/2):b:a  5  30 Ur=l:q(3):a=h3:q(a)=y(a)+(y(a)<15)-(y(a)>14)*14:a z(h,q(h))=2r=r+10 :.5,l:z(2,q(2))=2r=r+10 :.73333,3:z(3,q(3))=2r=r+10 :.9ffff,5:4200h z(h,q(h))=24200h xz(h,q(h))=z(2,q(2))z(h,q(h))=z(3,q(3))r=r+502+(z(h,q(h))=3)*502:4200h "8z(h,q(h))z(2,q(2))1.5@,-40(: ')8;h;14,11 ;"GAMBLE" ,Ktt=(*5):.05|L,15:.05|L,14:=""4140, 1="c"r=10 :4210r 6+""r=(tt<2)*20:4210r hz(1,q(1))2a=13:b=15:.03{u\,b:b:a:a=115:.04|# =,a:a:.4L,16 i 4219{ r'8;14,11 ;" " s,tt>h8;14,11 ;" LOST " {Zt$(5):v=v+r:ss=(v/100d):sa=(v/100d-ss)*100d:t$="`"+ss+"."+sa |"t$(5)"0"t$(5)="0" )8;8;20,14;t$ r>l8;13 ,12 ;"-WIN-";14,12 ;"`";(r=100d);".";(r<100d)*r;:r=100d8;"0"  )7:7:a$(6,4): ~a$(h)="":a$(2)="":a$(3)="":a$(4)="":a$(5)="":a$(6)="":b$="NUDGE" sa=l3:a,a:l,175-2*a:255-2*a,l:l,-175+2*a:-255+2*a,l:a L2;h;19,18;"WINNING";20,15;"COMBINATIONS" `a=16930-24:6,a:69E,l:l,-19:-69E,l:l,19:a ba=16930-24:142,a:45-,l:l,-19:-45-,l:l,19:a D6,25:19,l:l,-19:-19,l:l,19 c=h:b=h183:a=h9 3:c;(c=3);b,a;a$(c,2);b+h,a;a$(c,3);:a:b+h,a;"= `";(c=3);".";(c=hc>3)*502+(c=2)*30:c=c+h:b 8,16;l c=h:b=h183:a=18223:c;b,a;a$(c,2);b+1,a;a$(c,3);:a:b+h,a;"= `0.";(c=2)*20+(c2)*10 :c=c+h:b I2;19,h;"";20,h;"":20,4;"= `0.10" 'h,l;"Press enter to continue" ;t$: y"INSTRUCTIONS"''"GAMBLE"''"Simply press ""c"" to collect your10p win or any other key to gamble for double or nothing"''"RANDOM HOLD"''"Depress either ""h"" (HOLD) or""s"" (SPIN) and your choise will be shown on the reel indicator."''"SUPER NUDGE"''"This enables you to additionallyreposition your hold, either up or down. The extra controls are ""u"" (UP),""d"" (DOWN)" '"PRESS ANY KEY TO CONTINUE" =""5090 :5:5: : #(0"f.machine"9100#:"udg""a",168: #236099\,502:l=0:6:6:1:l:l::1;10 ,11 ;"STAND-BY";16,1;"User defined graphics loading" #Kl,2;"SIMON MICRO-SOFT presents:-";5,9 ;"Fruit Machine" #"udg""a",168 #a:a=l19:1;a,9 ;"STOP THE TAPE":.01z# =,20:.01z# =,-20:a #)l,l;"Press enter to continue ";t$: udg X܀???? @<~~<X<~~<;7oOL'2?7oo7?7'a@@@a'7Z<