Instant sudoku maker by *yuko* 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).


return to the top page