ZXTape! 0Created with Ramsoft MakeTZXfruit 1#1 1cls=950  1:0:0:cls 60,8;7;" FRUIT MACHINE " '7;''"  DkTRONICS 1983" F9 :''"YOU HAVE `1 TO START"'''"HOLD USE  1 2 3 4 " '''" NUDGE   1 2 3 4  UP" #"  Q W E R  DOWN" 2''"C";" or ENTER";" to COLLECT WINNINGS" '"G to GAMBLE WINNINGS"  '"S or ENTER to START"  dInitialise variables i col=6 nr(4,3) sUg(21,3):490:i=121:j=13:g(i,j):j:i xrotate=53248 }Sn(9 ,3):496:i=19 :j=13:n(i,j):j:i vars=53251 Zstart=3000 :nudge=4000:score=2000:gamble=5000:calc=6000p d(4):i=03 np=1:gp=1 Ld(i+1)=(vars+i*8+6)+(vars+i*8+7)*256 Ti$=16+8+17+8+20+1+21+1+" " i nf=.3:hf=.75@ %hold=vars+5:dir=vars+4  sc=100d : Initialise Hi-res 300, c$:c$="end"500 i=07 v:c$+i,v i:220 : "Hi-Res dump... #: , "a":OR -00000000 .01001100L /10101010 010101010 110101100 210101010 301001010J 400000000 5: 6 "b":Win tl 700000000 801010101U 901010100T :01010100T ;00101001) <00000000 =00000000 >11111111 ?: @ "c":Win lr A00000000 B11010010 C10011010 D10010110 E11010010 F00000000 G00000000 H11111111 I: J "d":Win bl K11111111 L00000000 M01000101E N01000101E O01000101E P01000101E Q01110101u R00000000 S: T "e":Win br U11111111 V00000000 W00101110. X10101000 Y10101110 Z01101000h [00101110. \00000000 ]: ^"end" w9 ,1,3,10 ,2,0,11 ,1,2,12 ,2,0,13 ,1,1,14,2,0,15,1,3,16,2,0,17,1,2,18,2,0,19,1,1,20,2,0,21,1,2,22,2,0,23,1,3 24,2,0,25,1,3,26,2,0,27,1,2,28,2,0,29,1,1 11 ,19,1,13 ,19,2,15,19,3,17,19,4,19,19,5,21,19,6,23,19,7 525,19,8,27,19,9  910  8000@ 1500:Print Screen 0:start sc=sc-10 :score e=(10 +*16)  i=1e & f=rotate 00i:hold,1:900:0.01z# =,2 : i=1e D f=rotate N7i:hold+8,1:900:.01z# =,4 XQi=1e:f=rotate:i:hold+16,1:900:0.01z# =,6 bi=1e:f=rotate li:hold+24,1 v900:0.5,8 calc tw0700 >nf510 nudge tw=0510 gamble twsc=sc+tw:score  510 %f=rotate+rotate+rotate+rotate: ?22,0;'"PRESS P for PRINTER or any KEY " l$=:l$=""912  l$="p"  .23659k\,2::23659k\,0: Read reel contents i=03 hold+i*8,1:i !i=15:f=rotate:i 2j=03:pos=(vars+3+j*8) i=13 $$r(j+1,i)=(d(j+1)+pos) .,pos=pos+1:pos=32 pos=0 8i:j B Print Screen .i=03:hold+i*8,1:i  1900l  5:7:1:cls @1,1;1;"GAMBLE";2,1;"COLLECT" G0,0;2;1;"" Fi=121:i,0;2;1;"";i,31;"" i "i22,0;" ";"" ,"8,13 *8+3 6*i=117:x,y:0;x,y:i @L8,11 *8-4:i=117:x,y:0;x,y:i ^#f=rotate+rotate+rotate+rotate hi=1297 r79 ,i;0;3;"";10 ,i;"":i |ni=3247:16,i;1;7;"HO LD";17,i+2;(i+4)/7:i i=121 5g(i,2),g(i,1);0;g(i,3):i k24,24:27*8,0:0,-9 :-27*8,0:0,9 C19,3;7;1;"NUDGE " Hi=19 :n(i,2),n(i,1);9 ;n(i,3):i *19,29;0;5;"U"  2000  l14,0,0,39',43+,0,0,-39',13 ,0,0,39',43+,0,0,-39' v13 ,0,0,39',43+,0,0,-39',13 ,0,0,39',43+,0,0,-39',14,0 14,0,0,-46.,43+,0,0,46.,13 ,0,0,-46.,43+,0,0,46. 13 ,0,0,-46.,43+,0,0,46.,13 ,0,0,-46.,43+,0,0,46.,14,0  Print Score 21,4;  s$=sc s$<3s$="000"+s$ *s$=s$(̱s$-2)+"."+s$(s$-1) >s$(1)="0"s$(2)"."s$=s$(2):2050  ,sc<02;"DEBT `";s$;" ":  1;"CREDIT `";s$;" ": .i=03:hold+i*8,0:i Fi=3247:16,i;1;7;"HO LD":i 721,22;7;0;1;"START" kh=0:>hfh=1:i=3247:16,i;8;8;1;"HO LD":i l$= l$="#"23659k\,2: l$""3100 gp=gp+1:np=np+1 gp=22gp=1 np=11 np=1 !g(gp,2),g(gp,1);i$ np=10 3090 !n(np,2),n(np,1);i$ 40.1}L,0:g(gp,2),g(gp,1);i$ np=10 3020 -n(np,2),n(np,1);i$:3020 >19,29;1;1;" ":i=110 ""3095 0.01z# =,7:i 619,29;0;1;" ":3083 h=03200 &wl$<"5"l$>"0"hold+8*(l$-1),1:.1}L,30:16,3+7*(l$-1);"HO LD" 0vl$="c"i=03:hold+i*8,0:16,3+i*7;7;1;1;"HO LD":i !l$"s"l$13 3020 21,22;" " ei=03:(hold+i*8)=016,3+i*7;1;7;"HO LD" i Ui=110 :0.01z# =,i:i:i=10 1-1:0.01z# =,i:i: <i=03*ͧ/8:0.05|L,i*10 :i: Nudge ;4010:19,3;1;7;"NUDGE": 619,3;6;2;1;"NUDGE"  3500 np=(*6+5) 0np=10 19,29;i$:4050 !n(np,2),n(np,1);i$ i=130 l$= l$""4100 0.01z# =,3:i .np<10 n(np,2),n(np,1);i$ np<10 np=np-1 np4030 -i=03:dir+i*8,2:i  0np=10 19,29;i$:4108   !n(np,2),n(np,1);i$  *l$>"0"l$<"5"r=l$-1:4200h l$="q"r=0:4300 l$="w"r=1:4300 "l$="e"r=2:4300 ,l$="r"r=3:4300 6 4060 h/dir+r*8,2:hold+r*8,0 r#f=rotate:hold+r*8,1 |#f=rotate+rotate+rotate+rotate  calc:tw  4070 /dir+r*8,1:hold+r*8,0 #f=rotate:hold+r*8,1 #f=rotate+rotate+rotate+rotate dir+r*8,2:calc tw  4070 Gamble Q1,1;1;8;8;"GAMBLE";2,1;"COLLECT" l$= l$""5100 (gp=gp+1:gp=22gp=1 !g(gp,2),g(gp,1);i$ 80.05|L,gp/2:g(gp,2),g(gp,1);i$  5040 Ml$="c"l$=13 1,1;"GAMBLE";2,1;"COLLECT": l$="g"5130   5040  W1,1;"GAMBLE";2,1;"COLLECT":i=1̺(*20+5) (gp=gp+1:gp=22gp=1 !g(gp,2),g(gp,1);i$ (0.04|# =,2 2!g(gp,2),g(gp,1);i$ <i FFg(gp,2),g(gp,1);8;8;1;1;" " Ptw=tw*g(gp,3) Ztw0.73333,5 d tw=00.8L,-3 n=g(gp,2),g(gp,1);8;8;1;" " x pcalculate win z 1000 tw=0:in=0 r(1,1)=4r(1,2)=4r(1,3)=4r(2,1)=4r(2,2)=4r(2,3)=4r(3,1)=4r(3,2)=4r(3,3)=4tw=10 :in=1 r(4,1)=4r(4,2)=4r(4,3)=4r(2,1)=4r(2,2)=4r(2,3)=4r(3,1)=4r(3,2)=4r(3,3)=4tw=10 :in=in+1 r(1,2)=1r(4,2)=1tw=10 :(r(2,2)=1r(1,2))(r(3,2)r(4,2))tw=20 in=2tw=30 Yr(1,2)=r(2,2)r(1,2)=r(3,2)6400 Yr(4,2)=r(2,2)r(4,2)=r(3,2)6400 Ԍr(1,2)=r(4,2)r(4,2)=r(2,2)r(4,2)=r(3,2)w=w*4:6500d  6420+r(2,2)  w:6500d: Data for fruit value 100d,"bell" 30,"cherry" 80P,"s-berry" 60<,"pear" 30,"SPECTYs" 150,"bar" 80P,"lemon" 60<,"limes" 60<,"plum" 40(,"melon" 60<,"banana" 40(,"apple" c502:end clause dw>twtw=w: n Xrandomise reels ]"Highest fruit";h b$i=032 *4-1 l4v=(*(h+1)):(53759+i)=v7020l v53760+i,v:i: @)0:1:3:0:cls J10 ;"WINNING LINES" T=80P,20*8+6:13 *8,0 ^F6'" A cherry at either end scores 20p as does two cherries." h&7:'"SPECTY SPECTY SPECTY" r$ " \ | / At end" |# "SPECTY - SPECTY - SPECTY = 27" % " / | \ ways to" % "SPECTY SPECTY SPECTY win 10p" ''"Four SPECTYs in any position=30p":  6420 ,4:1:i=011 :v,v$  "3 ";v$; 4v$<9 " "(9 -v$);:8126 ,v;"p":8130 v;"p", i: 43;0'" For four fruits in a row the" 3;"win is quadrupled."  910 0:0  #< #'53200:23659k\,0:"" #"q"1 #23659k\,2 #""9140# #Q:"fruit"9100#:"machine"53248,56060-53240:9140# machine  U  P  ҈ @ `҃XXXX!@xWxWx8_y_`|2X~2g2n!@^!`V}&o>>,,> (%(%(.$> (&z(:{(:+Ѕo .$| &:+2}o> :+o> o%> &}([#** nK[M"[%* *nK [M" ['**nK[M"[)**!nK[M" |2x~!22N!F}&o DM!>o ( %(>%( .$> &Ð                            $<?,<~<<  <?l????  0`?8> | ۀ|??~~ p??<www7wn{{nz{n{<~1vnov^1l~< `88h$T"""""***""""|?&& ?0?###@"D"D  $$"IҤC҄C$ "?"""&"&pp?~}?`83?7|~0܃