10 PRINT "SLOTS"
20 PRINT "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
30 PRINT: PRINT: PRINT
100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN 29, 1973
110 REM IT SIMULATES THE SLOT MACHINE.
120 PRINT "YOU ARE IN THE H&M CASINO,IN FRONT OF ONE OF OUR"
130 PRINT "ONE-ARM BANDITS. BET FROM $1 TO $100."
140 PRINT "TO PULL THE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET."
150 LET P=0
160 PRINT: PRINT "YOUR BET";
170 INPUT M
180 IF M>100 THEN 860
190 IF M<1 THEN GOTO 880
220 PRINT
230 X=RND(6)+1
240 Y=RND(6)+1
250 Z=RND(6)+1
260 PRINT
270 IF X=1 THEN GOTO 910
280 IF X=2 THEN GOTO 930
290 IF X=3 THEN GOTO 950
300 IF X=4 THEN GOTO 970
310 IF X=5 THEN GOTO 990
320 IF X=6 THEN GOTO 1010
330 IF Y=1 THEN GOTO 1030
340 IF Y=2 THEN GOTO 1050
350 IF Y=3 THEN GOTO 1070
360 IF Y=4 THEN GOTO 1090
370 IF Y=5 THEN GOTO 1110
380 IF Y=6 THEN GOTO 1130
390 IF Z=1 THEN GOTO 1150
400 IF Z=2 THEN GOTO 1170
410 IF Z=3 THEN GOTO 1190
420 IF Z=4 THEN GOTO 1210
430 IF Z=5 THEN GOTO 1230
440 IF Z=6 THEN GOTO 1250
450 IF X=Y THEN GOTO 600
460 IF X=Z THEN GOTO 630
470 IF Y=Z THEN GOTO 650
480 PRINT
490 PRINT "YOU LOST."
500 LET P=P-M
510 PRINT "YOUR STANDINGS ARE $";P
520 PRINT "AGAIN (1 = yes, 0 = no)";
530 INPUT A
540 IF A#0 THEN GOTO 160
550 PRINT
560 IF P<0 THEN GOTO 670
570 IF P=0 THEN GOTO 690
580 IF P>0 THEN GOTO 710
590 GOTO 1350
600 IF Y=Z THEN GOTO 730
610 IF Y=1 THEN GOTO 820
620 GOTO 1341
630 IF Z=1 THEN GOTO 820
640 GOTO 470
650 IF Z=1 THEN GOTO 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 GOTO 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";
920 GOTO 330
930 PRINT "BELL";
940 GOTO 330
950 PRINT "ORANGE";
960 GOTO 330
970 PRINT "LEMON";
980 GOTO 330
990 PRINT "PLUM";
1000 GOTO 330
1010 PRINT "CHERRY";
1020 GOTO 330
1030 PRINT " BAR";
1040 GOTO 390
1050 PRINT " BELL";
1060 GOTO 390
1070 PRINT " ORANGE";
1080 GOTO 390
1090 PRINT " LEMON";
1100 GOTO 390
1110 PRINT " PLUM";
1120 GOTO 390
1130 PRINT " CHERRY";
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
1341 PRINT: PRINT "DOUBLE!!"
1342 PRINT "YOU WON!"
1343 P=(((2*M)+M)+P)
1344 GOTO 510
1350 END
