Listing of file='BANDIT.BAS;01' on disk='vmedia/sampler-sector.ccvf'
100 REM
110 REM
120 PLOT 6,33,12,27,11,14
130 PLOT 3,12,6
140 CLEAR 50
150 PLOT 6,25
160 Q9= PEEK (32936)
170 PRINT "COMPUCOLOR PRESENTS THE ONE ARMED BANDIT"
180 PLOT 3,64,0
190 FOR I= 1TO 2000:NEXT I
200 PLOT 6,2,12
210 DIM P(3,6),T$(6),D(2,12)
220 DIM T(3)
230 R1= 4
240 PRINT
250 FOR I= 1TO 3
260 FOR J= 1TO 6
270 READ P(I,J)
280 NEXT J
290 NEXT I
300 REM
310 DATA 0.00,0.40,0.65,0.83,0.94,1.00
320 DATA 0.10,0.45,0.65,0.80,0.90,1.00
330 DATA 0.30,0.30,0.50,0.70,0.82,1.00
340 FOR I= 1TO 6
350 READ T$(I)
360 NEXT I
370 DATA " LEMON "," CHERRY","ORANGE "," PLUM "," BELL ","LIBERTY"
380 FOR I= 1TO 2
390 FOR J= 1TO 12
400 READ D(I,J)
410 NEXT J:NEXT I
420 DATA 221,223,224,225,226,333,336,444,446,555,556,666
430 DATA 2,2,2,4,6,10,16,12,18,14,20,-1
440 PLOT 8,10
450 IF Q9< > 0THEN 510
460 PRINT "WOULD YOU LIKE INSTRUCTIONS (Y OR N):";
470 POKE 33278,0
480 S= RND (8):IF PEEK (33278)= 0GOTO 480
490 S= PEEK (33278):INPUT "";IN$:IN$= CHR$ (S)+ IN$
500 IF S< > ASC ("Y")THEN 670
510 PRINT
520 PLOT 14,6,2
530 PRINT "RULES OF PLAY:"
540 PRINT "ON EACH PLAY YOU CAN BET ANY NUMBER OF 'SILVER DOLLARS'"
550 PRINT "BETWEEN $1 AND YOUR BALANCE OR $999 WHICHEVER IS SMALLER."
560 PRINT "JUST TYPE IN THE NUMBER WHEN THE 'PLACE BET' SIGN STOPS BLINKING"
570 PRINT "(FULL DOLLAR BETS ONLY PLEASE)"
580 PRINT
590 PRINT "YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE RETURN KEY."
600 PRINT
610 PRINT "THE GAME IS OVER WHEN YOUR BALANCE REACHES ZERO OR"
620 PRINT "YOU BREAK THE BANK. IF YOU DECIDE TO QUIT EARLY THEN, BET 0."
630 PRINT
640 PRINT "ARE YOU READY FOR THE THRILL OF THE DAY? (Y OR N) ";
650 IF Q9< > 0THEN FOR S= 0TO 5000:NEXT :GOTO 670
660 INPUT "";A$
670 S= INT (30+ 15* RND (R1))
680 PLOT 15
690 GOSUB 2100
700 GOSUB 1220
710 Z= INT (Z)
720 IF Z= 0THEN GOSUB 1880
730 IF Z< 0THEN 750
740 IF Z< S+ 1THEN 770
750 GOSUB 1660
760 GOTO 700
770 REM
780 FOR I= 1TO 3
790 R= RND (R1)
800 FOR J= 1TO 6
810 T(I)= J
820 IF R< P(I,J)THEN 840
830 NEXT J
840 NEXT I
850 GOSUB 2650
860 D= 100* T(1)+ 10* T(2)+ T(3)
870 FOR I= 1TO 12
880 IF D= D(1,I)THEN 930
890 NEXT I
900 REM
910 D= 0
920 GOTO 1000
930 IF D(2,I)< 0THEN 960
940 D= Z* D(2,I)
950 GOTO 990
960 D= INT (200+ 400* RND (R1))
970 GOSUB 1780
980 REM
990 GOSUB 1420
1000 S= S+ D- Z
1010 IF S< = 0THEN 1050
1020 IF S> = 1000THEN 1080
1030 GOSUB 1530
1040 GOTO 700
1050 REM
1060 GOSUB 2990
1070 GOTO 1090
1080 GOSUB 1970
1090 REM
1100 PLOT 12
1110 IF Q9< > 0THEN 1140
1120 PRINT :PRINT "HOW ABOUT ANOTHER GO? (Y OR N) ";:INPUT A$
1130 IF A$= "Y"THEN 670
1140 PLOT 14,6,2
1150 PRINT :PRINT "WELL I HOPE YOU HAD A BIT OF THRILL AND WE HOPE"
1160 PRINT "TO SEE YOU BACK AT THE 'COMPUCOLOR CASINO' REAL SOON"
1170 PRINT :PRINT "SEE YOU WHEN YOU HAVE MORE MONEY TO DONATE"
1180 FOR I= 1TO 2500:NEXT I
1190 PLOT 15,6,2
1200 PLOT 27,11
1210 LOAD "MENU;1":RUN 5
1220 REM
1230 PLOT 3,49,4
1240 PLOT 6,66,14
1250 PRINT "PLACE BET"
1260 PLOT 3,64,0
1270 FOR I= 1TO 500
1280 NEXT I
1290 PLOT 3,49,4
1300 PLOT 6,2
1310 PRINT "PLACE BET"
1320 REM
1330 PLOT 15,6,2
1340 PLOT 3,42,4
1350 PLOT 155,10
1360 IF Q9= 4THEN Z= S:GOTO 1380
1370 INPUT "";Z
1380 PLOT 155,11
1390 PLOT 155,24
1400 PLOT 6,7
1410 RETURN
1420 REM
1430 PLOT 15,3,30,20
1440 PLOT 6,7
1450 PRINT "WINNER"
1460 PLOT 3,30,22
1470 PLOT 6,2
1480 PRINT "$ ";D
1490 PLOT 3,64,0
1500 PLOT 6,7
1510 FOR I= 1TO 1000:NEXT I
1520 RETURN
1530 REM
1540 PLOT 14,3,39,29
1550 FOR K= 1TO 6:PLOT 32:NEXT K
1560 PLOT 3,39,29
1570 PLOT 6,2
1580 PRINT S
1590 PLOT 15,6,7
1600 REM
1610 PLOT 3,30,20
1620 PRINT " "
1630 PLOT 3,30,22
1640 PRINT " "
1650 RETURN
1660 REM
1670 PLOT 3,49,5
1680 PLOT 6,65,14
1690 PRINT "BAD BET "
1700 PLOT 3,64,0
1710 FOR I= 1TO 500:NEXT I
1720 PLOT 15,6,7
1730 REM
1740 PLOT 3,42,4,32
1750 PLOT 10,26,32
1760 PLOT 10,26,32
1770 RETURN
1780 REM
1790 PLOT 14,3,29,0
1800 PLOT 6,79
1810 PRINT "JACKPOT"
1820 PLOT 3,64,0
1830 FOR I= 1TO 2000:NEXT I
1840 PLOT 3,29,0
1850 PLOT 6,34:PRINT "$$$$$$$"
1860 PLOT 15,6,7
1870 RETURN
1880 REM
1890 FOR S= 0TO 4000:NEXT
1900 PLOT 12,6,7,14
1910 PRINT :PRINT :PRINT :PRINT "SO...YOU WANT TO QUIT......"
1920 PRINT :PRINT :PRINT "STOP OVER AT THE ROULETTE TABLE AND TRY YOUR LUCK"
1930 PRINT :PRINT "SEE YOU AROUND THE SLOTS AGAIN SOMETIME"
1940 FOR I= 1TO 2500:NEXT I
1950 PLOT 15,6,7
1960 PLOT 6,2,12,1
1970 REM
1980 PLOT 12,6,8,12
1990 FOR I= 1TO 100:NEXT I
2000 PLOT 6,7,12,14,6,15
2010 PRINT :PRINT :PRINT :PRINT :PRINT "YOU 'B R O K E T H E B A N K'
2020 PRINT :PRINT "YOUR WINNINGS AMOUNT TO $";S
2030 PRINT :PRINT "THE GAME IS OVER----YOU HAVE WON TOO MUCH AND"
2040 PRINT :PRINT "YOU ARE UNDER INVESTIGATION BY THE 'CGB'"
2050 PRINT :PRINT " (COMPUCOLOR GAMBLING BUREAU)"
2060 FOR I= 1TO 4000:NEXT I
2070 PLOT 15,6,7
2080 RETURN
2090 REM
2100 PLOT 12,14
2110 PLOT 6,34
2120 PLOT 3,28,0
2130 PRINT " $$$$$$$ "
2140 FOR I= 2TO 26STEP 2
2150 PLOT 3,20,I
2160 PLOT 6,34
2170 FOR K= 1TO 25:PLOT 32:NEXT K
2180 NEXT I
2190 REM
2200 PLOT 6,120
2210 FOR I= 6TO 16STEP 2
2220 PLOT 3,47,I
2230 PLOT 32
2240 NEXT I
2250 REM
2260 PLOT 15,3,45,17
2270 PLOT 32,32
2280 REM
2290 PLOT 6,16
2300 PLOT 3,26,1
2310 PLOT 32,32
2320 PLOT 3,37,1
2330 PLOT 32,32
2340 REM
2350 PLOT 6,7
2360 FOR I= 20TO 22
2370 PLOT 3,27,I
2380 FOR J= 1TO 11
2390 PLOT 32:NEXT J
2400 NEXT I
2410 REM
2420 PLOT 3,42,4,32
2430 PLOT 10,26,32
2440 PLOT 10,26,32
2450 REM
2460 PLOT 3,27,16,6
2470 PLOT 3:PRINT "COMPUCOLOR"
2480 PLOT 3,29,18,6
2490 PLOT 3:PRINT "CASINO"
2500 PLOT 3,27,4
2510 PLOT 6,37
2520 PLOT 14:PRINT "BIG BERTHA"
2530 REM
2540 PLOT 14,3,21,8
2550 PLOT 6,57
2560 PRINT "LIBERTY BELL LEMON "
2570 PLOT 6,16
2580 PLOT 3,28,8,32
2590 PLOT 3,36,8,32
2600 PLOT 3,22,29
2610 PLOT 14,6,7
2620 PRINT "YOUR BALANCE IS $";S
2630 PLOT 3,64,0
2640 RETURN
2650 REM
2660 PLOT 14,6,7
2670 FOR I= 6TO 14STEP 2
2680 PLOT 3,47,I
2690 FOR J= 1TO 20:NEXT J
2700 PLOT 32:NEXT I
2710 REM
2720 PLOT 15
2730 PLOT 3,42,4,32
2740 PLOT 10,26,32
2750 PLOT 10,26,32
2760 PLOT 14
2770 PLOT 6,120
2780 FOR I= 14TO 6STEP - 2
2790 PLOT 3,47,I
2800 FOR J= 1TO 20:NEXT J
2810 PLOT 32
2820 NEXT I
2830 PLOT 6,57
2840 FOR I= 1TO 5
2850 FOR J= 1TO 6
2860 PLOT 3,21,8
2870 IF I< 3THEN PRINT T$(J)
2880 IF I= 3THEN PRINT T$(T(1))
2890 PLOT 3,29,8
2900 IF I< 4THEN PRINT T$(J)
2910 IF I= 4THEN PRINT T$(T(2))
2920 PLOT 3,37,8
2930 IF I< 5THEN PRINT T$(J)
2940 IF I= 5THEN PRINT T$(T(3))
2950 NEXT J
2960 NEXT I
2970 PLOT 15,6,7
2980 RETURN
2990 REM
3000 FOR I= 0TO 1000:NEXT
3010 PLOT 12,14,6,1
3020 PRINT :PRINT :PRINT :PRINT "YOU HAVE RUN OUT OF MONEY MY FRIEND"
3030 PRINT :PRINT "THE GAME IS OVER...BETTER LUCK NEXT TIME"
3040 PRINT :PRINT "DID YOU HAVE A GOOD TIME? ";:IF Q9= 4THEN FOR S= 0TO 4000:NEXT :RETURN
3050 INPUT "";A$
3060 RETURN