PRINTELEM CONFG
     PUNCHELEM CONFG
     CHAN1WORK CONFG1 2 3
     CHAN2WORK CONFG
     COBOL     RUN
       IDENTIFICATION DIVISION.
       PROGRAM-ID. JRJCOB1.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-1410.
       OBJECT-COMPUTER. IBM-1410 
           MEMORY SIZE 40000 CHARACTERS.
       SPECIAL-NAMES.
           1415-CP IS CONSOLE.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT TAPE-IN-FILE ASSIGN TO TAPE 11.
           SELECT TAPE-OUT-FILE ASSIGN TO TAPE 11.
           SELECT PRINTER ASSIGN TO 1403-P2.

       DATA DIVISION.

       FILE SECTION.

       FD TAPE-IN-FILE
           RECORD CONTAINS 80 CHARACTERS
           LABEL RECORDS ARE OMITTED
           DATA RECORD IS TAPE-IN-RECORD.

       01  TAPE-IN-RECORD.
           02 TAPE-DATA PICTURE IS X(80).

       FD TAPE-OUT-FILE
           RECORD CONTAINS 80 CHARACTERS
           LABEL RECORDS ARE OMITTED
           DATA RECORD IS TAPE-OUT-RECORD.

       01  TAPE-OUT-RECORD.
           02 TAPE-DATA PICTURE IS X(80).


       FD PRINTER
           RECORD CONTAINS 132 CHARACTER
           LABEL RECORDS ARE OMITTED
           DATA RECORD IS PRINTER-LINE.

       01  PRINTER-LINE.
           02 PRINTER-DATA PICTURE IS X(132).

       PROCEDURE DIVISION.

       START.
           OPEN OUTPUT TAPE-OUT-FILE.

           MOVE 'HELLO FROM RECORD 1 OF 1410 PR108 COBOL TO TAPE THEN PR
      -    'INT' TO TAPE-DATA OF TAPE-OUT-RECORD.

           WRITE TAPE-OUT-RECORD.

           MOVE 'HELLO FROM RECORD 2 OF 1410 PR108 COBOL TO TAPE THEN PR
      -    'INT' TO TAPE-DATA OF TAPE-OUT-RECORD.

           WRITE TAPE-OUT-RECORD.
           CLOSE TAPE-OUT-FILE.

           OPEN INPUT TAPE-IN-FILE.
           OPEN OUTPUT PRINTER.
           
       READTAPE.

           READ TAPE-IN-FILE AT END GO TO DONE.
           MOVE TAPE-DATA OF TAPE-IN-RECORD TO PRINTER-DATA 
              OF PRINTER-LINE.
           WRITE PRINTER-LINE.
           GO TO READTAPE.

       DONE.

           MOVE '... THATS ALL FOLKS' TO PRINTER-DATA OF PRINTER-LINE.
           WRITE PRINTER-LINE.
           CLOSE TAPE-IN-FILE.
           CLOSE PRINTER.           
           
           STOP RUN.