AMSTRAD CPC464 - Page 100

80 SUIT$(l)="CLUBS"
90 SUIT$(2)=“HEARTS”
100 SUIT$(3)=“SPADES”
110 SUIT$(4)=“DIAMONDS”
120 CLS
130 DIM PACK (52)
140 FOR X=1 TO 52
150 PACK (X)=0
160 NEXT X
170 REM DEAL TWO CARDS TO EACH PLAYER
180 LOCATE 1O,3
190 PRINT"YOU";SPC(15)"HOUSE"
200 LOCATE 3,5
210 GOSUB 740
220 S=S+F
230 IF F=11 THEN ACES=ACES+1
240 LOCATE 3,6
250 GOSUB 740
260 S=S+F
270 IF F=11 THEN ACES=ACES+1
280 LOCATE 24,s
290 GOSUB 740
300 T=T+F
310 IF F=11 THEN CACES=CACES+1
320 LOCATE 24,6
330 GOSUB 740
340 T=T+F
350 IF F=11 THEN CACES=CACES+1
360 REM INPUT OPTION-TWIST (T) OR STICK(S)
370 X$=INKEY$:IF X$<>"S" AND X$<>"T" THEN 370
380 IF X$=“S” THEN 560
390 LOCATE 3,YC+5
400 YC=YC+1
410 GOSUB 740
420 S=S+F S=S+F
430 IF F=11 THEN ACES=ACES+l
440 REM CHECK SCORE AND ACES
450 IF S<22 THEN 370
460 IF ACES = 0 THEN 500
470 ACES = ACES-1
480 S=S-10
490 GOT0 450
500 LOCATE 12,19
510 PRINT "YOU'RE BUST"
520 PRINT:PRINT"ANOTHER GAME (Y/N)"
530 X$=INKEY$:IF X$<>"Y" AND X$<>"N" THEN 530
540 IF X$=“Y” THEN RUN
550 END
560 IF T>16 THEN GOTO 700
570 CC=CC+l
580 LOCATE 24,CC+4
590 GOSUB 740
600 T=T+F
610 IF F=11 THEN CACES=CACES-1
620 IF T<21 THEN 560 THEN 560
630 IF CACES = 0 THEN 670
640 CACES = CACES-1
650 T=T-10
660 GOTO 620
670 LOCATE 12,19
680 PRINT "YOU WIN”