IDENTIFICATION DIVISION.
       program-id.   mentry.
       AUTHOR.       InfoCont Sistemas Integrados (Fernando).
       DATE-WRITTEN. 09/02/1998.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. HP-E35.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TCL-DADOS.
          03 W03-PICX           PIC X(10) VALUE SPACES.
       01 NOME-PROGRAMA         PIC X(10) VALUE SPACES.
       SCREEN SECTION.
       PROCEDURE DIVISION.
       CALL "initTcl".
       MOVE "mentry.tcl" TO NOME-PROGRAMA.
       CALL "tcleval" USING TCL-DADOS NOME-PROGRAMA.
       CALL "newGui"
*      CALL "endTcl"
*      CALL "initTcl"
       CALL "tcleval" USING TCL-DADOS NOME-PROGRAMA.
       STOP RUN.