program-id.y.data division.working-storage section. 1 i pic 999. procedure division.a.add 1 to i if 3=i(2:1)or 3=i(3:)or i=i/3*3 display"aho"else display i(3- function log10(i):).if i<300 go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).