+$/
SET I 12
12
SET I 11
1D-1
LDA I
1007
STC 4C[DATA STR-1
SET I14
777
SET I 10
-5
STA I 14
XSK I 10
JMP .-2
JMP 1E
#1F KBD I
SAE 12
JMP .+2
JMP 1H-1
STC 1T
ADD 9A
ROL 6
ADD 1T
STC 9A
JMP 1F
JMP 1E
#1H KBD I
SAE 12
JMP .+2
JMP 1M-1
STC 1T
ADD 9B
ROL 6
ADD 1T
STC 9B
JMP 1H
JMP 1E
#1M KBD I
SAE 12
JMP .+2
JMP 1P-1
STC 1T
ADD 9C
ROL 6
ADD 1T
STC 9C
JMP 1M
JMP 1E
#1P KBD I
SAE 12
JMP .+2
JMP 1S-1
STC 1T
ADD 9D
R0L 6
ADD 1T
STC 9D
JMP 1P
JMP 1E
#1S KBD I
SAE 12
JMP .+2
JMP 2A
STC 1T
ADD 9E
ROL 3
ADD 1T
STC 9E
JMP 1S
#1E SET 17
0
SET I 13
-6
LDA I 11
TYP
XSK I 13
JMP .-3
JMP 17
#1D 215 
212
304[DAY
301
331
272
212
315[MONTH
316
324
310
272
212
331[YEAR
305
301
322
272
212
305 [EXPNO.
330
320
316
272
212
302 [BLKNO.
314
313
316
272
#1T 0
#1C 0001
#2A CLR
SNS 0
JMP .-1
SET I 10
-773
STA I 14 [CLEAR
XSK I 10 [LOWER
JMP .-2 [DATA BANK
SET I 14
3777
SET I 10
1777
STA I 14 [CLEAR
XSK I 10 [UPPER
JMP .-2 [DATA BANK
#3A CLR
STC 3T [SUM1
SET I 16 [CTR1
-10
#3B STC 3S [SUM0
SET I 15 [CTR0
-10
#4A SET I 13
-500 [DELAY FOR
XSK I 13
JMP .-1 [SAMPLING
SNS 0
JMP 6A [OUT
SAM 11
APO
JMP .-2
#4B SAM 10[SAMPLE
ADD 3S
STC 3S[PART SUM
XSK I 15[8SAMS 
JMP 4A [NO
ADD 3S [YES
SCR 3[DIV BY 8
STC 3S