ZXTape!fruity  RA GUIDE TO FRUIT MACHINE (A GAME OF DISTINCTION? FROM BRITISH TELECOM) 0:0:0 40000@ =10 ,5;7;1;"LOADING FRUIT MACHINE" >g=0204:.05,g:g:LINES 14,15, 16,17,1920 SET UP M/C e=23613+256*23614 e,64:e+1,156 oj=4000040032:a:j,a:j:LINES 15,16 & 17 SET UP THE M/C WHICH IS USED IN THE MAIN BASIC PROGRAM +f=013 :a:60880+f,a:f &f=45000ȯ45013կ:a:f,a:f /60880: LOADS HEADERLESS SCREEN ^  44000 <45002ʯ: ^ POKES SCREEN FROM MEMORY ONTO SCREEN "$8:8:8:1 #236077\,120x:POKES START OF CHARACTER SET INTO A PART OF MEMORY WHICH IS OCCUPIEDBY NOTHING.THIS ALONG WITH LINE 34 PREVENTS THE Program: MESSAGEFROM WRITING OVER THE SCREEN (CLEVER EH!!!) $0,0;:POKE 23607,60 TO RETURN TO CHARACTER SET IF YOU BREAK IN DURING LOADING (NAUGHTY!) P.S. IF YOU DON'T KNOW THIS,IT CAN LOOK IF THE PROGRAM HAS CRASHED %-"":LOADS BASIC PART OF FRUIT MACHINE '*MACHINE CODE DATA* (/33,3,19,58,58,92,254,20,40,4,254,12,32,15,33 )@64,156,229,253,54,0,255,253,203,1,174,195,125,27,229,195,3,19 2557,62>,255,221,33!,192,189,17,0,27,205,86V,5,201,192,189,42*,200,175,17,0,64@,1,0,27,237,176,201 3rd PART IS THE MAIN BASIC(that explains why the reels are so slow) PROGRAM. IT AND SAVE IT AS SAVE "fm"500 ?4th PART IS THE M/C WHICH IS NOT HEADERLESS BUT I CAN'T REMEMBER WHAT THE LENGTH/START IS BECAUSE I DIDN'T DO THAT PART SO I ADVISE YOU TO USE A TAPE COPIER(HANDY THINGS AREN'T THEY?) \`a@f-e[{ D??UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU -lHUUUUDUU??UUUUU@)/lҙJE 031 sGUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@UU-ZUUUUUU 033 UU PUUU=m_a8 033 xUU8UU0sUUUUU?U@3?""??>r)_?UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUI( 3UUUUDUU00#oUUs?UUUU?U??Zx0?0<??U??UU?UUZxp?UU0~UU?ÀUU?UUUUU????8P??U?UU?UU?UU81UU?UU?UUUUU??~? 0&~X<?<@?~@U?UU~p?UUo~p?UU<?@?UU >~UU?UUUUUU0 U0 x????~UxUU UU?UU>?UU??@UU|UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUx ?>?@?@8???UU?@x???UU????UU?????UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU?? ?~?x U?xUU?@UU???UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZGGGGGGGGGBBBBBBBBBBGGGGGGGGGGGZZGGGGGGGGGBBBBBBBBBBGGGGGGGGGGGZZGGGGGGGGGBBBBBBBBBBGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGCCCCCCGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGFGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGFFFGGGGGGGGGGGGGGGGGGGGGGGGGZZGGFFFGGGGGGGGGGGGGGGGGGGDDDGGGZZGGFFFGGGGGGGGGGGGGGGGGGGBBBGGGZZGGGGGGGGGGGGGGGGGGGGGGGGBBBGGGZZGGGGGGGGGGGGGGGGGGGGGGGGBBBGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGG4ZZGGGGGGGGGGGGGGGGGGGGGGGGGG4%ZZGGGGGGGGGGGGGGGGGGGGGGGGG4%(ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZfm LG L 44, =yu,pos;4;0;" stu ";yu+1,pos;"nopqr": yu,pos;2;0;"ijk";4;"l";4;0;"m";yu+1,pos;2;"efgh";4;"v";yu+2,pos;2;"abcd ": gyu,pos;0;4;" <>";6;yu+1,pos;" =";2;"+";0;4;"-": yu,pos;6;0;" .,";2;"*";0;4;"/";yu+1,pos;0;6;".?";2;"`";4;6;":";4;0;"";yu+2,pos;";";6;"][";0;"{ ": =5;0;yu,pos;" ";yu+1,pos;" ": U5;0;yu,pos;" ";yu+1,pos;" ";yu+2,pos;"": =yu,pos;0;6;" wxyz";yu+1,pos;"ABC": U0;6;yu,pos;"DE";yu+1,pos;"FGHIJ";yu+2,pos;"1KLM ": =yu,pos;0;6;" NOP";yu+1,pos;"UQRTS": a0;6;yu,pos;"VW ";6;"XY";yu+1,pos;"1Z23 ";yu+2,pos;" 45 ": Fyu,pos;0;6;0;" ()_ ";yu+1,pos;" %&' ": ^0;6;0;yu,pos;" @#$ ";yu+1,pos;"7890!";yu+2,pos;" 6 ": 236066\,0:236077\,60<:yu,pos;7;0;1;" ";yu+1,pos;0;"---":236066\,106j:236077\,224: 236066\,0:236077\,60<:7;0;yu,pos;"BAR";yu+1,pos;0;"---";1;yu+2,pos;" ":236066\,106j:236077\,224: &23561 \,20:236066\,0:236077\,60<:d$="":c$=" ":money=100d:5:5:0:0:0:0:0::0,10 ;"FRUIT MACHINE";1,10 ;"-------------" b0:0:6::0,10 ;"FRUIT MACHINE";1,10 ;"-------------" " Push any key to spin reels":" On ~NUDGE~ push key 1,2,3 or 4, according to which reel you want to nudge.":';"On ~HOLD~ push key 1,2,3 or 4, according to which reel you want to hold. To cancel hold, press the same key again." !236066\,106j:236077\,224:yu=1:pos=0:1:yu=3:2:yu=16:9 :yu=18:10 "pos=26:yu=17:11 :yu=19:12 :yu=7:7:yu=9 :8:236066\,0:236077\,60< #1#1;" ";1;"PRESS ANY KEY..." $9000(#:13 ,0;"~Q~-QUIT (Only works while the reels are spinning)";18,7;"Program written by";20,8;"R. HUTCHISON and";21,10 ;"A. BEVERIDGE" %?f=095_:g:d:g/5,d-5:""39' &f '(=""f=1200:f:36$ (&0:0::7:1 )1r(4):f=14:r(f)=10 :f * h$="0000" + 45- ,"6"*2-"5" -ry=50508L ."0,7;"You have `1 " 2 64@ 7 640 <15,4;2;1;7;"";15,10 ;"";15,16;"";15,22;"" = a.236066\,106j:236077\,224 br=14:pos=6*r-2:sym=d(r,(49991G+r)):r(r)=sym:yu=5:2*sym+1:yu=7:2*(sym+1):r:usr=49950 c+236066\,0:236077\,60< d 218 n,="Q"Ŧ="q"5:5::510 o`49996L=1ƾ49997M=1ƾ49998N=1ƾ49999O=1142 p^v=(*5)+6:e=1v:f=02:e=v-2+f49996L+f,1 qf r,="Q"Ŧ="q"5:5::510 st=12:236066\,106j:236077\,224:r=14:pos=6*r-2:(49995K+r)=1136 t 120x u 499 x,="Q"Ŧ="q"5:5::510 sym=d(r,(49991G+r)):lsym=r(r):r(r)=sym:t=1yu=5:2*sym+2:yu=8:2*lsym+1:135 Mt=2yu=5:2*sym+1:yu=7:2*sym+2 !.02{# =,r-2*(t-1) r:t:usr=49950:e 60< 1o=(*10 ):o=4o=5870f 145:218 pr(1)=r(2)r(2)=r(3)r(3)=r(4)r(4)=4win=200:160 pr(1)=r(2)r(2)=r(3)r(3)=r(4)r(4)=2win=100d:160 or(1)=r(2)r(2)=r(3)r(3)=r(4)r(4)=6win=80P:160 \r(1)=r(2)r(2)=r(3)r(3)=r(4)win=60<:160 Fr(1)=r(2)r(2)=r(3)win=40(:160 Cr(1)=r(2)r(2)=2win=30:160 Cr(1)=r(2)r(2)=6win=30:160 0r(1)=r(2)win=20:160 155 804$ 189 i=16:i: 84990~:reels=2:win>30reels=3 win>502reels=4 p=1reels:n=59 :.02{# =,p*2:n,p*6-2;" ":n:p:236066\,106j:236077\,224:p=1reels:.1}L,(reels-p)*2:pos=p*6-2:yu=5:2*r(p)+1:yu=7:2*r(p)+2:p 3w$=win+"p":win>99cw$="`"+(win)(1) .2~L,8:236066\,0:236077\,60<:13 ,19;5;1;1;0;7;"";0;3,8;7;0;"":w$"`2"20,8;"You win ";w$;21,3;"Press: G-Gamble C-collect" |w$="`2"21,3;" You win `2 ":n=0283:254,n:.05|L,n:n:178 ""167 =""168 ="g"5000 "c"167 20,3;c$(25);21,3;c$(25):k=1am:20,4;6;b$:156:.03{u\,5:20,4;6;a$:.03{u\,7:156:21,4;6;b$:.03{u\,9 :156 l=110 :l:20,4;6;c$(24):156:21,4;6;a$:.03{u\,7:156:21,4;6;c$(24):k money=money+win [236066\,0:236077\,60<:0,7;"You have ";:300,:m$: Igam=0:y=15:y-1,29;5;" ";y,29;"";y+1,29;"";y+2,29;"":1;5;240,160-(y*8)+(2*y):1;5;7,0:.03{u\,y:234,104h-y:w=18:w:1;234,104h-y:y y=50-1:y+3,29;" ";y,29;5;"";y+1,29;"";y+2,29;"":1;5;240,160-(y*6):1;5;7,0:.03{u\,y:y>01;234,104h-y:y 111o Gmoney=0n=40(1-1:.01z# =,n:n:700 ""213 [w$="Push a key to insert coin":21,3;w$:g=1502:""222 yg:n=112 :21,3;w$(n12 );c$(n*2-1);w$(13 25-n):""222 ذ.01z# =,n:n:21,3;c$(25):n=12 1-1:21,3;w$(n12 );c$(n*2-1);w$(13 25-n):""222 .01z# =,n:n:213 212 ޱ60<:21,3;c$(25):n=49996L49999O:n,0:n:236066\,0:236077\,60<:money=money-10 :money=-10 700 .0,7;"You have ";:300,:m$ A20,4;c$(21);21,4;c$(22) 0,23;6;"":.1}L,10 :i=120:i:0,23;6;"":.1}L,10 :i=120:i:0,23;" " .1}L,10 rt=(*10 ) "rt=4rt=8800  + 200 ,money>999700 66money100dm$="`"+(money)(1):330J @m$=money+"p ":360h J<(money/100d)=money/100dm$=m$+" ":360h Tg$=(money)(23) ^m$=m$+"."+g$ h $8:8:1:8 8236077\,230:RESET CHARACTER SET TO 0's 0,0; "":LOAD m/c "23613,23730-5:23607,60:0: Q:60899: ^507&508 should be includedif you want the ON BREAK PRINT 0 5ry=49770j:THIS PUTS THE UDG'S IN THEIR PLACE 513:w(7) n=17  w(n):n B20,30,40(,60<,80P,100d,200 )n=49996L49999O:n,0:n ;n=03:49992H+n,(*20)+5:n 0 :25  154 z0:236066\,0:236077\,60<:w$="YOU'VE NO MONEY LEFT":money>999w$="YOU'VE WON OVER `10" f=010 qmoney=0.01z# =,f*2:f,f;5;c$(31-f*2);21-f,f;c$(31-f*2) money>999.01z# =,f*2:f,f;1;7;1;d$(31-f*2);21-f,f;d$(31-f*2) f f=10 0-1 -.01z# =,f*2:f,0;1;c$ !21-f,0;1;c$ f Ƅ10 ,6;1;1;5;w$;"!":money>99911 ,10 ;1;1;5;"WELL DONE!" Ǧmoney=09 ,5;6;1;"";10 ,5;"";10 ,27;"";11 ,5;"" money>999z=13:z,0;4;1;d$:z:1:yu=0:pos=0:5:pos=27:5:yu=2:pos=0:6:pos=27:6 оmoney>9990:13 ,0;1;6;1;" ";14,0;" ";15,12 ;" " Dmoney=0722:z=112 :a:b:a/5,b:z 1,2,1,4,2,5,2,4,2,2,1,2,1,4,1,5,1,9 ,1,4,1,5,4,2 Fmoney>999727:z=127:a:b:a/5,b:z ׶1,4,1,4,4,7,1,4,1,4,4,7,1,4,1,7,2,12 ,2,11 ,2,9 ,2,9 ,2,7,1,2,1,4,2,5,2,2,1,2,1,4,4,5,1,2,1,5,1,11 ,1,9 ,2,7,2,11 ,4,12 ""793 F21,1;1;1;"Press any key to play again..." =""795 5:5::510 " ink=5 # 810* $ 117u *15,4;1;2;7;"";15,10 ;"";15,16;"";15,22;"" +28160:z=115:a:.15~,a:z -@w$="Hold/cancel- Push 1,2,3,4":q$="Any other will spin reels" 011 ,11 ,12 ,14,14,12 ,11 ,9 ,7,7,9 ,11 ,11 ,9 ,9 5*ink:ink=ink+:ink>7ink=5 6+20,3;w$;21,3;q$ 8=""8215 :i$= >ci$<"1"Ŧ>"4"7:21,3;c$(25);20,3;c$(25):200 ?/49995K+i$,((49995K+i$)-1) @h=14 C\(49995K+h)=115,6*h-2;2;7;"":838F D@15,6*h-2;1;2;7;"" Fh H""840H M 8237 f""870f gF60<:win=0:145:gam=1win>0950 hj236066\,0:236077\,60<:3,8;1;7;2;"***NUDGE NOW***" iG877m:j=118:a:a=1o=110 :o:j j.1}L,a:j m0,5,8,0,5,8,0,5,8,1,13 ,11 ,1,11 ,9 ,1,9 ,8 pN=(*8):N=N+3 uY=N1-1 zH13 ,12 ;5;1;"NUDGES-";Y;1;7;""  i$=:i$<"1"i$>"4"899 pos=6*i$-2 sym=d(i$,(49991G+i$)) P13 ,12 ;5;1;"NUDGES-";Y-1;1;7;"" .236066\,106j:236077\,224  lsym=r(i$)  r(i$)=sym !yu=5:2+2*sym "yu=8:1+2*lsym .02{# =,i$ !yu=5:1+2*sym !yu=7:2+2*sym .02{# =,i$-2 +236066\,0:236077\,60< b49991G+i$,(49991G+i$)+1:(49991G+i$)=3149991G+i$,2  win=0 6145:236066\,0:236077\,60< win>0950 Y 3,8;7;0;" ";13 ,19;5;1;1;0;7;"":218 ~Kwin=200am=4:b$=" ":a$=" " Kwin=100dam=2:b$=" ":a$=" " Hwin=80Pa$=" ":b$=" ":am=2 Jwin=60<a$=" ":b$=" ":am=2 Rwin=40(a$=" ":b$=" ":am=1 Jwin=30a$=" ":b$=" ":am=1 Dwin=20am=1:a$=" ":b$=" "  X60<:gam=1:20,3;c$(25);21,3;c$(25) ry=50500D pw=(win/16+.6) &1:1:5:5: ""5010 236066\,106j:236077\,224:yu=0:pos=0:1:yu=2:2:yu=17:pos=27:7:yu=19:8 yu=0:pos=27:9 :yu=2:10 :yu=17:pos=0:11 :yu=19:12 :236066\,0:236077\,60< E1,10 ;"FRUIT MACHINE";2,10 ;"-------------"  y=0 |14,11 ;"Press 'M' to";15,14;"gamble";7,11 ;"Press 'C' to";8,14;"collect" Gn=14:8+n,24;k$(8,n);k$(9 ,n):n ΍pw<5p=313 10 :n=14:8+n,p;k$(pw+(p=3),n);k$(8,n);k$(9 ,n):n:p:5100 رpw=5n=14:8+n,3;" ";k$(6,n);k$(7,n);" ":n:n=14:8+n,13 ;k$(5,n);k$(8,n);k$(9 ,n):n pw=6n=14:8+n,3;" ";k$(6,n);k$(1,n):n:n=14:8+n,13 ;" ";k$(6,n);k$(7,n);" ":n ru=50000P ry=ru i=13 ="c"5500|  ="m"5160(  i ru=(ru-100005CR)  5110 (ru=50000Pwin=0:n=10 -5-.9ffff:.01z# =,n:n:7:0:1:0:50508L:189 2pw=pw+1 7win=w(pw):4990~ <)pw=7n=9 12 :n,5;" ":n:n=14:1;8+n,13 ;" ";k$(6,n);k$(1,n);" ":n:f=13:n=120.9ffff:.01z# =,n:n:f:0:7:1:0:ry=50508L:178 F9n=-10 01:.01z# =,n:n:5070 |L4990~:7:0:1:0:ry=50508L:178 #(C2,-12 ,2,-5,2,-17,2,-5,2,-12 ,2,-5,2,-17,2,-5,1,12 ,1,11 ,1,12 ,1,11 ,2,12 ,2,11 ,2,14,4,12 ,1,17,1,16,1,17,1,16,1,14,1,12 ,1,7,1,4,4,0,4,11 ,1,21,1,9 ,1,9 ,1,9 ,2,9 ,2,7,1,21,1,9 ,1,9 ,1,9 ,2,9 ,2,7,1,21,1,12 ,1,12 ,1,12 ,1,12 ,1,11 ,1,14,1,12 ,1,12 ,1,11 ,1,9 ,1,7,2,17,2,14,1,12 ,1,11 ,1,12 ,1,11 ,2,12 ,2,11 ,2,14,4,12 ,1,17,1,16,1,17,1,16,1,14,1,12 ,1,7,1,4,4,0,4,12 ,1,21,1,9 ,1,9 ,1,9 ,2,9 ,2,7,1,21,1,9 ,1,9 ,1,9 ,2,9 ,2,7,2,12 ,1,9 ,1,12 ,1,14,2,20,1,7,1,11 ,1,14,2,19,1,0,1,4,1,7,2,12 ,2,0 ]s  oneZop2dsysa  n>6`+a@vpssy iieel CPib QAny other will spin reelsI2A B G20&(<PdD C H0000M90p WPush a key to insert coinMcode "jh"!vX60|00~#EHBbXW5.g%wZZxBbrFꬸ???#$$$#$$$$@ @>!LH~(  >#=  !d!YIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIII!@X!X@??????@~<D8D@8D8Fx?(DDxDDJDmmmDDD<(xRDDDDD(@bx??88D<<<@@?BBx<~<<;;;;???bBDB@@F?RBB@|<J?JBBN@>R?FBDB@Bb?Bp ?} ?~???@ 8T?????޿A |\<ܬ?7ϟ;u~xl>?<<(