PROG : 16509
D-FILE: 18419
VARS : 19212
E-LINE: 19213
STKBOT: 19213
STKEND: 19213
9999 means line number
PRINT means treat as KEYWORD P
10 REM **HIT**SLR/1985********
20 LET A$="123456789TJQK"
21 LET T=10
22 LET J=10
23 LET Q=10
24 LET K=10
30 LET M=1000
40 PRINT " ** ** H I T
** ** úúúúúúúúúú
ú SLR/1985
"
50 PRINT AT 5,0;"YOU HAVE ";M;
" DOLLARS."
60 PRINT "HOW MUCH DO YOU BET?
"
70 INPUT A
80 IF (A<10 AND M>10) OR A>500
THEN GOTO 70
90 IF A>M THEN LET A=M
100 PRINT AT 6,0;"YOU BET ";A;"
DOLLARS. "
110 LET M1=0
120 LET C1=0
130 GOSUB 500
140 LET D=1
150 PRINT AT 10,0;"YOUR CARDS:"
;AT 14,0;"DEALERS CARDS:"
160 LET M2=1
170 LET C2=1
180 PRINT AT 11,M2;A$(D)
190 GOSUB 300
200 PRINT AT 15,C2;A$(D)
210 GOSUB 350
220 PRINT AT 11,M2;A$(D)
230 GOSUB 300
240 PRINT AT 15,C2;A$(D)
250 GOSUB 350
260 PRINT AT 18,0;"ANY CARDS?(Y
/N)"
270 INPUT B$
280 IF B$<>"Y" THEN GOTO 290
281 PRINT AT 11,M2;A$(D)
282 GOSUB 300
283 GOTO 260
290 PRINT AT 18,0;"
"
291 IF C1<15 OR C1<M1 THEN
GOTO 295
292 IF M1<C1 THEN GOTO 400
293 IF M1>C1 THEN GOTO 450
294 IF M1=C1 THEN GOTO 496
295 PRINT AT 15,C2;A$(D)
296 GOSUB 350
297 GOTO 291
300 LET M1=M1+VAL A$(D)
310 LET M2=M2+2
320 LET D=D+1
330 IF M1>21 THEN GOTO 400
340 RETURN
350 LET C1=C1+VAL A$(D)
360 LET C2=C2+2
370 LET D=D+1
380 IF C1>21 THEN GOTO 450
390 RETURN
400 PRINT AT 18,0;"YOU LOSE****
"
410 LET M=M-A
420 IF M<1 THEN GOTO 440
421 PAUSE 200
425 CLS
430 GOTO 40
440 PRINT AT 19,0;"YOURE BROKE.
..GAME OVER****"
445 GOTO 491
450 PRINT AT 18,0;"YOU WIN****
"
460 LET M=M+A
470 IF M>=10000 THEN GOTO 490
480 GOTO 421
490 PRINT AT 19,0;"YOU BROKE TH
E BANK...GAME OVER**"
491 PRINT "PRESS A KEY TO START
AGAIN......"
492 PAUSE 4E4
493 CLS
494 RUN
496 PRINT AT 18,0;"TIE****
"
497 GOTO 421
500 PRINT AT 18,0;"SHUFFLE****
**"
510 FOR G=1 TO 20
520 LET C=INT (RND*13+1)
530 LET K$=A$(C)
540 LET A$(C)=A$(13)
550 LET A$(13)=K$
560 NEXT G
570 PRINT AT 18,0;"
"
580 RETURN
600 SAVE "HIT"
610 RUN