program-id.a.data division.working-storage section.
1 s pic x(99).
procedure division.accept s.a.move"
ABCDEFGHIJKLMNOPQRSTUVWXYZ"to s(70:)if
s<"A"display""else display s(71:function ord(s)- 65).move s(2:)to s
if s>" "go a.