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".