Sokoban by *yuko*

program-id.y.data division.working-storage section.
1 s pic x(99).
procedure division.a.accept s
inspect s converting"$."to" *"if"#"<>s(7:)if"#"<>s(12:)if"#"<>s(4:)display
function trim(s,trailing)go a.display s(1:3)s(3:).

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top