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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).