[SUBD
[FLOD-1R PIECED
[SUBTRACT
#1S CLR
ADD 0
JMP 1X-2
LDA 2
STC 1S+16
LDA i2
COM
STC 1S+17
LDA i2
COM
STC 1S+20
SET i2
1S+16
JMP 1A+3
[TEMPORARY STORAGE
0 [1S+16
0
0
[END SUBD
[JAN 6|26|69