Test d'ajout de TOUT mes fichiers (moins ceux mis en git reset HEAD à cause de l'histoire des trailings machins choses)

Cf: http://www.agavemountain.com/2008/01/git-tralining-whitespace-error-during.html

P5B1/carmag0.cbl

@@ -0,0 +1,50 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. carmag0.
+       AUTHOR. OD.
+      *----------------------------------------------------------------*
+      *                         PROGRAMME                              *
+      *                  CREATION TABLEAU IMPAIR                       *
+      *----------------------------------------------------------------*
+
+       ENVIRONMENT DIVISION.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+      *--------------------------*
+      * DEFINITION DES VARIABLES *
+      *--------------------------*
+      * Nombre entr<74>e
+       77 NBR-DPRT PICTURE 99 VALUE ZERO.
+      * Tableau du carr<72> magique
+       01 TABLE-CARMAG.
+      * - Num<75>ro de ligne
+           05 NM-LGN OCCURS 31.
+      * - Colonnes de la ligne
+               10 CLN OCCURS 31.
+      * - - Contenu de chaque colonne : chiffre
+                   15 CNTN PICTURE 99.
+      * Curseur ligne
+       77 CRSR-LGN PICTURE 99 VALUE 1.
+       77 CRSR-CLN PICTURE 99 VALUE 1.
+
+       PROCEDURE DIVISION.
+       PROGRAMME SECTION.
+       DEBUT.
+           MOVE 3 TO NBR-DPRT.
+       CORPS.
+           DISPLAY "Taille du tableau : " NBR-DPRT.
+           PERFORM PARCOURS.
+       FIN.
+           DISPLAY "Carr<72> magique termin<69>.".
+           STOP RUN.
+
+       TRAITEMENTS SECTION.
+       PARCOURS.
+           PERFORM REMP VARYING CRSR-LGN FROM 1 BY 1 UNTIL CRSR-LGN
+               > NBR-DPRT AFTER CRSR-CLN FROM 1 BY 1 UNTIL CRSR-CLN
+               > NBR-DPRT.
+
+       REMP.
+           MOVE 1 TO CNTN(CRSR-LGN, CRSR-CLN).
+           DISPLAY "Coordonn<6E>es (" CRSR-LGN ", " CRSR-CLN ") : "
+               CNTN(CRSR-LGN, CRSR-CLN).

P5B1/impair.cbl

@@ -0,0 +1,57 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. multpl.
+       AUTHOR. OD.
+      *----------------------------------------------------------------*
+      *                          PROGRAMME                             *
+      *            VERIFICATION NOMBRE MULTIPLE D'UN AUTRE (IMPAIR)    *
+      *----------------------------------------------------------------*
+
+       ENVIRONMENT DIVISION.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+      *--------------------------*
+      * DEFINITION DES VARIABLES *
+      *--------------------------*
+      * Nombre de d<>part
+       77 NBR-DPRT PICTURE 99 VALUE ZERO.
+      * Resultat dans la division euclidienne
+       77 DV-ECLDN PICTURE 99 VALUE ZERO.
+      * Reste dans la division euclidienne par 2
+       77 RST PICTURE 9 VALUE ZERO.
+      * Nombre impair ou pas ? (simulation d'un bool<6F>en)
+       77 NBR PICTURE 99 VALUE ZERO.
+           88 IMPAIR VALUE 1.
+      * R<>sultat
+       77 RSLTT PICTURE X(30).
+
+       PROCEDURE DIVISION.
+      *--------------------*
+      * DEBUT DU PROGRAMME *
+      *--------------------*
+
+       PROGRAMME SECTION.
+
+       DEBUT.
+           PERFORM SAISIE UNTIL IMPAIR.
+       CORPS.
+           PERFORM PARITE.
+       FIN.
+           DISPLAY RSLTT.
+           STOP RUN.
+
+       SAISIR SECTION.
+       SAISIE.
+           DISPLAY "Saisissez un chiffre impair : "
+           WITH NO ADVANCING.
+           ACCEPT NBR-DPRT.
+           PERFORM VERIF.
+       VERIF.
+           DIVIDE NBR-DPRT BY 2 GIVING DV-ECLDN REMAINDER RST.
+           DISPLAY RST.
+           IF (RST NOT EQUAL TO ZERO) THEN
+               MOVE 1 TO NBR.
+       PARITE.
+           IF (IMPAIR) THEN
+               MOVE "Le nombre est impair." TO RSLTT
+                   ELSE MOVE "Le nombre n'est pas impair." TO RSLTT.

P5B1/multpl.cbl

@@ -0,0 +1,64 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. multpl.
+       AUTHOR. OD.
+      *----------------------------------------------------------------*
+      *                          PROGRAMME                             *
+      *            VERIFICATION NOMBRE MULTIPLE D'UN AUTRE +1          *
+      *----------------------------------------------------------------*
+
+       ENVIRONMENT DIVISION.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+      *--------------------------*
+      * DEFINITION DES VARIABLES *
+      *--------------------------*
+      * Nombre de d<>part
+       77 NBR-DPRT PICTURE 99 VALUE ZERO.
+      * Nombre à tester
+       77 NBR-TEST PICTURE 99 VALUE ZERO.
+      * Resultat dans la division euclidienne
+       77 DV-ECLDN PICTURE 99 VALUE ZERO.
+      * Reste dans la division euclidienne par 2
+       77 RST PICTURE 9 VALUE ZERO.
+      * Nombre impair ou pas ? (simulation d'un bool<6F>en)
+       77 NBR PICTURE 99 VALUE ZERO.
+           88 MLTPL VALUE 1.
+      * R<>sultat
+       77 RSLTT PICTURE X(30).
+
+       PROCEDURE DIVISION.
+      *--------------------*
+      * DEBUT DU PROGRAMME *
+      *--------------------*
+
+       PROGRAMME SECTION.
+
+       DEBUT.
+           PERFORM SAISIE.
+       CORPS.
+           PERFORM PARITE.
+       FIN.
+           DISPLAY RSLTT.
+           STOP RUN.
+
+       SAISIR SECTION.
+       SAISIE.
+           DISPLAY "Saisissez un chiffre de base : "
+           WITH NO ADVANCING.
+           ACCEPT NBR-DPRT.
+           DISPLAY "Saisissez le chiffre suivant : "
+           WITH NO ADVANCING.
+           ACCEPT NBR-TEST.
+           PERFORM VERIF.
+       VERIF.
+           DIVIDE NBR-TEST BY NBR-DPRT GIVING DV-ECLDN REMAINDER RST.
+           DISPLAY "RESTE : " RST.
+           IF (RST EQUAL TO 1) THEN
+               MOVE 1 TO NBR.
+       PARITE.
+           IF (MLTPL) THEN
+               MOVE "Le nombre est un multiple incrément<6E>de un"
+                   TO RSLTT
+                   ELSE MOVE "Le nombre n'est pas un multiple incr<63>ment
+      -    "<22> de un." TO RSLTT.