27 lines
787 B
COBOL
27 lines
787 B
COBOL
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.
|
|
|
|
|