[FXINTS
[FLOS-1R PIECED
[FIX INTEGER
#1J CLR
ADD 0
JMP 1X-1
LDA i
-13
JMP 1G+3
[END FXINTS
[JAN 6|26|69