Download create computer games

10 REM ( Add an instruction on this line to clear the video display of your
computer. See Chapter Two for details.)
20 DIM DK(4,13)
30 ND=52
40 PRINT "DEALING"
50 FOR SU=1 TO 4
60 FOR DE=1 TO 13
70 DK(SU,DE)=O
80 NEXT DE
90 NEXT SU
100 FOR 1=1 TO 7
110 GOSUB 2000: DK(SU,DE)=1
120 GOSUB 2000 : DK(SU,DE)=2
130 NEXT I
150 PN=7 : CN=7
160 PB=O : CB=O
170 PRINT "YOU HAVE DISCARDED";PB;"BOOKS"
180 PRINT "YOU HAVE";PN;"CARDS"
190 PRINT "THEY ARE: ";
200 FOR DE=1 TO 13
210 FOR SU=1TO 4
220 IF DK(SU,DE)=1 THEN GOSUB 3000 : PRINT" ";
230 NEXT SU
240 NEXT DE
250 PRINT
260 CP=1 : GOSUB 4000: REM LOOK FOR BOOKS
270 IF DE=O THEN 310
280 PRINT "YOU HAVE A BOOK OF "; : GOSUB 5000
290 PRINT "YOU DISCARD THIS BOOK"
300 PB=PB+1 : PN=PN-4 : IF PN=O THEN PRINT "YOU ARE OUT
OF CARDS!" : GOTO 950
310 PRINT "WHICH DENOMINATION WOULD YOU LIKE (1-13)?"
320 INPUT DE
330 CP=1 : GOSUB 6000
340 IF FL=O THEN PRINT "YOU DON'T HAVE ANY IN YOUR HAND!":
I
[46]