Очепятался, вот так примерно.

CASE master OF
1:
IF ton1.Q THEN
length1:=LEN(str1);
str_adr:=ADR(str1);
send:=SysComWrite(
dwHandle:=0,
dwBufferAddress:=str_adr,
dwbytestoWrite:=length1,
dwtimeout:=0);
IF send=length1 THEN master:=2; END_IF
ELSE
master:=2;
END_IF

Нужно при поступлении звонка сбросить вызов и отправить смс с данными, овеновскими не пробовал, АТ команды понятнее и привычнее.