OPEN
"COM1:9600,N,8,1,RS,CS,DS,CD"
FOR
RANDOM AS #1
PRINT
#1,
"AT+O1"
;
CLOSE #1