[BASCOM] Siemens C35, AT+CMGS, tryb PDU – brak wysyłki SMS, terminal nie reaguje na Ctrl+Z

sygal=input()

 dim sygnal as string*4
    ...
    ...
    sygnal=input()
    if sygnal=ring then
    ...
    ...

$regfile "m32def.dat"
$crystal = 16000000
$baud = 19200



Config Portb.0 = Output
Config Portb.1 = Input
Config Portb.2 = Input

Declare Sub Sms_pozar
Declare Sub Sms_zebranie
Declare Sub Odbior

Dim Powiadom As Bit
Dim Bufor As Byte
Dim Pozycja As Byte
Dim Uart As String * Cmaxchar
Dim Numer As String * Cmaxchar


Const Wezwanie1 = "111111111"
Const Wezwanie2 = "111111111"
Const Wezwanie3 = "111111111"

Reczne_alarm Alias Pinb.1
Reczne_zebranie Alias Pinb.2
Syrena Alias Portb.0


Reset Portb.0
Reset Portb.1
Reset Portb.3


Wait 2
Print "AT" ; Chr(13) ;
Waitms 100                                                  'inicjalizacja modemu
Print "AT" ; Chr(13) ;
Waitms 100
Print "ATE0" ; Chr(13) ;                                    'wyłaczenie echa
Waitms 100

Wait 1


'----------------PETLA GLOWNA------------------'
Do
    If Reczne_alarm = 1 Then                                'wlaczenie alarmu w sterowniku syreny
         Gosub Sms_pozar
    End If

    If Reczne_zebranie = 1 Then                             'wlaczenie zebrania w sterowniku syreny
         Gosub Sms_zebranie
    End If


   If Powiadom = 1 Then
      Gosub Sms_pozar
   End If


   Bufor = Ischarwaiting()                                  'oczekiwanie na jakis znak z UART'u
      If Bufor = 1 Then
      Gosub Odbior
      End If



Loop
End


'----------------------WYSYŁANIE POWIADOMIEN "POZAR"-----------------'
Sms_pozar:
Waitms 100

Print "At + Cmgs = 21" ; Chr(13) ;
Waitms 500
Print "000100098106346xxxf3000012c427485a6c26b5591708fad406a5a110" ; Chr(26) ; Chr(13):
Wait 3

Print "At + Cmgs = 21" ; Chr(13) ;
Waitms 500
Print "000100098196688xxxf2000012c427485a6c26b5591708fad406a5a110" ; Chr(26) ; Chr(13):
Wait 3
Reset Powiadom
Return





'----------------WYSYŁANIE POWIADOMIEN "ZEBRANIE"------------'
Sms_zebranie:
Waitms 100

Print "AT+CMGS=22" ; Chr(13);
Waitms 500
Print "000100098106346090F3000014C427485A6C26B55917485B144A83CE64D105" ; Chr(26) ; Chr(13);
Wait 3

Print "AT+CMGS=22" ; Chr(13);
Waitms 500
Print "000100098196688958F2000014C427485A6C26B55917485B144A83CE64D105" ; Chr(26) ; Chr(13);
Wait 3
Return





'----------------------ODBIOR ZGLOSZENIA---------------------'
Odbior:
Input Uart Noecho                                           'odebranie danych z UART'u
   Pozycja = Instr(uart , ":")                              'szukanie dwukropka
   If Pozycja > 0 Then                                      'jezeli znaleziono
      Numer = Mid(uart , Pozycja , 11)                      'wyodrębnienie numeru z "+CLIP: +48XXXXXXXXX,145"
      If Numer = Wezwanie1 Or Numer = Wezwanie2 Or Numer = Wezwanie3 Then       'jeżeli numer zgadza sie z numerami zadanymi to wykonaj
      Print "ATH"                                           'odrzuc połączenie
      Waitms 50
         Set Syrena                                         'wyslij do drugiego procka rozkaz włączenia syreny
         Waitms 500
         Reset Syrena
         Set Powiadom                                       'ustaw flage zezwalającą na wysłanie sms
      End If
   End If
Return                                                      'jezeli w ciagu znakow nie pojawil sie wlasciwy numer telefonu
                                                            ' to inne znaki sa ignorowane przez uc