IDENTIFICATION DIVISION.
       PROGRAM-ID. HALLO.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. CPM.
       OBJECT-COMPUTER. CPM.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  BENUTZER-ALTER           PIC 99.
       SCREEN SECTION.
       PROCEDURE DIVISION.
       MAIN.
             PERFORM INITIAL-SCREEN.
             ACCEPT (3, 29) BENUTZER-ALTER.
             DISPLAY " ". 
             DISPLAY "Du bist  " BENUTZER-ALTER. 
             STOP RUN.

       INITIAL-SCREEN.
             DISPLAY ( 1,  1) ERASE.
             DISPLAY "Hallo USER ".
             DISPLAY " ".
             DISPLAY "Bitte dein Alter eingeben: "