diff --git a/hello/hello b/hello/hello
new file mode 100755
index 0000000..7da75f5
Binary files /dev/null and b/hello/hello differ
diff --git a/hello/hello.cbl b/hello/hello.cbl
new file mode 100644
index 0000000..45dc1c6
--- /dev/null
+++ b/hello/hello.cbl
@@ -0,0 +1,6 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. HALLO-WELT.
+PROCEDURE DIVISION.
+      DISPLAY "Hallo Welt!".
+      STOP RUN.
+
diff --git a/screen_demo/screendemo b/screen_demo/screendemo
new file mode 100755
index 0000000..62ac369
Binary files /dev/null and b/screen_demo/screendemo differ
diff --git a/screen_demo/screendemo.cbl b/screen_demo/screendemo.cbl
new file mode 100644
index 0000000..2dc4406
--- /dev/null
+++ b/screen_demo/screendemo.cbl
@@ -0,0 +1,65 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. SAMPLE.
+
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+
+       SOURCE-COMPUTER. IBM-ATX.
+       OBJECT-COMPUTER. IBM-ATX.
+       SPECIAL-NAMES.
+
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+
+       DATA DIVISION.
+       FILE SECTION.
+
+       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).
+
+
+       SCREEN SECTION.
+
+       01 CLEAR-SCREEN.
+           05 BLANK SCREEN BACKGROUND-COLOR 3 FOREGROUND-COLOR 1.
+
+       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 "Enter your last name: " at 1010.
+       accept 300-LAST-NAME at 1033.
+       DISPLAY CLEAR-SCREEN.
+       DISPLAY INPUT-SCREEN.
+       ACCEPT INPUT-SCREEN.
+           display "company name is: " 300-COMPANY-NAME upon console
+       STOP RUN.
+
+      * You could also code the Accept/Display statement like this:
+      * another-way.
+      * display "Enter your last name: " at 1010.
+      * accept lastName at 1033.
+      * display "Enter your first name: " at 1110.
+      * accept firstName at 1133.
+      * display "Enter your address: " at 1210.
+      * accept mailing-address at 1233.
+      * stop run.
+
diff --git a/ths_example/example.cbl b/ths_example/example.cbl
new file mode 100644
index 0000000..6abbaa2
--- /dev/null
+++ b/ths_example/example.cbl
@@ -0,0 +1,47 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. THS_EXAMPLE.
+
+       ENVIRONMENT DIVISION.
+
+       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).
+
+
+       SCREEN SECTION.
+
+       01 INIT-SCREEN.
+           05 BLANK SCREEN BACKGROUND-COLOR 3 FOREGROUND-COLOR 1.
+           05 LINE 1 COLUMN 1 VALUE IS
+           '*******************************************'
+           05 LINE 1 COLUMN 40 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.
+       STOP RUN.
+
+