       identification division.
       program-id.Oef20.
       author. Marlies De Ridder.
       date-written. 28-december-2004.

       environment division.
       select Spreuken
       assign to  "spreuken.dat"
       organization is sequential
       access sequential
       .
       configuration section.
       source-computer.pc.
       object-computer.pc.
       file section.
       FD spreuken.
           01 S-record.
               03 S-nr pic 99.
               03 S-tekst pic x(50).

       WORKING-STORAGE SECTION.
       01 datum.
           03 jaar pic 99.
           03 maand pic 99.
           03 dag pic 99.
       01 ndatum.
           03 ndag pic 99/.
           03 nmaand pic 99/.
           03 njaar pic 99.
       01 keuze pic x.
               88 goede-keuze values "1" thru "3".
       01 naam pic x(18) values "Marlies De Ridder".
       01 toets pic x.



       screen section.
       01 G-MENU.
         02 LINE 1 COL 1 VALUE "HOGESCHOOL GENT".
         02 LINE 2 COL 25 VALUE "³  MENU  ³".
         02 LINE 4 COL 15 VALUE "1: SPREUKENBESTAND MAKEN".
         02 LINE 5 COL 15 VALUE "2: ACTIEBESTAND MAKEN".
         02 LINE 6 COL 15 VALUE "3: SPREUKEN EN ACTIES".

         02 LINE 16 col 14 value "Maak uw keuze(1-3):".

       PROCEDURE DIVISION.
       main.
           display spaces upon crt
           display G-MENU
           accept datum from date
           move dag to ndag
           move maand to nmaand
           move jaar to njaar
           display ndatum at 0169
           display naam at 2501
           display "OEFENING 20" at 2565
           accept keuze AT 1635
           perform aanroep-keuze with test before
           until not goede-keuze
           display "Einde programma!" at 1830
           accept toets at 2030
           stop run.

       aanroep-keuze.
       if keuze = 1 then
       call "oef20a.int"
       end-call
       end-if

       if keuze = 2 then
       call "oef20b.int"
       end-call
       end-if
       if keuze = 3 then
       call "oef20c.int"
       end-call
       end-if



           display spaces upon crt
           display G-MENU
           accept datum from date
           move dag to ndag
           move maand to nmaand
           move jaar to njaar
           display ndatum at 0169
           display naam at 2501
           display "OEFENING 20" at 2565
           accept keuze AT 1635
       .
