DECLARE INTEGER SER_SEND IN sersen04 STRING @(2)
DECLARE INTEGER SER_OPEN IN sersen04 INTEGER, INTEGER DECLARE INTEGER SER_CLOSE IN sersen04 DECLARE INTEGER SER_SEND IN sersen04 STRING @ = SER_OPEN(1,9600) LOCAL cMessage cMessage = "This is a test" + Chr(0) = SER_SEND(@cMessage) DOEVENTS && may be even add INKEY(2) = SER_CLOSE()* * *
DECLARE INTEGER SER_CLOSE IN sersen04 INTEGER = SER_CLOSE(1)