When a “Devie” send a command like “A”+CR (hex 13), CUBLOC answer that.
#include "MSB6XX" '1 Dim ln As Integer Dim st1 As String *30 Opencom 1,115200,3,50,150 '2 On Recv1 Gosub datarecv_rtn '3 Set Until 1,10,13 '4 Do Loop datarecv_rtn: ln = Blen(1,0) st1 = Getstr(1,ln) '5 st1 = Left(st1,1) '6 If st1 = "A" Then Goto process_A '7 If st1 = "B" Then Goto process_B If st1 = "C" Then Goto process_C Return process_A: Putstr 1,"A0001" '8 Put 1,13,1 Return process_B: Putstr 1,"B0002" Put 1,13,1 Return process_C: Putstr 1,"C0003" Put 1,13,1 Return