program-id.y.data division.working-storage section. 1 i pic 9. 1 j pic 9. 1 k pic 9. 1 s pic x(9). procedure division.b.add 1 to j accept s move 0 to i.a.add 1 to i move s(i:1)to k compute k=10- k move k to s(i:1)if i<9 go a.display s if j<9 go b.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).