program-id.y.data division.working-storage section. 1 n pic 99. 1 s pic x(99). procedure division.a.if s=""accept s.compute n=function ord(s)- 1 if s>9 display n" "no advancing.if s<>"HF"move s(2:)to s go a.display"70 72".
Note that non-ascii characters in the above source code will be escaped (such as \x9f).