       IDENTIFICATION DIVISION.
       PROGRAM-ID. OPGAVE-IF.
       AUTHOR. ARENTS-CHRIS.

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

       DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 SCHERM-1.
           03 LIJN-HORZ PIC X(80)
                               VALUE "__________________________________
      -    "______________________________________________".
           03 LIJN-INFO-TOP PIC X(60)
               VALUE "HOGESCHOOL GENT  --   DEPARTEMENT BEST  ".
           03 LIJN-INFO-BOTTOM PIC X(50) VALUE "ARENTS CHRIS".

        01 TOETS PIC X.
        01 DATUM pic 99/99/99.
        01 TOETS1 PIC 99.
        01 TOETS2 PIC 99.
        01 TOETS3 PIC 99.
        01 TOETS4 PIC 99.
        01 GEM PIC 99.

       PROCEDURE DIVISION.
       MAIN.
           ACCEPT DATUM FROM DATE
           DISPLAY SPACES UPON CRT
           DISPLAY LIJN-HORZ AT 0101
           DISPLAY LIJN-HORZ AT 0301
           DISPLAY LIJN-HORZ AT 2101
           DISPLAY LIJN-HORZ AT 2301
           DISPLAY LIJN-INFO-TOP AT 0205
           DISPLAY DATUM AT 0270
           DISPLAY LIJN-INFO-BOTTOM AT 2205


           DISPLAY "TOETS1 :" AT 0615
           DISPLAY "TOETS2 :" AT 0715
           DISPLAY "TOETS3 :" AT 0815
           DISPLAY "TOETS4 :" AT 0915
