Break the Bank!
Emulation Item Preview
Share or Embed This Item
Notes
Disk info for Break_the_Bank_1983_Gentry_Software.do:
File Name: a2_Break_the_Bank_1983_Gentry_Software/Break_the_Bank_1983_Gentry_Software.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 21248
Used Space (bytes): 122112
Physical Size (KB): 140
Free Space (KB): 20
Used Space (KB): 119
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 83
Used Sectors: 477
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Break_the_Bank_1983_Gentry_Software.do:
a2_Break_the_Bank_1983_Gentry_Software/Break_the_Bank_1983_Gentry_Software.do DISK VOLUME #254
A 005 HELLO
* B 003 HIRES.MAP
B 034 SCREEN
T 009 SIMPLE POINT COUNT
* A 059 BLACKJACK
T 009 BASIC PLAY FOR THE NONCOUNTER
* T 009 STANDARD DECK
* A 051 STRATEGY DRILL
* A 050 COUNT DRILL
B 002 GREEN OUT
* A 052 STRATEGY EDITOR
B 002 POINT-3
* A 035 STRATEGY EVALUATOR
* T 009 INTERMEDIATE POINT COUNT
* T 006 PROBLEM HANDS
B 002 POINTERS
* A 014 MENU
T 002 STRATEGY DIRECTORY
* A 029 DEMONSTRATION
* B 022 SHAPES-3
* T 009 ADVANCED POINT COUNT
DOS 3.3 format; 21,248 bytes free; 122,112 bytes used.
Text found in Break_the_Bank_1983_Gentry_Software.do/ADVANCED POINT COUNT.txt:
5
2
2
3
4
4
6
5
8
1
Y
2
1
1
1
1
1
0
0
0
-1
-1
-1
-1
-1
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=212
0=212
0=212
0=11
0=11
0=212
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=212
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=212
0=22
0=22
0=32
0=32
0=32
0=22
0=22
0=22
0=22
0=22
0=32
0=32
0=32
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=32
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=32
0=22
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=20
0=22
0=22
0=22
0=22
0=22
0=22
0=02
0=12
0=22
0=22
0=22
0=22
0=22
0=11
0=11
0=11
0=11
0=11
0=11
0=11
0=12
0=22
0=22
0=02
0=02
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=03
0=00
0=00
0=00
0=00
0=33
0=00
0=00
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=0PP
0=22
0=22
0=212
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=212
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0==22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=212
0=211
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0==33
0=313
0=11
0=11
0=11
0=33
0=33
0=22
0=22
0==33
0=33
0=33
0=313
0=313
0=313
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=033
0=33
Text found in Break_the_Bank_1983_Gentry_Software.do/BASIC PLAY FOR THE NONCOUNTER.txt:
1
2
2
1
N
0
0
0
0
0
0
0
0
0
0
0
0
0
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=22
0=22
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=33
0=22
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=00
0=11
0=22
0=22
0=22
0=22
0=22
0=11
0=11
0=11
0=11
0=11
0=11
0=11
0=11
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=33
0=00
0=00
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=0PP
0=22
0=22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0==22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
9=211
0=22
0=22
0=22
0=22
0=22
0=211
0=211
9=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0==33
0=211
0=211
0=211
0=211
0=33
0=33
0=22
0=22
0==33
0=33
0=33
0=311
0=311
0=311
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=033
0=33
Text found in Break_the_Bank_1983_Gentry_Software.do/BLACKJACK.bas:
0 POKE 214,255
2 DIM BT(2),CD(1,1),DK(311),FV(14)
3 DIM NA(2),NC(2),PV(14),TL(2),B(10),C(10)
4 DIM ST$(35,9),PH$(35),DH$(9),OP$(3),ES$(3)
6 SCALE= 1
7 UX = 7:UY = 4:LX = 33:LY = 52:SY = 13
8 EE = 0:BE = 1
9 STALL = 1000
10 ES$ = " "
11 RN = PEEK(38383) +256 * PEEK(38384)
12 A = RND( -RN)
13 FOR I = 2 TO 10:FV(I) = I: NEXT
14 FOR I = 11 TO 13:FV(I) = 10: NEXT
15 FV(14) = 11
16 FOR I = 10 TO 14:PV(I) = -1: NEXT
17 FOR I = 0 TO 35: READ PH$(I): NEXT
18 DATA "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21"
19 DATA "2-2","3-3","4-4","5-5","6-6","7-7","8-8","9-9","10-10","A-A"
20 DATA "A-2","A-3","A-4","A-5","A-6","A-7","A-8","A-9","A-10"
21 OP$(0) = " SPLIT":OP$(1) = "DOUBLE":OP$(2) = " HIT":OP$(3) = " STAND"
22 FOR I = 0 TO 9: READ DH$(I): NEXT
23 DATA "2","3","4","5","6","7","8","9","10","ACE"
24 FOR I = 1 TO 3: READ ES$(I): NEXT
25 DATA " BETS MUST BE WHOLE DOLLAR AMOUNTS!"," THE HOUSE LIMIT IS $500!"," YOU DO NOT HAVE THAT MUCH MONEY!"
29 GOTO 500
30 K = NN +1:RD = INT(10 *K/26)/20
31 NORMAL : POKE -16301,0
32 POKE 34,20: HOME : POKE 34,0
33 VTAB 21: HTAB 8: PRINT "THE RUNNING COUNT IS ";CN;
34 VTAB 22: HTAB 1: PRINT "THERE ARE ";K;" CARDS REMAINING FOR PLAY";
35 VTAB 23: HTAB 3: PRINT "(ABOUT ";RD;" STANDARD 52-CARD DECKS)";
36 VTAB 24: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
37 VTAB 1: GET KC$
38 IF KC$ = "A" THEN GOSUB 150
39 IF KC$ = "A" THEN RETURN
42 IF FS% = 1 THEN POKE -16302,0
43 HOME
44 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
45 VTAB 21: HTAB 24: PRINT "BET ";BT$;
46 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL ";
47 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL ";
48 VTAB 1: HTAB 1
49 RETURN
50 NORMAL
51 POKE -16301,0
52 FOR I = 21 TO 24: VTAB I: HTAB 1: PRINT ES$;: NEXT
53 ID = FV( INT(CD(1,0))) -2
54 IF FS% = 1 THEN GOTO 61
55 IF NC(1) >2 THEN GOTO 61
56 IF INT(CD(0,1)) < > INT(CD(1,1)) THEN GOTO 61
57 IP = 15 +FV( INT(CD(0,1)))
58 FD$ = LEFT$( RIGHT$(ST$(IP,ID),2),1)
59 SD$ = RIGHT$(ST$(IP,ID),1)
60 GOTO 69
61 IP = TL(HP) -5
62 IF IP = -1 THEN VTAB 21: HTAB 17: PRINT "4 VS ";DH$(ID);:FD$ = "2":SD$ = "2": GOTO 77
63 IF NA(HP) >0 THEN IP = TL(HP) +14
64 FD$ = LEFT$( RIGHT$(ST$(IP,ID),2),1)
65 SD$ = RIGHT$(ST$(IP,ID),1)
66 IF NC(HP) = 2 THEN GOTO 71
67 IF FD$ = "1" THEN FD$ = LEFT$( RIGHT$(ST$(IP,ID),3),1)
68 IF SD$ = "1" THEN SD$ = LEFT$( RIGHT$(ST$(IP,ID),3),1)
69 IF FD$ = "4" THEN FD$ = LEFT$( RIGHT$(ST$(IP,ID),4),1)
70 IF SD$ = "4" THEN SD$ = LEFT$( RIGHT$(ST$(IP,ID),4),1)
71 CT = VAL(ST$(IP,ID))
72 VTAB 21: HTAB 17: PRINT PH$(IP);" VS ";DH$(ID);
73 IF FD$ = SD$ THEN GOTO 77
74 VTAB 22: HTAB 1: PRINT OP$( VAL(FD$));" IF TRUE COUNT GREATER THAN ";CT;
75 VTAB 23: HTAB 1: PRINT OP$( VAL(SD$));" IF TRUE COUNT IS LESS THAN ";CT;
76 GOTO 80
77 VTAB 22: HTAB 14: PRINT "ALWAYS ";OP$( VAL(FD$));
78 VTAB 23: HTAB 9: PRINT "REGARDLESS OF THE COUNT";
80 VTAB 24: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
81 VTAB 1: GET KT$
82 IF KT$ = "C" THEN GOSUB 30
83 IF KT$ = "A" THEN GOSUB 150
84 IF KT$ = "C" OR KT$ = "A" THEN RETURN
86 FOR I = 21 TO 24: VTAB I: HTAB 1: PRINT ES$;: NEXT
88 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
90 VTAB 21: HTAB 24: PRINT "BET ";BT$;
92 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL ";
94 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL ";
96 IF FS% = 1 THEN POKE -16302,0
97 VTAB 1: HTAB 1
98 RETURN
100 HCOLOR= 1: HPLOT 0,0: CALL -3082
101 NN = 52 *ND -1:CN = 0:AA = 0:DC = 1
102 HOME : VTAB 22: PRINT "PLEASE WAIT WHILE I SHUFFLE THE DECK ...";
103 HCOLOR= 3: ROT= 0
104 FOR I = 1 TO 20: DRAW 20 AT 112,48 +2 *I: NEXT
105 FOR J = 1 TO 10
106 YS = 48 +2 *J
107 FOR I = 1 TO 3
108 HCOLOR= 1
109 DRAW 20 AT 84 +28 *I,YS
110 HCOLOR= 3
111 DRAW 20 AT 112 +28 *I,YS
112 FOR K = 1 TO 10: NEXT K
113 NEXT I
114 HCOLOR= 1
115 DRAW 20 AT 196,YS
116 HCOLOR= 3
117 DRAW 20 AT 196,YS +1
118 FOR K = 1 TO 21 -2 *J
119 HCOLOR= 1
120 DRAW 20 AT 196,YS +2 *K -1
121 HCOLOR= 3
122 DRAW 20 AT 196,YS +2 *K +1
123 NEXT K
124 NEXT J
125 FOR I = 1 TO 6
126 FOR J = 1 TO 10
127 HCOLOR= 1
128 DRAW 20 AT 210 -14 *I,69 +2 *J
129 HCOLOR= 3
130 DRAW 20 AT 196 -14 *I,69 +2 *J
131 NEXT J
132 NEXT I
133 FOR I = 1 TO 500: NEXT
134 HCOLOR= 1: HPLOT 0,0: CALL -3082
135 HOME
136 HCOLOR= 0: ROT= 0: DRAW 21 AT 266,3
137 NK = 52 *ND -NN -1
138 DS = INT(14 *NK/52): IF DS = 0 THEN DS = 1
139 FOR K = 1 TO DS
140 HCOLOR= 3: DRAW 20 AT 207,72 -K
141 NEXT K
142 RETURN
150 HOME : POKE -16301,0
152 CX = 52 *ND -NN -2
153 IF VD$ = "B" THEN CX = CX +1
154 VTAB 21: HTAB 8: PRINT CX;" CARDS HAVE BEEN PLAYED";
156 VTAB 22: HTAB 2: PRINT "INCLUDING ";AA;" OF THE ORIGINAL ";4 *ND;" ACES.";
158 VTAB 23: HTAB 2: PRINT "EXPECTED NUMBER OF PLAYED ACES WAS "; INT(0.5 +CX/13);".";
160 VTAB 24: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
161 VTAB 1
162 GET KA$
164 HOME
166 IF FS% = 1 THEN POKE -16302,0
168 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
170 VTAB 21: HTAB 24: PRINT "BET ";BT$;
172 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL";
174 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL";
176 VTAB 1
178 RETURN
200 HOME : POKE -16301,0
202 KN = NN +1
204 RD = INT(0.5 +KN/52)
205 RH = INT(0.5 +KN/26)
208 IF RC = 1 THEN TC = CN
210 IF RC = 2 THEN TC = CN/KN
212 IF RC = 3 THEN TC = CN/RD
214 IF RC = 4 THEN TC = CN/RH
216 TC$ = STR$(0.1 * INT(10 *TC))
217 IF TC >0 THEN TC$ = "+" +TC$
218 S1 = INT(0.5 *(30 - LEN(TC$)))
220 RB = 1
222 IF NL = 1 THEN GOTO 230
224 FOR K = 1 TO NL -1
226 IF TC >C(K) THEN RB = B(K)
228 NEXT K
230 RB$ = STR$(RB) +" UNIT"
232 S2 = INT(0.5 *(15 - LEN(TC$)))
233 IF RB >1 THEN RB$ = RB$ +"S"
234 VTAB 21: HTAB 1: PRINT SPC( S1);"BET ";RB$;
235 VTAB 22: HTAB 1: PRINT SPC( S2);"THE TRUE COUNT IS ABOUT ";TC$;
236 VTAB 23: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
237 VTAB 1
238 GET KB$
239 IF KB$ = "C" THEN GOSUB 30
240 IF KB$ = "A" THEN GOSUB 150
241 IF KB$ = "C" OR KB$ = "A" THEN RETURN
242 HOME : IF FS% = 1 THEN POKE -16302,0
243 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
244 VTAB 21: HTAB 25: PRINT "BET ";BT$;
245 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL";
246 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL";
247 VTAB 1
248 RETURN
250 HOME : POKE -16301,0
252 IF QI$ = "Y" THEN GOTO 258
254 VTAB 22: HTAB 11: PRINT "NEVER TAKE INSURANCE!";
256 GOTO 268
258 UC$ = STR$(UC)
260 IF UC >0 THEN UC$ = "+" +UC$
264 VTAB 21: HTAB 14: PRINT "TAKE INSURANCE";
266 VTAB 22: HTAB 3: PRINT "IF THE TRUE COUNT IS GREATER THAN ";UC$;
268 VTAB 23: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
270 VTAB 1
272 GET KI$
274 IF KI$ = "C" THEN GOSUB 30
276 IF KI$ = "A" THEN GOSUB 150
278 IF KI$ = "C" OR KI$ = "A" THEN RETURN
280 IF FS% = 1 THEN POKE -16302,0
282 HOME
284 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
286 HTAB 24: PRINT "BET ";BT$;
288 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL";
290 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL";
292 VTAB 1
294 RETURN
300 POKE 34,0: HOME
301 POKE -16303,0
302 VTAB 1: HTAB 13: PRINT "BLACKJACK RULES";
303 VTAB 2: HTAB 13: PRINT "---------------";
304 VTAB 3: HTAB 11: PRINT "SPLIT ANY PAIR ONCE";
305 VTAB 4: HTAB 7: PRINT "DOUBLE DOWN ON ANY TWO CARDS";
306 VTAB 5: HTAB 8: PRINT "SURRENDER FIRST TWO CARDS";
307 VTAB 6: HTAB 2: PRINT "ONLY ONE CARD EACH DEALT TO SPLIT ACES";
308 VTAB 7: HTAB 8: PRINT "DEALER STANDS ON ALL 17'S";
309 VTAB 8: HTAB 10: PRINT "BLACKJACK PAYS 3 TO 2";
310 VTAB 9: HTAB 10: PRINT "INSURANCE PAYS 2 TO 1";
311 VTAB 11: HTAB 15: PRINT "PLAYING KEYS";
312 VTAB 12: HTAB 15: PRINT "------------";
313 VTAB 13: HTAB 5: PRINT "H-HIT S-STAND D-DOUBLE";
314 VTAB 14: HTAB 5: PRINT "P-SPLIT U-SURRENDER";
315 VTAB 16: HTAB 16: PRINT "HELP KEYS";
316 VTAB 17: HTAB 16: PRINT "---------";
317 VTAB 18: HTAB 1: PRINT "A-ACE COUNT B-RECOMMENDED BET";
318 VTAB 19: HTAB 1: PRINT "C-RUNNING COUNT I-INSURANCE";
319 VTAB 20: HTAB 1: PRINT "Q-QUIT T-RECOMMENDED PLAY";
320 VTAB 23: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
321 GET KR$
322 HOME : POKE -16297,0: POKE -16304,0
323 RETURN
350 VTAB 24: HTAB 1: PRINT "DO YOU WANT INSURANCE? (Y-YES,N-NO)";
351 GET IN$: VTAB 1
352 IF IN$ = "I" THEN GOSUB 250
353 IF IN$ = "I" THEN GOTO 350
354 IF IN$ = "C" THEN GOSUB 30
355 IF IN$ = "C" THEN GOTO 350
356 IF IN$ = "A" THEN GOSUB 150
357 IF IN$ = "A" THEN GOTO 350
358 IF IN$ = "Y" OR IN$ = "N" THEN GOTO 360
359 FOR I = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 351
360 POKE 34,23: HOME : POKE 34,0: VTAB 1
361 IF IN$ = "N" THEN GOTO 372
362 IF BR > = 1.5 *BT(0) THEN GOTO 367
363 VTAB 24: HTAB 1: PRINT ES$(3);
364 FOR K = 1 TO STALL: NEXT
365 POKE 34,23: HOME : POKE 34,0: VTAB 1
366 GOTO 350
367 IF TL(0) = 21 THEN GOTO 377
368 VTAB 24: HTAB 11: PRINT "INSURANCE BET LOSES!";
369 FOR K = 1 TO 2 *STALL: NEXT
370 POKE 34,23: HOME : POKE 3,0: VTAB 1
371 BR = BR -0.5 *BT(0)
372 VTAB 24: HTAB 7: PRINT "NOW LET'S FINISH THIS HAND!";
373 VTAB 21: HTAB 1: PRINT "BANKROLL ";
374 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
375 FOR I = 1 TO 2 *STALL: NEXT : POKE 34,23: HOME : POKE 34,0
376 VTAB 1: HTAB 1: RETURN
377 VTAB 24: HTAB 11: PRINT "INSURANCE BET WINS!";
378 FOR K = 1 TO STALL: NEXT
379 BR = BR +BT(0)
380 RETURN
500 HGR : HCOLOR= 2: CALL -3082
501 FOR I = 21 TO 24: VTAB I: HTAB 1: PRINT ES$;: NEXT
502 Y = 52
503 FOR I = 0 TO 1:X = 98 +I *44
504 ROT= 0
505 HCOLOR= 3: DRAW 1 AT X,Y
506 HCOLOR= 0: DRAW 19 AT X,Y
507 DRAW 14 -3 *I AT X +UX,Y +UY
508 DRAW 18 AT X +UX,Y +UY +SY
509 ROT= 32
510 DRAW 14 -3 *I AT X +LX,Y +LY
511 DRAW 18 AT X +LX,Y +LY -SY
512 NEXT
513 VTAB 21: HTAB 6: PRINT "WELCOME TO WINNING BLACKJACK!";
514 VTAB 22: HTAB 1: PRINT "HOW MANY DECKS DO YOU WISH? (ENTER 1-6) ";
515 GET ND$
516 ND = VAL(ND$)
517 IF ND >0 AND ND <7 GOTO 519
518 FOR I = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 515
519 SS$ = "A NEW DECK"
520 IF ND >1 THEN SS$ = ND$ +" NEW DECKS"
521 VTAB 23: HTAB 1: PRINT "LET ME BREAK OUT ";SS$;" FOR YOU...";
522 POKE 34,23: PRINT : POKE 34,0
525 PRINT CHR$(4);"BLOAD HIRES.MAP"
528 PRINT CHR$(4);"BLOAD GREEN OUT"
600 PRINT CHR$(4);"OPEN STANDARD DECK"
601 PRINT CHR$(4);"READ STANDARD DECK"
602 FOR I = 0 TO 52 *ND -1: INPUT DK(I): NEXT
603 PRINT CHR$(4);"CLOSE STANDARD DECK"
604 CH = PEEK(38380)
605 PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
606 PRINT CHR$(4);"READ STRATEGY DIRECTORY"
607 INPUT NS
608 FOR I = 1 TO CH: INPUT SN$: NEXT
609 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
610 PRINT CHR$(4);"OPEN ";SN$
611 PRINT CHR$(4);"READ ";SN$
612 INPUT NL
613 FOR I = 1 TO NL -1: INPUT B(I): INPUT C(I): NEXT
614 INPUT RC
615 INPUT QI$
616 IF QI$ = "Y" THEN INPUT UC
617 FOR I = 2 TO 14: INPUT PV(I): NEXT
618 FOR I = 0 TO 35: FOR J = 0 TO 9: INPUT ST$(I,J): NEXT : NEXT
619 PRINT CHR$(4);"CLOSE ";SN$
620 VTAB 24: HTAB 1: PRINT "DO YOU NEED RULES? (Y-YES,N-NO) ";
621 GET KR$
622 IF KR$ = "N" THEN GOTO 648
623 IF KR$ = "Y" THEN GOTO 626
624 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
625 GOTO 621
626 HOME
627 POKE -16303,0
628 GOSUB 300
648 HCOLOR= 1: HPLOT 0,0: CALL -3082
650 GOSUB 100
651 FOR I = 21 TO 24: VTAB I: HTAB 1: PRINT ES$;: NEXT
652 VTAB 21: HTAB 1: PRINT "BANKROLL ";
655 VTAB 21: HTAB 1: FLASH
656 PRINT "BANKROLL ? ";
657 NORMAL
658 BR = 0:AC = 0:NR = 0
659 LP = 1: POKE -16368,0
660 GET DD$
662 IF DD$ = CHR$(13) THEN GOTO 678
664 IF LP >5 THEN GOTO 652
666 VD = ASC(DD$) -48
668 IF VD <0 THEN GOTO 652
670 IF VD >9 THEN GOTO 652
671 IF LP = 1 THEN PRINT "$";
672 BR = VD +10 *BR
674 LP = LP +1
675 PRINT DD$;
676 GOTO 660
678 VTAB 21: HTAB 1: NORMAL
679 IF BR < = 0 THEN GOTO 652
681 BS = BR
682 EE = 0:FS% = 0
683 BR$ = "$" + STR$(BR): IF RIGHT$(BR$,2) = ".5" THEN BR$ = BR$ +"0"
684 VTAB 21: HTAB 1: PRINT "BANKROLL ";
686 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
688 VTAB 21: HTAB 24: PRINT "BET ";
689 IF BR <1 THEN GOTO 1127
690 IF NN < = 8 *(ND -1) +26 THEN GOSUB 100
691 VTAB 21: HTAB 1: PRINT "BANKROLL ";BR$;
692 VTAB 21: HTAB 24: PRINT "BET ";
693 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL ";
694 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL ";
695 IF EE = 0 THEN GOTO 699
696 VTAB 24: HTAB 1: PRINT ES$(EE);
697 FOR K = 1 TO 2000: NEXT
698 POKE 34,23: HOME : POKE 34,0
699 VTAB 21: HTAB 24: FLASH : PRINT "BET ? ";: NORMAL
700 BT(0) = 0:BT(1) = 0:BT(2) = 0:LP = 1:BT$ = " ": POKE -16368,0
701 GET DD$
702 IF DD$ = "Q" THEN GOTO 1127
703 IF DD$ = "A" THEN GOSUB 150
704 IF DD$ = "A" THEN GOTO 699
705 IF DD$ = "B" THEN GOSUB 200
706 IF DD$ = "B" THEN GOTO 699
707 IF DD$ = "C" THEN GOSUB 30
708 IF DD$ = "C" THEN GOTO 699
709 VD = ASC(DD$) -48
710 VD = ASC(DD$) -48
711 IF DD$ = CHR$(13) THEN GOTO 718
712 IF LP >3 THEN EE = 2: GOTO 692
713 VD = ASC(DD$) -48
714 IF VD <0 OR VD >9 THEN EE = 1: GOTO 692
715 BT(0) = VD +10 *BT(0)
716 IF LP = 1 THEN PRINT "$";
717 LP = LP +1: PRINT DD$;: GOTO 701
718 IF BT(0) <1 THEN BT(0) = BE
719 IF BT(0) >BR THEN EE = 3: GOTO 692
720 IF BT(0) >500 THEN EE = 2: GOTO 692
721 EE = 0:BE = BT(0)
722 BT$ = "$" + STR$(BT(0))
723 VTAB 21: HTAB 24: PRINT "BET ";
724 VTAB 21: HTAB 24: PRINT "BET ";BT$;
725 VTAB 1: HTAB 1
726 NH = 1:HP = 1:BT(1) = BT(0)
727 FOR I = 0 TO 2:TL(I) = 0:NA(I) = 0:NC(I) = 0: NEXT
730 FOR I = 0 TO 1: FOR J = 0 TO 1
732 CP = INT(NN * RND(1))
734 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC:NN = NN -1
735 NC(J) = NC(J) +1
736 CD(I,J) = CC
737 ROT= 0
738 X = 10:Y = 10 +60 *J: IF I = J THEN X = 30
739 HCOLOR= 3: IF I +J = 0 THEN HCOLOR= 2
740 DRAW 1 AT X,Y
742 HCOLOR= 0: DRAW 19 AT X,Y
743 IF I +J = 0 THEN DRAW 22 AT X,Y
744 CP = 100 *(CC - INT(CC)):CP = INT(CP)
745 CC = INT(CC)
746 IF I +J = 0 THEN GOTO 764
748 CN = CN +PV(CC)
749 IF CC > = 14 THEN AA = AA +1
750 CS = 2 *(CP -2 * INT(CP/2))
752 HCOLOR= CS
754 DRAW CC AT X +UX,Y +UY
756 DRAW CP AT X +UX,Y +UY +SY
758 ROT= 32
760 DRAW CC AT X +LX,Y +LY
762 DRAW CP AT X +LX,Y +LY -SY
764 TL(J) = TL(J) +FV(CC)
766 IF CC = 14 THEN NA(J) = NA(J) +1
768 NEXT : NEXT
769 FOR I = 0 TO 1
770 IF NA(I) = 2 THEN TL(I) = TL(I) -10:NA(I) = NA(I) -1
771 NEXT
772 IF CD(1,0) > = 14 THEN GOSUB 350
795 IF TL(0) < >21 AND TL(1) < >21 THEN GOTO 820
796 ROT= 0:X = 30:Y = 10
797 HCOLOR= 3: DRAW 1 AT X,Y
798 HCOLOR= 0: DRAW 19 AT X,Y
799 CC = CD(0,0)
800 CP = 100 *(CC - INT(CC)):CP = INT(CP)
801 CC = INT(CC)
802 CS = 2 *(CP -2 * INT(CP/2))
803 HCOLOR= CS
804 DRAW CC AT X +UX,Y +UY
805 DRAW CP AT X +UX,Y +UY +SY
806 ROT= 32
807 DRAW CC AT X +LX,Y +LY
808 DRAW CP AT X +LX,Y +LY -SY
809 IF TL(0) >TL(1) THEN VTAB 24: HTAB 9: PRINT "DEALER HAS A BLACKJACK!";:BR = BR -BT(0)
810 IF TL(1) >TL(0) THEN VTAB 24: HTAB 9: PRINT "YOU WIN WITH BLACKJACK!";:BR = BR +1.5 *BT(0)
811 IF TL(0) = TL(1) THEN VTAB 24: HTAB 2: PRINT "YOU AND THE DEALER TIE WITH BLACKJACK!";
812 FOR K = 1 TO 1.5 *STALL: NEXT
814 CN = CN +PV(CC)
815 GOTO 1090
820 GET PL$
821 IF NC(HP) >2 THEN GOTO 827
822 IF PL$ = "D" THEN GOTO 950
823 IF FS% = 1 THEN GOTO 827
824 IF PL$ = "U" THEN GOTO 850
825 IF INT(CD(0,1)) < > INT(CD(1,1)) THEN GOTO 827
826 IF PL$ = "P" THEN GOTO 900
827 IF PL$ = "H" THEN GOTO 960
828 IF PL$ = "S" THEN GOTO 1030
829 IF PL$ = "C" THEN GOSUB 30
830 IF PL$ = "C" THEN GOTO 820
831 IF PL$ = "T" THEN GOSUB 50
832 IF PL$ = "T" THEN GOTO 820
833 IF PL$ = "A" THEN GOSUB 150
834 IF PL$ = "A" THEN GOTO 820
848 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
849 GOTO 820
850 ROT= 0:X = 30:Y = 10
851 HCOLOR= 3: DRAW 1 AT X,Y
852 HCOLOR= 0: DRAW 19 AT X,Y
853 CC = CD(0,0)
854 CP = 100 *(CC - INT(CC)):CP = INT(CP)
855 CC = INT(CC)
856 CS = 2 *(CP -2 * INT(CP/2))
857 HCOLOR= CS
858 DRAW CC AT X +UX,Y +UY
859 DRAW CP AT X +UX,Y +UY +SY
860 ROT= 32
861 DRAW CC AT X +LX,Y +LY
862 DRAW CP AT X +LX,Y +LY -SY
863 CN = CN +PV(CC)
864 BR = BR -0.5 *BT(0)
865 TL(1) = 0
866 IF CC > = 14 THEN AA = AA +1
867 GOTO 1090
900 IF BR <2 *BT(0) THEN EE = 3: GOTO 940
901 BT$ = "$" + STR$(BT(0)) +" $" + STR$(BT(0))
902 VTAB 21: HTAB 24: PRINT "BET ";BT$;
903 FS% = 1: POKE -16302,0
904 NH = 2:BT(2) = BT(1)
905 NA(2) = NA(1):TL(2) = TL(1)/2
906 IF NA(1) >0 THEN TL(2) = 11
907 TL(1) = TL(2)
908 NC(1) = 1:NC(2) = 1
909 X = 10:Y = 130: ROT= 0
910 HCOLOR= 3: DRAW 1 AT X,Y
912 HCOLOR= 0: DRAW 19 AT X,Y
914 HCOLOR= CS
916 DRAW CC AT X +UX,Y +UY
918 DRAW CP AT X +UX,Y +UY +SY
920 ROT= 32
922 DRAW CC AT X +LX,Y +LY
924 DRAW CP AT X +LX,Y +LY -SY
926 X = 10
928 FOR I = 1 TO INT(0.5 *STALL): NEXT
930 GOTO 960
940 POKE -16301,0
941 VTAB 24: HTAB 1: PRINT ES$(EE);: VTAB 1: HTAB 1
942 FOR K = 1 TO 2000: NEXT
943 POKE 34,23: HOME : POKE 34,0
944 VTAB 1: HTAB 1
945 EE = 0: IF FS% = 1 THEN POKE -16302,0
946 GOTO 820
950 TB = 2 *BT(1) +BT(2): IF HP = 2 THEN TB = BT(1) +2 *BT(2)
951 IF BR "P" THEN GOTO 1020
1016 IF CD(0,1) >14 THEN GOTO 1030
1018 GOTO 820
1020 IF TL(HP) < = 21 THEN GOTO 820
1030 HP = HP +1:X = 10:PL$ = "P"
1032 IF HP < = NH THEN GOTO 960
1034 HP = 0:CC = CD(0,0)
1035 ROT= 0:X = 30:Y = 10
1036 HCOLOR= 3: DRAW 1 AT X,Y
1037 HCOLOR= 0: DRAW 19 AT X,Y
1038 CP = 100 *(CC - INT(CC)):CP = INT(CP)
1039 CC = INT(CC)
1040 CS = 2 *(CP -2 * INT(CP/2)): HCOLOR= CS
1042 DRAW CC AT X +UX,Y +UY
1044 DRAW CP AT X +UX,Y +UY +SY
1046 ROT= 32
1048 DRAW CC AT X +LX,Y +LY
1050 DRAW CP AT X +LX,Y +LY -SY
1052 CN = CN +PV(CC)
1053 IF CC > = 14 THEN AA = AA +1
1054 IF TL(1) < = 21 THEN GOTO 1060
1056 IF NH = 1 THEN GOTO 1070
1058 IF TL(2) >21 THEN GOTO 1070
1060 FOR I = 1 TO STALL: NEXT
1062 IF TL(0) <17 THEN GOTO 960
1070 FOR I = 1 TO NH
1072 IF TL(I) < = 21 THEN GOTO 1078
1074 BR = BR -BT(I)
1076 GOTO 1088
1078 IF TL(0) < = 21 THEN GOTO 1084
1080 BR = BR +BT(I)
1082 GOTO 1088
1084 IF TL(I) TL(0) THEN BR = BR +BT(I)
1088 NEXT
1089 FOR I = 1 TO STALL: NEXT
1090 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL ";
1098 VTAB 22: HTAB 1: PRINT "DEALER'S TOTAL ";TL(0);
1100 VTAB 23: HTAB 1: PRINT "PLAYER'S TOTAL ";" "
1102 POKE 34,23: HOME : POKE 34,0
1104 NR = NR +1
1110 VTAB 23: HTAB 1
1112 IF NH = 1 THEN PRINT "PLAYER'S TOTAL ";TL(1);
1114 IF NH = 2 THEN PRINT "PLAYER'S TOTAL ";TL(1);" ";TL(2);
1115 FOR I = 1 TO NH:AC = AC +BT(I): NEXT
1116 POKE -16301,0
1117 FOR I = 1 TO STALL: NEXT
1118 IF NC(0) >8 OR NC(1) >8 THEN NN = 0: GOTO 682
1120 CALL 768
1121 HCOLOR= 0: ROT= 0: DRAW 21 AT 266,3
1122 NK = 52 *ND -NN -1
1123 DS = INT(14 *NK/52): IF DS = 0 THEN DS = 1
1124 FOR I = DC TO DS: ROT= 0: HCOLOR= 3: DRAW 20 AT 207,72 -I: NEXT I
1125 DC = DS
1126 GOTO 682
1127 HCOLOR= 1: HPLOT 0,0: CALL -3082
1128 POKE 34,0: HOME
1129 POKE -16303,0
1130 VTAB 1: HTAB 11: PRINT "BLACKJACK STATISTICS";
1131 VTAB 2: HTAB 11: PRINT "--------------------";
1132 VTAB 4: HTAB 5: PRINT "BEST PLAY WITHOUT CARD COUNTING";
1134 VTAB 5: HTAB 2: PRINT "REDUCES THE HOUSE EDGE TO NEARLY ZERO!";
1136 VTAB 6: HTAB 3: PRINT "THAT MEANS THAT, OVER THE LONG RUN,";
1138 VTAB 7: HTAB 3: PRINT "THE PLAYER'S NET WIN OR LOSS WILL BE";
1140 VTAB 8: HTAB 2: PRINT "TINY COMPARED TO THE TOTAL AMOUNT BET.";
1142 VTAB 10: HTAB 4: PRINT "ADVANCED POINT COUNT SYSTEMS GIVE";
1144 VTAB 11: HTAB 1: PRINT "THE PLAYER AN EDGE OF BETWEEN 1 AND 2%!";
1146 VTAB 12: HTAB 3: PRINT "THAT MEANS THAT, OVER THE LONG RUN,";
1148 VTAB 13: HTAB 2: PRINT "THE PLAYER'S WINNINGS SHOULD AVERAGE";
1150 VTAB 14: HTAB 2: PRINT "ABOUT 1 OR 2% OF THE TOTAL AMOUNT BET.";
1152 VTAB 16: HTAB 11: PRINT "HOW WELL DID YOU DO?";
1154 VTAB 17: HTAB 11: PRINT "--------------------";
1156 NR$ = STR$(NR)
1158 S1 = INT((22 - LEN(NR$))/2)
1159 H$ = " HAND": IF NR >1 THEN H$ = " HANDS"
1161 IF AC = 0 THEN GOTO 1188
1162 AC$ = STR$(AC)
1164 S2 = INT((20 - LEN(AC$))/2)
1168 NW = BR -BS
1170 NW$ = STR$( ABS(NW))
1172 PC = 100 * ABS(NW/AC):PC = 0.1 * INT(10 *PC)
1174 PC$ = STR$(PC)
1176 DS$ = "YOU WON"
1178 IF NW <0 THEN DS$ = "YOU LOST"
1180 S3 = INT((25 - LEN(DS$) - LEN(NW$))/2)
1182 S4 = INT((12 - LEN(PC$))/2)
1183 VTAB 19: HTAB 1: PRINT SPC( S1);"YOU PLAYED ";NR$;H$;
1184 VTAB 20: HTAB 1: PRINT SPC( S2);"YOUR BETS TOTALLED $";AC$;
1186 VTAB 21: HTAB 1: PRINT SPC( S3);DS$;" A NET SUM OF $";NW$;
1187 VTAB 22: HTAB 1: PRINT SPC( S4);"ABOUT ";PC$;"% OF YOUR TOTAL WAGER";
1188 VTAB 24: HTAB 1: PRINT "HOW ABOUT ANOTHER ROUND? (Y-YES,N-NO) ";
1190 GET KY$
1192 IF KY$ = "Y" OR KY$ = "N" GOTO 1200
1194 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
1196 GOTO 1190
1200 R1 = INT( RND(1) *256)
1202 POKE 38383,R1
1204 R2 = INT( RND(1) *256)
1206 POKE 38384,R2
1208 RN = 256 *R2 +R1
1210 A = RND( -RN)
1212 HOME
1214 IF KY$ = "N" GOTO 1220
1216 POKE -16304,0
1217 GOSUB 100
1218 GOTO 651
1220 PRINT : PRINT CHR$(4);"BSAVE POINTERS,A$95EC,L$14"
1222 PRINT CHR$(4);"RUN MENU"
Text found in Break_the_Bank_1983_Gentry_Software.do/COUNT DRILL.bas:
0 POKE 214,255
1 DIM DK(51),LB$(14),PV(14),WD$(11)
2 STALL = 3500
3 FOR I = 2 TO 11: READ WD$(I): NEXT
4 DATA " TWOS"," THREES"," FOURS"," FIVES"," SIXES"," SEVENS"," EIGHTS"," NINES","ALL TENS"," ACES"
5 UX = 7:UY = 4:LX = 33:LY = 52:SY = 13
6 FOR I = 2 TO 14: READ LB$(I): NEXT
7 DATA "A TWO","A THREE","A FOUR","A FIVE","A SIX","A SEVEN","AN EIGHT","A NINE","A TEN","A JACK","A QUEEN","A KING","AN ACE"
10 POKE 34,0: HOME
15 POKE -16303,0
20 VTAB 1: HTAB 1: PRINT "****************************************";
21 VTAB 2: HTAB 1: PRINT "* POINT COUNT DRILL *";
22 VTAB 3: HTAB 1: PRINT "****************************************";
23 POKE 34,3
24 CH = PEEK(38380)
25 PRINT : PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
26 PRINT CHR$(4);"READ STRATEGY DIRECTORY"
27 INPUT NS
28 FOR I = 1 TO CH: INPUT SN$: NEXT
29 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
30 SP = 38 - LEN(SN$)
31 VTAB 4: HTAB 1: PRINT "*"; SPC( INT(SP/2));SN$; SPC( SP - INT(SP/2));"*";
32 VTAB 5: HTAB 1: PRINT "****************************************";
33 POKE 34,5
34 PRINT : PRINT CHR$(4);"OPEN ";SN$
35 PRINT CHR$(4);"READ ";SN$
36 INPUT NL
37 FOR K = 1 TO NL -1: INPUT B: INPUT C: NEXT
38 INPUT TC
39 INPUT QI$
40 IF QI$ = "Y" THEN INPUT UC
41 FC = 0
42 FOR I = 2 TO 14
43 INPUT PV(I)
44 FC = FC +4 *PV(I)
45 NEXT
46 PRINT CHR$(4);"CLOSE ";SN$
47 PRINT CHR$(4);"OPEN STANDARD DECK"
48 PRINT CHR$(4);"READ STANDARD DECK"
49 FOR I = 0 TO 51: INPUT DK(I): NEXT
50 PRINT CHR$(4);"CLOSE STANDARD DECK"
51 VTAB 7: HTAB 1
52 PRINT " THIS DRILL WILL TEACH YOU TO COUNT";
53 VTAB 8: HTAB 1
54 PRINT "CARDS AT BLACKJACK. FIRST YOU MUST LEARN";
55 VTAB 9: HTAB 1
56 PRINT "THE POINT VALUES OF EACH CARD. THEN YOU";
57 VTAB 10: HTAB 1
58 PRINT "LEARN TO KEEP A RUNNING COUNT OF TOTAL ";
59 VTAB 11: HTAB 1
60 PRINT "POINTS SEEN AS CARDS ARE DEALT FOR PLAY.";
63 VTAB 13: HTAB 1
64 PRINT " THE RUNNING COUNT TELLS YOU WHETHER";
65 VTAB 14: HTAB 1
66 PRINT "THE REMAINDER OF THE DECK FAVORS YOU OR";
67 VTAB 15: HTAB 1
68 PRINT "THE DEALER. WHEN THE DECK FAVORS THE";
69 VTAB 16: HTAB 1
70 PRINT "DEALER, MAKE SMALL BETS. WHEN THE DECK";
71 VTAB 17: HTAB 1
72 PRINT "FAVORS YOU, MAKE LARGE BETS.";
73 VTAB 19: HTAB 1
74 PRINT " AS YOUR SKILL INCREASES BEYOND THE ";
75 VTAB 20: HTAB 1
76 PRINT "LEVEL OF THE SIMPLE POINT COUNT SYSTEM,";
77 VTAB 21: HTAB 1
78 PRINT "THE COUNT WILL LET YOU CHANGE THE WAY";
79 VTAB 22: HTAB 1
80 PRINT "YOU PLAY EACH HAND FOR GREATER ACCURACY.";
81 VTAB 24: HTAB 1
82 PRINT "------ PRESS ANY KEY TO CONTINUE ------";
83 POKE -16368,0
84 KY = PEEK( -16384): IF KY <128 GOTO 84
85 POKE -16368,0
86 HOME
90 VTAB 7: HTAB 1
95 PRINT " THE COUNT DRILL IS DIVIDED INTO FOUR";
100 VTAB 8: HTAB 1
105 PRINT "SECTIONS:";
110 VTAB 10: HTAB 4
115 PRINT "(1) THE POINT VALUES";
120 VTAB 11: HTAB 4
125 PRINT "(2) THE RUNNING COUNT";
130 VTAB 12: HTAB 4
135 PRINT "(3) COUNTING CARDS IN PAIRS";
137 VTAB 13: HTAB 4
138 PRINT "(4) COUNT DOWN PRACTICE";
140 VTAB 15: HTAB 1
145 PRINT "STUDY PART 1 TO REVIEW THE POINT COUNT.";
150 VTAB 16: HTAB 1
155 PRINT "LEARN TO KEEP A RUNNING COUNT IN PART 2.";
160 VTAB 17: HTAB 1
165 PRINT "THEN LEARN A TRICK TO MAKE COUNTING EASY";
170 VTAB 18: HTAB 1
175 PRINT "BY COUNTING TWO CARDS AT ONCE IN PART 3."
180 VTAB 19: HTAB 1
185 PRINT "KEEP COUNTING SKILLS SHARP BY PRACTICING";
187 VTAB 20: HTAB 1
188 PRINT "COUNTING DOWN THE DECK IN PART 4.";
190 VTAB 22: HTAB 1
195 PRINT "WHICH PART OF THE DRILL DO YOU WANT?";
200 VTAB 23: HTAB 1
205 PRINT "(ENTER Q TO QUIT THE DRILL) ";
210 GET PT$
215 IF PT$ < >"Q" THEN GOTO 240
220 HOME
225 PRINT "* FINISHED *";
226 PRINT "****************************************";
227 RN = 1 + INT(255 * RND(1))
228 POKE 38383,RN
229 RN = 1 + INT(255 * RND(1))
230 POKE 38384,RN
231 POKE 34,7: HOME : PRINT : POKE 34,0
232 PRINT CHR$(4);"BSAVE POINTERS,A$95EC,L$14"
235 PRINT CHR$(4);"RUN MENU"
240 IF PT$ = "1" THEN GOTO 500
245 IF PT$ = "2" THEN GOTO 850
247 IF PT$ = "3" THEN GOTO 1300
250 IF PT$ = "4" THEN GOTO 1400
255 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
260 GOTO 210
300 HCOLOR= 1: HPLOT 0,0: CALL -3082
305 ROT= 0
310 HCOLOR= 3: DRAW 1 AT X,Y
315 HCOLOR= 0: DRAW 19 AT X,Y
320 IF CP = 15 OR CP = 17 THEN HCOLOR= 2
325 DRAW CC AT X +UX,Y +UY
330 DRAW CP AT X +UX,Y +UY +SY
335 ROT= 32
340 DRAW CC AT X +LX,Y +LY
345 DRAW CP AT X +LX,Y +LY -SY
350 RETURN
360 H = POS(0) +1
361 POKE -16368,0
362 VD$ = ""
364 FOR K = 1 TO 5
366 GET DD$
367 AS = K * ASC(DD$): IF AS = 43 OR AS = 45 GOTO 370
368 IF DD$ = CHR$(13) THEN GOTO 376
369 IF ASC(DD$) <48 OR ASC(DD$) >57 GOTO 366
370 PRINT DD$;
372 VD$ = VD$ +DD$
374 NEXT K
376 HTAB H: PRINT " ";
378 HTAB H: PRINT VAL(VD$);
380 RETURN
500 HOME : HGR
501 HCOLOR= 1: HPLOT 0,0: CALL -3082
502 FL = 1
505 HOME
510 VTAB 21: HTAB 1
515 PRINT "LET'S REVIEW EACH CARD'S POINT VALUE ...";
516 VTAB 22: HTAB 1
517 FOR I = 1 TO STALL: NEXT
518 PRINT "... BY FILLING IN THE FOLLOWING TABLE!"
519 FOR I = 1 TO STALL: NEXT
520 VTAB 21: HTAB 1
525 PRINT "2 3 4 5 6 7 8 9 10 ACE ";
530 VTAB 22: HTAB 1
535 PRINT "--- --- --- --- --- --- --- --- --- --- ";
536 POKE 34,23
540 X = 120:Y = 52
545 FOR CC = 2 TO 9
550 CP = 15 + INT(4 * RND(1))
555 GOSUB 300
560 HOME
565 HTAB 8: PRINT WD$(CC);" ARE COUNTED ";PV(CC);
570 VTAB 23
575 IF CC = 2 THEN GOTO 580
578 HTAB 4 *CC -11: PRINT PV(CC -1);
580 HTAB 4 *CC -7: FLASH : PRINT PV(CC);: NORMAL
585 FOR J = 1 TO STALL: NEXT
590 NEXT
600 X = 54
605 HCOLOR= 1: HPLOT 0,0: CALL -3082
610 FOR CC = 10 TO 13
615 CP = 15 + INT(4 * RND(1))
620 GOSUB 305
625 X = X +44
630 NEXT
635 VTAB 24: HTAB 8
640 PRINT WD$(10);" ARE COUNTED ";PV(10);
645 VTAB 23: HTAB 29: PRINT PV(9);
650 HTAB 33: FLASH : PRINT PV(10);: NORMAL
652 FOR I = 1 TO STALL: NEXT
655 X = 120:Y = 52
660 CP = 15 + INT(4 * RND(1))
665 GOSUB 300
670 VTAB 24: HTAB 8: PRINT WD$(11);" ARE COUNTED ";PV(14);
675 VTAB 23: HTAB 33: PRINT PV(10);
680 HTAB 37: FLASH : PRINT PV(14);: NORMAL
685 FOR J = 1 TO STALL: NEXT
690 HTAB 37: PRINT PV(14);
695 HOME : HCOLOR= 1: HPLOT 0,0: CALL -3082
700 PRINT "LET'S GO THROUGH A DECK OF CARDS ...";
705 FOR I = 1 TO STALL: NEXT
710 HOME
712 FOR J = 1 TO 1000: NEXT
715 PRINT "RECITING THE POINT VALUES OF EACH CARD!";
720 FOR J = 1 TO STALL: NEXT
722 HOME
725 NN = 51:CN = 0
730 FOR I = 0 TO 51
735 NN = 51 -I
740 CP = INT(NN * RND(1)):CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC
745 CP = 100 *(CC - INT(CC)):CP = INT(CP)
750 CC = INT(CC)
755 GOSUB 305
756 II = CC
757 IF CC >10 AND CC <14 THEN II = 10
758 IF CC = 14 THEN II = 11
760 VTAB 23: HTAB 4 *II -7: FLASH : PRINT PV(CC);: NORMAL
765 CN = CN +PV(CC)
770 VTAB 24: HTAB 8 +3 *(FL -1)
775 PRINT WD$(II);" ARE COUNTED ";PV(CC);
785 FOR J = 1 TO STALL: NEXT
790 VTAB 23: HTAB 4 *II -7: PRINT PV(CC);
795 HOME
796 KY = PEEK( -16384)
798 IF KY = 141 THEN POKE -16368,0: GOTO 830
800 NEXT
805 PRINT "SHALL WE DO THAT AGAIN? (Y-YES,N-NO) ";
810 GET KY$
815 IF KY$ = "Y" THEN GOTO 695
820 IF KY$ = "N" THEN GOTO 830
825 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
826 GOTO 810
830 POKE 34,5: HOME
835 POKE -16303,0
840 GOTO 90
850 HOME
851 VTAB 7: HTAB 2: PRINT "THE RUNNING COUNT IS SIMPLY THE SUM OF";
852 VTAB 8: HTAB 1: PRINT "ALL POINTS SEEN DURING PLAY. BEFORE ANY";
853 VTAB 9: HTAB 1: PRINT "CARDS ARE SEEN AT THE START OF A FRESH";
854 VTAB 10: HTAB 1: PRINT "DECK, THE RUNNING COUNT IS ZERO. AS EACH";
855 VTAB 11: HTAB 1: PRINT "CARD IS SEEN, ITS POINT VALUE IS ADDED";
856 VTAB 12: HTAB 1: PRINT "TO THE PREVIOUS RUNNING COUNT, GIVING";
857 VTAB 13: HTAB 1: PRINT "THE NEW RUNNING COUNT.";
858 VTAB 15: HTAB 5: PRINT "FOR EXAMPLE ...";
859 VTAB 16: HTAB 1: PRINT "IF THE FIRST CARD SEEN IS A FIVE ...";
860 VTAB 17: HTAB 1: PRINT "THE RUNNING COUNT BECOMES 0+";PV(5);"=";PV(5);
861 VTAB 18: HTAB 1: PRINT "IF THE NEXT CARD SEEN IS AN EIGHT ...";
862 VTAB 19: HTAB 1: PRINT "THE RUNNING COUNT BECOMES ";PV(5);"+";PV(8);"=";PV(5) +PV(8);
865 VTAB 20: HTAB 1: PRINT "IF THE NEXT CARD SEEN IS A TEN ...";
866 VTAB 21: HTAB 1: PRINT "THE RUNNING COUNT BECOMES ";PV(5) +PV(8);"+";PV(10);"=";PV(5) +PV(8) +PV(10);
868 VTAB 22: HTAB 5: PRINT "AND SO ON ...";
870 VTAB 24: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
871 POKE -16368,0
872 KY = PEEK( -16384): IF KY <128 GOTO 872
873 POKE -16368,0
895 HGR : HCOLOR= 1: HPLOT 0,0: CALL -3082
896 POKE 34,5: HOME
897 VTAB 22: HTAB 1: PRINT "LET ME DEAL A FEW CARDS FOR YOU ... AND";
898 VTAB 23: HTAB 1: PRINT "SHOW YOU HOW THE RUNNING COUNT CHANGES!";
899 FOR K = 1 TO 2 *STALL: NEXT
900 NN = 51
905 CN = 0
910 X = 120:Y = 52
915 FOR I = 0 TO 4
920 POKE 34,5: HOME
925 WR$ = "NEXT"
930 IF I = 0 THEN WR$ = "FIRST"
940 WS$ = "PRESENT"
945 IF I = 0 THEN WS$ = "STARTING"
949 VTAB 21: HTAB 5
950 PRINT "THE ";WS$;" COUNT IS ";CN;
960 CP = INT(NN * RND(1))
965 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC
970 CP = 100 *(CC - INT(CC))
975 CP = INT(CP)
980 CC = INT(CC)
985 NN = NN -1
990 GOSUB 300
994 VTAB 22: HTAB 5
995 PRINT "THE ";WR$;" CARD IS ";LB$(CC);
1000 FOR J = 1 TO STALL: NEXT
1001 PM$ = " "
1002 IF PV(CC) >0 THEN PM$ = " + "
1003 IF PV(CC) <0 THEN PM$ = " - "
1004 OP$ = " + "
1005 IF PM$ = " - " THEN OP$ = PM$
1006 VTAB 23: HTAB 5
1007 PRINT LB$(CC);" IS COUNTED ";PM$; ABS(PV(CC));
1010 FOR J = 1 TO STALL: NEXT
1015 VTAB 24: HTAB 5
1020 PRINT "THE COUNT IS NOW ";CN;OP$; ABS(PV(CC));" = ";CN +PV(CC);
1025 FOR J = 1 TO STALL: NEXT
1030 VTAB 21: HTAB 5
1035 PRINT "THE ";WS$;" COUNT IS ";
1040 FLASH
1045 PRINT CN;
1050 VTAB 24: HTAB 23
1055 PRINT CN;
1060 NORMAL
1065 FOR J = 1 TO STALL: NEXT
1070 VTAB 21: HTAB 5
1075 PRINT "THE ";WS$;" COUNT IS ";CN;
1080 VTAB 24: HTAB 23
1085 PRINT CN;
1090 VTAB 23: HTAB 5
1095 PRINT LB$(CC);" IS COUNTED ";
1100 FLASH : PRINT PM$; ABS(PV(CC));: NORMAL
1105 VTAB 24: HTAB 5
1110 PRINT "THE COUNT IS NOW ";CN;
1115 FLASH : PRINT OP$; ABS(PV(CC));: NORMAL
1120 FOR J = 1 TO STALL: NEXT
1125 VTAB 23: HTAB 5
1130 PRINT LB$(CC);" IS COUNTED ";PM$; ABS(PV(CC));
1135 VTAB 24: HTAB 5
1140 PRINT "THE COUNT IS NOW ";CN;OP$; ABS(PV(CC));" = ";
1145 CN = CN +PV(CC)
1150 FLASH : PRINT CN;: NORMAL
1152 FOR J = 1 TO STALL: NEXT
1155 HCOLOR= 1: HPLOT 0,0: CALL -3082
1160 NEXT I
1162 POKE 34,5: HOME
1164 VTAB 22: HTAB 1: PRINT "NOW IT'S YOUR TURN TO KEEP THE COUNT ...";
1165 FOR K = 1 TO STALL: NEXT : POKE 34,5: HOME
1166 VTAB 23: HTAB 1: PRINT "LET'S BREAK OUT A FRESH DECK OF CARDS!";
1167 FOR K = 1 TO STALL: NEXT
1168 POKE 34,5: HOME
1169 CN = 0
1170 VTAB 21: HTAB 1: PRINT "WHAT IS THE STARTING COUNT? ";
1172 FLASH : PRINT " ";: NORMAL
1173 HTAB 29
1174 GOSUB 360
1176 VD = VAL(VD$)
1180 VTAB 24: HTAB 18
1182 IF VD = CN THEN PRINT "RIGHT!";
1184 IF VD < >CN THEN PRINT "WRONG!";
1186 VTAB 1
1189 FOR K = 1 TO 2000: NEXT
1190 POKE 34,5: HOME
1192 VTAB 21: HTAB 1: PRINT "THE RUNNING COUNT BEGINS AT ";CN;
1194 FOR I = 0 TO 51
1195 NN = 51 -I
1196 POKE 34,21: HOME
1198 CP = INT(NN * RND(1))
1200 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC
1202 CP = 100 *(CC - INT(CC))
1204 CP = INT(CP):CC = INT(CC)
1208 GOSUB 300
1210 VTAB 22: HTAB 1: PRINT LB$(CC);" IS WORTH HOW MUCH? ";
1212 FLASH : PRINT " ";: NORMAL
1213 HTAB POS(0) -4
1214 GOSUB 360
1215 IF VD$ = "" THEN POKE 34,5: HOME : GOTO 1269
1216 VD = VAL(VD$)
1220 VTAB 24: HTAB 18
1222 IF VD = PV(CC) THEN PRINT "RIGHT!";
1224 IF VD < >PV(CC) THEN PRINT "WRONG!";
1226 VTAB 1
1227 VD$ = STR$(PV(CC))
1228 IF PV(CC) >0 THEN VD$ = "+" +VD$
1229 FOR K = 1 TO 2000: NEXT
1230 HOME
1232 VTAB 22: HTAB 1: PRINT LB$(CC);" IS COUNTED ";VD$;
1234 POKE 34,22
1236 CN = CN +PV(CC)
1238 VTAB 23: HTAB 1: PRINT "WHAT IS THE RUNNING COUNT NOW? ";
1240 FLASH : PRINT " ";: NORMAL
1241 HTAB 32
1242 GOSUB 360
1243 VD = VAL(VD$)
1246 VTAB 24: HTAB 18
1248 IF VD = CN THEN PRINT "RIGHT!";
1250 IF VD < >CN THEN PRINT "WRONG!";
1251 VD$ = STR$(CN)
1252 IF CN >0 THEN VD$ = "+" +VD$
1254 FOR K = 1 TO 2000: NEXT
1256 HOME
1257 POKE 34,20: HOME
1258 VTAB 21: HTAB 1: PRINT "THE RUNNING COUNT IS NOW ";VD$;
1260 HCOLOR= 1: HPLOT 0,0: CALL -3082
1264 NEXT I
1266 POKE 34,5: HOME
1268 VTAB 22: HTAB 7: PRINT "THAT'S THE END OF THE DECK!";
1269 HCOLOR= 1: HPLOT 0,0: CALL -3082
1270 VTAB 23: HTAB 2: PRINT "SHALL WE DO THAT AGAIN? (Y-YES,N-NO) ";
1272 GET KY$
1274 IF KY$ = "Y" THEN GOTO 900
1276 IF KY$ = "N" THEN GOTO 830
1278 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
1280 GOTO 830
1300 HOME
1301 VTAB 7: HTAB 1
1302 PRINT "COUNTING CARDS IN TWOS IS A GREAT TRICK:";
1303 VTAB 9: HTAB 1
1304 PRINT " IT MAKES THE RUNNING COUNT EASIER!";
1305 VTAB 10: HTAB 1
1306 PRINT " AND IT ISN'T HARD TO LEARN!";
1307 VTAB 12: HTAB 1
1308 PRINT "THE TRICK IS TO COUNT EACH PAIR OF CARDS";
1309 VTAB 13: HTAB 1
1310 PRINT "SEEN AS A UNIT WITH ITS OWN POINT VALUE.";
1311 VTAB 15: HTAB 1
1312 PM$ = "+": IF PV(7) <0 THEN PM$ = "-"
1313 PRINT "FOR EXAMPLE, DON'T COUNT 10-7 AS ";PV(10);PM$; ABS(PV(7));
1314 VTAB 16: HTAB 1
1315 PRINT "YOU MUST LEARN TO COUNT 10-7 AS ";PV(10) +PV(7);
1316 VTAB 18: HTAB 1
1317 PRINT "THE EASIEST WAY TO LEARN THESE VALUES IS";
1318 VTAB 19: HTAB 1
1319 PRINT "TO DEAL DOWN A DECK TWO CARDS AT A TIME";
1320 VTAB 20: HTAB 1
1321 PRINT "AND RECITE EACH PAIR'S NET POINT VALUE.";
1322 VTAB 22: HTAB 1
1323 PRINT "------ PRESS ANY KEY TO CONTINUE ------";
1324 POKE 34,22: POKE -16368,0
1325 KY = PEEK( -16384): IF KY <128 GOTO 1325
1326 POKE 34,5: POKE -16368,0
1327 HCOLOR= 1: HPLOT 0,0: CALL -3082: HGR
1328 HOME : HCOLOR= 1: HPLOT 0,0: CALL -3082
1329 VTAB 22: HTAB 1: PRINT "LET'S DEAL DOWN A STANDARD DECK OF CARDS";
1330 FOR J = 1 TO STALL: NEXT
1332 VTAB 23: HTAB 1: PRINT "RECITING ALOUD EACH PAIR'S POINT VALUE!";
1333 FOR J = 1 TO STALL: NEXT
1334 HOME
1335 NN = 51
1336 Y = 52
1337 FOR I = 0 TO 25
1338 CP = INT(NN * RND(1))
1339 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC
1340 NN = NN -1
1341 CP = 100 *(CC - INT(CC))
1342 CP = INT(CP):CC = INT(CC)
1343 CN = PV(CC):LS$ = LB$(CC) +" AND "
1344 X = 98
1345 GOSUB 300
1346 CP = INT(NN * RND(1))
1347 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC
1348 NN = NN -1
1349 CP = 100 *(CC - INT(CC))
1350 CP = INT(CP):CC = INT(CC)
1351 CN = CN +PV(CC):LS$ = LS$ +LB$(CC)
1352 X = 142
1353 GOSUB 305
1354 VTAB 22: HTAB 1
1355 PRINT SPC( 21 - LEN(LS$));LS$;" ARE COUNTED ";
1356 PM$ = "+"
1357 IF CN = 0 THEN PM$ = " "
1358 IF CN <0 THEN PM$ = "-"
1359 FLASH : PRINT PM$; ABS(CN);: NORMAL
1360 FOR J = 1 TO 1.5 *STALL: NEXT
1361 HOME
1362 KY = PEEK( -16384)
1363 IF KY = 141 THEN POKE -16368,0: GOTO 1370
1364 NEXT I
1370 HCOLOR= 1: HPLOT 0,0: CALL -3082
1371 VTAB 22: HTAB 1
1372 PRINT "SHALL WE DO THAT AGAIN? (Y-YES,N-NO) ";
1373 GET KY$
1374 IF KY$ = "Y" GOTO 1328
1375 IF KY$ = "N" GOTO 1378
1376 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
1377 GOTO 1373
1378 POKE -16303,0
1379 GOTO 86
1400 POKE 34,5: HOME
1405 VTAB 8: HTAB 7: PRINT "IN THIS DRILL, YOU MUST KEEP";
1410 VTAB 9: HTAB 1: PRINT "A RUNNING COUNT OF THE TOTAL POINTS SEEN";
1415 VTAB 10: HTAB 2: PRINT "AS CARDS ARE DEALT FROM A 52-CARD DECK.";
1420 VTAB 12: HTAB 4: PRINT "EACH DEAL EXPOSES FROM 1 TO 3 CARDS.";
1425 VTAB 13: HTAB 3: PRINT "THE DEALER'S SPEED MAY BE FINE TUNED";
1430 VTAB 14: HTAB 5: PRINT "TO KEEP THE DRILL CHALLENGING";
1432 VTAB 15: HTAB 2: PRINT "EVEN AS YOUR LEVEL OF SKILL INCREASES.";
1435 VTAB 17: HTAB 1: PRINT "FOR A FRESH DECK, THE COUNT STARTS AT 0.";
1436 FC$ = STR$(FC)
1437 SP = INT((6 - LEN(FC$))/2)
1440 VTAB 18: HTAB 1: PRINT SPC( SP);"WHEN FINISHED, THE COUNT MUST BE ";FC$;".";
1445 VTAB 20: HTAB 2: PRINT "THIS ALLOWS YOU TO CHECK YOUR ACCURACY.";
1450 VTAB 21: HTAB 1: PRINT "IF YOU ARE ACCURATE, YOU WILL BE ABLE TO";
1455 VTAB 22: HTAB 1: PRINT "PREDICT THE VALUES OF THE LAST FEW CARDS";
1460 VTAB 24: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
1464 POKE -16368,0
1465 KY = PEEK( -16384): IF KY <128 GOTO 1465
1466 POKE -16368,0
1500 POKE 34,5: HOME
1502 HGR : HCOLOR= 1: HPLOT 0,0: CALL -3082
1503 RA% = PEEK(38382)
1504 RU = 255:RL = 1
1505 VTAB 21: HTAB 2
1510 PRINT "PRACTICE KEEPING A RUNNING COUNT ...";
1515 FOR I = 1 TO STALL: NEXT
1517 VTAB 22: HTAB 2
1520 PRINT "... BY COUNTING EACH CARD AS IT'S SEEN!";
1530 NN = 51
1535 NS = INT(4 * RND(1))
1540 NS = 2 - ABS(2 -NS)
1545 Y = 52
1550 FOR I = 0 TO NS
1555 X = 98 +44 *I
1560 CP = INT(NN * RND(1))
1565 CC = DK(CP)
1570 DK(CP) = DK(NN)
1572 DK(NN) = CC
1575 CP = 100 *(CC - INT(CC)):CP = INT(CP)
1580 CC = INT(CC)
1585 NN = NN -1
1590 CN = CN +PV(CC)
1595 GOSUB 305
1600 NEXT
1605 FOR J = 1 TO 5 *RA%: NEXT
1610 HCOLOR= 1: HPLOT 0,0: CALL -3082
1615 IF NN >2 THEN GOTO 1535
1620 HOME
1625 VTAB 22: HTAB 4
1630 PRINT "THE LAST CARDS IN THE DECK ARE . . . ";
1635 FOR I = 1 TO STALL: NEXT
1640 FOR I = 0 TO NN
1645 X = 98 +I *44
1650 CC = INT(DK(I))
1655 CP = 100 *(DK(I) -CC)
1660 GOSUB 305
1665 NEXT
1680 POKE 34,5: HOME
1682 VTAB 22: HTAB 1: PRINT "SELECT DESIRED SPEED OF DEALER:";
1684 VTAB 23: HTAB 1: PRINT "(A) SAME (B) FASTER (C) SLOWER ";
1689 POKE -16368,0
1690 KY = PEEK( -16384): IF KY <128 GOTO 1690
1691 POKE -16368,0
1692 IF KY = 193 OR KY = 194 OR KY = 195 THEN GOTO 1697
1695 FOR J = 1 TO 20:A = PEEK( -16336): NEXT
1696 GOTO 1693
1697 HOME
1698 IF KY = 193 THEN GOTO 1705
1699 IF KY = 194 THEN RA% = (RA% +RL)/2
1700 IF KY = 195 THEN RA% = (RA% +RU)/2
1702 POKE 38382,RA%
1705 HOME
1710 VTAB 22: HTAB 1
1715 PRINT "DO YOU WANT ANOTHER ROUND? (Y-YES,N-NO)";
1720 GET KY$
1725 HCOLOR= 1: HPLOT 0,0: CALL -3082
1728 POKE 34,5: HOME
1730 IF KY$ = "Y" THEN GOTO 1505
1735 HOME
1740 POKE -16303,0
1745 GOTO 90
Text found in Break_the_Bank_1983_Gentry_Software.do/GREEN OUT.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 A9 1C 85 06 A2 00 BD C0 08 85 F8 BD 00 08 85 F9 )...".=@ ..x=...y
$000010 A0 00 A9 2A 91 F8 C8 C4 06 F0 09 A9 55 91 F8 C8 .)*.xHD .p.)U.xH
$000020 C4 06 D0 EE E8 E0 C0 F0 0B E0 51 D0 D9 A9 28 85 D.Pnh`@p .`QPY)(.
$000030 06 4C 06 03 60 00 .. .. .. .. .. .. .. .. .. .. .L..`.
** END **
Text found in Break_the_Bank_1983_Gentry_Software.do/HELLO.bas:
1 ONERR GOTO 10
10 POKE -16303,0
11 POKE -16300,0
12 POKE 216,0
20 POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24
30 HOME
35 ROT= 0: SCALE= 1
40 VTAB 5: HTAB 1: PRINT "IN 1961, A COLLEGE PROFESSOR DISCOVERED";
50 VTAB 6: HTAB 9: PRINT "EVERY GAMBLER'S DREAM --";
60 VTAB 7: HTAB 3: PRINT "A WAY TO BEAT THE GAME OF BLACKJACK";
70 VTAB 8: HTAB 13: PRINT "SCIENTIFICALLY!";
80 VTAB 10: HTAB 18: PRINT "* * *";
90 VTAB 12: HTAB 7: PRINT "NEVADA CASINOS WERE STUNNED";
100 VTAB 13: HTAB 4: PRINT "AS HE BROKE THE BANK AT THE TABLES";
110 VTAB 14: HTAB 1: PRINT "NOT JUST ONCE, BUT TWICE IN ONE EVENING!";
120 VTAB 16: HTAB 18: PRINT "* * *";
130 VTAB 18: HTAB 5: PRINT "NOW, YOU TOO CAN HAVE THE POWER!";
140 POKE 103,1: POKE 104,64: POKE 16384,0
150 HIMEM: 38379
160 POKE 34,20: PRINT : POKE 34,0
170 PRINT CHR$(4);"BLOAD SCREEN"
180 FOR K = 1 TO 4000: NEXT
190 POKE -16297,0: POKE -16300,0: POKE -16302,0: POKE -16304,0
200 PRINT CHR$(4);"BLOAD POINTERS"
210 PRINT CHR$(4);"BLOAD SHAPES-3"
220 PRINT CHR$(4);"BLOAD POINT-3"
230 RN = PEEK(38383) +256 * PEEK(38384)
240 A = RND( -RN)
244 FOR K = 1 TO 5000: NEXT
245 HGR
250 POKE 38381,2
260 PRINT CHR$(4);"RUN MENU"
Text found in Break_the_Bank_1983_Gentry_Software.do/HIRES.MAP.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 20 24 28 2C 30 34 38 3C 20 24 28 2C 30 34 38 3C $(,048< $(,048<
$000010 21 25 29 2D 31 35 39 3D 21 25 29 2D 31 35 39 3D !%)-159= !%)-159=
$000020 22 26 2A 2E 32 36 3A 3E 22 26 2A 2E 32 36 3A 3E "&*.26:> "&*.26:>
$000030 23 27 2B 2F 33 37 3B 3F 23 27 2B 2F 33 37 3B 3F #'+/37;? #'+/37;?
$000040 20 24 28 2C 30 34 38 3C 20 24 28 2C 30 34 38 3C $(,048< $(,048<
$000050 21 25 29 2D 31 35 39 3D 21 25 29 2D 31 35 39 3D !%)-159= !%)-159=
$000060 22 26 2A 2E 32 36 3A 3E 22 26 2A 2E 32 36 3A 3E "&*.26:> "&*.26:>
$000070 23 27 2B 2F 33 37 3B 3F 23 27 2B 2F 33 37 3B 3F #'+/37;? #'+/37;?
$000080 20 24 28 2C 30 34 38 3C 20 24 28 2C 30 34 38 3C $(,048< $(,048<
$000090 21 25 29 2D 31 35 39 3D 21 25 29 2D 31 35 39 3D !%)-159= !%)-159=
$0000A0 22 26 2A 2E 32 36 3A 3E 22 26 2A 2E 32 36 3A 3E "&*.26:> "&*.26:>
$0000B0 23 27 2B 2F 33 37 3B 3F 23 27 2B 2F 33 37 3B 3F #'+/37;? #'+/37;?
$0000C0 00 00 00 00 00 00 00 00 80 80 80 80 80 80 80 80 ........ ........
$0000D0 00 00 00 00 00 00 00 00 80 80 80 80 80 80 80 80 ........ ........
$0000E0 00 00 00 00 00 00 00 00 80 80 80 80 80 80 80 80 ........ ........
$0000F0 00 00 00 00 00 00 00 00 80 80 80 80 80 80 80 80 ........ ........
$000100 28 28 28 28 28 28 28 28 A8 A8 A8 A8 A8 A8 A8 A8 (((((((( ((((((((
$000110 28 28 28 28 28 28 28 28 A8 A8 A8 A8 A8 A8 A8 A8 (((((((( ((((((((
$000120 28 28 28 28 28 28 28 28 A8 A8 A8 A8 A8 A8 A8 A8 (((((((( ((((((((
$000130 28 28 28 28 28 28 28 28 A8 A8 A8 A8 A8 A8 A8 A8 (((((((( ((((((((
$000140 50 50 50 50 50 50 50 50 D0 D0 D0 D0 D0 D0 D0 D0 PPPPPPPP PPPPPPPP
$000150 50 50 50 50 50 50 50 50 D0 D0 D0 D0 D0 D0 D0 D0 PPPPPPPP PPPPPPPP
$000160 50 50 50 50 50 50 50 50 D0 D0 D0 D0 D0 D0 D0 D0 PPPPPPPP PPPPPPPP
$000170 50 50 50 50 50 50 50 50 D0 D0 D0 D0 D0 D0 D0 D0 PPPPPPPP PPPPPPPP
** END **
Text found in Break_the_Bank_1983_Gentry_Software.do/INTERMEDIATE POINT COUNT.txt:
5
2
2
3
4
4
6
5
8
1
Y
2
1
1
1
1
1
0
0
0
-1
-1
-1
-1
-1
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=212
0=212
0=212
0=11
0=11
0=212
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=212
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=212
0=22
0=22
0=32
0=32
0=32
0=22
0=22
0=22
0=22
0=22
0=32
0=32
0=32
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=32
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=32
0=22
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=20
0=22
0=22
0=22
0=22
0=22
0=22
0=02
0=12
0=22
0=22
0=22
0=22
0=22
0=11
0=11
0=11
0=11
0=11
0=11
0=11
0=12
0=22
0=22
0=02
0=02
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=03
0=00
0=00
0=00
0=00
0=33
0=00
0=00
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=0PP
0=22
0=22
0=212
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=212
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0==22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=212
0=211
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0==33
0=313
0=11
0=11
0=11
0=33
0=33
0=22
0=22
0==33
0=33
0=33
0=313
0=313
0=313
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=033
0=33
Text found in Break_the_Bank_1983_Gentry_Software.do/MENU.bas:
0 POKE 214,255
10 DIM SN$(9)
15 POKE 34,0: HOME
20 POKE -16303,0
25 PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
30 PRINT CHR$(4);"READ STRATEGY DIRECTORY"
35 INPUT NS
40 FOR I = 1 TO NS: INPUT SN$(I): NEXT
45 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
50 CH = PEEK(38380)
55 IF PEEK(38381) <2 GOTO 460
240 VTAB 1: HTAB 1: PRINT "****************************************";
250 VTAB 2: HTAB 1: PRINT "* WELCOME TO BREAK THE BANK! *";
260 VTAB 3: HTAB 1: PRINT "* THE COMPLETE CARD COUNTING TUTORIAL *";
270 VTAB 4: HTAB 1: PRINT "****************************************";
305 VTAB 6: HTAB 2
310 PRINT " 'BREAK THE BANK!' OFFERS TUTORIALS";
315 VTAB 7: HTAB 5
320 PRINT "IN FOUR LEVELS OF BLACKJACK PLAY,";
325 VTAB 8: HTAB 3
330 PRINT "FROM BEST PLAY WITHOUT CARD COUNTING";
335 VTAB 9: HTAB 3
340 PRINT "TO ADVANCED CARD COUNTING TECHNIQUES.";
345 VTAB 11: HTAB 2
350 PRINT "SPECIAL UTILITY PROGRAMS ALLOW YOU TO";
355 VTAB 12: HTAB 1
360 PRINT "EVALUATE OTHER BLACKJACK STRATEGIES AND";
365 VTAB 13: HTAB 2
370 PRINT "ADD THEM TO THIS TUTORIAL IF YOU WISH.";
375 VTAB 15: HTAB 4
380 PRINT "THROUGH STRATEGY REVIEWS AND DRILLS";
385 VTAB 16: HTAB 1
390 PRINT "AND SIMULATED CASINO PLAY WITH GRAPHICS,";
395 VTAB 17: HTAB 1
400 PRINT " 'BREAK THE BANK!' WILL HELP YOU MASTER";
405 VTAB 18: HTAB 2
410 PRINT "WHICHEVER STRATEGY YOU CHOOSE TO LEARN.";
415 VTAB 20: HTAB 6
420 PRINT "LEARN EFFECTIVE BLACKJACK PLAY";
425 VTAB 21: HTAB 1
430 PRINT "AND YOU'LL ALWAYS PLAY BLACKJACK TO WIN!";
435 VTAB 24: HTAB 1
440 PRINT "------ PRESS ANY KEY TO CONTINUE ------";
445 POKE -16368,0
450 FOR IW = 1 TO 5000
454 AP = PEEK( -16384): IF AP > = 128 GOTO 460
456 NEXT IW
458 PG$ = "DEMONSTRATION"
459 HOME : GOTO 845
460 HOME
462 POKE -16368,0
465 POKE 38381,0
466 IF CH >0 AND PEEK(38381) = 0 GOTO 710
470 POKE -16303,0
512 MX = 0
515 POKE -16303,0
520 HOME : PRINT
560 NORMAL
565 VTAB 2: HTAB 13
570 PRINT "BREAK THE BANK!";
575 VTAB 3: HTAB 1
580 PRINT "OFFERS A CHOICE OF BLACKJACK STRATEGIES:";
585 FOR I = 1 TO NS
590 VTAB 4 +I: HTAB 1
595 PRINT "(";I;") ";SN$(I);
600 NEXT
605 VTAB 7 +NS: HTAB 1
610 PRINT "AS WELL AS TWO SPECIAL UTILITY PROGRAMS:";
615 VTAB 9 +NS: HTAB 1
620 PRINT "(A) STRATEGY EDITOR";
625 VTAB 10 +NS: HTAB 1
630 PRINT "(B) STRATEGY EVALUATOR";
635 VTAB 13 +NS: HTAB 1
640 PRINT "ENTER THE NUMBER/LETTER OF THE PROGRAM";
645 VTAB 14 +NS: HTAB 1
650 PRINT "YOU WISH TO RUN ";
652 FOR IW = 1 TO 5000
654 AP = PEEK( -16384): IF AP > = 128 GOTO 660
656 NEXT IW
658 HOME : GOTO 240
660 POKE -16368,0
661 POKE 38381,0
665 IF AP < >193 AND AP < >194 GOTO 675
666 POKE 38381,1
667 PG$ = "STRATEGY EDITOR"
668 IF AP = 194 THEN PG$ = "STRATEGY EVALUATOR"
669 HOME : GOTO 845
675 CH = AP -176
680 IF CH <1 THEN GOTO 690
685 IF CH < = NS THEN GOTO 700
690 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
695 GOTO 652
700 POKE 38380,CH
705 HOME
710 VTAB 7: HTAB 1
715 PRINT SN$(CH);
720 VTAB 8: HTAB 1
725 PRINT "----------------------------------------";
730 VTAB 11: HTAB 1
735 PRINT "WHICH PROGRAM DO YOU WANT?"
740 VTAB 13: HTAB 1
742 PRINT "(1) RETURN TO MAIN MENU";
744 VTAB 14: HTAB 1
745 PRINT "(2) STRATEGY REVIEW AND DRILL";
750 VTAB 15: HTAB 1
755 PRINT "(3) BLACKJACK GAME";
760 VTAB 16: HTAB 1
765 IF CH >1 THEN MX = 1: PRINT "(4) POINT COUNT DRILL";
770 VTAB 18: HTAB 1
775 PRINT "ENTER THE DESIRED PROGRAM NUMBER";
785 FOR IW = 1 TO 4000
786 AP = PEEK( -16384): IF AP > = 128 GOTO 790
787 NEXT IW
788 HOME : GOTO 240
790 POKE -16368,0
792 SB = AP -176
795 IF SB <1 THEN GOTO 805
800 IF SB < = 3 +MX THEN GOTO 815
805 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
810 GOTO 785
815 HOME
817 IF SB < >1 GOTO 820
818 POKE 38380,0
819 GOTO 565
820 PG$ = "STRATEGY DRILL"
825 IF SB = 3 THEN PG$ = "BLACKJACK"
830 IF SB = 4 THEN PG$ = "COUNT DRILL"
845 SP = 30 - LEN(PG$)
850 VTAB 1: HTAB 1: PRINT "****************************************";
855 VTAB 2: HTAB 1: PRINT "*"; SPC( INT(SP/2));"LOADING ";PG$; SPC( SP - INT(SP/2));"*";
860 VTAB 3: HTAB 1: PRINT "****************************************";
862 A = FRE(0)
865 POKE 34,3: PRINT : POKE 34,0
868 PRINT CHR$(4);"BSAVE POINTERS,A$95EC,L$14"
870 PRINT CHR$(4);"RUN ";PG$
Text found in Break_the_Bank_1983_Gentry_Software.do/POINT-3.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 00 0C .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
** END **
Text found in Break_the_Bank_1983_Gentry_Software.do/POINTERS.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 02 02 EF 47 93 00 00 00 00 00 00 00 00 00 00 00 ..oG.... ........
$000010 00 00 00 00 .. .. .. .. .. .. .. .. .. .. .. .. ....
** END **
Text found in Break_the_Bank_1983_Gentry_Software.do/PROBLEM HANDS.txt:
3.11
3.21
3.31
3.41
4.01
4.11
4.21
4.31
4.41
4.51
4.61
5.01
5.11
5.21
5.31
5.41
5.51
5.61
5.71
5.81
5.91
6.01
6.11
6.21
6.31
6.41
6.51
6.61
6.71
6.81
6.91
7.01
7.11
7.21
7.31
7.41
7.51
8.01
8.11
8.21
8.31
8.41
8.51
8.81
9.01
9.11
9.21
9.31
9.41
9.51
9.61
9.71
9.81
9.91
10.01
10.11
10.21
10.31
10.41
10.51
10.61
10.71
10.81
10.91
11.01
11.11
11.21
11.31
11.41
11.51
11.61
11.71
11.81
11.91
17.01
17.11
17.21
17.31
17.41
17.51
17.61
18.01
18.11
18.21
18.31
18.41
18.51
18.61
19.01
19.11
19.21
19.31
19.41
19.51
21.01
21.11
21.21
21.31
21.41
21.51
22.01
22.11
22.21
22.31
22.41
22.51
22.61
22.71
22.81
22.91
23.71
23.81
23.91
24.01
24.11
24.21
24.31
24.41
24.51
24.61
24.71
24.81
24.91
26.01
26.11
26.51
26.61
26.71
26.81
26.91
27.01
27.11
27.21
27.31
27.41
28.01
28.11
28.21
28.31
28.41
29.01
29.11
29.21
29.31
29.41
30.01
30.11
30.21
30.31
30.41
31.01
31.11
31.21
31.31
31.41
32.01
32.11
32.21
32.31
32.41
32.51
32.61
32.71
32.81
32.91
33.01
33.11
33.21
33.31
33.41
33.51
33.61
33.71
33.81
33.91
34.01
34.11
34.21
34.31
34.41
Text found in Break_the_Bank_1983_Gentry_Software.do/SIMPLE POINT COUNT.txt:
5
2
2
3
4
4
6
5
8
1
N
1
1
1
1
1
0
0
0
-1
-1
-1
-1
-1
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=22
0=22
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=211
0=22
0=22
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=22
0=22
0=33
0=33
0=33
0=33
0=33
0=22
0=22
0=22
0=33
0=22
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=00
0=11
0=22
0=22
0=22
0=22
0=22
0=11
0=11
0=11
0=11
0=11
0=11
0=11
0=11
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=22
0=22
0=22
0=22
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=33
0=00
0=00
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=00
0=0PP
0=22
0=22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0==22
0=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0=22
0=22
0=211
0=211
9=211
0=22
0=22
0=22
0=22
0=22
0=211
0=211
9=211
0=211
0=211
0=22
0=22
0=22
0=22
0=22
0==33
0=211
0=211
0=211
0=211
0=33
0=33
0=22
0=22
0==33
0=33
0=33
0=311
0=311
0=311
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=33
0=033
0=33
Text found in Break_the_Bank_1983_Gentry_Software.do/STANDARD DECK.txt:
2.151
2.161
2.171
2.181
3.151
3.161
3.171
3.181
4.151
4.161
4.171
4.181
5.151
5.161
5.171
5.181
6.151
6.161
6.171
6.181
7.151
7.161
7.171
7.181
8.151
8.161
8.171
8.181
9.151
9.161
9.171
9.181
10.151
10.161
10.171
10.181
11.151
11.161
11.171
11.181
12.151
12.161
12.171
12.181
13.151
13.161
13.171
13.181
14.151
14.161
14.171
14.181
2.151
2.161
2.171
2.181
3.151
3.161
3.171
3.181
4.151
4.161
4.171
4.181
5.151
5.161
5.171
5.181
6.151
6.161
6.171
6.181
7.151
7.161
7.171
7.181
8.151
8.161
8.171
8.181
9.151
9.161
9.171
9.181
10.151
10.161
10.171
10.181
11.151
11.161
11.171
11.181
12.151
12.161
12.171
12.181
13.151
13.161
13.171
13.181
14.151
14.161
14.171
14.181
2.151
2.161
2.171
2.181
3.151
3.161
3.171
3.181
4.151
4.161
4.171
4.181
5.151
5.161
5.171
5.181
6.151
6.161
6.171
6.181
7.151
7.161
7.171
7.181
8.151
8.161
8.171
8.181
9.151
9.161
9.171
9.181
10.151
10.161
10.171
10.181
11.151
11.161
11.171
11.181
12.151
12.161
12.171
12.181
13.151
13.161
13.171
13.181
14.151
14.161
14.171
14.181
2.151
2.161
2.171
2.181
3.151
3.161
3.171
3.181
4.151
4.161
4.171
4.181
5.151
5.161
5.171
5.181
6.151
6.161
6.171
6.181
7.151
7.161
7.171
7.181
8.151
8.161
8.171
8.181
9.151
9.161
9.171
9.181
10.151
10.161
10.171
10.181
11.151
11.161
11.171
11.181
12.151
12.161
12.171
12.181
13.151
13.161
13.171
13.181
14.151
14.161
14.171
14.181
2.151
2.161
2.171
2.181
3.151
3.161
3.171
3.181
4.151
4.161
4.171
4.181
5.151
5.161
5.171
5.181
6.151
6.161
6.171
6.181
7.151
7.161
7.171
7.181
8.151
8.161
8.171
8.181
9.151
9.161
9.171
9.181
10.151
10.161
10.171
10.181
11.151
11.161
11.171
11.181
12.151
12.161
12.171
12.181
13.151
13.161
13.171
13.181
14.151
14.161
14.171
14.181
2.151
2.161
2.171
2.181
3.151
3.161
3.171
3.181
4.151
4.161
4.171
4.181
5.151
5.161
5.171
5.181
6.151
6.161
6.171
6.181
7.151
7.161
7.171
7.181
8.151
8.161
8.171
8.181
9.151
9.161
9.171
9.181
10.151
10.161
10.171
10.181
11.151
11.161
11.171
11.181
12.151
12.161
12.171
12.181
13.151
13.161
13.171
13.181
14.151
14.161
14.171
14.181
Text found in Break_the_Bank_1983_Gentry_Software.do/STRATEGY DIRECTORY.txt:
4
BASIC PLAY FOR THE NONCOUNTER
SIMPLE POINT COUNT
INTERMEDIATE POINT COUNT
ADVANCED POINT COUNT
COMPLEX COUNT
NONCOUNTER
Text found in Break_the_Bank_1983_Gentry_Software.do/STRATEGY DRILL.bas:
0 POKE 214,255
1 DIM PH$(35),DH$(9),ST$(35,9)
2 DIM PL$(5),PS$(5),WP$(3)
3 DIM DK(51),HD(179),B(10),C(10)
5 UX = 7:UY = 4:LX = 33:LY = 52:SY = 13
10 FOR IP = 0 TO 35: READ PH$(IP): NEXT
11 DATA "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21"
12 DATA "2-2","3-3","4-4","5-5","6-6","7-7","8-8","9-9","10-10","A-A"
13 DATA "A-2","A-3","A-4","A-5","A-6","A-7","A-8","A-9","A-10"
14 FOR ID = 0 TO 9: READ DH$(ID): NEXT
15 DATA "2","3","4","5","6","7","8","9","10","ACE"
16 FOR I = 0 TO 4: READ PL$(I): NEXT
17 DATA " SPLIT"," DOUBLE"," HIT"," STAND","SURRENDER"
18 FOR I = 1 TO 3: READ WP$(I): NEXT
19 DATA "HARD TOTALS","PAIRS","SOFT TOTALS"
20 FOR I = 0 TO 4: READ PS$(I): NEXT
21 DATA "P","D","H","S","U"
22 FOR I = 0 TO 9: READ LW$(I): NEXT
23 DATA " 2 ","! 3 ","! 4 ","! 5 ","! 6 "," 7 ","! 8 ","! 9 ","! 10 ","! ACE "
25 E9$ = " "
26 E5$ = " "
30 RN = PEEK(38383) +256 * PEEK(38384)
31 A = RND( -RN)
49 GOTO 1000
50 HCOLOR= 1: HPLOT 0,0: CALL -3082
55 ROT= 0
60 HCOLOR= 3: DRAW 1 AT X,Y
65 HCOLOR= 0: DRAW 19 AT X,Y
70 IF CP = 15 OR CP = 17 THEN HCOLOR= 2
75 DRAW CC AT X +UX,Y +UY
80 DRAW CP AT X +UX,Y +UY +SY
85 ROT= 32
90 DRAW CC AT X +LX,Y +LY
95 DRAW CP AT X +LX,Y +LY -SY
100 RETURN
110 FOR II = 0 TO 4
112 ID = II +5 *SOP
114 SS$ = ST$(IP,ID)
116 CT = VAL(SS$)
118 FD$ = LEFT$( RIGHT$(SS$,2),1)
120 SD$ = RIGHT$(SS$,1)
122 HT = 1 +8 *II
124 VTAB V: HTAB HT
126 INVERSE
128 PRINT LW$(ID);
130 NORMAL
131 VTAB V +1: HTAB HT: PRINT "--------";
132 IF FD$ = SD$ GOTO 150
134 CT$ = STR$(CT)
136 IF CT >0 THEN CT$ = "+" +CT$
138 SP = 8 - LEN(CT$)
140 VTAB V +2: HTAB HT +SP - INT(SP/2)
142 PRINT CT$;
144 VTAB V +3: HTAB HT +3
146 PRINT PS$( VAL(FD$));PS$( VAL(SD$))
148 GOTO 157
150 VTAB V +2: HTAB HT +2
152 PRINT "ALWAYS";
154 VTAB V +3: HTAB HT +4
156 PRINT PS$( VAL(FD$));
157 VTAB V +4: HTAB HT: PRINT "--------";
158 NEXT
160 RETURN
250 RR = INT(12 * RND(1)) -2
252 ID = ABS(RR -2) +2
254 UP = HI -LO +1
256 IP = INT(UP * RND(1)) +LO
258 IF IP HP THEN IP = INT(UP * RND(1)) +LO
260 CC = ID +2
261 IF CC = 11 THEN CC = 14
262 IF CC = 10 THEN CC = CC + INT(4 * RND(1))
264 CP = 15 + INT(4 * RND(1))
266 X = 98:Y = 16
268 GOSUB 50
270 Y = 84
272 IF PT$ < >"1" GOTO 300
274 D = INT((IP +7)/2)
275 IF D >10 THEN D = 10
276 U = IP +3
278 IF U >10 THEN U = 10
280 IF U = 10 THEN U = U + INT(4 * RND(1))
282 CC = D + INT((U -D +1) * RND(1))
284 CP = 15 + INT(4 * RND(1))
286 X = 98
288 GOSUB 55
289 CS = CC: IF CC >10 THEN CS = 10
290 CC = IP +5 -CS
292 CP = 15 + INT(4 * RND(1))
294 X = 142
296 GOSUB 55
298 RETURN
300 IF PT$ < >"2" GOTO 318
302 CC = IP -15
303 IF CC = 11 THEN CC = 14
304 IF CC = 10 THEN CC = CC + INT(4 * RND(1))
305 CP = 15 + INT(4 * RND(1))
306 X = 98
308 GOSUB 55
310 CP = 15 + INT(4 * RND(1))
312 X = 142
314 GOSUB 55
316 RETURN
318 CC = 14
320 CP = 15 + INT(4 * RND(1))
322 X = 98
324 GOSUB 55
326 CC = IP -25
327 IF CC = 1 THEN CC = 14
328 CP = 15 + INT(4 * RND(1))
329 X = 142
330 GOSUB 55
332 RETURN
350 POKE 34,21: HOME : POKE 34,23
351 VS$ = PH$(IP) +" VS " +DH$(ID)
352 SP = INT((40 - LEN(VS$))/2)
353 VTAB V -1: HTAB 1: PRINT SPC( SP);VS$;
356 IF FD$ < >SD$ GOTO 364
358 VTAB V: HTAB 1: PRINT PL$( VAL(FD$));" REGARDLESS OF THE COUNT";
360 FOR K = 1 TO 2000: NEXT
362 RETURN
364 VTAB V: HTAB 1: PRINT PL$( VAL(FD$));" IF COUNT GREATER THAN ";CT;
366 VTAB V +1: HTAB 1: PRINT PL$( VAL(SD$));" IF COUNT IS LESS THAN ";CT;
368 FOR K = 1 TO 2000: NEXT
370 RETURN
500 POKE 34,20: HOME : POKE 34,23
501 VS$ = PH$(IP) +" VS " +DH$(ID)
502 SP = INT((40 - LEN(VS$))/2)
503 VTAB 21: HTAB 1: PRINT SPC( SP);VS$;
504 IF FD$ = SD$ GOTO 550
505 NE = 1
510 VTAB 22: HTAB 10
520 PRINT " IF COUNT GREATER THAN ";
522 IF DP$ = "2" THEN PRINT CT;
525 VTAB 23: HTAB 10
535 PRINT " IF COUNT IS LESS THAN ";
537 IF DP$ = "2" THEN PRINT CT;
540 GOTO 570
550 NE = 0
555 VTAB 22: HTAB 10
565 PRINT " REGARDLESS OF THE COUNT";
570 FOR I = 22 TO 22 +NE
575 NW = 0
580 VTAB I: HTAB 1
585 FLASH : PRINT E9$;: NORMAL
586 HTAB 1
590 GET KY$
595 KY = -1
600 IF KY$ = "P" THEN KY = 0
605 IF KY$ = "D" THEN KY = 1
610 IF KY$ = "H" THEN KY = 2
615 IF KY$ = "S" THEN KY = 3
620 IF KY$ = "U" THEN KY = 4
625 IF KY > = 0 THEN GOTO 645
630 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
635 GOTO 590
645 PRINT PL$(KY);
650 IF I = 22 AND KY = VAL(FD$) GOTO 715
651 IF I = 23 AND KY = VAL(SD$) GOTO 715
655 NW = NW +1
660 IF NW >1 GOTO 690
665 VTAB 24: HTAB 10
670 PRINT "WRONG . . . TRY AGAIN!";
675 FOR K = 1 TO 2000: NEXT
680 HOME
685 GOTO 580
690 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
691 VTAB 24: HTAB 1: PRINT " WRONG ... THE CORRECT STRATEGY IS ...";
692 FOR K = 1 TO 2500: NEXT
694 V = 22
695 GOSUB 350
700 FOR K = 1 TO 2000: NEXT
705 POKE 34,5
710 RETURN
715 VTAB 24: HTAB 17
720 PRINT "CORRECT!";
725 FOR K = 1 TO 1000: NEXT
730 HOME
735 IF DP$ < >"3" GOTO 875
737 IF FD$ = SD$ GOTO 875
738 IF I = 23 GOTO 875
740 WC = 0
742 VTAB 22: HTAB 33
745 FLASH : PRINT E5$;: NORMAL
747 VTAB 23: HTAB 33: PRINT " ";
750 VTAB 22: HTAB 33
755 CN$ = ""
760 GET DD$
765 PRINT DD$;
770 IF DD$ = CHR$(13) GOTO 790
775 CN$ = CN$ +DD$
780 GOTO 760
790 CN = VAL(CN$)
795 VTAB I: HTAB 33: PRINT " ";
796 VTAB I: HTAB 33: PRINT CN;
797 VTAB 23: HTAB 33: PRINT CN;
800 IF CN = CT GOTO 860
805 WC = WC +1
810 IF WC >1 GOTO 835
815 VTAB 24: HTAB 10
820 PRINT "WRONG . . . TRY AGAIN!";
825 FOR K = 1 TO 1000: NEXT
826 HOME
830 GOTO 742
835 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
840 VTAB 24: HTAB 1: PRINT " WRONG ... THE CORRECT STRATEGY IS ...";
842 FOR K = 1 TO 2500: NEXT
844 V = 22
845 GOSUB 350
850 FOR K = 1 TO 2000: NEXT
852 HOME
854 POKE 34,5
855 RETURN
860 VTAB 24: HTAB 17
865 PRINT "CORRECT!";
870 FOR K = 1 TO 1000: NEXT
872 HOME
875 NEXT I
877 POKE 34,5
880 RETURN
900 GET DP$
901 IF DP$ < >"1" GOTO 910
902 POKE 34,5: HOME
904 VTAB 21: HTAB 2: PRINT "LET'S READ THE FLASHCARDS TOGETHER!...";
906 FOR K = 1 TO 3000: NEXT
908 RETURN
910 IF DP$ < >"2" GOTO 932
912 POKE 34,5: HOME
914 VTAB 7: HTAB 1: PRINT "THE CARDS SHOW ONLY THE CRITICAL COUNT.";
916 VTAB 9: HTAB 5: PRINT "YOU MUST GIVE THE PROPER PLAYS.";
918 VTAB 11: HTAB 1: PRINT "WHEN THE FLASHING PROMPT APPEARS, ENTER";
920 VTAB 12: HTAB 3: PRINT "THE APPROPRIATE PLAY AS SHOWN BELOW:";
922 VTAB 14: HTAB 5: PRINT "H-HIT S-STAND D-DOUBLE";
924 VTAB 15: HTAB 5: PRINT "P-SPLIT U-SURRENDER";
926 VTAB 18: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
928 KY = PEEK( -16384): IF KY <128 GOTO 928
929 POKE -16368,0
930 RETURN
932 IF DP$ < >"3" GOTO 958
934 POKE 34,5: HOME
936 VTAB 7: HTAB 2: PRINT "THE CARDS GIVE NEITHER CRITICAL COUNT";
938 VTAB 8: HTAB 1: PRINT "NOR PROPER PLAY. YOU MUST PROVIDE BOTH!";
940 VTAB 10: HTAB 3: PRINT "WHEN THE LEFT PROMPT FLASHES, ENTER";
942 VTAB 11: HTAB 2: PRINT "THE APPROPRIATE PLAY AS SHOWN BELOW:";
944 VTAB 13: HTAB 5: PRINT "H-HIT S-STAND D-DOUBLE";
946 VTAB 14: HTAB 5: PRINT "P-SPLIT U-SURRENDER";
948 VTAB 16: HTAB 3: PRINT "WHEN THE RIGHT PROMPT FLASHES, ENTER";
950 VTAB 17: HTAB 7: PRINT "THE CORRECT CRITICAL COUNT.";
952 VTAB 20: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
954 KY = PEEK( -16384): IF KY <128 GOTO 954
955 POKE -16368,0
956 RETURN
958 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
960 GOTO 900
1000 POKE 34,0: HOME
1005 POKE -16303,0
1010 VTAB 1: HTAB 1: PRINT "****************************************";
1015 VTAB 2: HTAB 1: PRINT "* STRATEGY REVIEW AND DRILL *";
1020 VTAB 3: HTAB 1: PRINT "****************************************";
1025 POKE 34,3
1030 CH = PEEK(38380)
1035 PRINT : PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
1040 PRINT CHR$(4);"READ STRATEGY DIRECTORY"
1045 INPUT NS
1050 FOR I = 1 TO CH: INPUT SN$: NEXT
1055 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
1060 SP = 38 - LEN(SN$)
1065 VTAB 4: HTAB 1: PRINT "*"; SPC( INT(SP/2));SN$; SPC( SP - INT(SP/2));"*";
1070 VTAB 5: HTAB 1: PRINT "****************************************";
1075 POKE 34,5
1080 PRINT : PRINT CHR$(4);"OPEN ";SN$
1085 PRINT CHR$(4);"READ ";SN$
1086 INPUT NL
1087 FOR I = 1 TO NL -1: INPUT B(I): INPUT C(I): NEXT I
1088 INPUT TC
1089 INPUT QI$
1090 IF QI$ = "Y" THEN INPUT UC
1091 FOR I = 2 TO 14: INPUT PV: NEXT
1095 FOR I = 0 TO 35
1100 FOR J = 0 TO 9
1105 INPUT ST$(I,J)
1110 NEXT J
1115 NEXT I
1120 PRINT CHR$(4);"CLOSE ";SN$
1125 PRINT CHR$(4);"OPEN STANDARD DECK"
1130 PRINT CHR$(4);"READ STANDARD DECK"
1135 FOR I = 0 TO 51: INPUT DK(I): NEXT
1140 PRINT CHR$(4);"CLOSE STANDARD DECK"
1142 PRINT CHR$(4);"OPEN PROBLEM HANDS"
1143 PRINT CHR$(4);"READ PROBLEM HANDS"
1144 FOR I = 0 TO 179: INPUT HD(I): NEXT
1145 PRINT CHR$(4);"CLOSE PROBLEM HANDS"
1150 POKE 34,5: HOME
1152 POKE -16303,0
1155 VTAB 7: HTAB 1
1160 PRINT " LEARN THE RIGHT WAY TO PLAY EACH HAND";
1165 VTAB 8: HTAB 1
1170 PRINT "AS YOU PROGRESS THROUGH THESE SECTIONS:";
1175 VTAB 10: HTAB 7
1180 PRINT "(1) HOW TO PLAY HARD TOTALS";
1185 VTAB 11: HTAB 7
1190 PRINT "(2) HOW TO PLAY PAIRS";
1195 VTAB 12: HTAB 7
1200 PRINT "(3) HOW TO PLAY SOFT TOTALS";
1205 VTAB 13: HTAB 7
1210 PRINT "(4) GENERAL REVIEW";
1215 VTAB 15: HTAB 1
1220 PRINT "THESE ARE LISTED IN ORDER OF IMPORTANCE!";
1225 VTAB 16: HTAB 1
1230 PRINT "DO NOT ADVANCE TO THE HIGHER SECTIONS";
1235 VTAB 17: HTAB 1
1240 PRINT "UNTIL YOU HAVE MASTERED THE LOWER ONES!";
1245 VTAB 19: HTAB 1
1250 PRINT "ENTER THE NUMBER OF THE SECTION YOU WANT";
1255 VTAB 20: HTAB 1
1260 PRINT "OR TYPE Q TO QUIT:";
1300 GET PT$
1305 IF PT$ < >"Q" GOTO 1335
1306 HOME
1310 VTAB 6: HTAB 1
1315 PRINT "* FINISHED *";
1320 VTAB 7: HTAB 1
1325 PRINT "****************************************";
1327 POKE 34,7: PRINT : POKE 34,0
1328 RN = INT(256 * RND(1))
1329 POKE 38383,RN
1330 RN = INT(256 * RND(1))
1331 POKE 38384,RN
1332 PRINT CHR$(4);"BSAVE POINTERS,A$95EC,L$16"
1334 PRINT CHR$(4);"RUN MENU"
1335 PT = VAL(PT$)
1340 IF PT < >1 GOTO 1360
1345 LO = 0:HI = 15
1350 LP = 4:HP = 12
1355 GOTO 1410
1360 IF PT < >2 GOTO 1380
1365 LO = 17:HI = 26
1370 LP = 17:HP = 26
1375 GOTO 1410
1380 IF PT < >3 GOTO 1400
1385 LO = 27:HI = 34
1390 LP = 27:HP = 34
1395 GOTO 1410
1400 IF PT = 4 GOTO 3000
1402 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
1405 GOTO 1300
1410 HOME
1415 VTAB 9: HTAB 1
1420 PRINT " YOU NOW HAVE A CHOICE OF TUTORIALS";
1425 VTAB 10: HTAB 1
1430 PRINT "TO TEACH YOU HOW TO PLAY ";WP$(PT);":";
1435 VTAB 13: HTAB 8
1440 PRINT "(1) STRATEGY TABLE REVIEW";
1445 VTAB 15: HTAB 8
1450 PRINT "(2) FLASHCARD DRILLS";
1455 VTAB 18: HTAB 1
1460 PRINT "WHICH WOULD YOU PREFER? (ENTER 1 OR 2) ";
1465 GET TF$
1470 IF TF$ = "1" GOTO 1490
1475 IF TF$ = "2" GOTO 2500
1480 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
1485 GOTO 1465
1490 HOME
1495 VTAB 7: HTAB 4: PRINT "THIS TUTORIAL TAKES YOU HAND BY HAND";
1496 VTAB 8: HTAB 1: PRINT "THROUGH THE STRATEGY FOR ";WP$(PT);".";
1497 VTAB 10: HTAB 4: PRINT "FOR EACH PLAYER HAND, YOU WILL STUDY";
1498 VTAB 11: HTAB 1: PRINT "TABLES SUMMARIZING CORRECT PLAY AGAINST";
1499 VTAB 12: HTAB 1: PRINT "EACH POSSIBLE DEALER UP-CARD. THE TABLES";
1500 VTAB 13: HTAB 1: PRINT "WILL USE THE FOLLOWING ABBREVIATIONS:";
1501 VTAB 15: HTAB 6: PRINT "H-HIT S-STAND D-DOUBLE";
1502 VTAB 16: HTAB 6: PRINT "P-SPLIT U-SURRENDER";
1503 VTAB 18: HTAB 1: PRINT "WHEN TWO PLAYS ARE SHOWN IN THE TABLE,";
1504 VTAB 19: HTAB 1: PRINT "THE CORRECT PLAY DEPENDS ON THE COUNT.";
1505 VTAB 20: HTAB 1: PRINT "THE FIRST PLAY APPLIES IF THE TRUE COUNT";
1506 VTAB 21: HTAB 1: PRINT "IS GREATER THAN THE NUMBER IN THE TABLE.";
1507 VTAB 22: HTAB 1: PRINT "OTHERWISE, THE SECOND PLAY IS CORRECT.";
1508 VTAB 24: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
1509 KY = PEEK( -16384): IF KY <128 GOTO 1509
1510 POKE -16368,0: HOME
1511 VTAB 7: HTAB 1: PRINT " A SAMPLE TABLE IS SHOWN BELOW FOR THE";
1512 VTAB 8: HTAB 1: PRINT "HAND 'HARD 12' VS DEALER'S TWO - SIX.";
1513 V = 11:SOP = 0:IP = 7
1514 GOSUB 110
1515 FOR K = 1 TO 2000: NEXT
1516 VTAB 18: HTAB 1: PRINT "THE TABLE ENTRIES ARE READ AS FOLLOWS:";
1517 FOR K = 1 TO 2000: NEXT
1520 ID = 2:V = 21
1522 SS$ = ST$(IP,ID)
1524 CT = VAL(SS$)
1526 FD$ = LEFT$( RIGHT$(SS$,2),1)
1528 SD$ = RIGHT$(SS$,1)
1530 GOSUB 350
1532 VTAB 24: HTAB 1
1534 PRINT "------ PRESS ANY KEY TO CONTINUE ------";
1685 KY = PEEK( -16384): IF KY <128 GOTO 1685
1686 POKE -16368,0
1690 IP = LO
1695 POKE 34,5: HOME
1700 SS$ = "PLAYER HAS " +PH$(IP)
1705 IF PT$ = "1" THEN SS$ = "PLAYER HAS A HARD " +PH$(IP)
1710 SP = 40 - LEN(SS$)
1715 VTAB 7: HTAB 1
1720 PRINT SPC( INT(SP/2));SS$;
1722 V = 9:SOP = 0
1723 GOSUB 110
1724 V = 15:SOP = 1
1725 GOSUB 110
1727 IF IP >LO THEN GOTO 1795
1728 FOR K = 1 TO 2000: NEXT
1729 VTAB 21: HTAB 2
1730 PRINT "WHEN THE DEALER SHOWS TWO THROUGH SIX,";
1732 FOR K = 1 TO 3000: NEXT
1735 VTAB 22: HTAB 2
1740 PRINT "YOUR PLAY IS SHOWN IN THE UPPER TABLE.";
1755 FOR K = 1 TO 3000: NEXT
1757 POKE 34,20: HOME : POKE 34,5
1760 VTAB 23: HTAB 1
1765 PRINT "WHEN THE DEALER SHOWS SEVEN THROUGH ACE,";
1767 FOR K = 1 TO 3000: NEXT
1770 VTAB 24: HTAB 2
1775 PRINT "YOUR PLAY IS SHOWN IN THE LOWER TABLE.";
1790 FOR K = 1 TO 3000: NEXT
1795 POKE 34,20: HOME : POKE 34,5
1800 VTAB 21: HTAB 1
1805 PRINT "AFTER STUDYING THIS TABLE, PRESS EITHER:";
1810 VTAB 22: HTAB 8
1815 INVERSE : PRINT "";: NORMAL : PRINT " -- FOR NEXT HAND";
1820 VTAB 23: HTAB 8
1825 INVERSE : PRINT "";: NORMAL : PRINT " -- FOR PREVIOUS HAND";
1830 VTAB 24: HTAB 5
1835 INVERSE : PRINT "";: NORMAL : PRINT " -- FOR A QUICK QUIZ ";
1837 POKE -16368,0
1840 KY = PEEK( -16384): IF KY <128 GOTO 1840
1841 POKE -16368,0
1842 IF KY = 141 THEN IP = IP +1: GOTO 1885
1844 IF KY = 155 THEN IP = IP -1: GOTO 1885
1846 IF KY < >160 THEN GOTO 1840
1850 HCOLOR= 1: HPLOT 0,0: CALL -3082
1855 HGR
1860 FOR ID = 0 TO 9
1861 SS$ = ST$(IP,ID)
1862 CT = VAL(SS$)
1863 FD$ = LEFT$( RIGHT$(SS$,2),1)
1864 SD$ = RIGHT$(SS$,1)
1866 POKE 34,20: HOME : POKE 34,23
1868 GOSUB 260
1870 DP$ = "3"
1875 GOSUB 500
1880 NEXT ID
1882 IP = IP +1
1885 HOME : POKE -16303,0
1890 IF IP >HI GOTO 1895
1892 IF IP 16 THEN PT$ = "2"
3180 IF IP >26 THEN PT$ = "3"
3185 GOSUB 260
3190 SS$ = ST$(IP,ID)
3195 FD$ = LEFT$( RIGHT$(SS$,2),1)
3200 SD$ = RIGHT$(SS$,1)
3205 CT = VAL(SS$)
3210 IF DP$ = "1" THEN V = 22: GOSUB 350
3212 IF DP$ < >"1" THEN GOSUB 500
3215 NEXT IZ
3220 HOME
3225 HCOLOR= 1: HPLOT 0,0: CALL -3082
3230 VTAB 22: HTAB 1: PRINT "SHALL WE DO THAT AGAIN? (Y-YES,N-NO) ";
3235 GET KY$
3240 IF KY$ = "N" GOTO 1150
3245 IF KY$ = "Y" GOTO 3135
Text found in Break_the_Bank_1983_Gentry_Software.do/STRATEGY EDITOR.bas:
0 POKE 214,255
1 POKE 34,0: HOME
2 POKE 34,3
3 DIM XS$(4)
4 DIM B(10),C(10)
5 DIM PV(14),ST$(35,9),SS$(7)
6 DIM NM$(11),NN$(11)
7 ES$ = " "
8 DIM VC$(12)
9 ZZ = 0
10 CT$(0) = "SPLIT"
15 CT$(1) = "DOUBLE"
20 CT$(2) = "HIT"
30 CT$(3) = "STAND"
35 CT$(4) = "SURRENDER"
40 FOR I = 2 TO 11: READ NM$(I): NEXT
50 DATA " TWOS","THREES"," FOURS"," FIVES"," SIXES","SEVENS","EIGHTS"," NINES"," TENS"," ACES"
60 FOR I = 2 TO 11: READ NN$(I): NEXT
70 DATA "A TWO","A THREE","A FOUR","A FIVE","A SIX","A SEVEN","AN EIGHT","A NINE","A TEN","AN ACE"
75 FOR I = 0 TO 12: READ VC$(I): NEXT
76 DATA "0","1","2","3","4","5","6","7","8","9",".","-","+"
80 FOR I = 1 TO 4: READ XS$(I): NEXT
82 DATA "THE RUNNING COUNT IS THE TRUE COUNT.","DIVIDE RUNNING COUNT BY THE NUMBER OF CARDS REMAINING FOR PLAY.","DIVIDE RUNNING COUNT BY THE NUMBER OF 52-CARD DECKS REMAINING FOR PLAY."
83 DATA "DIVIDE RUNNING COUNT BY THE NUMBER OF HALF DECKS REMAINING FOR PLAY."
85 GOTO 1000
100 I = PC +ID
110 J = DU +JD
120 CT = VAL(ST$(I,J))
130 R3$ = RIGHT$(ST$(I,J),3)
140 SD$ = RIGHT$(R3$,1)
150 FD$ = LEFT$( RIGHT$(R3$,2),1)
160 ID$ = LEFT$(R3$,1)
170 RETURN
180 GET DD$
185 IF DD$ = CHR$(13) THEN RETURN
190 IF DD$ = "A" THEN CD = 11: PRINT DD$: RETURN
195 IF DD$ = "1" THEN PRINT DD$;: GOTO 215
200 CD = ASC(DD$) -48
205 IF CD > = 2 AND CD < = 10 THEN PRINT DD$: RETURN
210 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
211 GOTO 180
215 GET DD$
220 IF DD$ = "0" THEN CD = 10: PRINT DD$: RETURN
225 HTAB POS(0): PRINT " ";: HTAB POS(0)
230 GOTO 180
240 DS$ = "E"
250 GET DD$
255 IF DF = 1 AND DD$ = "D" GOTO 310
256 IF ZZ = 0 AND DD$ = "P" THEN GOTO 310
260 IF DD$ = "P" THEN DS$ = "0"
270 IF DD$ = "D" THEN DS$ = "1"
280 IF DD$ = "H" THEN DS$ = "2"
290 IF DD$ = "S" THEN DS$ = "3"
295 IF DD$ = "U" THEN DS$ = "4"
300 IF DS$ = "E" GOTO 310
301 DF = 0
302 PRINT CT$( VAL(DS$));
303 RETURN
310 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 250
315 PRINT : PRINT "PRESENT STRATEGY"
316 PRINT
320 IF FD$ = SD$ GOTO 370
330 PRINT "THE CRITICAL COUNT IS ";CT
340 PRINT "IF TRUE COUNT IS GREATER THEN ";CT$( VAL(FD$))
350 PRINT "IF TRUE COUNT IS LESS THEN ";CT$( VAL(SD$))
360 GOTO 380
370 PRINT "REGARDLESS OF THE COUNT -- ";CT$( VAL(FD$))
380 IF FD$ < >"1" AND SD$ < >"1" GOTO 410
385 IF PF = 1 GOTO 410
390 IF ID$ = "=" GOTO 410
400 PRINT "IF DOUBLING NOT ALLOWED THEN ";CT$( VAL(ID$))
410 RETURN
420 PRINT "ENTER NEW STRATEGY"
425 PRINT
430 ONERR GOTO 560
440 INPUT "CRITICAL COUNT? ";CT
445 POKE 216,0
450 PRINT "IF TRUE COUNT IS GREATER THEN? ";
460 GOSUB 240
470 FD$ = DS$
479 IF FD$ < >"4" THEN PRINT
480 PRINT "IF TRUE COUNT IS LESS THEN? ";
490 GOSUB 240
500 SD$ = DS$
505 IF PF = 1 GOTO 550
510 IF FD$ < >"1" AND SD$ < >"1" GOTO 550
515 DF = 1
520 PRINT : PRINT "IF DOUBLING NOT ALLOWED, THEN ? ";
530 GOSUB 240
540 ID$ = DS$
550 RETURN
560 RESUME
599 NL = 5
600 POKE 34,5: HOME
605 PRINT "*"; SPC( 9);"EDIT BETTING STRATEGY"; SPC( 8);"*";
610 PRINT "****************************************";
615 POKE 34,7
620 FOR K = 1 TO 2000: NEXT
625 HOME : PRINT : PRINT "CURRENT BETTING STRATEGY:"
626 VTAB 11
627 IF NL >1 GOTO 635
628 PRINT "----------------------------------------";
629 PRINT : PRINT " ALWAYS BET 1 UNIT!"
630 PRINT : PRINT "----------------------------------------";
631 GOTO 720
635 PRINT "-------------------------+--------------";
640 PRINT " IF TRUE COUNT IS ... ! THEN BET ...";
645 PRINT "-------------------------+--------------";
650 HTAB 26: PRINT "!"
655 PRINT " LESS THAN ";C(1);
660 HTAB 26: PRINT "! 1"
665 NB = NL -2
670 IF NB < = 0 THEN GOTO 700
675 FOR K = 1 TO NB
680 PRINT "BETWEEN ";C(K);
685 HTAB 15: PRINT "AND ";C(K +1);
690 HTAB 26: PRINT "! ";B(K)
695 NEXT K
700 PRINT " GREATER THAN ";C(NL -1);
705 HTAB 26: PRINT "! ";B(NL -1)
710 HTAB 26: PRINT "!"
715 PRINT "-------------------------+--------------";
720 PRINT : PRINT "IS THIS OK? (Y-YES,N-NO) ";
725 GET DD$
730 IF DD$ = "Y" GOTO 917
735 IF DD$ = "N" THEN VD = -9999: GOTO 745
740 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 725
745 HOME : PRINT : PRINT "ENTER NEW BETTING STRATEGY:"
750 VTAB 11
755 PRINT "ENTER NUMBER OF BETTING LEVELS (1-5) :";
756 POKE 34,10
760 GET DD$
765 NL = VAL(DD$)
770 IF NL > = 1 AND NL < = 5 GOTO 780
775 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 760
780 HOME
785 IF NL = 1 GOTO 615
790 PRINT "-------------------------+--------------";
795 PRINT " IF TRUE COUNT IS ... ! THEN BET ...";
800 PRINT "-------------------------+--------------";
805 HTAB 26: PRINT "!"
810 PRINT " LESS THAN ";
815 HTAB 26: PRINT "! 1"
820 NB = NL -2
825 IF NB < = 0 GOTO 850
830 FOR K = 1 TO NB
835 PRINT "BETWEEN ";
840 HTAB 15: PRINT "AND ";
845 HTAB 26: PRINT "!"
847 NEXT K
850 PRINT " GREATER THAN ";
855 HTAB 26: PRINT "!"
860 HTAB 26: PRINT "!"
865 PRINT "-------------------------+--------------";
870 VTAB 15: HTAB 19
872 FLASH : PRINT " ";: NORMAL : HTAB 19
873 BC = 0
874 GOSUB 970
876 C(1) = VAL(VD$)
878 HTAB 19: PRINT " ";: HTAB 19: PRINT C(1)
880 IF NB < = 0 THEN GOTO 906
882 FOR KL = 1 TO NB
884 HTAB 9: PRINT C(KL);: HTAB 19
886 FLASH : PRINT " ";: NORMAL : HTAB 19
887 BC = 0
888 GOSUB 970
890 C(KL +1) = VAL(VD$)
892 HTAB 19: PRINT " ";: HTAB 19: PRINT C(KL +1);
894 HTAB 32: FLASH : PRINT " ";: NORMAL
896 HTAB 32
897 BC = 3
898 GOSUB 970
900 B(KL) = VAL(VD$)
902 HTAB 32: PRINT " ";: HTAB 32: PRINT B(KL)
904 NEXT KL
906 HTAB 19: PRINT C(NL -1);: HTAB 32
908 FLASH : PRINT " ";: NORMAL
909 BC = 3
910 HTAB 32: GOSUB 970
912 B(NL -1) = VAL(VD$)
914 HTAB 32: PRINT " ";: HTAB 32: PRINT B(NL -1)
916 GOTO 615
917 HOME
918 PRINT : PRINT "CURRENT STRATEGY FOR INSURANCE BETS:"
919 PRINT : PRINT "----------------------------------------";
920 IF QI$ = "Y" GOTO 925
921 PRINT : PRINT SPC( 10);"NEVER TAKE INSURANCE!"
922 GOTO 930
925 PRINT : PRINT SPC( 12);"TAKE INSURANCE"
926 PRINT SPC( 2);"IF TRUE COUNT IS GREATER THAN ";UC
930 PRINT : PRINT "----------------------------------------";
931 PRINT : PRINT "IS THIS OK? (Y-YES,N-NO) ";
932 GET KY$
933 IF KY$ = "Y" GOTO 1590
936 IF QI$ = "N" THEN QI$ = "Y": GOTO 946
938 HOME
939 PRINT : PRINT " IS THIS POINT COUNT USED TO DECIDE"
940 PRINT " WHETHER OR NOT TO TAKE INSURANCE?"
941 PRINT : PRINT " ENTER Y-YES,N-NO : ";
942 GET QI$
943 IF QI$ = "N" GOTO 917
944 IF QI$ = "Y" GOTO 946
945 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 942
946 HOME
947 PRINT : PRINT "ENTER THE COUNT FOR INSURANCE: ";
948 HTAB 32: FLASH : PRINT " ";: NORMAL
949 HTAB 32
950 BC = 0:VD = -9999
952 GOSUB 970
954 UC = VD
956 GOTO 917
970 H = POS(0) +1:VD$ = " ":MC = 12 -BC:LC = BC/3
971 FOR L = 1 TO 5
972 IF L = 2 AND MC >9 THEN MC = 10
973 GET DD$
974 IF DD$ = CHR$(13) GOTO 994
975 FOR KK = LC TO MC
976 IF DD$ = VC$(KK) THEN GOTO 980
977 NEXT KK
978 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 973
980 VD$ = VD$ +DD$
981 PRINT DD$;
982 IF DD$ = "+" OR DD$ = "-" THEN MC = 10
983 IF DD$ = "." THEN MC = 9
984 NEXT L
985 L = 4: GET DD$
986 IF DD$ = CHR$(13) GOTO 994
987 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
988 HTAB H
989 FLASH : PRINT " ";: NORMAL
990 HTAB H
991 GOTO 970
994 IF BC >0 THEN RETURN
996 IF VAL(VD$) >VD THEN VD = VAL(VD$): RETURN
997 GOTO 987
1000 VTAB 1: HTAB 1: PRINT "****************************************";
1001 VTAB 2: HTAB 1: PRINT "* STRATEGY EDITOR *";
1002 VTAB 3: HTAB 1: PRINT "****************************************";
1003 POKE 34,3
1004 GOTO 5000
1020 PRINT : PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
1030 PRINT CHR$(4);"READ STRATEGY DIRECTORY"
1040 INPUT NE
1050 FOR I = 0 TO NE -1
1060 INPUT SS$(I)
1070 NEXT I
1080 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
1090 PRINT "AVAILABLE STRATEGIES:": PRINT
1100 FOR I = 1 TO NE
1110 HTAB 5
1120 PRINT "(";I;") ";SS$(I -1)
1130 NEXT I
1135 PRINT
1140 PRINT "WHICH STRATEGY DO YOU WISH TO EDIT?"
1142 PRINT "ENTER CORRESPONDING NUMBER (Q-TO QUIT) ";
1160 GET NT$
1170 IF NT$ = "Q" GOTO 3220
1180 VD = ASC(NT$) -49
1190 IF VD > = 0 AND VD < = NE -1 GOTO 1210
1200 FOR I = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 1160
1210 HOME :SP = 30 - LEN(SS$(VD))
1212 PRINT "*"; SPC( SP - INT(SP/2));"LOADING ";SS$(VD); SPC( INT(SP/2));"*";
1214 PRINT "****************************************";
1216 PRINT : PRINT CHR$(4);"OPEN ";SS$(VD)
1218 PRINT CHR$(4);"READ ";SS$(VD)
1221 INPUT NL
1222 FOR I = 1 TO NL -1
1223 INPUT B(I)
1224 INPUT C(I)
1225 NEXT I
1226 INPUT TC
1227 INPUT QI$
1228 IF QI$ = "Y" THEN INPUT UC
1230 FOR I = 2 TO 14
1240 INPUT PV(I)
1250 NEXT I
1260 FOR I = 0 TO 35
1270 FOR J = 0 TO 9
1280 INPUT ST$(I,J)
1290 NEXT J: NEXT I
1300 PRINT CHR$(4);"CLOSE ";SS$(VD)
1302 HOME
1304 PRINT "*"; SPC( SP - INT(SP/2));SS$(VD);" LOADED "; SPC( INT(SP/2));"*";
1306 PRINT "****************************************";
1310 POKE 34,5: HOME
1311 FOR K = 1 TO 2000: NEXT
1312 PRINT "* EDIT POINT VALUES *";
1314 PRINT "****************************************";
1315 FOR K = 1 TO 2000: NEXT
1316 POKE 34,7
1318 HOME : PRINT : PRINT "CURRENT POINT VALUES ARE SHOWN BELOW:"
1319 PRINT
1320 FOR I = 2 TO 11
1325 II = I: IF II = 11 THEN II = 14
1330 HTAB 9: PRINT NM$(I);" ARE WORTH ";PV(II)
1340 NEXT I
1350 PRINT : PRINT
1360 PRINT "ARE THESE OK? (Y-YES,N-NO)";
1370 GET DD$
1380 IF DD$ = "Y" GOTO 1525
1390 IF DD$ = "N" GOTO 1510
1400 FOR I = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 1370
1510 HOME : PRINT : PRINT "ENTER NEW POINT VALUES": PRINT : PRINT
1515 ONERR GOTO 1524
1516 FOR I = 2 TO 11
1517 II = I: IF II = 11 THEN II = 14
1518 PRINT "HOW MUCH ARE ";NM$(I);" WORTH";
1519 INPUT PV(II)
1520 NEXT I
1521 FOR I = 11 TO 13:PV(I) = PV(10): NEXT
1522 POKE 216,0
1523 GOTO 1318
1524 RESUME
1525 HOME : PRINT
1526 PRINT : PRINT " CURRENTLY, THE TRUE COUNT IS OBTAINED"
1527 PRINT SPC( 8);"IN THE FOLLOWING MANNER: "
1528 PRINT : PRINT "----------------------------------------";
1530 PRINT : PRINT SPC( 2);XS$(TC)
1532 PRINT : PRINT "----------------------------------------";
1534 PRINT : PRINT "IS THIS OK? (Y-YES,N-NO) ";
1536 GET KY$
1538 IF KY$ = "Y" GOTO 600
1540 IF KY$ = "N" GOTO 1544
1542 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 1536
1544 HOME : PRINT
1546 PRINT : PRINT "HOW IS THE TRUE COUNT OBTAINED? "
1548 PRINT
1550 FOR K = 1 TO 4
1551 IF K = 3 THEN PRINT
1552 PRINT "(";K;") ";XS$(K)
1554 NEXT
1556 PRINT : PRINT "CHOOSE ONE OF THE ABOVE NUMBERS : ";
1558 GET DD$
1560 TC = VAL(DD$)
1562 IF TC >0 AND TC <5 GOTO 1525
1564 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 1558
1590 POKE 34,5: HOME
1591 FOR K = 1 TO 2000: NEXT
1592 PRINT "* EDIT PAIRS *";
1593 PRINT "****************************************";
1594 FOR K = 1 TO 2000: NEXT
1595 POKE 34,7: HOME
1596 ZZ = 1
1600 PF = 1
1601 INVERSE : VTAB 24: HTAB 5: PRINT " - SKIP TO SOFT HANDS";: NORMAL
1602 VTAB 8: HTAB 1
1605 PRINT : PRINT "PLAYER HAS A PAIR OF ? ";
1610 GOSUB 180
1612 IF DD$ = CHR$(13) THEN GOTO 1800
1615 PC = CD
1620 HOME
1625 PRINT "* PLAYER HAS A PAIR OF ";NM$(PC);" *";
1630 PRINT "****************************************";
1635 POKE 34,9: HOME
1636 INVERSE : VTAB 24: HTAB 3: PRINT " - SKIP TO NEXT PLAYER HAND";: NORMAL
1637 VTAB 10: HTAB 1
1640 PRINT : PRINT "DEALER'S UP CARD ? ";
1645 X = 1594
1650 GOSUB 180
1652 IF DD$ = CHR$(13) THEN GOTO 1595
1655 DU = CD
1660 POKE 34,9: HOME
1665 PRINT : PRINT "DEALER'S UP CARD IS ";NN$(DU)
1667 POKE 34,12
1670 ID = 15
1675 JD = -2
1690 GOSUB 100
1695 GOSUB 315
1700 PRINT : PRINT "IS THIS OK? (Y-YES,N-NO) ";
1705 GET DD$
1710 IF DD$ = "Y" GOTO 1635
1715 IF DD$ = "N" GOTO 1725
1720 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
1721 GOTO 1705
1725 HOME
1730 GOSUB 420
1780 ST$(I,J) = STR$(CT) +"=" +FD$ +SD$
1790 GOTO 1660
1800 PF = 0
1805 POKE 34,5: HOME
1807 FOR K = 1 TO 2000: NEXT
1810 PRINT "* EDIT SOFT HANDS *";
1815 PRINT "****************************************";
1817 FOR K = 1 TO 2000: NEXT
1818 ZZ = 0
1820 POKE 34,7: HOME
1821 INVERSE : VTAB 24: HTAB 5: PRINT " - SKIP TO HARD HANDS";: NORMAL
1822 VTAB 8: HTAB 1
1825 PRINT : PRINT "PLAYER HAS AN ACE AND A ? ";
1830 GOSUB 180
1835 IF DD$ = CHR$(13) GOTO 2000
1836 DE$ = DD$
1840 PC = CD
1845 HOME
1850 PRINT "* PLAYER HAS AN ACE AND ";NN$(PC);: HTAB 40: PRINT "*";
1855 PRINT "****************************************";
1860 POKE 34,9
1861 HOME
1862 INVERSE : VTAB 24: HTAB 3: PRINT " - SKIP TO NEXT PLAYER HAND";: NORMAL
1863 VTAB 10: HTAB 1
1870 PRINT : PRINT "DEALER'S UP CARD ? ";
1875 GOSUB 180
1880 IF DD$ = CHR$(13) GOTO 1820
1885 DU = CD
1890 POKE 34,9: HOME
1900 PRINT : PRINT "DEALER'S UP CARD IS ";NN$(DU)
1905 POKE 34,12
1910 ID = 25
1911 IF DE$ = "A" THEN ID = 15
1915 JD = -2
1920 GOSUB 100
1925 GOSUB 315
1930 PRINT : PRINT "IS THIS OK? (Y-YES,N-NO) ";
1935 GET DD$
1940 IF DD$ = "Y" GOTO 1860
1945 IF DD$ = "N" GOTO 1955
1950 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
1951 GOTO 1935
1955 HOME
1960 GOSUB 420
1965 IF DD$ < >"=" THEN ST$(I,J) = STR$(CT) +"=" +ID$ +FD$ +SD$
1970 IF DD$ = "=" THEN ST$(I,J) = STR$(CT) +"=" +FD$ +SD$
1975 GOTO 1890
2000 POKE 34,5: HOME
2002 FOR K = 1 TO 2000: NEXT
2005 PRINT "* EDIT HARD HANDS *";
2010 PRINT "****************************************";
2012 FOR K = 1 TO 2000: NEXT
2015 POKE 34,7: HOME
2016 INVERSE : VTAB 24: HTAB 7: PRINT " - END EDIT SESSION";: NORMAL
2018 VTAB 8: HTAB 1
2020 PRINT : PRINT "PLAYER HAS A TOTAL OF ? ";
2025 GET DD$
2030 IF DD$ = CHR$(13) GOTO 2220
2035 DD = ASC(DD$) -48
2040 IF DD <1 OR DD >9 GOTO 2025
2045 PRINT DD$;
2050 GET DE$
2055 IF DE$ = CHR$(13) THEN PC = DD: GOTO 2075
2060 DE = ASC(DE$) -48
2065 IF DE <0 OR DE >9 GOTO 2085
2070 PC = VAL(DD$ +DE$)
2075 IF PC <5 OR PC >21 GOTO 2085
2080 GOTO 2090
2085 HTAB POS(0): PRINT " ";: HTAB POS(0): GOTO 2025
2090 PRINT DE$;
2095 HOME
2100 PRINT "* PLAYER HAS A TOTAL OF ";PC;: HTAB 40: PRINT "*";
2105 PRINT "****************************************";
2110 POKE 34,9: HOME
2112 INVERSE : VTAB 24: HTAB 3: PRINT " - SKIP TO NEXT PLAYER HAND";: NORMAL
2114 VTAB 10: HTAB 1
2115 PRINT : PRINT "DEALER'S UP CARD? ";
2120 GOSUB 180
2125 IF DD$ = CHR$(13) GOTO 2015
2130 DU = CD
2135 POKE 34,9: HOME
2140 PRINT : PRINT "DEALER'S UP CARD IS ";NN$(DU)
2145 POKE 34,12
2150 ID = -5
2155 JD = -2
2160 GOSUB 100
2165 GOSUB 315
2170 PRINT : PRINT "IS THIS OK? (Y-YES,N-NO) ";
2175 GET DD$
2180 IF DD$ = "Y" GOTO 2110
2185 IF DD$ = "N" GOTO 2195
2190 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 2175
2195 HOME
2200 GOSUB 420
2205 IF ID$ < >"=" THEN ST$(I,J) = STR$(CT) +"=" +ID$ +FD$ +SD$
2210 IF ID$ = "=" THEN ST$(I,J) = STR$(CT) +"=" +FD$ +SD$
2215 GOTO 2135
2220 GOTO 2600
2600 POKE 34,3: HOME
2601 PRINT "* EDITING SESSION FINISHED *";
2602 PRINT "****************************************";
2603 POKE 34,5: HOME
2604 PRINT : PRINT " ENTER FILENAME FOR NEW STRATEGY TABLE"
2605 PRINT : HTAB 6: INVERSE : FOR I = 1 TO 30: PRINT " ";: NEXT : NORMAL
2606 HTAB 6
2607 GET SS$
2608 SS = ASC(SS$)
2609 IF SS <65 OR SS >90 GOTO 2607
2610 FF$ = SS$: PRINT SS$;
2611 FOR I = 2 TO 31
2612 GET SS$
2613 SS = ASC(SS$)
2614 IF SS = 13 GOTO 2620
2615 IF SS <32 OR SS = 44 GOTO 2612
2616 FF$ = FF$ +SS$: PRINT SS$;
2617 NEXT
2618 GOTO 2603
2620 FOR I = LEN(FF$) +1 TO 30: PRINT " ";: NEXT
2621 PRINT : PRINT : PRINT " IS THIS OK? (Y-YES,N-NO) ";
2622 GET DD$
2623 IF DD$ = "N" THEN GOTO 2603
2624 IF DD$ = "Y" THEN GOTO 2626
2625 FOR I = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 2622
2626 FOR I = 0 TO 3
2627 SP = 30 - LEN(FF$)
2628 IF SS$(I) < >FF$ GOTO 2650
2629 PRINT : PRINT : PRINT
2630 HTAB 12: PRINT "*****************"
2631 HTAB 12: PRINT "* RESERVED NAME *"
2632 HTAB 12: PRINT "* TRY AGAIN *"
2633 HTAB 12: PRINT "*****************"
2635 FOR I = 1 TO 3000: NEXT
2640 GOTO 2603
2650 NEXT
2670 FOR I = 4 TO NE -1
2680 IF SS$(I) = FF$ GOTO 2960
2690 NEXT
2692 IF NE < >8 GOTO 3030
2700 HOME : PRINT : PRINT "THE STRATEGY DIRECTORY IS FULL"
2800 PRINT "TO SAVE THIS STRATEGY YOU MUST REPLACE"
2900 PRINT "AN OLD ONE. SELECT ONE OF THE FOLLOWING:";
2910 PRINT
2920 FOR I = 4 TO 7
2930 PRINT "(";I +1;") ";SS$(I)
2940 NEXT
2950 GET DD$
2952 IP = ASC(DD$) -48
2954 IF IP <5 OR IP >8 GOTO 2950
2958 GOTO 3040
2960 PRINT : PRINT : PRINT "THIS FILENAME IS ALREADY IN USE."
2970 PRINT "USING THIS NAME WILL DESTROY OLD FILE!!"
2980 PRINT "IS THIS OK? (Y-YES,N-NO) ";
2990 GET DD$
3000 IF DD$ = "N" GOTO 2603
3010 IF DD$ = "Y" GOTO 3025
3020 FOR I = 1 TO 20:A = PEEK( -16336): NEXT
3021 GOTO 2990
3025 PRINT : PRINT : PRINT : PRINT ">>> PRESS ANY KEY WHEN DISK IS READY <<<";
3026 GET KY$
3027 GOTO 3120
3030 IP = NE
3035 NE = NE +1
3040 SS$(IP) = FF$
3041 PRINT : PRINT : PRINT : PRINT ">>> PRESS ANY KEY WHEN DISK IS READY <<<";
3042 GET KY$
3044 PRINT
3045 PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
3050 PRINT CHR$(4);"WRITE STRATEGY DIRECTORY"
3060 PRINT NE
3070 FOR I = 0 TO NE -1
3080 PRINT SS$(I)
3090 NEXT
3110 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
3120 PRINT : PRINT CHR$(4);"OPEN ";FF$
3130 PRINT CHR$(4);"WRITE ";FF$
3132 PRINT NL
3134 FOR I = 1 TO NL -1: PRINT B(I): PRINT C(I): NEXT
3136 PRINT TC
3138 PRINT QI$
3139 IF QI$ = "Y" THEN PRINT UC
3140 FOR I = 2 TO 14
3150 PRINT PV(I)
3160 NEXT I
3170 FOR I = 0 TO 35
3180 FOR J = 0 TO 9
3190 PRINT ST$(I,J)
3200 NEXT : NEXT
3210 PRINT CHR$(4);"CLOSE ";FF$
3215 POKE 34,0: HOME
3220 PRINT : PRINT CHR$(4);"RUN MENU"
5000 PRINT
5010 PRINT " THE EDITOR ALLOWS YOU TO ENTER OTHER"
5015 PRINT "BLACKJACK SYSTEMS YOU MIGHT WANT TO TRY.";
5020 PRINT "FIRST, LOAD IN A SIMILAR EXISTING TABLE.";
5022 PRINT
5025 PRINT " YOU MAY THEN ALTER THE POINT VALUES,"
5030 PRINT "BETTING STRATEGY, AND PLAYING STRATEGIES";
5035 PRINT "FOR PAIRS, SOFT HANDS, AND HARD HANDS."
5040 PRINT "THE EDITTED TABLE MAY BE STORED ON DISK"
5045 PRINT " UNDER A NEW NAME OF YOUR CHOICE."
5050 PRINT
5055 PRINT "THROUGHOUT THE EDIT SESSION, WHEN ASKED,";
5060 PRINT "IDENTIFY INDIVIDUAL CARDS AS FOLLOWS:"
5065 PRINT " 2,3,4,5,6,7,8,9,10,A"
5070 PRINT "IDENTIFY HARD HANDS BY THEIR TOTALS 5-21";
5075 PRINT "IDENTIFY PLAYS USING THE ABBREVIATIONS:"
5080 PRINT " H-HIT S-STAND D-DOUBLE"
5085 PRINT " P-SPLIT U-SURRENDER"
5090 PRINT : PRINT
5095 PRINT "------ PRESS ANY KEY TO CONTINUE ------";
5100 POKE -16368,0
5102 KY = PEEK( -16384): IF KY < = 127 GOTO 5102
5104 POKE -16368,0
5105 HOME : GOTO 1020
Text found in Break_the_Bank_1983_Gentry_Software.do/STRATEGY EVALUATOR.bas:
2 DIM BT(2),CD(1,1),DK(311),FV(14)
3 DIM NA(2),NC(2),PV(14),TL(2),B(10),C(10)
4 DIM ST$(35,9),PH$(35),DH$(9),OP$(3),HL$(4)
6 SCALE= 1
7 UX = 7:UY = 4:LX = 33:LY = 52:SY = 13
8 HN = 0:BN$ = "0":BX$ = "0"
9 STALL = 1000
10 ES$ = " "
11 RN = PEEK(38383) +256 * PEEK(38384)
12 A = RND( -RN)
13 FOR I = 2 TO 10:FV(I) = I: NEXT
14 FOR I = 11 TO 13:FV(I) = 10: NEXT
15 FV(14) = 11
16 FOR I = 10 TO 14:PV(I) = -1: NEXT
17 FOR I = 0 TO 35: READ PH$(I): NEXT
18 DATA "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21"
19 DATA "2-2","3-3","4-4","5-5","6-6","7-7","8-8","9-9","10-10","A-A"
20 DATA "A-2","A-3","A-4","A-5","A-6","A-7","A-8","A-9","A-10"
21 OP$(0) = " SPLIT":OP$(1) = "DOUBLE":OP$(2) = " HIT":OP$(3) = " STAND"
22 FOR I = 0 TO 9: READ DH$(I): NEXT
23 DATA "2","3","4","5","6","7","8","9","10","ACE"
24 FOR I = 0 TO 4: READ HL$(I): NEXT
25 DATA "P","D","H","S","U"
29 GOTO 500
30 K = NN +1
31 RD = INT(0.5 +K/52)
32 RH = INT(0.5 +K/26)
33 IF RC = 1 THEN TC = CN
34 IF RC = 2 THEN TC = CN/K
35 IF RC = 3 THEN TC = CN/RD
36 IF RC = 4 THEN TC = CN/RH
37 RETURN
50 ID = FV( INT(CD(1,0))) -2
54 IF FS% = 1 THEN GOTO 72
55 IF NC(1) >2 THEN GOTO 72
56 IF INT(CD(0,1)) < > INT(CD(1,1)) THEN GOTO 72
57 IP = 15 +FV( INT(CD(0,1)))
58 FD$ = LEFT$( RIGHT$(ST$(IP,ID),2),1)
59 SD$ = RIGHT$(ST$(IP,ID),1)
70 GOTO 85
72 IP = TL(HP) -5: IF IP = -1 THEN FD$ = "2":SD$ = "2": GOTO 86
73 IF NA(HP) >0 THEN IP = TL(HP) +14
74 FD$ = LEFT$( RIGHT$(ST$(IP,ID),2),1)
75 SD$ = RIGHT$(ST$(IP,ID),1)
76 IF NC(HP) = 2 THEN GOTO 85
77 IF FD$ = "1" THEN FD$ = LEFT$( RIGHT$(ST$(IP,ID),3),1)
78 IF SD$ = "1" THEN SD$ = LEFT$( RIGHT$(ST$(IP,ID),3),1)
79 IF FD$ = "4" THEN FD$ = LEFT$( RIGHT$(ST$(IP,ID),4),1)
80 IF SD$ = "4" THEN SD$ = LEFT$( RIGHT$(ST$(IP,ID),4),1)
85 CT = VAL(ST$(IP,ID))
86 PL$ = HL$( VAL(FD$))
87 IF FD$ = SD$ THEN RETURN
88 IF TC = C(K) THEN BT(0) = B(K)
110 NEXT K
112 RETURN
120 IN$ = QI$
122 IF QI$ = "N" THEN RETURN
124 GOSUB 30
126 IF TC VAL(BX$) THEN BX$ = BR$
308 HN$ = STR$(HN)
310 AC$ = STR$(AC)
312 EX$ = STR$( INT(BR *1000/AC)/10) +"%"
313 VTAB 8: HTAB 1: PRINT ES$;
314 VTAB 8: HTAB 21 - LEN(BR$)/2: PRINT BR$
315 VTAB 11: HTAB 1: PRINT ES$;
316 VTAB 11: HTAB 11 - LEN(BN$)/2: PRINT BN$;
318 HTAB 31 - LEN(BX$)/2: PRINT BX$
319 VTAB 15: HTAB 1: PRINT ES$;
320 VTAB 15: HTAB 11 - LEN(HN$)/2: PRINT HN$;
322 HTAB 32 - LEN(AC$)/2: PRINT AC$
323 VTAB 18: HTAB 1: PRINT ES$;
324 VTAB 18: HTAB 21 - LEN(EX$)/2: PRINT EX$
325 RETURN
500 POKE 34,0: HOME
502 VTAB 1: HTAB 1: PRINT "****************************************";
504 VTAB 2: HTAB 1: PRINT "* STRATEGY EVALUATOR *";
506 VTAB 3: HTAB 1: PRINT "****************************************";
508 POKE 34,3
509 V = 5
510 VTAB V: HTAB 3: PRINT "THE STRATEGY EVALUATOR ALLOWS YOU TO";
512 VTAB V +1: HTAB 1: PRINT "TEST BLACKJACK STRATEGIES STATISTICALLY.";
514 VTAB V +2: HTAB 1: PRINT "THE EVALUATOR KEEPS TRACK OF THE RESULTS";
516 VTAB V +3: HTAB 1: PRINT "AS IT PLAYS FOR BOTH DEALER AND PLAYER.";
518 VTAB V +5: HTAB 7: PRINT "THERE ARE TWO DISPLAY MODES:";
520 VTAB V +7: HTAB 3: PRINT ">> GRAPHIC DISPLAY OF EACH HAND <<";
522 VTAB V +8: HTAB 6: PRINT " AS IT IS BEING PLAYED";
524 VTAB V +10: HTAB 3: PRINT ">> SUMMARY PAGE OF STATISTICS ONLY <<";
526 VTAB V +13: HTAB 1: PRINT "TYPING ANY KEY BUT Q SWITCHES MODES.";
528 VTAB V +15: HTAB 1: PRINT "TYPING Q CAUSES THE PROGRAM TO PAUSE.";
530 VTAB V +16: HTAB 1: PRINT "YOU MAY THEN VIEW THE FINAL STATISTICS.";
532 VTAB V +18: HTAB 1: PRINT "------ PRESS ANY KEY TO CONTINUE ------";
533 POKE -16368,0
534 KY = PEEK( -16384): IF KY < = 127 GOTO 534
535 POKE -16368,0
536 HOME : PRINT
538 PRINT CHR$(4);"OPEN STRATEGY DIRECTORY"
540 PRINT CHR$(4);"READ STRATEGY DIRECTORY"
542 INPUT NS
544 FOR I = 1 TO NS
546 INPUT SN$(I)
548 NEXT
550 PRINT CHR$(4);"CLOSE STRATEGY DIRECTORY"
552 VTAB 5: HTAB 1: PRINT "THE FOLLOWING STRATEGIES ARE AVAILABLE:";
554 V = 6
556 FOR I = 1 TO NS
557 V = V +1
558 VTAB V: HTAB 5: PRINT "(";I;") ";SN$(I);
560 NEXT I
562 VTAB V +2: HTAB 1: PRINT "WHICH DO YOU WANT TO EVALUATE?";
566 GET KY$
568 SI = VAL(KY$)
570 IF SI > = 1 AND SI < = NS THEN GOTO 576
572 FOR K = 1 TO 20:A = PEEK( -16336): NEXT
574 GOTO 566
576 HOME
578 SP = INT((30 - LEN(SN$(SI)))/2)
580 VTAB 4: HTAB 1: PRINT "*"; SPC( SP);"LOADING ";SN$(SI);
582 HTAB 40: PRINT "*";
584 VTAB 5: HTAB 1: PRINT "****************************************";
586 POKE 34,5
588 PRINT
590 PRINT CHR$(4);"OPEN ";SN$(SI)
592 PRINT CHR$(4);"READ ";SN$(SI)
594 INPUT NL
596 FOR I = 1 TO NL -1: INPUT B(I): INPUT C(I): NEXT
598 INPUT RC
600 INPUT QI$
601 IF QI$ = "Y" THEN INPUT UC
602 FOR I = 2 TO 14: INPUT PV(I): NEXT
603 FOR I = 0 TO 35: FOR J = 0 TO 9: INPUT ST$(I,J): NEXT : NEXT
604 PRINT CHR$(4);"CLOSE ";SN$(SI)
605 SP = INT((32 - LEN(SN$(SI)))/2)
606 POKE 34,3: HOME
607 VTAB 4: HTAB 1: PRINT "*"; SPC( SP);"USING ";SN$(SI);
608 HTAB 40: PRINT "*";
609 VTAB 5: HTAB 1: PRINT "****************************************";
610 POKE 34,5
611 VTAB 9: HTAB 1: PRINT "HOW MANY DECKS DO YOU WANT? (ENTER 1-6)";
612 GET KY$
613 ND = VAL(KY$)
614 IF ND > = 1 AND ND < = 6 THEN GOTO 616
615 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 612
616 PRINT : PRINT CHR$(4);"OPEN STANDARD DECK"
617 PRINT CHR$(4);"READ STANDARD DECK"
618 NN = 52 *ND -1: FOR I = 0 TO NN: INPUT DK(I): NEXT
619 PRINT CHR$(4);"CLOSE STANDARD DECK"
620 VTAB 12: HTAB 1: PRINT "WHICH DISPLAY MODE DO YOU WANT?";
621 VTAB 14: HTAB 5: PRINT "(1) GRAPHIC DISPLAY";
622 VTAB 16: HTAB 5: PRINT "(2) SUMMARY PAGE";
623 VTAB 18: HTAB 1: PRINT "ENTER 1 OR 2: ";
624 GET KY$
625 TG = 3 -2 * VAL(KY$)
626 IF TG = -1 OR TG = 1 THEN GOTO 628
627 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 624
628 IF TG >0 THEN HGR : HCOLOR= 1: HPLOT 0,0: CALL -3082
629 HOME : INVERSE : VTAB 7: HTAB 12: PRINT "CURRENT BANKROLL"
630 VTAB 10: HTAB 3: PRINT "MINIMUM BANKROLL";
631 HTAB 23: PRINT "MAXIMUM BANKROLL"
632 VTAB 13: HTAB 5: PRINT " NUMBER OF ";
633 HTAB 26: PRINT " TOTAL "
634 HTAB 5: PRINT "HANDS PLAYED";
635 HTAB 26: PRINT "AMOUNT BET"
636 VTAB 17: HTAB 15: PRINT "EXPECTATION"
637 NORMAL : VTAB 20: PRINT "Q-QUIT ANY OTHER KEY-SWITCH MODES";
638 POKE 34,20
648 IF TG >0 THEN HCOLOR= 1: HPLOT 0,0: CALL -3082
651 IF TG >0 THEN HOME
658 BR = 0:AC = 0
660 PT$ = " ":DT$ = " ":BT$ = " "
680 FS% = 0: POKE -16301,0
681 IF TG <0 THEN GOTO 687
682 HCOLOR= 1: HPLOT 0,0: CALL -3082
684 PT$ = " ":DT$ = " ":BT$ = " "
686 GOSUB 250
687 IF NN >8 *(ND -1) +26 GOTO 695
688 CN = 0:NN = 52 *ND -1
689 IF TG <0 THEN GOTO 695
690 HCOLOR= 2: HPLOT 0,0: CALL -3082
691 HCOLOR= 1: HPLOT 0,0: CALL -3082
692 GOSUB 250
695 GOSUB 100
696 IF BT(0) >500 THEN BT(0) = 500
697 IF BT(0) <1 THEN BT(0) = 1
719 BT$ = STR$(BT(0)):PT$ = " ":DT$ = " ":B1$ = BT$
720 IF TG >0 THEN GOSUB 262
722 NH = 1:HP = 1:BT(1) = BT(0)
726 FOR I = 0 TO 2:TL(I) = 0:NA(I) = 0:NC(I) = 0: NEXT
730 FOR I = 0 TO 1: FOR J = 0 TO 1
732 CP = INT(NN * RND(1))
734 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC:NN = NN -1
735 NC(J) = NC(J) +1
736 CD(I,J) = CC
738 X = 10:Y = 10 +60 *J: IF I = J THEN X = 30
739 IF I +J = 0 THEN HI = 1
740 IF I +J = 0 AND TG >0 THEN GOSUB 200
744 CP = 100 *(CC - INT(CC)):CP = INT(CP)
745 CC = INT(CC)
746 IF I +J = 0 THEN GOTO 764
748 CN = CN +PV(CC)
750 IF TG >0 THEN GOSUB 200
764 TL(J) = TL(J) +FV(CC)
766 IF CC = 14 THEN NA(J) = NA(J) +1
768 NEXT : NEXT
769 FOR I = 0 TO 1
770 IF NA(I) = 2 THEN TL(I) = TL(I) -10:NA(I) = NA(I) -1
771 NEXT
772 IF CD(1,0) <14 THEN GOTO 795
773 IF TG >0 THEN VTAB 24: HTAB 1: PRINT "DO YOU WANT INSURANCE? (Y-YES,NO) ";
775 GOSUB 120
783 POKE 34,23: HOME : POKE 34,0
784 IF IN$ = "N" THEN GOTO 795
785 IF TL(0) = 21 THEN GOTO 792
786 IF TG >0 THEN VTAB 24: HTAB 11: PRINT "INSURANCE BET LOSES!";
787 BR = BR -0.5 *BT(0)
788 IF TG >0 THEN GOSUB 250
790 POKE 34,23: HOME : POKE 34,20
791 VTAB 1: HTAB 1: GOTO 795
792 IF TG >0 THEN VTAB 24: HTAB 11: PRINT "INSURANCE BET WINS!";
793 POKE 34,23: HOME : POKE 34,20
794 BR = BR +BT(0): GOTO 796
795 IF TL(0) < >21 AND TL(1) < >21 THEN GOTO 820
796 ROT= 0:X = 30:Y = 10
799 CC = CD(0,0)
800 CP = 100 *(CC - INT(CC)):CP = INT(CP)
801 CC = INT(CC)
802 IF TG >0 THEN GOSUB 200
809 IF TL(0) >TL(1) THEN BR = BR -BT(0)
810 IF TL(1) >TL(0) THEN BR = BR +1.5 *BT(0)
811 CN = CN +PV(CC)
812 GOTO 1090
820 GOSUB 50
822 IF PL$ = "D" THEN GOTO 950
824 IF PL$ = "P" THEN GOTO 900
826 IF PL$ = "H" THEN GOTO 960
828 IF PL$ = "S" THEN GOTO 1030
830 IF PL$ = "U" THEN GOTO 850
850 ROT= 0:X = 30:Y = 10
853 CC = CD(0,0)
854 CP = 100 *(CC - INT(CC)):CP = INT(CP)
855 CC = INT(CC)
856 IF TB >0 THEN GOSUB 200
863 CN = CN +PV(CC)
864 BR = BR -0.5 *BT(0)
865 TL(1) = 0
866 GOTO 1090
900 BT$ = STR$(BT(0)) +" " + STR$(BT(0))
901 IF TG >0 THEN GOSUB 262
902 IF TG >0 THEN POKE -16302,0
903 NH = 2:BT(2) = BT(1):FS% = 1
904 NA(2) = NA(1):TL(2) = TL(1)/2
905 IF NA(1) >0 THEN TL(2) = 11
906 TL(1) = TL(2)
907 NC(1) = 1:NC(2) = 1
908 X = 10:Y = 130: ROT= 0
910 IF TG >0 THEN GOSUB 200
926 X = 10
928 FOR I = 1 TO STALL: NEXT
930 GOTO 960
950 TB = 2 *BT(1): IF HP = 2 THEN TB = BT(1) +2 *BT(2)
952 BT(HP) = 2 *BT(HP)
956 IF HP = 1 THEN B1$ = STR$(BT(1)) +"D":BT$ = B1$
957 IF HP = 2 THEN BT$ = B1$ +" " + STR$(BT(2)) +"D"
958 IF TG >0 THEN GOSUB 262
960 X = X +20:Y = 10 +HP *60: ROT= 0
962 CP = INT(NN * RND(1))
964 CC = DK(CP):DK(CP) = DK(NN):DK(NN) = CC:NN = NN -1
970 CP = 100 *(CC - INT(CC)):CP = INT(CP)
971 CC = INT(CC)
972 IF TG >0 THEN GOSUB 200
986 TL(HP) = TL(HP) +FV(CC)
987 NC(HP) = NC(HP) +1
988 IF CC = 14 THEN NA(HP) = NA(HP) +1
990 CN = CN +PV(CC)
992 IF TL(HP) < = 21 THEN GOTO 1010
994 IF NA(HP) = 0 THEN GOTO 1010
996 TL(HP) = TL(HP) -10
998 NA(HP) = NA(HP) -1
1000 GOTO 992
1010 IF HP = 0 THEN GOTO 1060
1012 IF PL$ = "D" THEN GOTO 1030
1014 IF PL$ < >"P" THEN GOTO 1020
1016 IF CD(0,1) >14 THEN GOTO 1030
1018 GOTO 820
1020 IF TL(HP) < = 21 THEN GOTO 820
1030 HP = HP +1:X = 10:PL$ = "P"
1032 IF HP < = NH THEN GOTO 960
1034 HP = 0:CC = CD(0,0)
1035 ROT= 0:X = 30:Y = 10
1038 CP = 100 *(CC - INT(CC)):CP = INT(CP)
1039 CC = INT(CC)
1040 IF TG >0 THEN GOSUB 200
1052 CN = CN +PV(CC)
1054 IF TL(1) < = 21 THEN GOTO 1060
1056 IF NH = 1 THEN GOTO 1070
1058 IF TL(2) >21 THEN GOTO 1070
1060 FOR I = 1 TO STALL: NEXT
1062 IF TL(0) <17 THEN GOTO 960
1070 DT$ = STR$(TL(0)):PT$ = STR$(TL(1))
1071 IF NH = 2 THEN PT$ = STR$(TL(1)) +" " + STR$(TL(2))
1072 IF TG >0 THEN GOSUB 250
1073 FOR I = 1 TO NH
1074 IF TL(I) < = 21 THEN GOTO 1078
1075 BR = BR -BT(I)
1076 GOTO 1088
1078 IF TL(0) < = 21 THEN GOTO 1084
1080 BR = BR +BT(I)
1082 GOTO 1088
1084 IF TL(I) TL(0) THEN BR = BR +BT(I)
1088 NEXT
1090 IF TG >0 THEN GOSUB 262
1092 FOR I = 1 TO NH:AC = AC +BT(I): NEXT
1094 GOSUB 300
1096 AP = PEEK( -16384)
1098 IF AP <128 GOTO 680
1099 POKE -16303,0
1100 POKE 34,20: HOME
1102 POKE -16368,0
1104 IF AP = 209 GOTO 1200
1106 TG = -1 *TG
1108 IF TG <0 THEN GOTO 680
1109 HGR
1110 HCOLOR= 1: HPLOT 0,0: CALL -3082
1114 GOTO 680
1200 VTAB 23: HTAB 1: PRINT ">>>>>> ARE WE FINISHED? (Y-YES,N-NO) ";
1201 TG = -1
1202 GET KY$
1203 IF KY$ = "N" OR KY$ = "Y" THEN HOME
1204 IF KY$ = "N" GOTO 680
1206 IF KY$ = "Y" GOTO 1210
1208 FOR K = 1 TO 20:A = PEEK( -16336): NEXT : GOTO 1202
1210 POKE 34,5: HOME
1212 PRINT "* FINISHED *";
1213 PRINT "****************************************";
1214 POKE 34,7: PRINT : POKE 34,0
1216 PRINT CHR$(4);"RUN MENU"
- Addeddate
- 2014-06-12 20:57:43
- Emulator
- apple2e
- Emulator_ext
- do
- Identifier
- a2_Break_the_Bank_1983_Gentry_Software
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
258 Views
DOWNLOAD OPTIONS
IN COLLECTIONS
The Apple II Library: Games The Software Library: Apple Computer Software Library The Emulation StationUploaded by Jason Scott on