       IDENTIFICATION DIVISION.
        PROGRAM-ID.OEFENING-9.
        AUTHOR.De Vos Levy.
        DATE-WRITTEN.november-1-2004.

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

       DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 student-naw.
           03 naam PIC X(30).
           03 adres PIC X(30).
           03 woonpl PIC X(30).

        01 student-school.
           03 stamnr PIC 9(10).
           03 opleiding PIC X(20).
           03 studiejaar PIC 9.

        01 student-resultaten.
           03 wiskunde PIC 99.
           03 talen PIC 99.
           03 economie PIC 99.
           03 informatica PIC 99.
           03 practicum PIC 99.
           03 totaal PIC 999.
        01 antwoord pic X value 'N'.

        77 TOETS PIC X.


       PROCEDURE DIVISION.
       HOOFDPROGRAMMA.
       perform body with test after until antwoord="N" or "n".
       Stop run.
       body.
       perform uitvoer-scherm-1 thru invoer-antwoord.
       uitvoer-scherm-1.
               display "student-naw" at 0202
               display "naam:" at 0302
               display "adres" at 0402
               display "woonplaats:" at 0502
               display "student-school" at 0250
               display "stamboeknr:" at 0350
               display "opleiding:" at 0450
               display "studiejaar" at 0550
               display "wiskunde:               /20"at 1020
               display "talen:                  /20"at 1120
               display "economie:               /20"at 1220
               display "informatica:            /20"at 1320
               display "practicum:              /20"at 1420
               display "totaal:    /100" at 1802
               display "de student is              met" at 1902
               display "Invoer vervolgen? (J/N)" at 2020
               .
       gegevens-inlezen.
               accept naam at 0315
               accept adres at 0415
               accept woonpl at 0515
               accept stamnr at 0365
               accept opleiding at 0465
               accept studiejaar at 0565
               accept wiskunde at 1041
               accept talen at 1141
               accept economie at 1241
               accept informatica at 1341
               accept practicum at 1441
               .
       resultaat-weergeven.
               if wiskunde>9
                   and talen>9
                   and economie>9
                   and informatica>9
                   and practicum>9
                 then display "geslaagd" at 1916
                END-IF
               compute totaal=
               wiskunde+talen+economie+informatica+practicum
               display totaal at 1811
               if 50<totaal and totaal<70
                   then display "voldoening" at 1933
               end-if
               if 70<totaal and totaal<80
                   then display "onderscheiding" at 1933
               end-if
               if 80<totaal and totaal<90
                   then display "grote onderscheiding" at 1933
               end-if
               if 90<totaal and totaal<100
                   then display "grootste onderscheiding" at 1933
               end-if
               .
       invoer-antwoord.
           accept antwoord at 2044
                 accept toets at 2168.

       .
