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