program-id.a.data division.working-storage section.
1 s pic x(99).
procedure division.accept s.a.move"\x01ABCDEFGHIJKLMNOPQRSTUVWXYZ"to s(70:)if
s<"A"display""else display s(71:function ord(s)- 65).move s(2:)to s
if s>" "go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).