10 REM ...BANDIT...from MERITSS : GAME 12-14-77 100 REM .... PSUEDO SLOT MACHINE GAME 110 PRINT "&K&J&J&J # $ @ BANDIT $ $ ^&J&J" 120 LET Y0=340 130 LET Y1=3096 140 LET Y2=4818 150 LET Y3=5894 160 LET Y4=6566 170 LET Y5=6986 180 LET Y6=7248 190 LET Y7=7412 200 LET Y8=7514 210 LET Y9=7578 215 PRINT "ENTER THE AMOUNT OF MONEY YOU WISH TO PLAY WITH." 220 INPUT Z 230 FOR A=1 TO 50 240 LET Y=RND(0): REM ...WAS--->LET Y=RND(Y) 250 NEXT A 260 PRINT "&J&J&J* BANDIT---A SIMULATED SLOT MACHINE&J" 270 PRINT "* PLAY UNTIL YOU OR THE BANK ARE BROKE&J" 280 INPUT "DO YOU NEED INSTRUCTIONS-(1=YES,0=NO)",X 290 IF X=0 THEN 470 300 PRINT "*****************************************************" 320 PRINT "* WINNING COMBINATIONS ARE AS FOLLOWS WITH 0DDS" 330 PRINT "* TTY TTY XXXX WINS 2" 340 PRINT "* TTY TTY TTY WINS 4 *" 350 PRINT "* CARD CARD CARD WINS 8 *" 360 PRINT "* TAPE TAPE TAPE WINS 16 *" 370 PRINT "* DISK DISK DISK WINS 32 *" 380 PRINT "* DRUM DRUM DRUM WINS 64 *" 390 PRINT "* 6400 6400 6400 WINS 128 *" 400 PRINT "* 6600 6600 6600 WINS 256 *" 410 PRINT "* ??? ??? ??? *MAGIC* *" 420 PRINT "* CDC CDC CDC TAKES IT ALL *" 430 PRINT "* WHEN QUESTION MARK IS TYPED OUT RESPOND WITH *" 440 PRINT "* THE NUMBER OF REPEATED PLAYS YOU WISH TO MAKE" 450 PRINT "* A COMMA, AND THE SIZE OF YOUR BET" 460 PRINT "****************************************************" 470 LET B1=4096 480 LET P1=Z 490 LET C2=0 500 LET C1=0 510 IF C29 THEN 720 710 LET A1=A2 720 IF A2<>9 THEN 740 730 LET A2=A1 740 IF A3<>9 THEN 760 750 LET A3=A2 760 IF (A1*A2)<>81 THEN 790 770 LET A2=A3 780 LET A1=A2 790 IF A1=A2 THEN 810 800 GOTO 1430 810 IF A2=A3 THEN 890 820 IF A1=2 THEN 840 830 GOTO 1430 840 IF A3=1 THEN 1430 850 LET B1=B1-(2*C4) 860 LET P1=P1+(2*C4) 870 PRINT "WIN ";2*C4 880 GOTO 510 890 IF A1=1 THEN 1430 900 GOTO 1680 910 LET X2=0 911 LET Y=Y+(-1) 920 LET X1=INT(10000*RND(0)) 930 IF X1>Y9 THEN 920 940 IF X1>Y8 THEN 1040 950 IF X1>Y7 THEN 1050 960 IF X1>Y6 THEN 1060 970 IF X1>Y5 THEN 1070 980 IF X1>Y4 THEN 1080 990 IF X1>Y3 THEN 1090 1000 IF X1>Y2 THEN 1100 1010 IF X1>Y1 THEN 1110 1020 IF X1>Y0 THEN 1120 1030 GOTO 1130 1040 LET X2=X2+1 1050 LET X2=X2+1 1060 LET X2=X2+1 1070 LET X2=X2+1 1080 LET X2=X2+1 1090 LET X2=X2+1 1100 LET X2=X2+1 1110 LET X2=X2+1 1120 LET X2=X2+1 1130 LET X2=X2+1 1140 IF X2<10 THEN 1170 1150 PRINT "CDC "; 1160 RETURN 1170 IF X2<9 THEN 1200 1180 PRINT "??? "; 1190 RETURN 1200 IF X2<8 THEN 1230 1210 PRINT "6600 "; 1220 RETURN 1230 IF X2<7 THEN 1260 1240 PRINT "6400 "; 1250 RETURN 1260 IF X2<6 THEN 1290 1270 PRINT "DRUM "; 1280 RETURN 1290 IF X2<5 THEN 1320 1300 PRINT "DISK "; 1310 RETURN 1320 IF X2<4 THEN 1350 1330 PRINT "TAPE "; 1340 RETURN 1350 IF X2<3 THEN 1380 1360 PRINT "CARD "; 1370 RETURN 1380 IF X2<2 THEN 1400 1390 PRINT "TTY "; 1400 IF X2>1 THEN 1420 1410 PRINT "IBM "; 1420 RETURN 1430 LET A4=0 1440 IF A1=10 THEN 1560 1450 IF A2=10 THEN 1560 1460 IF A3=10 THEN 1560 1470 IF A1>1 THEN 1490 1480 LET A4=A4+1 1490 IF A2>1 THEN 1510 1500 LET A4=A4+1 1510 IF A3>1 THEN 1530 1520 LET A4=A4+1 1530 IF A4>0 THEN 1600 1540 PRINT " " 1550 GOTO 1930 1560 PRINT "WIN ";10*C4;" WITH CDC" 1570 LET B1=B1-(10*C4) 1580 LET P1=P1+(10*C4) 1590 GOTO 1930 1600 IF A4>1 THEN 1630 1610 PRINT "ZILCH" 1620 GOTO 1930 1630 IF A4>2 THEN 1660 1640 PRINT "DOUBLE ZILCH" 1650 GOTO 1930 1660 PRINT "TRIPLE ZILCH--IT CANT BE WORSE." 1670 GOTO 1930 1680 LET X4=2 1690 X3=1: REM ....WAS--->FOR X3=2 TO 10 1695 X3=X3+1 1700 LET X4=X4+X4 1710 IF A1=X3 THEN 1730 1720 IF X3<10 THEN 1695: REM ...NEXT X3 1730 IF A1=10 THEN 1790 1740 IF A1=9 THEN 1860 1750 LET B1=B1-(X4*C4) 1760 LET P1=P1+(X4*C4) 1770 PRINT "WIN ";X4*C4 1780 GOTO 1930 1790 LET P1=P1+B1 1800 LET B1=0 1810 PRINT "&J&J" 1820 PRINT " *J*A*C*K*P*O*T*&J" 1830 PRINT "YOU BROKE THE BANK,CHARLEY !!!!" 1835 PRINT " YOU NOW HAVE ";P1;" LEAVE QUIETLY.&J" 1840 GOTO 470 1850 LET P1=P1+1024 1860 LET B1=B1-1024 1870 PRINT "&JITS MAGIC BONUS TIME SWEETIE. YOU WIN 1024 DOLLARS" 1880 PRINT "&J COMPLIMENTS OF *** K R O N O S ***" 1900 PRINT " Control Data Corporation's 6400 CONVERSATIONAL SYSTEM.&J" 1920 GOTO 1930 1930 IF B1=0 THEN 1830 1940 IF B1<0 THEN 1830 1950 IF P1=0 THEN 1980 1960 IF P1<0 THEN 1980 1970 GOTO 510 1980 PRINT "&JYOU'RE ALL DONE SAM. NO CREDIT ALLOWED." 1985 PRINT " START NEW PLAYER&J" 1990 GOTO 480 2000 END