SELECT nGSM
        CASE C_Exo_1
            STR Buff = "ATE0",13  ' отключаем эхо
            Lengh_text = 5     ' длина сообщения
        CASE C_Otvet_2
            STR Buff = "ATV1",13  ' полный ответ (не цифрами)
            Lengh_text = 5
        CASE C_CodErr_3
            STR Buff = "AT+CMEE=1",13  ' +CME ERROR в цифровом виде
            Lengh_text = 10
        CASE C_Txt_4
            STR Buff = "AT+CMGF=1",13  ' включаем "TXT" формат
            Lengh_text = 10
        CASE C_Gsm_5
            STR Buff = "AT+CSCS=",$22,"GSM",$22,13 ' кодировка "GSM"
            Lengh_text = 14
        CASE C_SmsCon_6
            STR Buff = "AT+CNMI=2,2",13 ' выводим СМС в консоль
            Lengh_text = 12
        CASE C_OfSms_7
            STR Buff = "AT+CSCB=1",13  ' запрещаем сообщения сети оператора
            Lengh_text = 10
        CASE C_Number_8
            STR Buff = "AT+CLIP=1",13 ' отображать номер телефона входящего звонка
            Lengh_text = 10
        CASE C_DelSms_9
            STR Buff = "AT+CMGD=4",13 ' удаляем все сообщения
            Lengh_text = 10
        CASE C_Reg_10
            STR Buff = "AT+CREG?",13 ' запрашиваем регистрацию в сети
            Lengh_text = 9
        CASE C_Signal_11
            STR Buff = "AT+CSQ",13 ' запрашиваем уровень сигнала
            Lengh_text = 7
        CASE C_OfCall_12
            STR Buff = "ATH",13  ' положить трубку 
            Lengh_text = 4
        CASE C_Sms1_13
            STR Buff = "AT+CMGS=",$22,"+",PN[0],PN[1],PN[2],PN[3],PN[4],PN[5],PN[6],PN[7],PN[8],PN[9],PN[10],$22,13
            Lengh_text = 23
            INC No_send          ' увеличиваем счетчик ошибок отправки сообщений
        CASE C_Sms2_14
            STR Buff =  "CH_1: " ,TxtCh_0,10,_   ' само сообщение MAX 140 символов
                        "CH_2: " ,TxtCh_1,10,_   ' отправляем за 2 захода
                        "CH_3: " ,TxtCh_2,10,_
                        "CH_4: " ,TxtCh_3,10
            Lengh_text = 32 : CALL Send_rs
            STR Buff =  "Sec: " ,TxtSe_0,TxtSe_1,10,_
                        "Pow: " ,TxtPw_0,TxtPw_1,10,_
                        "T_1: " ,TxtT1_2,TxtT1_1,TxtT1_0," C",10,_
                        "T_2: " ,TxtT2_2,TxtT2_1,TxtT2_0," C",10,_
                        "T_3: " ,TxtT3_2,TxtT3_1,TxtT3_0," C",10,_ 
                        "Gsm: " ,TxtGs_1,TxtGs_0,26,13
            Lengh_text = 58
        ENDSELECT
	IF nGSM <= C_Sms2_14 THEN CALL Send_rs ' команда на отправку сообщения