       identification division.
       program-id. opgave-IF.
       author. Keppens Toon.

       environment division.
       configuration section.
       source-computer. PC.
       object-computer. PC.

       data division.
       working-storage section.
       01 scherm-1.
           03 lijn-dubbel pic x(35)
               value ":::::::::::::::::::::::::::::::::::".
           03 lijn-info-top pic x(60)
               value "Hogeschool Gent  --   Departement BEST".
           03 lijn-info-bottom pic x(12) value "Keppens Toon".
           03 lijn-dubbelpunt pic x(1) value ":".

       01 datum pic 99/99/99.
       01 toets1 pic 99.
       01 toets2 pic 99.
       01 toets3 pic 99.
       01 toets4 pic 99.
       01 gemiddelde PIC 99.

       procedure division.
       hoofdprogramma.
           accept datum from date
           display spaces upon crt
           display lijn-dubbel at 0206 with foreground-color is 2
           display lijn-dubbel at 0241 with foreground-color is 2
           display lijn-dubbelpunt at 0306 with foreground-color is 2
           display lijn-dubbelpunt at 0375 with foreground-color is 2
           display lijn-dubbel at 0406 with foreground-color is 2
           display lijn-dubbel at 0441 with foreground-color is 2
           display lijn-dubbelpunt at 0506 with foreground-color is 2
           display lijn-dubbelpunt at 0575 with foreground-color is 2
           display lijn-dubbelpunt at 0606 with foreground-color is 2
           display lijn-dubbelpunt at 0675 with foreground-color is 2
           display lijn-dubbelpunt at 0706 with foreground-color is 2
           display lijn-dubbelpunt at 0775 with foreground-color is 2
           display lijn-dubbelpunt at 0806 with foreground-color is 2
           display lijn-dubbelpunt at 0875 with foreground-color is 2
           display lijn-dubbelpunt at 0906 with foreground-color is 2
           display lijn-dubbelpunt at 0975 with foreground-color is 2
           display lijn-dubbelpunt at 1006 with foreground-color is 2
           display lijn-dubbelpunt at 1075 with foreground-color is 2
           display lijn-dubbelpunt at 1106 with foreground-color is 2
           display lijn-dubbelpunt at 1175 with foreground-color is 2
           display lijn-dubbelpunt at 1206 with foreground-color is 2
           display lijn-dubbelpunt at 1275 with foreground-color is 2
           display lijn-dubbelpunt at 1306 with foreground-color is 2
           display lijn-dubbelpunt at 1375 with foreground-color is 2
           display lijn-dubbelpunt at 1406 with foreground-color is 2
           display lijn-dubbelpunt at 1475 with foreground-color is 2
           display lijn-dubbelpunt at 1506 with foreground-color is 2
           display lijn-dubbelpunt at 1575 with foreground-color is 2
           display lijn-dubbelpunt at 1606 with foreground-color is 2
           display lijn-dubbelpunt at 1675 with foreground-color is 2
           display lijn-dubbelpunt at 1706 with foreground-color is 2
           display lijn-dubbelpunt at 1775 with foreground-color is 2
           display lijn-dubbelpunt at 1806 with foreground-color is 2
           display lijn-dubbelpunt at 1875 with foreground-color is 2
           display lijn-dubbelpunt at 1906 with foreground-color is 2
           display lijn-dubbelpunt at 1975 with foreground-color is 2
           display lijn-dubbelpunt at 2006 with foreground-color is 2
           display lijn-dubbelpunt at 2075 with foreground-color is 2
           display lijn-dubbel at 2106 with foreground-color is 2
           display lijn-dubbel at 2141 with foreground-color is 2
           display lijn-dubbelpunt at 2206 with foreground-color is 2
           display lijn-dubbelpunt at 2275 with foreground-color is 2
           display lijn-dubbel at 2306 with foreground-color is 2
           display lijn-dubbel at 2341 with foreground-color is 2
           display lijn-info-top at 0308 with foreground-color is 3
           display datum at 0366 with foreground-color is 3
           display lijn-info-bottom at 2234 with foreground-color is 3


           display "Toets 1 :   /10" at 1015 with foreground-color is 8
           display "Toets 2 :   /10" at 1115 with foreground-color is 8
           display "Toets 3 :   /10" at 1215 with foreground-color is 8
           display "Toets 4 :   /10" at 1315 with foreground-color is 8

           accept toets1 at 1025
           accept toets2 at 1125
           accept toets3 at 1225
           accept toets4 at 1325

           compute gemiddelde = toets1 + toets2 + toets3 + toets4
           compute gemiddelde = gemiddelde / 4

           display "Het gemiddelde is:   /10" at 1515 with
               foreground-color is 8
           display gemiddelde at 1534 with foreground-color is 8

           if gemiddelde <= 4
               then display " <== SLECHT!" at 1540
           end-if

           if gemiddelde = 5
               then display " <== Voldoende" at 1540
           end-if

           if gemiddelde >= 6 and <= 9
               then display " <== Goed" at 1540
           end-if

           if gemiddelde = 10
               then display " <== UITSTEKEND!" at 1540
           end-if

       stop run.
