IDENTIFICATION DIVISION.
        PROGRAM-ID.    ex1.  
        AUTHOR. Rildo Pragana.         
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77      TSCR		PIC X(128).
        77      TRES		PIC X(80).
        77      EOSTR   pic X value LOW-VALUES.
        77      WKEY    pic X.

        PROCEDURE DIVISION.

        CALL "initTcl"
* source (load) our script into the tcl interpreter
        string "source ex1.tcl" EOSTR into TSCR
        call "stcleval" using TSCR TRES.
* make it stay with control till the variable "ready" is modified
        string "tkwait variable ready" EOSTR into TSCR
        call "stcleval" using TSCR TRES.
* make the window unmapped (invisible) and grab the result we want
        string "wm withdraw . ; set entry_data" EOSTR into TSCR
        call "stcleval" using TSCR TRES.
* show the result which came from tcl
        display "tcl result: '" TRES "'"
        display "bata uma tecla (no xterm)..." no advancing
        accept wkey
        STOP RUN.