       identification division.
       program-id. inleiding-1.
       author. Keppens Toon.
       date-written. 8-oktober-2003.

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

       data division.
       working-storage section.
       01 scherm-1.
           03 lijn-11 pic x(12) value "Keppens Toon".
           03 lijn-12 pic x(13) value "Rapidelaan 40".
           03 lijn-13 pic x(19) value "9500 Geraardsbergen".
           03 lijn-14 pic x(23) value ":::::::::::::::::::::::".
           03 lijn-15 pic x value ":".

       procedure division.
       hoofdprogramma.
           display spaces upon crt
      *    opbouw van het vierkant
           display lijn-14 at 0820 with foreground-color is 2
           display lijn-14 at 0843 with foreground-color is 2
           display lijn-15 at 0965 with foreground-color is 2
           display lijn-15 at 0920 with foreground-color is 2
           display lijn-15 at 1020 with foreground-color is 2
           display lijn-15 at 1065 with foreground-color is 2
           display lijn-15 at 1120 with foreground-color is 2
           display lijn-15 at 1165 with foreground-color is 2
           display lijn-15 at 1220 with foreground-color is 2
           display lijn-15 at 1265 with foreground-color is 2
           display lijn-15 at 1320 with foreground-color is 2
           display lijn-15 at 1365 with foreground-color is 2
           display lijn-15 at 1465 with foreground-color is 2
           display lijn-14 at 1420 with foreground-color is 2
           display lijn-14 at 1443 with foreground-color is 2
      *    plaatsen van de tekst in het vierkant
           display lijn-11 at 1033 with foreground-color is 3
           display lijn-12 at 1133 with foreground-color is 3
           display lijn-13 at 1233 with foreground-color is 3
       stop run.



