ᄣ1C?@"~VՒF:\ 888((88888((88888((88888((888888 8((80888888888 888((800888 8 80888 8 800888 8 8008 8 80 808 88 8888800 8 88 8808 88 8800 8 88 880088(8 8888888880088((888(8 8888888888888(888888((888(8 88((888(8 88((888(8 8A8 # <@Q8\\\=\/2F44C\aX![!`PP!!8W K SR P= COPYRIGHT : DREAM SOFTWARE 1983  TOOTIE FRUITY FRUIT MACHINE SIMULATION THE "ULTIMATE IN COMPUTER GAMBLING" G WRITTEN BY: S.HILLYER _ for the SINCLAIR SPECTRUM WITH 48K RAM  Z0:0:7 _0:7: dINITIALISATION  n 23658j\,8:CAPS LOCK x8000@:INTRO 9000(#:GRAPHICS 9800H&:U.D.G. 5000:VARIABLES 7000X:INSTRUCT 6000p:SCREEN SET $MAIN CONTROL ROUTINE   MUSIC !19,21;1;TOT 719,15;1;2;7;"START" A$= A$=" "END JA$="S"19,15;0;2;7;"START":300,  240 ,S2,17;0;"10p":.1}L,-10 :2,17;"10p" 6bTOT=TOT-10 :19,21;1;TOT:TOT-119,21;"0":END @&TOT99c19,23;" " E'TOT99919,24;" " FTOT9990'END J!A=0:B=0:C=0 T 1000 YRND= ^RND<.2~LHOLD hRND>.84W =pNUDGE H19,21;1;TOT:TOT99c19,23;" " 'TOT99919,24;" " /TOT-119,21;"0":END TOT9990'END %200   REEL SPIN  %D=(*12 +5)*(A=0) %E=(*13 +6)*(B=0) %F=(*14+7)*(C=0) D>01105Q  D=D-1 E>01205  E=E-1 F>01305  F=F-1 +D>0E>0F>01020 $DEC G L$ REEL 1  Q$X=X+1:X29X=2 V X$(X)=""X$(X)=""U=1 [*X$(X)=""X$(X)=""X$(X)=""U=2 `X$(X)=""U=4 e X$(X)=""X$(X)=""U=6 jX$(X)=""U=3 tW$=X$(X+1) ~3.002xn,20:7,4;0;W$ 1.002xn,30:10 ,4;U;X$(X) W$=X$(X-1) 4.002xn,40(:13 ,4;0;W$  ( REEL 2  $Y=Y+1:Y29Y=2  Y$(Y)=""Y$(Y)=""U=1 *Y$(Y)=""Y$(Y)=""Y$(Y)=""U=2 Y$(Y)=""U=4  Y$(Y)=""Y$(Y)=""U=6 Y$(Y)=""U=3 W$=Y$(Y+1) 3.002xn,20:7,8;0;W$ 1.002xn,30:10 ,8;U;Y$(Y) W$=Y$(Y-1) 4.002xn,40(:13 ,8;0;W$   $ REEL 3  $Z=Z+1:Z29Z=2  Z$(Z)=""Z$(Z)=""U=1 #*Z$(Z)=""Z$(Z)=""Z$(Z)=""U=2 (Z$(Z)=""U=4 - Z$(Z)=""Z$(Z)=""U=6 2Z$(Z)=""U=3 <W$=Z$(Z+1) F4.002xn,20:7,12 ;0;W$ P2.002xn,30:10 ,12 ;U;Z$(Z) ZW$=Z$(Z-1) d5.002xn,40(:13 ,12 ;0;W$ n xDECISIONS   W=0  V$=X$(X) V$=""W=20  V$=V$+Y$(Y) V$=""W=10 V$=""W=10 V$=""W=20 V$=""W=30 V$=""W=30 V$=""W=20 V$=""W=40( V$=""W=40( V$=""W=502  V$=V$+Z$(Z) V$=""W=60< V$=""W=60< V$=""W=80P V$=""W=90Z V$=""W=90Z V$=""W=80P V$=""W=100d  V$=""W=110n V$=""W=150 hW>0WIN mW60<JACKPOT rW=0LOSE wW>0GAMBLE  TOT=TOT+W  2700 19,21;TOT   JACKPOT/WIN/LOSE  JACKPOT!!  I2,2;1;"J A C K P O T" 5,3;1;7;3;H$;5,7;H$;5,11 ;H$;15,3;N$;15,7;N$;15,11 ;N$;2,17;0;7;"10p";2,22;"50p";13 ,16;2;"GAMBLE" ?15,18;1;4;"COLLECT";17,4;2;1;17,8;2;17,12 ;3;19,2;3;"LOSE";19,7;4;"WIN";19,13 ;0;0;" ";19,11 ;1;W;19,15;2;7;"START" o19,21;1;1;TOT;17,17;1;"NUDGE";17,23;"0" S10 ,4;1;X$(X);10 ,8;Y$(Y);10 ,12 ;Z$(Z) RO=-10 25:.01z# =,20-O:.01z# =,O:.01z# =,20+O:O G2,2;0;"TOOTIE FRUITY"  5,3;0;7;3;H$;5,7;H$;5,11 ;H$;15,3;N$;15,7;N$;15,11 ;N$;2,17;7;0;"10p";2,22;"50p";13 ,16;2;7;"GAMBLE" 15,18;0;4;"COLLECT";17,4;2;1;17,8;2;17,12 ;3;19,2;3;"LOSE";19,7;4;"WIN";19,11 ;0;"000";19,15;2;7;"START" g19,21;0;1;TOT;17,17;1;"NUDGE";17,23;"0" S10 ,4;0;X$(X);10 ,8;Y$(Y);10 ,12 ;Z$(Z) [ ` WIN  jb19,7;1;4;"WIN":20:19,13 ;" ";19,11 ;W o$O=030:.01z# =,O:O tM19,7;0;4;"WIN";19,11 ;0;"000" # ( LOSE  2,19,2;1;3;"LOSE" <-O=300-1:.01z# =,O:O F,19,2;0;3;"LOSE"  COIN DROP  O=1W/10 6:16,28;"":.02{# =,-20:16,28;" ":.02{# =,-15:17,28;"":.02{# =,-10 :17,28;" " .02{# =,-5:17,28;"":.02{# =,0:17,28;" ":.02{# =,5:18,28;"":.02{# =,10 X18,28;"":.02{# =,15:18,28;" ":.02{# =,20 O 0  MUSIC  G=(*4)+1 G=22860, G=32900T G=42950  TUNE 1 |O=15:.01z# =,O:.01z# =,10 -O:O:O=5570-5:.01z# =,502-O:.01z# =,O:O  , TUNE 2 1pO=030:.005y# =,O:O:O=300-1:.005y# =,0:.005y# =,O+20:O J T TUNE 3 ^CO=60<0-5:.01z# =,60<-O:.01z# =,O:O c  TUNE 4 QO=50210 -4:.05|L,O:.01z# =,O:.01z# =,O+10 :O  NUDGE  W>0 N=(*8)+1 Z17,17;1;1;"NUDGE":MUSIC:17,17;1;"NUDGE" 817,23;3;1;"";N;"" E$= E$=" "END E$="1"1100L E$="2"1200 E$="3"1300 E$=""3060 N=N-1 (17,24;1;3;N DEC2 W>03200 S15,3;1;3;N$;15,7;N$;15,11 ;N$ N>03015 \15,3;0;7;3;N$;15,7;N$;15,11 ;N$ ,17,23;0;1;"0" v  NUDGE SUBS 15,3;0;7;3;N$;15,7;N$;15,11 ;N$;17,23;7;1;"0" W>0WIN !W60<W150JACKPOT GAMBLE 2700 TOT=TOT+W  DECISIONS 2  W=0 V$=X$(X) V$=""W=20 V$=V$+Y$(Y) V$=""W=10 V$=""W=10 V$=""W=20 V$=""W=30 V$=""W=30 V$=""W=20 V$=""W=40( %V$=""W=40( *V$=""W=502 / V$=V$+Z$(Z) 4V$=""W=60< 9V$=""W=60< >V$=""W=80P CV$=""W=90Z HV$=""W=90Z MV$=""W=80P RV$=""W=100d WV$=""W=110n \V$=""W=150  GAMBLE MONEY  I=(*3)+1 I=2I=3 13 ,23;" " w13 ,23;W;13 ,16;1;2;7;"GAMBLE";15,18;4;"COLLECT" D$= ŌD$="C".2~L,-20:13 ,16;2;"GAMBLE";15,18;4;"COLLECT";13 ,23;0;"000": `D$="G"13 ,16;2;"GAMBLE";15,18;4;"COLLECT":3555 .1}L,10 3515 J=(*15)+10 6M=1J:K=(*9 )+1:44099+K:M \17,17;1;7;"TIMES";17,23;1;"";N;"" MUSIC >17,17;1;"NUDGE";17,23;"0"  19,11 ;" ";19,11 ;1;N*W:O=1502:O:19,11 ;"000";13 ,23;"000"  W=W*N & 0 FLASH AREA SUBS :N=1:9 ,22;1;7;2;"x1":.1}L,-10 :9 ,22;0;7;0;"x1": ;N=2:9 ,18;1;7;2;"x2":.1}L,0:9 ,18;0;7;0;"x2": <N=3:6,23;1;7;2;"x3":.1}L,10 :6,23;0;7;0;"x3": =N=4:6,20;1;7;2;"x4":.1}L,20:6,20;0;7;0;"x4": >N=5:6,17;1;7;2;"x5":.1}L,30:6,17;0;7;0;"x5": ?N=0:4,16;1;7;2;"LOSE":.1}L,-20:4,16;0;2;7;"LOSE": @N=0:4,16;1;7;2;"LOSE":.1}L,-20:4,16;0;2;7;"LOSE": AN=0:4,22;1;7;2;"LOSE":.1}L,-20:4,22;0;2;7;"LOSE": BN=0:4,22;1;7;2;"LOSE":.1}L,-20:4,22;0;2;7;"LOSE": D  HOLD  MUSIC 719,15;1;2;7;"START" !A=0:B=0:C=0 P5,3;7;3;H$;5,7;H$;5,11 ;H$ ="1"A=1 ="2"B=1 ="3"C=1 ="S"4700\  =" "END ="C"4510 A=14570 05,3;1;3;7;H$ B=14590 05,7;1;3;7;H$ C=14610 15,11 ;1;3;7;H$ 5O=0205:.01z# =,O+10 :O  4515 \C19,15;0;2;7;"START":4709e e\2,17;"10p":.1}L,-10 :2,17;"10p":TOT=TOT-10 fP19,21;1;TOT:TOT-119,21;"0":END k&TOT99c19,23;" " p'TOT99919,24;" " u 1000   VARIABLES   0 $X$="" $Y$="" $Z$="" X=(*30)+1 Y=(*30)+1 Z=(*30)+1 DEC2=3300 :INS1=0:INS2=0:MUSIC=2800 :WIN=2400` :LOSE=2600( :TOT=100d:DEC=1400x:END=5500|:HOLD=4500:NUDGE=3000 :GAMBLE=3500 :JACKPOT=2005 7W=0:N=0:A=0:B=0:C=0 RND=:H$="":N$="" w |END  8O=200-5-1:.005y# =,O/3:O 1:30,62>:62>,62>:62>+32 ,62>:30,86V:62>,86V:62>+32 ,86V:30,110n:62>,110n:62>+32 ,110n:28,84T:60<,84T:60<+32 ,84T 530,62>:6900:62>,62>:6900:62>+32 ,62>:6900:30,86V:6900:62>,86V:6900:62>+32 ,86V:6900:30,110n:6900:62>,110n:6900:62>+32 ,110n:6900  28,84T:15,0:0,15:-15,0:0,-15:60<,84T:15,0:0,15:-15,0:0,-15:60<+32 ,84T:15,0:0,15:-15,0:0,-15 22,59;:91[,0:0,24:10 ,0:0,17:-10 ,0:0,24:-91[,0:0,-24:-10 ,0:0,-17:10 ,0:0,-24 12 ,81Q:8,0:0,-22:12 ,102f:8,0:0,22:123{,81Q:-8,0:0,-22:123{,102f:-8,0:0,22 22,59;  0 7,4;" ";7,8;" ";7,12 ;" ";13 ,4;" ";13 ,8;" ";13 ,12 ;" ";10 ,4;" ";10 ,2;0;" ";10 ,14;" " ]22,62>:91[,0:0,59;:-91[,0:0,-59; DO=3010 -1:.01z# =,O:.01z# =,O+10 :O K7,3;2;"";8,4;"";9 ,4;"" a.5,2:7,7;3;" ";8,7;"";9 ,7;" " d.5,4:7,11 ;2;"";8,11 ;"";9 ,11 ;"" d.5,8:11 ,3;3;"";12 ,3;"";13 ,3;"" e.5,10 :11 ,7;2;"";12 ,7;"";13 ,7;"" {.5,12 :11 ,11 ;3;"";12 ,11 ;" ";13 ,11 ;"":.5,14 MUSIC:0 MP=713 :Q=313 :P$=" ":P,Q;P$;:.01z# =,Q:Q:P \8,5;"ANOTHER";10 ,6;"GAME";12 ,7;"YES-NO" F$= +F$="Y"5000:7900:170 .01z# =,40( CF$="N":A=502-20-1:.01z# =,A:A:0 F$"Y"F$"N"5620 k p SCREEN CONSTRUCTION  tINS1=0:INS2=0 u/6:7:0:0:1: yINS2=16500d z FIRST HALF 2,2;6;"T";5;"O";4;"O";3;"T";2;"I";1;"E";7;" ";1;"F";2;"R";3;"U";4;"I";5;"T";6;"Y" 5,3;7;3;H$;5,7;H$;5,11 ;H$;15,3;N$;15,7;N$;15,11 ;N$ D=713 3:.1}L,D+10 :D,4;3;"";D,8;"";D,12 ;"":D:20:10 ,2;1;1;"";10 ,14;"";17,4;0;2;1;17,8;2;17,12 ;3 o19,2;7;3;"LOSE";19,7;4;"WIN";19,11 ;0;"000" 530,62>:6900:62>,62>:6900:62>+32 ,62>:6900:30,86V:6900:62>,86V:6900:62>+32 ,86V:6900:30,110n:6900:62>,110n:6900:62>+32 ,110n:6900  28,84T:15,0:0,15:-15,0:0,-15:60<,84T:15,0:0,15:-15,0:0,-15:60<+32 ,84T:15,0:0,15:-15,0:0,-15 22,46.:27,0:0,11 :-27,0:0,-11 :546,46.:27,0:0,11 :-27,0:0,-11 :86V,46.:27,0:0,11 :-27,0:0,-11 22,126~:27,0:0,11 :-27,0:0,-11 :546,126~:27,0:0,11 :-27,0:0,-11 :86V,126~:27,0:0,11 :-27,0:0,-11 22,59;:91[,0:0,24:10 ,0:0,17:-10 ,0:0,24:-91[,0:0,-24:-10 ,0:0,-17:10 ,0:0,-24 22,41):91[,0:0,3:-91[,0:0,-3:22,139:91[,0:0,3:-91[,0:0,-3 12 ,81Q:8,0:0,-22:12 ,102f:8,0:0,22:123{,81Q:-8,0:0,-22:123{,102f:-8,0:0,22 J480,91[:7,0:480,92\:7,0:80P,91[:7,0:80P,92\:7,0:14,14:35#,0:0,11 :-35#,0:0,-11 :546,14:27,0:0,11 :-27,0:0,-11 N15,160:105i,0:15,151:105i,0 INS1=1 d SECOND HALF n(2,17;0;7;"10p";2,22;"50p";4,16;2;7;"LOSE LOSE";13 ,16;2;7;"GAMBLE";13 ,23;0;7;"000";19,15;7;2;;"START";19,21;7;1;"0" sd17,17;1;"NUDGE";17,23;"0";15,18;4;"COLLECT" x6,17;"x5":.1}L,20:6,20;"x4":.1}L,20:6,23;"x3":.1}L,00:9 ,18;"x2":.1}L,-10 :9 ,22;"x1" }s2;6;143,123{,11 :.1}L,20:2;6;167,123{,11 :.1}L,10 :2;6;167+24,123{,11 :.1}L,0:2;6;167-16,100d,11 :.1}L,-10 :2;6;167+24-8,100d,11 :.1}L,-20 E=414:.01z# =,E:E,29;5;"":E:.01z# =,20:14,27;5;"":.01z# =,25:2,28;5;"";3,28;"";4,28;"" 216,20:20,0:0,-5:-20,-9 :216,42*:7,0:0,2:-7,3 134,86V:67C,0:0,24:8,0:0,27+8:-83S,0:0,-35#:8,0:0,-24 118v,14:43+,0:0,11 :-43+,0:0,-11 :116t,12 :47/,0:0,15:-47/,0:0,-15 167,14:42*,0:0,11 :-42*,0:0,-11 :167,12 :42*,0:167,27:42*,0:126~,62>:513,0:0,11 :-513,0:0,-11 g126~+16,46.:59;,0:0,11 :-59;,0:0,-11 134,150:27,0:0,11 :-27,0:0,-11 :174,150:27,0:0,11 :-27,0:0,-11 t130,151:1,0:0,8:-1,0:0,-8:170,151:1,0:0,8:-1,0:0,-8:127,148:36$,0:0,15:-36$,0:0,-15:167,148:36$,0:0,15:-36$,0:0,-15 INS2=1 g0,0:255,0:0,175:-255,0:0,-175:8,8:205,0:0,176-16:-205,0:0,-(176-16):6,6:205+4,0:0,176-16+4:-(205+4),0:0,-(176-16+4) MUSIC 19,21;" p" LO=0100d:19,21;1;O:.01z# =,O/2:O  $SUBS FOR DRAWING SQRS   .01z# =,20:11 ,0:.01z# =,10 :0,11 :.01z# =,20:-11 ,0:.01z# =,30:0,-11 :.01z# =,40( S X!INSTRUCTIONS  Z PART 1  .5,0::10 ,1;"DO YOU WISH INSTRUCTIONS Y/N ?" \O$=:O$="N" ]O$="Y"7009a ^ 7004\ a76:0:0::INS1=1:6010z b136,0:0,175:0,0:255,0:0,175:-255,0:0,-175 gHO=021:O,17;6;1;" ":O lMUSIC mB$="TOOTIE FRUITY":H=1̱B$:2,17+H;6;2;B$(H);:.01z# =,H:.01z# =,H+20:.01z# =,20-H:H qvA=110 :A:4,23;6;"THE";6,18;"ULTIMATE IN";8,23;"COMPUTER" vB$="GAMBLING":H=1̱B$:H+8,H+19;6;2;B$(H):.01z# =,20-H:.01z# =,H:.01z# =,H+20:H {]18,22;6;"DREAM";19,21;"SOFTWARE";20,23;"1983" |&A=-10 30:.01z# =,A:A =O=120:O,18;6;" ":O t1,18;6;"INSTRUCTIONS";2,19;"SECTION 1";1,18;1;" _" .5,0:6,21;6;"REEL 1":7,4;1;1;" ";10 ,4;" ";13 ,4;" ":I=110 :I i79906:7,4;3;0;1;" ";10 ,4;" ";13 ,4;" " .5,10 :7,21;6;"REEL 2":7,8;1;1;" ";10 ,8;" ";13 ,8;" ":I=110 :I i79906:7,8;0;1;3;" ";10 ,8;" ";13 ,8;" " .5,20:8,21;6;"REEL 3":7,12 ;1;1;" ";10 ,12 ;" ";13 ,12 ;" ":I=110 :I l79906:7,12 ;0;3;1;" ";10 ,12 ;" ";13 ,12 ;" " .5,30:10 ,20;2;6;"WIN LINE":10 ,4;1;1;2;" ";10 ,8;" ";10 ,12 ;" ":I=110 :I k79906:10 ,4;0;1;3;" ";10 ,8;" ";10 ,12 ;" " \15,3;3;7;1;N$;15,7;N$;15,11 ;N$  79906 %12 ,18;6;"NUDGE" 14,21;6;"WHEN NUDGE";15,18;"FLASHES YOU";16,18;"CAN NUDGE ANY";17,18;"ONE REEL" T19,19;6;"PRESS ENTER";20,19;"TO CONTINUE" C$=:=""7110 =A=320:A,18;6;" ":A \15,3;0;3;7;N$;15,7;N$;15,11 ;N$ MUSIC Y5,3;1;3;7;H$;5,7;H$;5,11 ;H$ ھ4,18;6;"HOLD";5,20;"WHEN HOLD";6,18;"FLASHES YOU";7,18;"CAN HOLD ANY";8,18;"OF THE THREE";9 ,18;"REELS."  79906 Y5,3;0;3;7;H$;5,7;H$;5,11 ;H$ ߠ11 ,18;6;1;"LOSE";12 ,19;"THIS FLASHES";13 ,18;"WHEN YOU WIN";14,18;"NOTHING":79906:LOSE T19,19;6;"PRESS ENTER";20,19;"TO CONTINUE" C$=:=""7145 =A=320:A,18;6;" ":A #4,18;6;"WIN";5,20;"WHEN WIN";6,18;"FLASHES THIS";7,18;"MEANS THAT";8,18;"YOU HAVE WON";9 ,18;"SOME MONEY";11 ,19;"THE AMOUNT";12 ,18;"YOU HAVE WON";13 ,18;"IS DISPLAYED" )79906:79906:W=30:WIN T19,19;6;"PRESS ENTER";20,19;"TO CONTINUE" C$=:=""7165 =MUSIC B"PART 2  LINS2=1::6500d N113q,8:100d,0:0,176-16:-100d,0:113q,6:102f,0:0,176-16+4:-102f,0 Q0,0:255,0:0,175:-255,0:0,-175:112p,0:0,175 VFA=021:A,0;1;6;" ":A tz1,1;6;"INSTRUCTIONS";1,1;1;" _";2,2;2;"SECTION 2" y4,1;1;6;"GAMBLE";5,2;0;1;"WHEN GAMBLE"'" /COLLECT ARE"'" FLASHING YOU"'" CAN GAMBLE"'" YOUR MONEY" ~A=110 :13 ,16;1;2;7;"GAMBLE";15,18;4;"COLLECT":.1}L,10 :A L13 ,16;2;"GAMBLE";15,18;4;"COLLECT" A=120:A gA=110 :13 ,23;1;"000":.1}L,15:A:13 ,23;"000" e12 ,2;6;1;"THIS SHOWS"'" THE AMOUNT"'" OF MONEY"'" BEING"'" GAMBLED" T19,1;6;"PRESS ENTER";20,1;"TO CONTINUE" C$=:C$=""7580 ;A=320:A,1;6;" ":A 4,1;6;1;"PRESS ~C~"'" TO COLLECT"'" MONEY"''" PRESS ~G~"'" TO GAMBLE"'" MONEY"''" BY GAMBLING"'" YOU CAN WIN"'" UPTO FIVE"'" TIMES YOUR"'" ORIGINAL"'" STAKE." T19,1;6;"PRESS ENTER";20,1;"TO CONTINUE" C$=:C$=""7630 ;A=320:A,1;6;" ":A [79906:17,17;1;1;"NUDGE";17,23;"8" NMUSIC:17,17;0;1;"NUDGE";17,23;"0" 4,2;6;"THIS SHOWS";5,3;"HOW MANY";6,2;"NUDGES YOU";7,2;"HAVE LEFT" C79906:19,21;1;1;1;" " C79906:19,21;0;1;1;" " uA=110 :.01z# =,A+10 :A:10 ,1;6;"TOTAL AMOUNT";11 ,3;"OF MONEY"  79906 T19,1;6;"PRESS ENTER";20,1;"TO CONTINUE" C$=:C$=""7675 xMUSIC PAY OUTS  &1:7:0:0: h6+16,142:219,0:0,27:-219,0:0,-27 fK$=" ":J$=" ":L$=" " =1,3;K$;2,3;J$;3,3;L$ 15,5;3;"";0;"..=020" 5,13 ;6;"";0;".=010";6,13 ;4;"";0;".=010";7,13 ;2;"";0;".=020";8,13 ;2;"";0;".=020";9 ,13 ;1;"";0;".=030";10 ,13 ;1;"";0;".=030";11 ,13 ;6;"";0;".=040";12 ,13 ;2;"";0;".=050";13 ,13 ;3;"";0;".=060" 5,21;6;"";0;"=060";6,21;4;"";0;"=060";7,21;2;"";0;"=080";8,21;2;"";0;"=080";9 ,21;1;"";0;"=090";10 ,21;1;"";0;"=090";11 ,21;6;"";0;"=100";12 ,21;2;"";0;"=110";13 ,21;3;"";0;"=150" h22+16,62>:187,0:0,75K:-187,0:0,-75K 915,1;1;2;7;"CONTROLS" 16,2;"~1~-NUDGE/HOLD REEL 1";17,2;"~2~-NUDGE/HOLD REEL 2";18,2;"~3~-NUDGE/HOLD REEL 3" "19,2;"~S~-START ~SPACE~-ABORT";20,2;"~C~-COLLECT WIN/CANCEL HOLD";21,2;"~G~-GAMBLE WIN" ,M$= -t#1;0,0;7;0;"% PRESS ANY KEY TO PLAY " .\Q=06:1,3;Q;K$;2,3;Q;J$;3,3;Q;L$:Q /eQ=60-1:1,3;Q;K$;2,3;Q;J$;3,3;Q;L$:Q 0M$=""7980, 18.2~L,10 ::MUSIC:INS1=0:INS2=0 5 6DELAY SUBROUTINE 7A=130:A ; @ INTRODUCTION  Es11 ,9 ;1;"STOP THE TAPE";0;13 ,10 ;"THEN PRESS";15,12 ;"ANY KEY" JZ$= K&Z$="".5,10 :8005E N OT1,0;1;" ":A=26:A,2;1;" ":A T5,5;2;" ":A=69 :A,5;2;" ";A,8;" ":A:10 ,5;2;" " Y1,11 ;3;" ":A=25:A,11 ;3;" ";A,14;" ":A:6,11 ;3;" " ^W5,17;4;" ":A=610 :A,19;4;" ":A c1A=16:A,24;5;" ":A h5,27;6;" ":A=610 :A,27;6;" ":A:7,29;6;" ";10 ,29;" " mnA=12 17:A,0;6;" ":A:12 ,2;6;" ";14,2;" " rA=1621:A,4;5;" ":A:16,6;5;" ";17,9 ;" ";18,6;" ";19,9 ;" ";20,9 ;" ";21,9 ;" " w}A=12 17:A,11 ;4;" ";A,15;" ":A:16,13 ;4;" ";17,13 ;" " |3A=1621:A,17;3;" ":A YA=13 17:A,22;2;" ":A:12 ,20;2;" " vA=1821:A,29;1;" ":A:A=1618:A,27;1;" ";A,31;" ":A }O=255-2:A=1255:254,A:.005y# =,O*2:.004yn,O:254,O:A:O ## #( MOVE+LOAD CHARACTER SET #-,11 ,5;"P L E A S E W A I T" #2,236066\,0:236077\,249 #70C=15616=16383?:C+48384,C:C #ՒG19>Ve3X'vx>>BB<DHpHDB@~BfZBBBBbRJFB