AMSTRAD CPC464 User Manual page 100

80 S U I T $ ( l ) = " C L U B S "
9 0 S U I T $ ( 2 ) = " H E A R T S "
1 0 0 S U I T $ ( 3 ) = " S P A D E S "
1 1 0 S U I T $ ( 4 ) = " D I A M O N D S "
120 CLS
1 3 0 D I M P A C K ( 5 2 )
1 4 0 F O R X = 1 T O 5 2
1 5 0 P A C K ( X ) = 0
1 6 0 N E X T 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
1 8 0 L O C A T E 1 O , 3
1 9 0 P R I N T " Y O U " ; S P C ( 1 5 ) " H O U S E "
2 0 0 L O C A T E 3 , 5
2 1 0 G O S U B 7 4 0
2 2 0 S = S + F
2 3 0 I F F = 1 1 T H E N A C E S = A C E S + 1
2 4 0 L O C A T E 3 , 6
2 5 0 G O S U B 7 4 0
2 6 0 S = S + F
2 7 0 I F F = 1 1 T H E N A C E S = A C E S + 1
2 8 0 L O C A T E 2 4 , s
2 9 0 G O S U B 7 4 0
3 0 0 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
3 2 0 L O C A T E 2 4 , 6
3 3 0 G O S U B 7 4 0
3 4 0 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
3 6 0 R E M I N P U T O P T I O N-T W I S T ( T ) O R S T I C K ( 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
3 8 0 I F X $ = " S " T H E N 5 6 0
3 9 0 L O C A T E 3 , Y C + 5
4 0 0 Y C = Y C + 1
4 1 0 G O S U B 7 4 0
4 2 0 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
4 5 0 I F S < 2 2 T H E N 3 7 0
46 0 I F A C E S = 0 T H E N 5 0 0
4 7 0 A C E S = A C E S-1
480 S=S-10
4 9 0 G O T 0 4 5 0
5 0 0 L O C A T E 1 2 , 1 9
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 " T H E N R U N
5 5 0 E N D
5 6 0 I F T > 1 6 T H E N G O T O 7 0 0
5 7 0 C C = C C +l
5 8 0 L O C A T E 2 4 , C C + 4
5 9 0 G O S U B 7 4 0
6 0 0 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 T H E N 5 6 0 T H E N 5 6 0
6 3 0 I F C A C E S = 0 T H E N 6 7 0
6 4 0 C A C E S = C A C E S-1
650 T=T-10
6 6 0 G O T O 6 2 0
6 7 0 L O C A T E 1 2 , 1 9
6 8 0 P R I N T " Y O U WIN"