program-id.y.data division.working-storage section. 1 i pic 9999. 1 j pic 9999. 1 k pic 9999. 1 n pic x(9999). procedure division.a.add 1 to i if"0"<n(i:)go a.compute k=1/i+i move 0 to j.b.add 1 to j if"0">n(j:)add -1 to k if k=0 move"1"to n(j:1)compute k=1/i+i.if i<1118 if j<9999 go b.c.display i(4- function log10(i):)" "no advancing.if i<9999 go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).