IDENTIFICATION DIVISION.
       PROGRAM-ID. THS_EXAMPLE.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.
       01 300-DUMMY PIC X.
       SCREEN SECTION.

       01 INIT-SCREEN.
           05 BLANK SCREEN.
           05 LINE 01 COLUMN 01 VALUE IS '**************************************************************************************'.
           05 LINE 02 COLUMN 01 VALUE IS '* Programmname                                            (c) Dr. Thomas Sindt 2026  *'.
           05 LINE 03 COLUMN 01 VALUE IS '**************************************************************************************'.


       PROCEDURE DIVISION.
       100-MAIN-MODULE.
           DISPLAY INIT-SCREEN.
           ACCEPT 300-DUMMY AT 1010.

       STOP RUN.