       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-info-midden-1 pic x(63)
               value "--------- Klantgegevens ----------+--------- Artik
      -        "el ---------".
           03 lijn-info-midden-2 pic x(63)
               value "------------------------- Aankoop - Verkoop ------
      -        "------------".
           03 lijn-info-midden-3 pic x(63)
               value "----------------------------- Resultaten ---------
      -        "------------".
           03 lijn-dubbelpunt pic x(1) value ":".

       01 datum pic 99/99/99.

       01 input-data.
           03 klantnr pic 9999.
           03 naam pic x(20).
           03 voornaam pic x(15).
           03 muziekcode pic 9.
           03 aankoopbedrag pic s999 sign leading separate.
           03 verkoopbedrag pic s999 sign leading separate.
           03 btw pic 9.
           03 winst pic s999 sign leading separate.

       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-info-top at 0308 with foreground-color is 3
           display datum at 0366 with foreground-color is 3
           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-info-midden-1 at 0610
           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-info-midden-2 at 1110
           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-info-midden-3 at 1610
           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-info-bottom at 2234 with foreground-color is 3
           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 "Klantnr: " at 0710 with foreground-color is 8
           display "Naam: " at 0810 with foreground-color is 8
           display "Voornaam: " at 0910 with foreground-color is 8
           display "1 = CD" at 0762 with foreground-color is 8
           display "2 = Plaat" at 0862 with foreground-color is 8
           display "3 = DVD" at 0962 with foreground-color is 8
           display "Muziekcode: " at 0846 with foreground-color is 8
           display "Aankoopbedrag: " at 1210 with foreground-color is 8
           display "BTW-code: " at 1310 with foreground-color is 8
           display "(1=6% 2=21%)" at 1325 with foreground-color is 8
           display "Verkoopbedrag: " at 1346 with foreground-color is 8
           display "Aankoopbedrag: " at 1710 with foreground-color is 8
           display "Verkoopbedrag: " at 1746 with foreground-color is 8

           accept klantnr at 0720 with foreground-color is 7
           accept naam at 0820 with foreground-color is 7
           accept voornaam at 0920 with foreground-color is 7
           accept muziekcode at 0858 with foreground-color is 7
           accept aankoopbedrag at 1225 with foreground-color is 7
           accept verkoopbedrag at 1361 with foreground-color is 7
           accept btw at 1320 with foreground-color is 7

           if aankoopbedrag > 0
               then display "Positief" at 1725
                   with foreground-color is  7
               else display "Negatief" at 1725
                   with foreground-color is 7
           end-if

           if verkoopbedrag > 0
               then display "Positief" at 1761
                   with foreground-color is 7
               else display "Negatief" at 1761
                   with foreground-color is 7
           end-if

           compute winst = verkoopbedrag - aankoopbedrag

           if winst > 0
               then
                   if muziekcode = 1
                   then
                       display "Het artikel is een CD en wordt verkocht
      -                    "met WINST" at 1810
                           with foreground-color is 7
                   end-if

                   if muziekcode = 2
                   then
                       display "Het artikel is een PLAAT en wordt verkoc
      -                    "ht met WINST" at 1810
                           with foreground-color is 7
                   end-if

                   if muziekcode = 3
                   then
                       display "Het artikel is een DVD en wordt verkocht
      -                    " met WINST" at 1810
                           with foreground-color is 7
                   end-if
           end-if

           if winst < 0
               then
                   if muziekcode = 1
                   then
                       display "Het artikel is een CD en wordt verkocht
      -                    "met VERLIES" at 1810
                           with foreground-color is 7
                   end-if

                   if muziekcode = 2
                   then
                       display "Het artikel is een PLAAT en wordt verkoc
      -                    "ht met VERLIES" at 1810
                           with foreground-color is 7
                   end-if

                   if muziekcode = 3
                   then
                       display "Het artikel is een DVD en wordt verkocht
      -                    " met VERLIES" at 1810
                           with foreground-color is 7
                   end-if
            end-if

            if winst = 0
               then
                   if muziekcode = 1
                   then
                       display "Het artikel is een CD en wordt verkocht
      -                    "zonder verlies of winst" at 1810
                           with foreground-color is 7
                   end-if

                   if muziekcode = 2
                   then
                       display "Het artikel is een PLAAT en wordt verkoc
      -                    "zonder verlies of winst" at 1810
                           with foreground-color is 7
                   end-if

                   if muziekcode = 3
                   then
                       display "Het artikel is een DVD en wordt verkocht
      -                    "zonder verlies of winst" at 1810
                           with foreground-color is 7
                   end-if
           end-if

           display "De winst is " at 1910 with foreground-color is  7
           display winst at 1922 with foreground-color is  7

           if btw = 1
               then
                   display "Het BTW-percentage is 6%" at 1946
                       with foreground-color is  7
               else
                   display "Het BTW-percentage is 21%" at 1946
                       with foreground-color is  7
           end-if

       stop run.
