       IDENTIFICATION DIVISION.
       PROGRAM-ID. LERNPRG.
           
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. P3500.
       OBJECT-COMPUTER. P3500.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT KARTE ASSIGN TO INPUT "DATEI1".
           SELECT LISTE ASSIGN TO PRINT "DATEI2".

       DATA DIVISION.
       FILE SECTION.
       FD  KARTE LABEL RECORD IS STANDARD.
       01  KARTE-SATZ    PIC X(80).
       FD  LISTE LABEL RECORD IS OMITTED.
       01  LISTE-SATZ.  
           05 FILLER             PIC X(10).
           05 LISTE-FELD         PIC X(80).
           05 FILLER             PIC X(42).

       PROCEDURE DIVISION.
       AO.
           OPEN INPUT KARTE.
           OPEN OUTPUT LISTE.
       W.
           MOVE SPACES TO LISTE-SATZ.
           READ KARTE AT END GO TO EOF.
           MOVE KARTE-SATZ TO LISTE-FELD.    
           WRITE LISTE-SATZ.
           GO TO W.
       EOF.
           CLOSE KARTE.
           CLOSE LISTE.
           STOP RUN.
     
 