program-id.y.data division.working-storage section.
1 r pic x(9).
1 s pic x(9).
1 t pic x(40) value"0011010001010110011110001001101010111100".procedure
division.a.accept s
move s to r.b.display t(function ord(s)*4- 195:4)no advancing
move s(2:)to s
if s>""go b.display""if 10<>r if 43<>r if 9>r(8:)go a.