Sinclair QL - Page 124

WINDOW
440 x 220 at 35,15
Green with black border of 10 units
TABLE
100 x 60 at 150,60
Chequerboard stipple of red and green
HANDS
Room for at least eight card symbols
Initial cursor positions are:
north
150,10
east
260,60
south
150,130
west
30,60
CHARACTER SIZE
Standard for 512 mode
NUMBER OF PIXELS
between lines is 12
CHARACTER COLOUR
White
CHARACTER STRIP
Red for Hearts and Diamonds
Black for Clubs and Spades
VARIABLES
card(52)
stores card numbers
sort(13)
used to sort each hand
tok$(4,2)
stores tokens H:, C:, D:, S:
kmcmh
working loop variables
ran
random position for card exchange
temp
used in card exchange
item
card to be inserted in sort
dart
pointer to find position in sort
comp
hold card number in sort
inc
pixel increment in card rows
seat
current 'deal' position