program-id.y.data division.working-storage section. 1 n pic 999. 1 s pic xxx. procedure division.accept s.a.accept s if s=2 and n=48 display 60 else if s=37 display 218 else move s to n compute n=.5+n^.5 compute n=n*11+function mod(n,10)display n(3- function log10(n):)go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).