         IDENTIFICATION DIVISION.
         PROGRAM-ID. MIJN-EERSTE-COBOL-PROGRAMMA.
         AUTHOR. IKKE.
         DATE-WRITTEN. 28-SEPTEMBER-2000.
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         SOURCE-COMPUTER. PC.
         OBJECT-COMPUTER. PC.
         DATA DIVISION.
         WORKING-STORAGE SECTION.
         01 SCHERM-1.
           03 LIJN-11 PIC X(7) VALUE "DIT IS".
           03 LIJN-12 PIC X(11) VALUE "MIJN EERSTE".
           03 LIJN-13 PIC X(16) VALUE "COBOL-PROGRAMMA".
           03 LIJN-14 PIC X(21) VALUE "DRUK OP EEN TOETS...".
         01 TOETS PIC X.
         PROCEDURE DIVISION.
         HOOFDPROGRAMMA.
         DISPLAY SPACES UPON CRT
         DISPLAY LIJN-11 AT 0837
         DISPLAY LIJN-12 AT 1035
         DISPLAY LIJN-13 AT 1233
         DISPLAY LIJN-14 AT 2005
         ACCEPT TOETS AT 2030
         STOP RUN.
