Excess3 by *yuko*

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


return to the top page