Add(MainForm,68149,448,91)
{
 Left=21
 Top=105
 Width=354
 Height=298
 Font=[Arial,8,0,0,1]
 Caption="АТ Терминал"
 BorderStyle=1
 Position=1
 Point(onClose)
 link(onCreate,12226412:doWork1,[(498,111)(498,76)])
 link(onClose,4901:doClose,[(502,118)(502,146)])
}
Add(Hub,96560,329,133)
{
 OutCount=3
 link(onEvent1,4901:doOpen,[])
 link(onEvent2,4901:doWrite,[(370,146)(370,160)])
 link(onEvent3,6032311:doEvent1,[(357,153)(357,265)])
}
Add(DoData,63129,448,217)
{
 Data=String(8)
 link(onEventData,12414700:doWork2,[])
 link(Data,4106459:Value,[])
}
Add(DoData,10850025,448,266)
{
 Data=Integer(255)
 link(onEventData,12414700:doWork3,[(501,272)])
}
Add(COM,4901,525,133)
{
 BaudRate=0
 link(onWrite,4106459:doValue,[(624,139)(624,209)(436,209)(436,174)])
 link(onRead,8085367:doAdd,[])
 link(Port,12226412:Var1,[])
 link(BaudRate,12226412:Var2,[])
}
Add(Sleep,5688535,406,266)
{
 Delay=100000
 link(onSleep,10850025:doData,[])
}
Add(RichEdit,8085367,585,140)
{
 Left=5
 Top=20
 Width=335
 Height=160
 ScrollBars=2
 InsertCRLF=1
}
Add(Hub,6032311,371,259)
{
 link(onEvent1,63129:doData,[(398,265)(398,223)])
 link(onEvent2,5688535:doSleepMks,[])
}
Add(HubEx,12414700,497,217)
{
 Angle=3
 link(onEvent,4901:doRead,[(501,167)])
}
Add(Memory,4106459,448,168)
{
}
Add(StatusBar,7090654,581,70)
{
 Panels=#10:Port: =100|13:Bitrate: =100|
}
Add(ChildForm,12226412,525,70)
{
 link(onEvent1,7090654:doText,[])
}
BEGIN_SDK
  Add(EditMulti,15810648,63,14)
  {
   EventCount=1
   WorkCount=2
   VarCount=2
   Width=426
   Height=277
   VOffset=10
   link(doWork1,6955960:doEvent1,[(220,30)(220,76)])
   link(doWork2,13267341:doShowModal,[(75,37)(75,69)])
   link(Var1,8132841:Value,[(69,196)(230,196)])
   link(Var2,8288448:Var1,[(76,229)])
  }
  Add(MainForm,13267341,168,35)
  {
   Left=35
   Top=105
   Width=342
   Height=178
   Visible=1
   Caption="Выбор порта "
   Position=1
   Point(doShowModal)
  }
  Add(Registry,1881658,273,35)
  {
   HKey=2
   Key="HARDWAREDEVICEMAPSERIALCOMM"
   Point(doEnumValues)
   Point(onEnumValue)
   link(onRead,6110522:doAdd,[(331,41)(331,69)])
   link(onEnumValue,1881658:doRead,[(316,48)(316,26)(261,26)(261,41)])
  }
  Add(ComboBox,6110522,364,63)
  {
   Left=25
   Top=49
   Width=125
   Height=21
   DataType=1
   ReadOnly=0
   Point(doSelect)
   Point(EditText)
  }
  Add(Delete,9460134,168,147)
  {
   Count=3
   link(onDelete,8132841:doValue,[])
   link(Str,8561531:Var1,[(174,131)])
  }
  Add(Memory,8132841,224,147)
  {
   link(onData,10759629:doEvent1,[])
  }
  Add(ComboBox,282208,273,161)
  {
   Left=165
   Top=50
   Width=130
   Height=21
   Strings=#4:9600|5:14400|5:19200|6:115200|
   ReadOnly=0
   Point(doSelect)
   Point(EditText)
  }
  Add(Label,25757,269,245)
  {
   Left=170
   Top=29
   Width=84
   Height=17
   Caption="Скорость порта"
  }
  Add(Label,3743,414,66)
  {
   Left=25
   Top=29
   Width=89
   Height=17
   Caption="Свободный Порт"
  }
  Add(Button,6646612,168,77)
  {
   Left=25
   Top=90
   Caption="Рескан"
   Point(onKeyUp)
   Point(onMouseUp)
   link(onClick,6955960:doEvent2,[])
  }
  Add(Button,10742335,70,140)
  {
   Left=170
   Top=90
   Caption="Ok"
   link(onClick,13344311:doEvent1,[])
  }
  Add(Hub,6955960,231,70)
  {
   InCount=2
   OutCount=3
   link(onEvent1,6110522:doClear,[])
   link(onEvent2,1881658:doEnumValues,[(258,83)(258,55)])
   link(onEvent3,16209626:doWork1,[(257,90)(257,120)(151,120)])
  }
  Add(MT_Add,14065630,420,245)
  {
   Data=Integer(0)
   link(onAdd,6151379:doWork3,[(475,251)])
  }
  Add(MT_Add,5706108,420,147)
  {
   Data=Integer(1)
   link(onAdd,6151379:doWork2,[])
  }
  Add(StrCat,10849745,371,245)
  {
   Str1="Bitrate: "
   link(onStrCat,14065630:doAdd,[])
   link(Str2,8288448:Var3,[(384,229)])
  }
  Add(StrCat,8575142,371,147)
  {
   Str1="Port: "
   link(onStrCat,5706108:doAdd,[])
   link(Str2,8561531:Var2,[])
  }
  Add(Hub,10759629,315,147)
  {
   link(onEvent1,8575142:doStrCat,[])
   link(onEvent2,10849745:doStrCat,[(338,160)(338,251)])
  }
  Add(GetDataEx,8288448,287,224)
  {
   link(Data,282208:EditText,[])
  }
  Add(HubEx,6151379,471,147)
  {
   Angle=3
   link(onEvent,15810648:onEvent1,[(475,30)])
  }
  Add(GetDataEx,8561531,378,126)
  {
   link(Data,6110522:EditText,[])
  }
  Add(Hub,13344311,119,140)
  {
   link(onEvent1,13267341:doClose,[(142,146)(142,62)])
   link(onEvent2,16209626:doWork2,[])
  }
  Add(HubEx,16209626,147,147)
  {
   link(onEvent,9460134:doDelete,[])
  }
END_SDK
Add(ChildForm,6203019,448,42)
{
}
BEGIN_SDK
  Add(EditMulti,2797194,21,21)
  {
   WorkCount=1
   Width=384
   Height=256
   link(doWork1,9081895:doVisible,[(45,27)(45,118)])
  }
  Add(MainForm,9081895,70,84)
  {
   Left=35
   Top=105
   Width=560
   Height=454
   Visible=1
   Caption="AT команды"
   Position=1
   Point(doVisible)
  }
  Add(Memo,15139464,210,70)
  {
   Left=5
   Top=30
   Width=540
   Height=380
   Strings=#34:У кого модем невидит карту памяти:|0:|43:AT^U2DIAG=0 (девайс в режиме только модем) |45:AT^U2DIAG=1 (девайс в режиме модем + CD-ROM) |61:AT^U2DIAG=255 (девайс в режиме модем + CD-ROM + Card Reader) |134:AT^U2DIAG=256 (девайс в режиме модем + Card Reader, можно использывать как обычную флешку, отказавшись от установки драйверов модема) |0:|0:|63:Разблокировка модема при помощи NCK кода посредством АТ команд:|0:|26:AT^CARDLOCK="<Ваш NCK код>|0:|0:|53:Для проверки баланса и просто для ввода USSD запроса:|0:|75:AT+CUSD=1,"#102#",15  - Проверка баланса на Beeline (Не у всех срабатывает)|0:|0:|15:Другие команды:|0:|43:ВКЛЮЧЕНИЕ 2G,3G. AT^SYSCFG=2,2,3fffffff,0,2|0:|41:При желании можно и приоритеты крутить:  |42:AT^SYSCFG=13,2,3fffffff,1,2 - только GSM  |50:AT^SYSCFG=2,1,3fffffff,1,2 - преимущественно GSM  |44:AT^SYSCFG=14,2,3fffffff,1,2 - только WCDMA  |51:AT^SYSCFG=2,2,3fffffff,1,2 - преимущественно WCDMA |0:|98:А также можно управлять диапазонами. Для этого вместо 3fffffff указываем нужные значения. Маски:  |22:00000080 - DCS(1800)  |22:00000100 - EGSM(900)  |21:00000200 - GSM(900)  |21:00080000 - GSM(850)  |22:00200000 - PCS(1900)  |24:00400000 - WCDMA(2100)  |26:3FFFFFFF - любые диапазоны|0:|0:|0:|8:Удачи...|0:|
   ScrollBars=3
  }
  Add(Label,9460265,133,35)
  {
   Left=152
   Top=5
   Width=246
   Height=17
   Caption="Небольшой список АТ команд для 3G модемов"
  }
END_SDK
Add(ChildGroupBox,8363984,269,133)
{
 link(onEvent1,96560:doEvent1,[])
}
BEGIN_SDK
  Add(EditMulti,1212204,21,21)
  {
   EventCount=1
   Width=181
   Height=137
  }
  Add(GroupBox,10186820,35,28)
  {
   Left=5
   Top=185
   Width=336
   Height=56
   Font=[MS Sans Serif,8,1,0,1]
   Caption="Передача"
  }
  Add(ComboBox,4833137,91,28)
  {
   Left=90
   Top=20
   Width=235
   Height=21
   Strings=#34:Введите текст или выберите команду|7:at+cimi|7:at+cgmi|6:at+csq|12:AT^U2DIAG=0 |13:AT^U2DIAG=1  |13:AT^U2DIAG=255|13:AT^U2DIAG=256|20:AT+CUSD=1,"#102#",15|20:AT+CUSD=1,"#100#",15|26:AT^SYSCFG=2,2,3fffffff,0,2|29:AT^SYSCFG=13,2,3fffffff,1,2  |26:AT^SYSCFG=2,1,3fffffff,1,2|27:AT^SYSCFG=14,2,3fffffff,1,2|26:AT^SYSCFG=2,2,3fffffff,1,2|0:|
   Text="Введите текст или выберите команду"
   Point(EditText)
  }
  Add(Button,1973678,35,98)
  {
   Left=5
   Top=20
   Width=75
   Caption="Отправить"
   link(onClick,9400134:doString,[])
  }
  Add(FormatStr,9400134,105,98)
  {
   Mask="%1
"
   link(onFString,1212204:onEvent1,[(182,104)(182,27)])
   link(Str1,4833137:EditText,[])
  }
END_SDK
Add(Menu,1226770,266,35)
{
 Menu=#5:Выход|9:Настройки|1:(|4:Порт|1:)|6:Помощь|1:(|10:АТ команды|11:О программе|6:Авторы|20:Проверить обновление|6:И т.д.|1:)|
 Point(onSelectNum)
 link(onSelectNum,6235872:doEvent,[])
}
Add(IndexToChanel,6235872,315,42)
{
 Count=5
 link(onEvent1,68149:doClose,[(397,48)(397,118)])
 link(onEvent3,12226412:doWork2,[(436,62)(436,83)])
 link(onEvent5,6203019:doWork1,[(397,76)(397,48)])
}