Directory of image this file is from
This file as a plain text file

100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN. 29, 1973
110 REM IT SIMULATES THE SLOT MACHINE.
115 REM *** CONVERTED TO BASIC-PLUS BY DAVE AHL, DIGITAL
116 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
120 PRINT\PRINT "WELCOME TO THE H&M CASINO !!"
130 PRINT "YOU ARE STANDING IN FRONT OF ONE OF OUR ONE-ARM BANDITS."
140 PRINT "YOU MAY BET FROM $1 TO $100.  TO PULL THE ARM, PRESS THE"
145 PRINT "RETURN KET AFTER MAKING YOUR BET."\PRINT \PRINT "GOOD LUCK !!!"
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(0)+1)
240 LET Y=INT(6*RND(0)+1)
250 LET Z=INT(6*RND(0)+1)
260 PRINT
270 IF X=1 THEN 910
280 IF X=2 THEN 930
290 IF X=3 THEN 950
300 IF X=4 THEN 970
310 IF X=5 THEN 990
320 IF X=6 THEN 1010
330 IF Y=1 THEN 1030
340 IF Y=2 THEN 1050
350 IF Y=3 THEN 1070
360 IF Y=4 THEN 1090
370 IF Y=5 THEN 1110
380 IF Y=6 THEN 1130
390 IF Z=1 THEN 1150
400 IF Z=2 THEN 1170
410 IF Z=3 THEN 1190
420 IF Z=4 THEN 1210
430 IF Z=5 THEN 1230
440 IF Z=6 THEN 1250
450 IF X=Y THEN 600
460 IF X=Z THEN 630
470 IF Y=Z THEN 650
480 PRINT
490 PRINT "YOU LOST."
500 LET P=P-M
510 PRINT "YOUR STANDINGS ARE $";P
520 PRINT \PRINT "WANT ANOTHER PULL (Y OR N)";\INPUT A$\IF A$="Y" 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 "PLEASE SEE THE SYSTEM MANAGER AND PAY UP THE MONEY YOU OWE !!"
680 GOTO 1350
690 PRINT"HEY, YOU BROKE EVEN."
700 GOTO 1350
710 PRINT "COLLECT YOUR WINNINGS FROM THE SYSTEM MANAGER !!"
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 
1290 NEXT Q4
1300 RETURN
1310 FOR T8=1 TO 5
1330 NEXT T8
1340 RETURN
1341 PRINT\PRINT "DOUBLE!!"
1342 PRINT "YOU WON!"
1343 P=(((2*M)+M)+P)
1344 GOTO 510
1350 END