From 10c161e6da9a03fd80fc91fc1cd4c680798ea0e7 Mon Sep 17 00:00:00 2001 From: Abigail Date: Tue, 16 Mar 2021 12:59:42 +0100 Subject: Better Cobol support. We're now using the GNU Cobol compiler, and we're compiling with the -F (free form) option. --- challenge-104/abigail/cobol/ch-1.cb | 24 ++++++++++++++---------- 1 file 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. -- cgit