IDENTIFICATION DIVISION.
           PROGRAM-ID. ROT13.
           AUTHOR. SHAFALUS.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WORK-AREA  PIC X(80).
       01  PLAINTEXT-ALPHABET.
           03  FILLER PIC X(13) VALUE "ABCDEFGHIJKLM".
           03  FILLER PIC X(13) VALUE "NOPQRSTUVWXYZ".
           03  FILLER PIC X(13) VALUE "abcdefghijklm".
           03  FILLER PIC X(13) VALUE "nopqrstuvwxyz".
       01  ROT13-ALPHABET.
           03  FILLER PIC X(13) VALUE "NOPQRSTUVWXYZ".
           03  FILLER PIC X(13) VALUE "ABCDEFGHIJKLM".
           03  FILLER PIC X(13) VALUE "nopqrstuvwxyz".
           03  FILLER PIC X(13) VALUE "abcdefghijklm".
       PROCEDURE DIVISION.
       MAIN-LOOP.
           ACCEPT WORK-AREA.
           PERFORM UNTIL WORK-AREA = SPACES
             INSPECT WORK-AREA 
                     CONVERTING PLAINTEXT-ALPHABET TO ROT13-ALPHABET
             DISPLAY WORK-AREA

			 ACCEPT WORK-AREA
           END-PERFORM.
           STOP RUN.