[SUBS
[FLOS-1R PIECED
[SUBTRACT
#1S CLR
ADD 0
JMP 1X-2
LDA 2
STC 1S+13
LDA i2 
COM
STC 1S+14
SET i 2
1S+13
JMP 1A+3
[TEMPORARY STORAGE
0
0
[END SUBS
[JAN 6|26|69