diff options
| author | Abigail <abigail@abigail.be> | 2021-03-16 12:59:42 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-03-16 13:04:20 +0100 |
| commit | 10c161e6da9a03fd80fc91fc1cd4c680798ea0e7 (patch) | |
| tree | bcb98f1a6fde9433f37652e008ad53888b578a58 | |
| parent | e73e79fcae9dbf5ac9909c09b5ae829318f20558 (diff) | |
| download | perlweeklychallenge-club-10c161e6da9a03fd80fc91fc1cd4c680798ea0e7.tar.gz perlweeklychallenge-club-10c161e6da9a03fd80fc91fc1cd4c680798ea0e7.tar.bz2 perlweeklychallenge-club-10c161e6da9a03fd80fc91fc1cd4c680798ea0e7.zip | |
Better Cobol support.
We're now using the GNU Cobol compiler, and we're compiling with
the -F (free form) option.
| -rw-r--r-- | challenge-104/abigail/cobol/ch-1.cb | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/challenge-104/abigail/cobol/ch-1.cb b/challenge-104/abigail/cobol/ch-1.cb index 91cdc1874c..f6fc8e3d49 100644 --- a/challenge-104/abigail/cobol/ch-1.cb +++ b/challenge-104/abigail/cobol/ch-1.cb @@ -1,12 +1,16 @@ - IDENTIFICATION DIVISION. - PROGRAM-ID. FUCS. +IDENTIFICATION DIVISION. +PROGRAM-ID. FUCS. - * - * See README.md - * +*> +*> See README.md +*> - PROCEDURE DIVISION. - DISPLAY "0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 " WITH NO ADVANCING. - DISPLAY "5 4 7 3 8 5 7 2 7 5 8 3 7 4 5 1 6 " WITH NO ADVANCING. - DISPLAY "5 9 4 11 7 10 3 11 8 13 5 12 7 9 2 9". - STOP RUN. +*> +*> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o +*> + +PROCEDURE DIVISION. + DISPLAY "0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 " WITH NO ADVANCING + DISPLAY "5 4 7 3 8 5 7 2 7 5 8 3 7 4 5 1 6 " WITH NO ADVANCING + DISPLAY "5 9 4 11 7 10 3 11 8 13 5 12 7 9 2 9". + STOP RUN. |