10 REM:THE FOLLOWING NEED TO BE CHANGED TO CREATE A NEW MACHINE
15 REM LINES 120 TO 179 ARE THE PAYOFF MULTIPLIERS FOR ALL WINS   THIS VARIABLE DOES NOT EFFECT PAYOFFS IT IS ONLY USED TO DISPLAY PAYOFFS
20 REM LINES 660 TO 700 SETS THE NUMBER OF SPOTS ON EACH REEL
24 REM LINES 725 TO 880 IF ANOTHER REEL WAS ADDED IT WOULD BE DONE HERE
26 REM IF A 4TH LINE IS ADDED DO NOT USE  D  FOR A VARIABLE IT HAS BEEN USED
30 REM IF MORE SPOTS ARE ADDED TO THE REELS LINES  902 TO 906 AND 922 TO 926 AND 960 TO 1080
34 REM LINES 2050 TO 2400 MUST BE CHANNGED TO SET NEW PAYOFFS
37 REM LINES 5072 TO 5190 PRINT ON SCREEN ALL PAYOFFS BEFORE REELS ARE SPUN
40 REM LINES 5024 AND 5025 SET PLAYER MAX BET
44 REM LINE 5025 PRINTS MAX BET ON SCREEN
45 REM LINE 199 SHOWS WHAT SLOT MACHINE THIS IS
48 REM LINE 5030 PRINTS ON  SCREEN PAYOUT %
70 KEY OFF:SOUND 300,1:CM=1:SCREEN 2:SCREEN 0:COLOR 14:CLS:LOCATE  9,26:PRINT "HOW  FAST  IS  YOUR  COMPUTER"
73 COLOR 11
74 LOCATE 13,30:PRINT "1 - PENTIUM"
76 LOCATE 14,30:PRINT "2 - 486"
78 LOCATE 15,30:PRINT "3 - 386 OR SLOWER"
80 LOCATE 20,30
81 QW$=INKEY$:IF LEN(QW$)<1 GOTO 81
82 IF QW$="1" THEN CM=.4!
84 IF QW$="3" THEN CM=40
100 SCREEN 2:SCREEN 1:CLS:RANDOMIZE TIMER:COLOR 8,2
110 SP=7:CRE=100:SP$="MEDIUM"
120 P27=50:P26=20:P25=15:P24=8:P23=4:P22=3:P21=2:P20=1:P19=1:P18=1:P8=1:P7=1:P6=1:P5=2:P4=5:P3=10
199 LOCATE 10,11:PRINT "SLOT  MACHINE  # 6"
200 SD=600
202 SD=SD+400
204 SOUND SD,.5!
206 SD=SD-100
208 SOUND SD,.5!
210 IF SD<3400  GOTO 202
212 EE=EE+1
213 IF EE<1 GOTO 200
214 SD=200
215 SD=SD+400
220 SOUND SD,.05!
225 SD=SD-100
226 SOUND SD,.05!
230 IF SD<8000  GOTO 215
235 FF=FF+1
237 IF FF<9 GOTO 214
240 GG=GG+1
242 IF GG<2 THEN EE=1:FF=1:GOTO 200
244 SD=0
245 SD=SD+400
246 SOUND SD,.5!
247 SD=SD-100
248 SOUND SD,.05!
249 IF SD<8000   GOTO 245
250 HH=HH+1
251 IF HH<2 GOTO 244
260 SD=200
261 SD=SD+400
262 SOUND SD,.05!
263 SD=SD-100
264 SOUND SD,.05!
265 IF SD<8000  GOTO 261
266 II=II+1
267 IF II<6 GOTO 260
299 CLS
300 GOTO 10000
500 D=0:SCOUNT=0:RS=SP*100'****** CHANGE # IN THIS LINE TO CHANGE REEL SPEED
510 R1=INT(RND*5)+5
511 R2=INT(RND*4)+R1+5'*************  HOW LONG THE 2ND AND 3RD REELS TAKE TO
512 R3=INT(RND*3)+R1+R2+1'**********  STOP AFTER THE FIRST
515 A=INT(RND*4)+2
520 B=INT(RND*4)+2'********* THIS IS WHAT THE 3 REELS START AT EACH SPIN
540 C=INT(RND*4)+2
560 AA=A-1:BB=B-1:CC=C-1
580 IF AA=0 THEN AA=1
600 IF BB=0 THEN BB=1
620 IF CC=0 THEN CC=1
640 A1=A+1:B1=B+1:C1=C+1
660 IF A1=10 THEN A1=1
680 IF B1=10 THEN B1=1
700 IF C1=10 THEN C1=1
720 SOUND 700,1
725 LOCATE 14, 6:PRINT AA
740 LOCATE 14, 9:PRINT BB
760 LOCATE 14,12:PRINT CC
780 LOCATE 13, 6:PRINT A'*******  THESE LOCATE LINES ARE THE REELS SPINNING
800 LOCATE 13, 9:PRINT B
820 LOCATE 13,12:PRINT C
840 LOCATE 12, 6:PRINT A1
860 LOCATE 12, 9:PRINT B1
880 LOCATE 12,12:PRINT C1
900 IF SCOUNT>=R1 GOTO 920
901 A=A+1:AA=AA+1:A1=A1+1
902 IF A=10 THEN A=1
904 IF A1=10 THEN A1=1
906 IF AA=10 THEN AA=1
920 IF SCOUNT>=R2 GOTO 940
921 B=B+1:BB=BB+1:B1=B1+1
922 IF B=10 THEN B=1
924 IF B1=10 THEN B1=1
926 IF BB=10 THEN BB=1
940 IF SCOUNT>=R3 GOTO 2000
941 C=C+1:CC=CC+1:C1=C1+1
960 IF C=10 THEN C=1
1020 IF C1=10 THEN C1=1
1080 IF CC=10 THEN CC=1
1100 COUNT=COUNT+CM' ****************  DELAY LOOP SO REELS DONT SPIN TO FAST
1120 IF COUNT