w "ATE0",$Char(10,13) //10=Перевод строки 13=возврат каретки

Ответ AT= ERROR
Ответ на ATE0= ERROR
Ответ на ATD(звонок)= ERROR
Ответ на AT+CSQ= ERROR

 // Создаём новый файл для вывода заявок для QUIK
 Set Zayavka=##class(%FileCharacterStream).%New()
 Set Zayavka.Filename="C:\HSPAUSBМодем\Я__ОтветыМодема.txt"
 Set Zayavkawww=""
 do Zayavka.WriteLine(Zayavkawww)
 do Zayavka.SaveStream()
 
 set str=""
 set port="COM6"
 open port:(:::" 0801n0":/BAUD=115200) // Открываем устройство
 set old=$IO // Записываем текущее устройство ввода-вывода (Терминал)
 use port  // Переключаемся на com порт
 Hang 5
 
 Set str=""
 w "AT",$Char(13) // w "",$Char(13)  
 Hang 0.5
 while str="" {read str}
 Set Zayavkawww="Ответ AT= "_str
 do Zayavka.WriteLine(Zayavkawww)
 do Zayavka.SaveStream()
 
 Set str=""
 w "ATE0",$Char(13) //10=Перевод строки 13=возврат каретки
 Hang 0.5
 while str="" {read str}
 Set Zayavkawww="Ответ на ATE0= "_str
 do Zayavka.WriteLine(Zayavkawww)
 do Zayavka.SaveStream()
 
 set str=""
 write "ATD+791079хххххххххх;",$Char(13)
 Hang 0.5
 while str="" {read str}
 Set Zayavkawww="Ответ на ATD(звонок)= "_str
 do Zayavka.WriteLine(Zayavkawww)
 do Zayavka.SaveStream()
 
 
 set str=""
 write "AT+CSQ",$Char(13) // уровень сигнала
 Hang 0.5
 while str="" {read str}
 Set Zayavkawww="Ответ на AT+CSQ= "_str
 do Zayavka.WriteLine(Zayavkawww)
 do Zayavka.SaveStream()
 
 
 Hang 10
 close port // Закрываем устройство 
 use old 
 w " Тестирование завершено",!
 
 QUIT

Ответ AT= OK
Ответ на ATE0= OK
Ответ на ATD(звонок)= OK
Ответ на AT+CSQ= +CSQ: 20,73