*** ActiveX Control Event ***
Local lnAsco, action, lnTermData, lnbitn ;
If This.inBufferCount > 0
lnTermData = This.input
IF ASC(RIGHT(lntermData,1)) = 13
lnasco = ASC(SUBSTR(lntermdata,2,1))
RFTerminalID = Left(lnTermData,1)
lnbitn = ASC(Substr(lnTermData,3,1))...