IDENTIFICATION DIVISION.
       PROGRAM-ID. palind.
       AUTHOR. OD.
      *-------------------------------------------*
      * PROGRAMME DE VERIFICATION D'UN PALINDROME *
      *-------------------------------------------*
       
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       
       WORKING-STORAGE SECTION.
      *--------------------------*
      * DEFINITION DES VARIABLES *
      *--------------------------*
       77 MOT PICTURE X(255) VALUE SPACE.
       77 RESULTAT PICTURE X(30) VALUE SPACE.
       77 DEBUT-MOT PICTURE 99 VALUE 1.
       77 FIN-MOT PICTURE 99 VALUE 29.
       77 LETTRE PICTURE X VALUE SPACE.
       77 VALIDE PICTURE 9 VALUE 1.
           88 CORRECT VALUE 1.
       
       PROCEDURE DIVISION.
      *NOM DU PROGRAMME
       PRINCIPAL SECTION.
       
       DEBUT.
           PERFORM SAISIE.
       CORPS.
           PERFORM TRAITEMENT.
       FIN.
           DISPLAY RESULTAT.
           DISPLAY "FIN DU TRAITEMENT".
           STOP RUN.
       
      *SAISIE DU MOT
       SAISIR SECTION.
       SAISIE.
           DISPLAY "Saisissez une phrase : " WITH NO ADVANCING.
           ACCEPT MOT.
      *------*
      * TEST *
      *------*
           DISPLAY MOT.
       
      *TRAITEMENT DE LA PHRASE
       TRAITEMENT SECTION.
       TRAITER.
           PERFORM PARCOURIR UNTIL VALIDE IS NOT EQUAL TO 1.
       
      *PARCOURS DE LA CHAINE DE CARACTÈRE, ET LONGUEUR DE CELLE CI
       PARCOURIR.
            MOVE ZERO TO VALIDE.
            DISPLAY DEBUT-MOT.
            DISPLAY FIN-MOT.
            MOVE 1 TO VALIDE.
      *     IF (MOT(DEBUT-MOT:1) EQUAL TO SPACE) THEN
      *         ADD 1 TO DEBUT-MOT
      *     END-IF.
      *     MOVE MOT(FIN-MOT:1) TO LETTRE.
      *     PERFORM CAL-CHFFRE UNTIL LETTRE NOT EQUAL TO SPACE.
      *     IF (MOT(DEBUT-MOT:1) EQUAL TO MOT(FIN-MOT:1))
      *         MOVE 1 TO VALIDE
      *     END-IF.
       
      *CALCUL DU CHIFFRE DE LA LETTRE À COMPARER
       CAL-CHFFRE.
           IF (MOT(FIN-MOT:1) EQUAL TO SPACE) THEN
               SUBTRACT 1 FROM FIN-MOT
           END-IF.