10 REM BANDT.ECB 100 REM ==== BANDIT*** (BASIC PROGRAM BEGINS AT 240) 110 REM ==== CONVERTED TO U1106 12/3/71 BY N.SCHALLERT 120 REM ...Last revised 03-14-81 R.E.H. 130 REM ==== DESCRIPTION--SIMULATES INTERACTION 140 REM ==== BETWEEN YOU AND A SLOT MACHINE 170 PRINT "&K&J&J" 180 DIM W$(60) 190 PRINT TAB(10);"=====================" 200 PRINT TAB(10);"== ==" 210 PRINT TAB(10);"== B A N D I T ==" 220 PRINT TAB(10);"== ==" 230 PRINT TAB(10);"=====================" 240 PRINT 250 LET W$="LEMON CHERRY ORANGE " 260 LET W$=W$+"PLUM BELL LIBERTY " 270 DATA 0.00,0.40,0.65,0.83,0.94,1.00 280 DATA 0.10,0.45,0.65,0.80,0.90,1.00 290 DATA 0.30,0.30,0.50,0.70,0.82,1.00 340 PRINT "=== Type in a 'Y' for the RULES ---=>"; 350 INPUT (1,0)I$: LET I$=I$+"N" 360 PRINT 370 IF I$(1,1)="Y" THEN 500 380 PRINT "WHAT IS YOUR LUCKY NUMBER TODAY, BETWEEN 1 AND 711"; 390 INPUT Q 400 IF Q<1 OR Q>711 THEN 360 410 PRINT 420 LET F=43 430 LET U=INT(Q+F) 440 FOR I=1 TO U 450 LET V=RND(0) 460 NEXT I 470 LET A=INT(30+15*V): LET S=A 480 PRINT "GOOD. YOUR STARTING BALANCE IS $";S 490 GOTO 630 500 PRINT "&K&J" 510 PRINT "RULES OF PLAY:" 520 PRINT " FOR EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER" 530 PRINT " DOLLARS INTO THE MACHINE, UP TO THE BALANCE" 540 PRINT " YOU HAVE, BY TYPING IN THE QUANTITY OF DOLLARS." 550 PRINT 560 PRINT " YOU PULL DOWN THE HANDLE..." 570 PRINT "........ By depressing the (RETURN) key." 580 PRINT 590 PRINT " THE GAME ENDS WHEN YOUR BALANCE REACHES ZERO." 600 PRINT " TYPE 'STOP' TO QUIT AT ANY TIME. GOOD LUCK!" 610 PRINT 620 GOTO 380 630 PRINT " HOW MANY DOLLARS DO YOU WANT TO PUT IN... " 640 PRINT "........ ON YOUR FIRST PLAY ? "; 650 INPUT Z 660 PRINT " YOU CAN LEAVE WHILE 'AHEAD' BY ENTERING '0'" 670 PRINT 680 IF Z=0 THEN 1500 690 IF Z<=0 THEN 710 700 IF Z6 THEN 930 920 PRINT W$(W*8-7,W*8); 930 NEXT I 940 LET D=100*T(1)+10*T(2)+T(3) 950 IF D>220 AND D<225 THEN 1080 960 IF D=225 THEN 1090 970 IF D=226 THEN 1110 980 IF D=333 THEN 1150 990 IF D=444 THEN 1170 1000 IF D=555 THEN 1190 1010 IF D=336 THEN 1210 1020 IF D=446 THEN 1230 1030 IF D=556 THEN 1250 1040 IF D=666 THEN 1270 1050 LET D=0 1060 PRINT "...A LOSER "; 1070 GOTO 1310 1080 LET D=2*Z 1090 LET D=4*Z 1100 GOTO 1310 1110 LET D=6*Z 1120 GOTO 1310 1130 LET D=8*Z 1140 GOTO 1310 1150 LET D=10*Z 1160 GOTO 1310 1170 LET D=12*Z 1180 GOTO 1310 1190 LET D=14*Z 1200 GOTO 1310 1210 LET D=16*Z 1220 GOTO 1310 1230 LET D=18*Z 1240 GOTO 1310 1250 LET D=20*Z 1260 GOTO 1310 1270 LET D=INT(200+400*RND(0)) 1280 PRINT "...YOU HIT THE JACKPOT OF $";D 1290 PRINT 1300 LET E=1 1310 LET S=S+D-Z 1320 IF S>0 THEN 1360 1330 PRINT 1340 PRINT "YOU HAVE RUN OUT OF MONEY..." 1350 GOTO 1530 1360 IF D=0 THEN 1390 1370 IF E=1 THEN 1390 1380 PRINT "YOU WIN: $";D; 1390 PRINT " Balance: $";S;" AGAIN?"; 1400 INPUT Z 1410 IF Z=0 THEN 1500 1420 IF Z<=0 THEN 1450 1430 IF Z=999 THEN 1520 1440 IF Z0 THEN 1590 1550 PRINT TAB(10);"*** THE HAPPY BANDIT THANKS YOU ***" 1560 PRINT 1570 PRINT "............FOR THE $";ABS(S-A);" DOLLARS!!" 1580 PRINT 1590 END