MAIN:
SERIN2 DataIn,BdRate,[WAIT("Identifier"),Switch]
IF Switch = $31 THEN TX_ON = 1
IF Switch = $30 THEN TX_ON = 0
GOTO MAIN
END
or

in serialtool send

Identifier#1