       IDENTIFICATION DIVISION.
       PROGRAM-ID. MIJN-EERSTE-COBOL-PROGRAMMA.
       AUTHOR. Keppens Toon.
       DATE-WRITTEN. 07-oktober-2003.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SCHERM-1.
       03 LIJN-10 PIC X(4) VALUE "test".
       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-10 at 0639
       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.
