[CLOCK
[AJH  6 MARCH 1969
$400
#2Z SET 17
0
SAM 0
ADAi
200
ROL 3
STAi
#1K 0000
SETi2
2B-1  [DIGITS
SETi7
1K+4000
JMP 2S
#1C JMP 2U
MUL 7
ADAi
#1B 400
STC 1
JMP 2D
MUL 7
DSCi2
DSCi2
XSKi15
JMP 1C
JMP 2S
#1E JMP 2D
MUL 7
ADD 1B
STC 1
JMP 2U
COM
MUL 7
ADAi
#1F -30
DSCi2
DSCi2
XSKi15
JMP 1E
JMP 2S
#1G JMP 2U
COM
MUL 7
ADD 1F
ADD 1B
STC 1
JMP 2D
COM
MUL 7
ADD 1F
DSCi2
DSCi2
XSKi15
JMP 1G
JMP 2S
#1H JMP 2D
COM
MUL 7
ADAi
-44
ADD 1B
STC 1
JMP 2U
MUL 7
DSCi2
DSCi2
DSCi2
XSKi15
JMP 1H
JMP 17
[DISPLAY HAND
$20
SETi6
3K+4000
JMP 1S
#2C JMP 2K
JMP 2Z
JMP 1U
STC 1X
JMP 1D
STC 1Y
LDAi
#1X 0000
MUL 6
ADD 1B
STC 1
LDAi
#1Y 0000
MUL 6
DIS 1
LDAi
-10
ADM
3K
APOi
JMP 2C+6
XSKi12
JMP 2C
[SECOND QUAD
JMP 1S
#2E JMP 2K
JMP 2Z
JMP 1D
STC 1X
JMP 1U
COM
STC 1Y
LDA
1X
MUL 6
ADD 1B
STC 1
LDA
1Y
MUL 6
DIS 1
LDAi
-10
ADM
3K
APOi
JMP 2E+7
XSKi12
JMP 2E
[THIRD QUAD
JMP 1S
#2G JMP 2K
JMP 2Z
JMP 1U
COM
STC 1X
JMP 1D
COM
STC 1Y
LDA
1X
MUL 6
ADD 1B
STC 1
LDA
1Y
MUL 6
DIS 1
LDAi
-10
ADM 
3K
APOi
JMP 2G+10
XSKi12
JMP 2G
[FOURTH QUAD
JMP 1S
#2H JMP 2K
JMP 2Z
JMP 1D
COM
STC 1X
JMP 1U
STC 1Y
LDA
1X
MUL 6
ADD 1B
STC 1
LDA
1Y
MUL 6
DIS 1
LDAi
-10
ADM
3K
APOi
JMP 2H+7
XSKi12
JMP 2H
JMP 20
[LENGTH
#2K LDA
1K
SCR 3
COM
ADD 1K
STAi
#3K 0000
JMP 0
#1D LDAi10
JMP 0
#1U LDAi
-1
ADM
11
LDA 11
JMP 0
#1S SETi10
1A
SETi11
1A+17
SETi12
-17
JMP 0
#2D LDAi13
JMP 0
#2U LDAi
-1
ADM
14
LDA 14
JMP 0
#2S SETi13
2A
SETi14
2A+3
SETi15
-3
JMP 0
[TABLE COS
#1A 3777
3767
3724
3635
3521
3357
3172
2763
2533
2265
2001
1502
1171
0652
0327
0000
[TABLE DIG
#2A 3777
3357
2001
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