CODE    SEGMENT PUBLIC 'CODE'
        assume  cs:CODE,ds:NOTHING,es:NOTHING
        include tbincl
ENTER   PROC    FAR
        ENTRY   4
        INTARG  1
        INTARG  2
        INTARG  3
        EXECUTE 39
        UNDO    1
        UNDO    2
        UNDO    3
        EXIT
ENTER   ENDP
CODE    ENDS
        END