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