Listing of file='BANDIT.BAS;01' on disk='vmedia/sampler-3.31.78-sector.ccvf'
100 REM
110 REM
120 PLOT 6:PLOT 33:PLOT 12:PLOT 27:PLOT 11:PLOT 14
121 PLOT 3:PLOT 12:PLOT 6
122 CLEAR 50
125 PLOT 6:PLOT 25
126 Q9= PEEK (32936)
130 PRINT "COMPUCOLOR PRESENTS THE ONE ARMED BANDIT"
135 PLOT 3:PLOT 64:PLOT 0
140 FOR I= 1TO 2000:NEXT I
150 PLOT 6:PLOT 2:PLOT 12
200 DIM P(3,6),T$(6),D(2,12)
205 DIM T(3)
210 R1= 4
220 PRINT
240 FOR I= 1TO 3
242 FOR J= 1TO 6
244 READ P(I,J)
246 NEXT J
248 NEXT I
249 REM
250 DATA 0.00,0.40,0.65,0.83,0.94,1.00
260 DATA 0.10,0.45,0.65,0.80,0.90,1.00
270 DATA 0.30,0.30,0.50,0.70,0.82,1.00
280 FOR I= 1TO 6
282 READ T$(I)
284 NEXT I
290 DATA " LEMON "," CHERRY","ORANGE "," PLUM "," BELL ","LIBERTY"
300 FOR I= 1TO 2
302 FOR J= 1TO 12
306 READ D(I,J)
308 NEXT J:NEXT I
310 DATA 221,223,224,225,226,333,336,444,446,555,556,666
320 DATA 2,2,2,4,6,10,16,12,18,14,20,-1
325 PLOT 3:PLOT 0:PLOT 1
326 IF Q9< > 0THEN 340
330 PRINT "WOULD YOU LIKE INSTRUCTIONS (Y OR N):";
331 POKE 33278,0
332 S= RND (8):IF PEEK (33278)= 0GOTO 332
333 S= PEEK (33278):INPUT "";IN$:IN$= CHR$ (S)+ IN$
334 IF S< > ASC ("Y")THEN 480
340 PRINT
360 PLOT 14:PLOT 6:PLOT 2
370 PRINT "RULES OF PLAY:"
380 PRINT "ON EACH PLAY YOU CAN BET ANY NUMBER OF 'SILVER DOLLARS'"
390 PRINT "BETWEEN $1 AND YOUR BALANCE OR $999 WHICHEVER IS SMALLER."
400 PRINT "JUST TYPE IN THE NUMBER WHEN THE 'PLACE BET' SIGN STOPS BLINKING."
405 PRINT "(FULL DOLLAR BETS ONLY PLEASE)"
410 PRINT
420 PRINT "YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE RETURN KEY."
430 PRINT
440 PRINT "THE GAME IS OVER WHEN YOUR BALANCE REACHES ZERO OR"
450 PRINT "YOU BREAK THE BANK. IF YOU DECIDE TO QUIT EARLY THEN, BET 0."
455 PRINT
460 PRINT "ARE YOU READY FOR THE THRILL OF THE DAY? (Y OR N) ";
465 IF Q9< > 0THEN FOR S= 0TO 5000:NEXT :GOTO 480
470 INPUT "";A$
480 S= INT (30+ 15* RND (R1)):REM
485 PLOT 15
490 GOSUB 5000
510 GOSUB 4000:REM
520 Z= INT (Z):REM
530 IF Z= 0THEN GOSUB 4800:REM
540 IF Z< 0THEN 560
550 IF Z< S+ 1THEN 590:REM
560 GOSUB 4500:REM
580 GOTO 510
590 REM
600 FOR I= 1TO 3:REM
610 R= RND (R1):REM
620 FOR J= 1TO 6:REM
630 T(I)= J:REM
640 IF R< P(I,J)THEN 660:REM
650 NEXT J:REM
660 NEXT I:REM
670 GOSUB 9000:REM
680 D= 100* T(1)+ 10* T(2)+ T(3):REM
690 FOR I= 1TO 12
700 IF D= D(1,I)THEN 750:REM
710 NEXT I:REM
720 REM
730 D= 0:REM
740 GOTO 820
750 IF D(2,I)< 0THEN 780:REM
760 D= Z* D(2,I):REM
770 GOTO 810:REM
780 D= INT (200+ 400* RND (R1)):REM
790 GOSUB 4700:REM
800 REM
810 GOSUB 4200:REM
820 S= S+ D- Z:REM
830 IF S< = 0THEN 870:REM
840 IF S> = 1000THEN 910
850 GOSUB 4400:REM
860 GOTO 510:REM
870 REM
880 GOSUB 10120:REM
890 GOTO 950:REM
910 GOSUB 4900:REM
950 REM
960 PLOT 12
965 IF Q9< > 0THEN 985
970 PRINT :PRINT "HOW ABOUT ANOTHER GO? (Y OR N) ";:INPUT A$
980 IF A$= "Y"THEN 480
985 PLOT 14:PLOT 6:PLOT 2
990 PRINT :PRINT "WELL I HOPE YOU HAD A BIT OF THRILL AND WE HOPE"
1000 PRINT "TO SEE YOU BACK AT THE 'COMPUCOLOR CASINO' REAL SOON"
1010 PRINT :PRINT "SEE YOU WHEN YOU HAVE MORE MONEY TO DONATE"
1020 FOR I= 1TO 2500:NEXT I
1030 PLOT 15:PLOT 6:PLOT 2
1039 PLOT 27:PLOT 11
1040 LOAD "MENU;1":RUN 5
4000 REM
4010 PLOT 3:PLOT 49:PLOT 4
4020 PLOT 6:PLOT 66:PLOT 14
4030 PRINT "PLACE BET"
4035 PLOT 3:PLOT 64:PLOT 0
4040 FOR I= 1TO 500
4050 NEXT I
4060 PLOT 3:PLOT 49:PLOT 4
4070 PLOT 6:PLOT 2
4080 PRINT "PLACE BET"
4090 REM
4100 PLOT 15:PLOT 6:PLOT 2
4105 PLOT 3:PLOT 42:PLOT 4
4110 PLOT 155:PLOT 10
4111 IF Q9= 4THEN Z= S:GOTO 4130
4120 INPUT "";Z
4130 PLOT 155:PLOT 11
4140 PLOT 155:PLOT 24
4150 PLOT 6:PLOT 7
4160 RETURN
4200 REM
4210 PLOT 15:PLOT 3:PLOT 30:PLOT 20
4220 PLOT 6:PLOT 7
4230 PRINT "WINNER"
4240 PLOT 3:PLOT 30:PLOT 22
4250 PLOT 6:PLOT 2
4260 PRINT "$ ";D
4270 PLOT 3:PLOT 80:PLOT 0
4280 PLOT 6:PLOT 7
4290 FOR I= 1TO 1000:NEXT I
4300 RETURN
4400 REM
4405 PLOT 14:PLOT 3:PLOT 39:PLOT 29
4406 FOR K= 1TO 6:PLOT 32:NEXT K
4410 PLOT 3:PLOT 39:PLOT 29
4420 PLOT 6:PLOT 2
4430 PRINT S
4440 PLOT 15:PLOT 6:PLOT 7
4450 REM
4460 PLOT 3:PLOT 30:PLOT 20
4470 PRINT " "
4480 PLOT 3:PLOT 30:PLOT 22
4490 PRINT " "
4495 RETURN
4500 REM
4510 PLOT 3:PLOT 49:PLOT 5
4520 PLOT 6:PLOT 65:PLOT 14
4530 PRINT "BAD BET "
4535 PLOT 3:PLOT 64:PLOT 0
4540 FOR I= 1TO 500:NEXT I
4550 PLOT 15:PLOT 6:PLOT 7
4560 REM
4570 PLOT 3:PLOT 42:PLOT 4:PLOT 32
4580 PLOT 10:PLOT 26:PLOT 32
4590 PLOT 10:PLOT 26:PLOT 32
4600 RETURN
4700 REM
4720 PLOT 14:PLOT 3:PLOT 29:PLOT 0
4730 PLOT 6:PLOT 79
4740 PRINT "JACKPOT"
4750 PLOT 3:PLOT 64:PLOT 0
4765 FOR I= 1TO 2000:NEXT I
4768 PLOT 3:PLOT 29:PLOT 0
4770 PLOT 6:PLOT 34:PRINT "$$$$$$$"
4780 PLOT 15:PLOT 6:PLOT 7
4790 RETURN
4800 REM
4805 FOR S= 0TO 4000:NEXT
4810 PLOT 12:PLOT 6:PLOT 7:PLOT 14
4820 PRINT :PRINT :PRINT :PRINT "SO...YOU WANT TO QUIT......"
4830 PRINT :PRINT :PRINT "STOP OVER AT THE ROULETTE TABLE AND TRY YOUR LUCK"
4840 PRINT :PRINT "SEE YOU AROUND THE SLOTS AGAIN SOMETIME"
4850 FOR I= 1TO 2500:NEXT I
4860 PLOT 15:PLOT 6:PLOT 7
4865 LOAD "MENU":RUN
4900 REM
4910 PLOT 12:PLOT 6:PLOT 8:PLOT 12
4920 FOR I= 1TO 100:NEXT I
4930 PLOT 6:PLOT 7:PLOT 12:PLOT 14:PLOT 6:PLOT 15
4940 PRINT :PRINT :PRINT :PRINT :PRINT "YOU 'B R O K E T H E B A N K'
4950 PRINT :PRINT "YOUR WINNINGS AMOUNT TO $";S
4960 PRINT :PRINT "THE GAME IS OVER----YOU HAVE WON TOO MUCH AND"
4970 PRINT :PRINT "YOU ARE UNDER INVESTIGATION BY THE 'CGB'"
4980 PRINT :PRINT " (COMPUCOLOR GAMBLING BUREAU)"
4985 FOR I= 1TO 4000:NEXT I
4990 PLOT 15:PLOT 6:PLOT 7
4995 RETURN
4999 REM
5000 PLOT 12:PLOT 14
5005 PLOT 6:PLOT 34
5010 PLOT 3:PLOT 28:PLOT 0
5020 PRINT " $$$$$$$ "
5030 FOR I= 2TO 26STEP 2
5040 PLOT 3:PLOT 20:PLOT I
5050 PLOT 6:PLOT 34
5060 FOR K= 1TO 25:PLOT 32:NEXT K
5070 NEXT I
5073 REM
5075 PLOT 6:PLOT 120
5080 FOR I= 6TO 16STEP 2
5090 PLOT 3:PLOT 47:PLOT I
6000 PLOT 32
6010 NEXT I
6015 REM
6020 PLOT 15:PLOT 3:PLOT 45:PLOT 17
6030 PLOT 32:PLOT 32
6035 REM
6038 PLOT 6:PLOT 16
6040 PLOT 3:PLOT 26:PLOT 1
6050 PLOT 32:PLOT 32
6060 PLOT 3:PLOT 37:PLOT 1
6070 PLOT 32:PLOT 32
6075 REM
6080 PLOT 6:PLOT 7
6090 FOR I= 20TO 22
7000 PLOT 3:PLOT 27:PLOT I
7010 FOR J= 1TO 11
7020 PLOT 32:NEXT J
7030 NEXT I
7032 REM
7034 PLOT 3:PLOT 42:PLOT 4:PLOT 32
7035 PLOT 10:PLOT 26:PLOT 32
7036 PLOT 10:PLOT 26:PLOT 32
7038 REM
7040 PLOT 3:PLOT 27:PLOT 16:PLOT 6
7050 PLOT 3:PRINT "COMPUCOLOR"
7060 PLOT 3:PLOT 29:PLOT 18:PLOT 6
7070 PLOT 3:PRINT "CASINO"
7072 PLOT 3:PLOT 27:PLOT 4
7073 PLOT 6:PLOT 37
7074 PLOT 14:PRINT "BIG BERTHA"
7080 REM
7090 PLOT 14:PLOT 3:PLOT 21:PLOT 8
8000 PLOT 6:PLOT 57
8010 PRINT "LIBERTY BELL LEMON "
8020 PLOT 6:PLOT 16
8030 PLOT 3:PLOT 28:PLOT 8:PLOT 32
8040 PLOT 3:PLOT 36:PLOT 8:PLOT 32
8050 PLOT 3:PLOT 22:PLOT 29
8060 PLOT 14:PLOT 6:PLOT 7
8070 PRINT "YOUR BALANCE IS $";S
8075 PLOT 3:PLOT 64:PLOT 0
8080 RETURN
9000 REM
9005 PLOT 14:PLOT 6:PLOT 7
9010 FOR I= 6TO 14STEP 2
9020 PLOT 3:PLOT 47:PLOT I
9030 FOR J= 1TO 20:NEXT J
9040 PLOT 32:NEXT I
9042 REM
9043 PLOT 15
9044 PLOT 3:PLOT 42:PLOT 4:PLOT 32
9046 PLOT 10:PLOT 26:PLOT 32
9048 PLOT 10:PLOT 26:PLOT 32
9050 PLOT 14
9055 PLOT 6:PLOT 120
9060 FOR I= 14TO 6STEP - 2
9070 PLOT 3:PLOT 47:PLOT I
9080 FOR J= 1TO 20:NEXT J
9090 PLOT 32
9095 NEXT I
9098 PLOT 6:PLOT 57
10000 FOR I= 1TO 5
10010 FOR J= 1TO 6
10020 PLOT 3:PLOT 21:PLOT 8
10030 IF I< 3THEN PRINT T$(J)
10035 IF I= 3THEN PRINT T$(T(1))
10038 PLOT 3:PLOT 29:PLOT 8
10050 IF I< 4THEN PRINT T$(J)
10055 IF I= 4THEN PRINT T$(T(2))
10060 PLOT 3:PLOT 37:PLOT 8
10070 IF I< 5THEN PRINT T$(J)
10075 IF I= 5THEN PRINT T$(T(3))
10080 NEXT J
10090 NEXT I
10100 PLOT 15:PLOT 6:PLOT 7
10110 RETURN
10120 REM
10121 FOR I= 0TO 1000:NEXT
10125 PLOT 12:PLOT 14:PLOT 6:PLOT 1
10130 PRINT :PRINT :PRINT :PRINT "YOU HAVE RUN OUT OF MONEY MY FRIEND"
10140 PRINT :PRINT "THE GAME IS OVER...BETTER LUCK NEXT TIME"
10150 PRINT :PRINT "DID YOU HAVE A GOOD TIME? ";:IF Q9= 4THEN FOR S= 0TO 4000:NEXT :RETURN
10155 INPUT "";A$
10160 RETURN