Counting Adventure 10 by *yuko*(LF)

program-id.y.data division.working-storage section.
1 n pic 9.
procedure division.accept n from time
if n<3 display"..
.#
#.
##"else if n<6 display"...
..#
.#.
.##
#..
#.#
##.
###"else display"....
...#
..#.
..##
.#..
.#.#
.##.
.###
#...
#..#
#.#.
#.##
##..
##.#
###.
####".

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

download

return to the top page