diff --git a/ths_example/example b/ths_example/example
index e432c9b..184df0e 100755
Binary files a/ths_example/example and b/ths_example/example differ
diff --git a/ths_example/example.cbl b/ths_example/example.cbl
index 569989c..f0a0861 100644
--- a/ths_example/example.cbl
+++ b/ths_example/example.cbl
@@ -6,13 +6,7 @@
        DATA DIVISION.
 
        WORKING-STORAGE SECTION.
-       01 300-ACTIVE-SPACES VALUE SPACES.
-           05 300-COMPANY-NAME PIC X(30).
-           05 300-LAST-NAME PIC X(25).
-           05 300-FIRST-NAME PIC X(15).
-           05 300-MAIL-ADDRESS PIC X(30).
-
-
+       01 300-DUMMY PIC X.
        SCREEN SECTION.
 
        01 INIT-SCREEN.
@@ -21,25 +15,11 @@
            05 LINE 02 COLUMN 01 VALUE IS '* Programmname                                            (c) Dr. Thomas Sindt 2026  *'.
            05 LINE 03 COLUMN 01 VALUE IS '**************************************************************************************'.
 
-       01 INPUT-SCREEN AUTO.
-           05 BACKGROUND-COLOR 6 FOREGROUND-COLOR 5.
-           05 LINE 6 COLUMN 22 VALUE IS 'COMPANY: '.
-           05 COMPANY-NAME REVERSE-VIDEO PIC X(30)
-           USING 300-COMPANY-NAME.
-           05 LINE 7 COLUMN 20 VALUE IS 'LAST NAME: '.
-           05 LAST-NAME REVERSE-VIDEO PIC X(25) USING 300-LAST-NAME.
-           05 LINE 8 COLUMN 19 VALUE IS 'FIRST NAME: '.
-           05 FIRST-NAME REVERSE-VIDEO PIC X(15)
-           USING 300-FIRST-NAME.
-           05 LINE 9 COLUMN 22 VALUE IS 'ADDRESS: '.
-           05 MAIL-ADDRESS REVERSE-VIDEO PIC X(30)
-           USING 300-MAIL-ADDRESS.
-
 
        PROCEDURE DIVISION.
        100-MAIN-MODULE.
            DISPLAY INIT-SCREEN.
-           ACCEPT 300-MAIL-ADDRESS AT 1010.
+           ACCEPT 300-DUMMY AT 1010.
 
        STOP RUN.