LOMEM=768 10 PRINT " SLOTS" 20 PRINT "CREATIVE COMPUTING" 25 PRINT "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 ":PRINT "ONE OF OUR ONE-ARMED BANDITS. BET FROM":PRINT "$1 TO $100." 140 PRINT "TO PULL THE ARM, PUNCH THE RETURN KEY ":PRINT"AFTER MAKING YOUR BET." 150 P=0 160 PRINT:PRINT "YOUR BET"; 170 INPUT M 180 IF M>100 THEN 860 190 IF M<1 THEN 880 200 REM M=INT(M) 210 GOSUB 1270 220 PRINT 230 X=RND(6)+1 240 Y=RND(6)+1 250 Z=RND(6) 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 P=P-M 510 PRINT "YOUR STANDINGS ARE $";P 520 PRINT "AGAIN"; 530 INPUT A$ 540 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 "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 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"; 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 1270 FOR Q1=1 TO 10 1280 REM PRINT CHR$(7); BELL 1290 NEXT Q1 1300 RETURN 1310 FOR T1=1 TO 5 1320 REM PRINT CHR$(7); BELL 1330 NEXT T1 1340 RETURN 1341 PRINT: PRINT "DOUBLE!!" 1342 PRINT "YOU WON!" 1343 P=(((2*M)+M)+P) 1344 GOTO 510 1350 END 9999 END