80 SUIT$(l)="CLUBS"
9 0 SUIT$(2)=“HEARTS”
1 0 0 SUIT$(3)=“SPADES”
1 1 0 S U I T $ ( 4 ) = “ D I A M O N D S ”
120 CLS
130 DIM PACK (52)
140 FOR X=1 TO 52
150 PACK (X)=0
160 NEXT X
1 7 0 R E M D E A L T W O C A R D S T O E A C H P L A Y E R
180 LOCATE 1O,3
1 9 0 P R I N T " Y O U " ; S P C ( 1 5 ) " H O U S E "
200 LOCATE 3,5
2 1 0 GOSUB 740
220 S=S+F
2 3 0 I F F = 1 1 T H E N A C E S = A C E S + 1
240 LOCATE 3,6
250 GOSUB 740
260 S=S+F
2 7 0 I F F = 1 1 T H E N A C E S = A C E S + 1
280 LOCATE 24,s
290 GOSUB 740
300 T=T+F
3 1 0 I F F = 1 1 T H E N C A C E S = C A C E S + 1
320 LOCATE 24,6
330 GOSUB 740
340 T=T+F
3 5 0 I F F = 1 1 T H E N C A C E S = C A C E S+1
360 REM INPUT OPTION-TWIST (T) OR STICK(S)
3 7 0 X $ = I N K E Y $ : I F X $ < > " S " A N D X $ < > " T " T H E N 3 7 0
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
4 3 0 I F F = 1 1 T H E N A C E S = A C E S + l
4 4 0 R E M C H E C K S C O R E A N D A C E S
450 IF S<22 THEN 370
46 0 I F ACES = 0 THEN 500
470 ACES = ACES-1
480 S=S-10
490 GOT0 450
500 LOCATE 12,19
5 1 0 P R I N T " Y O U ' R E B U S T "
5 2 0 P R I N T : P R I N T " A N O T H E R G A M E ( Y / N ) "
5 3 0 X $ = I N K E Y $ : I F X $ < > " Y " A N D X $ < > " N " T H E N 5 3 0
5 4 0 I F X $ = “ Y ” THEN RUN
5 5 0 E N D
5 6 0 I F T > 1 6 THEN GOTO 700
570 CC=CC+l
580 LOCATE 24,CC+4
590 GOSUB 740
600 T=T+F
6 1 0 I F F = 1 1 T H E N C A C E S = C A C E S-1
6 2 0 I F T < 2 1 THEN 560 THEN 560
6 3 0 I F C A C E S = 0 T H E N 6 7 0
640 CACES = CACES-1
650 T=T-10
660 GOTO 620
670 LOCATE 12,19
6 8 0 P R I N T " Y O U WIN”
Содержание CPC464
Страница 1: ......
Страница 32: ...or you can type 3e1 1e1 ENTER 300 2 3000x1000 Type 3e3 1e3 ENTER 3000000 3 3000x0 001 Type 3e3 1e 3 ENTER 3 ...
Страница 102: ...PRINT 10 AND 12 Results in 8 PRINT 10 AND 1000 Results in 8 again ...
Страница 118: ...TO DO DRAW THIS PAGE ...
Страница 219: ...actual value may be made to vary during the execution of a program ...
Страница 240: ...Text and WINDOW planner Mode 2 80 Columns ...
Страница 241: ......
Страница 245: ...Sound envelope Music planner sheet ...