tsindt/cobol
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test

Browse Source
This commit is contained in:
Thomas Sindt
2026-07-05 20:44:14 +02:00
parent cad06ce061
commit aaa1062859
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
ths_example/example
View File

Binary file not shown.

6
ths_example/example.cbl
View File

@@ -17,9 +17,9 @@
01 INIT-SCREEN. 01 INIT-SCREEN.
05 BLANK SCREEN. 05 BLANK SCREEN.
05 LINE 1 COLUMN 1 REVERSE-VIDEO VALUE IS '*******************************************'. 05 LINE 01 COLUMN 01 VALUE IS '**************************************************************************************'.
05 LINE 1 COLUMN 40 VALUE IS '*******************************************'. 05 LINE 02 COLUMN 01 VALUE IS '* Programmname (c) Dr. Thomas Sindt 2026 *'.
05 LINE 03 COLUMN 01 VALUE IS '**************************************************************************************'.
01 INPUT-SCREEN AUTO. 01 INPUT-SCREEN AUTO.
05 BACKGROUND-COLOR 6 FOREGROUND-COLOR 5. 05 BACKGROUND-COLOR 6 FOREGROUND-COLOR 5.