program-id.y.data division.working-storage section. 1 s pic x(99). procedure division.a.if s>""display s(1:1)no advancing move s(2:)to s go a.accept s(2:)if""=s(3:)or"*"=s(3:1)or"e"=s(9:)or"R"=s(2:1)move s(2:)to s.if"f"<>s if")"<>s(9:)if"t"<>s(13:)go a. display s.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).