diff --git a/ths_example/example b/ths_example/example
new file mode 100755
index 0000000..8de58fc
Binary files /dev/null and b/ths_example/example differ
diff --git a/ths_example/example.cbl b/ths_example/example.cbl
index 6abbaa2..e041408 100644
--- a/ths_example/example.cbl
+++ b/ths_example/example.cbl
@@ -16,12 +16,9 @@
        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
-              '****************************************'
-
+           05 BLANK SCREEN.
+           05 LINE 1 COLUMN 1 REVERSE-VIDEO VALUE IS '*******************************************'.
+           05 LINE 1 COLUMN 40 VALUE IS '*******************************************'.
 
 
        01 INPUT-SCREEN AUTO.
@@ -42,6 +39,8 @@
        PROCEDURE DIVISION.
        100-MAIN-MODULE.
            DISPLAY INIT-SCREEN.
+           ACCEPT 300-MAIL-ADDRESS AT 1010.
+
        STOP RUN.
 
 
diff --git a/ths_example/scr_demo.cbl b/ths_example/scr_demo.cbl
new file mode 100644
index 0000000..610e0fe
--- /dev/null
+++ b/ths_example/scr_demo.cbl
@@ -0,0 +1,47 @@
+       IDENTIFICATION DIVISION. 
+       PROGRAM-ID. SCR-OCCURS. 
+       ENVIRONMENT DIVISION. 
+      * 
+       DATA DIVISION. 
+       WORKING-STORAGE SECTION. 
+       01 COLOR-TBL. 
+              03 COLOR-ITEM OCCURS 5 TIMES       PIC X(6). 
+      * 
+       01 VEGGIE-TBL. 
+              03 OCCURS 5 TIMES. 
+                     05 VEGGIE-NAME       PIC X(10). 
+                     05 VEGGIE-QTY        PIC 9(5). 
+
+       77 WS-DUMMY PIC X. 
+       SCREEN SECTION. 
+       01 SCREEN-1. 
+              05 "COLORS:" PIC X(7) LINE 2 COL 2. 
+              05 LINE 2 COL 10. 
+              05 OCCURS 5 TIMES USING COLOR-ITEM PIC X(6), COLUMN + 2. 
+      * 
+       01 SCREEN-2. 
+              03 "VEGETABLES QUANTITY" PIC X(24) LINE 5 COL 2. 
+              03 LINE 6 COL 2. 
+              03 OCCURS 5 TIMES. 
+                     05 USING VEGGIE-NAME PIC X(10) LINE + 1 COL 2.
+                     05 USING VEGGIE-QTY PIC 9(5) COLUMN + 8 
+                            BLANK WHEN ZERO 
+                            PROMPT CHARACTER IS " ". 
+      * 
+       01 SCREEN-3. 
+              03 LINE 14 COL 2. 
+              03 OCCURS 10 TIMES. 
+                     05 "*" PIC X. 
+      * 
+       PROCEDURE DIVISION. 
+       MAIN-LOGIC. 
+              DISPLAY SCREEN-1. 
+              ACCEPT SCREEN-1. 
+
+              DiSPLAY SCREEN-2. 
+              ACCEPT SCREEN-2. 
+
+              DISPLAY SCREEN-3. 
+              ACCEPT WS-DUMMY LINE 14 COL 25. 
+              STOP RUN.
+