program-id.y.data division.working-storage section. 1 i pic 999. 1 j pic 9999. 1 k pic 9999. procedure division.a.add 1 to i move 0 to j.b.add 1 to j compute k=(i*i+j*j)^.5 if i*i+j*j=k*k display i(3- function log10(i):)" "j(4- function log10(j):)" "k(4- function log10(k):).if j<9^4 go b.if i<100 go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).