0 REM Modified by Jim Woolley, FOG Disk Librarian, 8/82
1 RANDOMIZE
5 PRINT CHR$(26):WIDTH 80
10 PRINT TAB(30);"SLOTS":PRINT
20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
30 PRINT:PRINT:PRINT
100 REM
110 REM THIS PROGRAM SIMULATES A SLOT MACHINE
120 PRINT "YOU ARE IN THE H&M CASINO, IN FRONT OF ONE OF OUR"
130 PRINT "ONE-ARMED BANDITS.  BET FROM 1$ TO $100."
140 PRINT "TO QUIT, ANSWER 'AGAIN?' WITH 'NO'."
145 PRINT "TO CONTINUE, PRESS <RETURN> AFTER 'AGAIN?'."
150 LET P=0
160 PRINT:PRINT "YOUR BET";
170 INPUT M
180 IF M>100 THEN 860
190 IF M<1 THEN 880
200 M=INT(M)
210 GOSUB 1270
220 PRINT
230 LET X=INT(6*RND(1)+1)
240 LET Y=INT(6*RND(1)+1)
250 LET Z=INT(6*RND(1)+1)
260 PRINT
270 ON X GOTO 910,930,950,970,990,1010
330 ON Y GOTO 1030,1050,1070,1090,1110,1130
390 ON Z GOTO 1150,1170,1190,1210,1230,1250
450 IF X=Y THEN 600
460 IF X=Z THEN 630
470 IF Y=Z THEN 650
480 PRINT:PRINT"YOU LOST."
500 LET P=P-M
510 PRINT "YOUR STANDINGS ARE $"P
520 PRINT "AGAIN";
530 INPUT A$
540 IF LEFT$(A$,1)<>"N" THEN 160
550 PRINT
560 IF P<0 THEN 670
570 IF P=0 THEN 690
580 IF P>0 THEN 710
590 GOTO 1350
600 IF Y=Z THEN 730
610 IF Y=1 THEN 820
620 GOTO 1341
630 IF Z=1 THEN 820
640 GOTO 470
650 IF Z=1 THEN 820
660 GOTO 1341
670 PRINT "PAY UP!  PLEASE LEAVE YOUR MONEY ON THE TERMINAL."
680 GOTO 1350
690 PRINT "HEY, YOU BROKE EVEN."
700 GOTO 1350
710 PRINT "COLLECT YOUR WINNINGS FROM THE H&M CASHIER."
720 GOTO 1350
730 IF Z=1 THEN 780
740 PRINT:PRINT "**TOP DOLLAR**"
750 PRINT "YOU WON!"
760 P=(((10*M)+M)+P)
770 GOTO 510
780 PRINT:PRINT "***JACKPOT***"
790 PRINT "YOU WON!"
800 P=(((100*M)+M)+P)
810 GOTO 510
820 PRINT:PRINT "*DOUBLE BAR*"
830 PRINT "YOU WON!"
840 P=(((5*M)+M)+P)
850 GOTO 510
860 PRINT "HOUSE LIMITS ARE $100"
870 GOTO 160
880 PRINT "MINIMUM BET IS $1"
890 GOTO 160
900 GOTO 220
910 PRINT "BAR";:GOSUB 1310
920 GOTO 330
930 PRINT "BELL";:GOSUB 1310
940 GOTO 330
950 PRINT "ORANGE";:GOSUB 1310
960 GOTO 330
970 PRINT "LEMON";:GOSUB 1310
980 GOTO 330
990 PRINT "PLUM";:GOSUB 1310
1000 GOTO 330
1010 PRINT "CHERRY";:GOSUB 1310
1020 GOTO 330
1030 PRINT " BAR";:GOSUB 1310
1040 GOTO 390
1050 PRINT " BELL";:GOSUB 1310
1060 GOTO 390
1070 PRINT " ORANGE";:GOSUB 1310
1080 GOTO 390
1090 PRINT " LEMON";:GOSUB 1310
1100 GOTO 390
1110 PRINT " PLUM";:GOSUB 1310
1120 GOTO 390
1130 PRINT " CHERRY";:GOSUB 1310
1140 GOTO 390
1150 PRINT " BAR"
1160 GOTO 450
1170 PRINT " BELL"
1180 GOTO 450
1190 PRINT " ORANGE"
1200 GOTO 450
1210 PRINT " LEMON"
1220 GOTO 450
1230 PRINT " PLUM"
1240 GOTO 450
1250 PRINT " CHERRY"
1260 GOTO 450
1270 FOR Q4=1 TO 10
1280 PRINT CHR$(7);
1290 NEXT Q4
1300 RETURN
1310 FOR T8=1 TO 5
1320 PRINT CHR$(7);
1330 NEXT T8
1340 RETURN
1341 PRINT:PRINT "DOUBLE!!"
1342 PRINT "YOU WON!"
1343 P=(((2*M)+M)+P)
1344 GOTO 510
1350 REM
9999 RUN "MENU"
40 RETURN
1341 PRINT:PRINT "DOUBLE!!