100 DIM A(7),B(7),C(7),D(7):REM   PLAYERS A-D, SEVEN CARD 
150 DIM CARDS(13):REM KEEP TRACK OF NUMBER OF CARDS DEALT
160 FOR N=0 TO 6:A(N)=0:B(N)=0:NEXT
170 FOR N=0 TO 12:CARDS(N)=0:NEXT
180 FUNDS=100
200 FOR L=1 TO 7
210 GOSUB 6000:A(L-1)=I
220 GOSUB 6000:B(L-1)=I
230 GOSUB 5000:
300 PRINT:INPUT K
400 NEXT
5000 REM DISPLAY THE CARDS
5005 PRINT "DEALER:  ";
5010 FOR N=2 TO 5
5015 IF A(N)=1 THEN PRINT "A";:GOTO 5060
5020 IF A(N)<11 AND A(N)>0 THEN PRINT A(N);
5030 IF A(N)=11 THEN PRINT "J";
5040 IF A(N)=12 THEN PRINT "Q";
5050 IF A(N)=13 THEN PRINT "K";
5060 NEXT
5065 PRINT
5070 PRINT "YOU:     ";
5080 FOR N=0 TO 6
5090 IF B(N)=1 THEN PRINT "A";:GOTO 5140
5100 IF B(N)<11 AND B(N)>0 THEN PRINT B(N);
5110 IF B(N)=11 THEN PRINT "J";
5120 IF B(N)=12 THEN PRINT "Q";
5130 IF B(N)=13 THEN PRINT "K";
5140 NEXT
5200 RETURN
6000 REM SET I TO A RND FROM 1 TO 13
6010 I=INT((RND*13))+1
6020 CARDS(I)=CARDS(I)+1: IF CARDS(I)=5 THEN CARDS(I)=CARDS(I)-1:GOTO 6010
6030 RETURN
FROM 1 TO 13
601