[CLOCK-02
[AJH  6 MARCH 1969
$20
SETi6
3K+4000
[FIRST
JMP 1S
#2J JMP 1U
NOP
STC 1X
JMP 1D
STC 1Y
JMP 2A
XSKi12
JMP 2J
[SECOND
JMP 1S
#2L JMP 1D
NOP
STC 1X
JMP 1U
COM
STC 1Y
JMP 2A
XSKi12
JMP 2L
[THIRD
JMP 1S
#2M JMP 1U
COM
STC 1X
JMP 1D
COM
STC 1Y
JMP 2A
XSKi12
JMP 2M
[FOURTH
JMP 1S
#2N JMP 1D
COM
STC 1X
JMP 1U
NOP
STC 1Y
JMP 2A
XSKi12
JMP 2N
JMP 20
#1D LDAi10
JMP 0
#1U LDAi
-1
ADM
11
LDA 11
JMP 0
#1S SETi10
1A
SETi11
1A+17
SETi12
-17
JMP 0
[DRAW HAND
#2A LDA
0
STC 3C
SETi13
-22
#3M LDAi
240
STC 3K
SETi5
-25
#3A LDA
1X
MUL 6
ADD 1B
STC 1
ADD 1Y
MUL 6
ADD 2K
DIS 1
LDAi
-10
ADMi
#3K 0000
XSKi5
JMP 3A
SETi5
3B-1
SETi2
2B-1
SETi15
-11
LDAi5
STC 1
LDAi5
DSCi2
DSCi2
XSKi15
JMPp-6
SETi15
-3
LDAi5
STC 1
LDAi5
DSCi2
DSCi2
DSCi2
XSKi15
JMP p-7
SETi1
-2
SETi2
-507
XSKi2
JMP p-1
XSKi1
JMP p-3
XSKi13
JMP 3M
#3C JMP 0000
#1B 400
#1X 0000
#1Y 0000
#2K 14
#3B 540
240
630
140
660
0
630
-137
540
-237
364
-277
220
-237
130
-137
100
0
120
140
210
240
364
300
[TABLE COS
#1A 3777
3767
3724
3635
3521
3357
3172
2763
2533
2265
2001
1502
1171
0652
0327
0000
#2B 2101
0177
4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
5126
2651
5120
3651
0077
4136
3641
0077
0000
0077
0077
4523
2151
[END