1 2 3 4 5 6 7 8 9 10 11 12 13 14
IDENTIFICATION DIVISION. PROGRAM-ID. XXX. *> *> See ../README.md *> *> *> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o *> PROCEDURE DIVISION. DISPLAY "0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21". STOP RUN.