Jak wydać komendę AT, by uniknąć napisu Dane na Siemens C35?

$regfile = "m128def.dat"
$crystal = 8000000

Dim I As Byte
Dim J As Byte
Dim I1 As Byte
Dim J1 As Byte
Dim Pdu_len As Byte
Dim Smslen As Byte
Dim K As Byte
Dim K1 As Byte
Dim K2 As Byte
Dim K3 As Byte
Dim K4 As Byte
Dim Jj As Byte
Dim Txt As String * 320
Dim Pdutest As String * 320
Dim X As String * 2
Dim X1 As String * 2
Jj = 0
'convert smstxt to pdu
Do
   J = Lookup(jj , Smstxt)
   Incr Jj
Loop Until J = 0
Smslen = Jj - 1

Pdutest = ""
I = 0
J = 1
Do
   K1 = Lookup(i , Smstxt)
   K2 = Lookup(j , Smstxt)
   K = I Mod 8

   Shift K1 , Right , K
   K = 7 - K
   Shift K2 , Left , K
   K1 = K1 + K2
   Print Hex(k1);
   Pdutest = Pdutest + Hex(k1)
   Incr I
   Incr J
   If K = 1 Then
     Incr J
     Incr I
   End If
Loop Until I >= Smslen


 'convert(pdu)  to text
Print ""
 Jj = 0
 I = 0
 J = 1
 I1 = 1
 J1 = 3

 Pdu_len = Len(pdutest)
 Pdu_len = Pdu_len / 2
Do
   X = Mid(pdutest , I1 , 2)
   X1 = Mid(pdutest , J1 , 2)
   K1 = Hexval(x)
   K2 = Hexval(x1)

   K = I Mod 7
   K3 = K1

   If K = 0 Then K1 = K1 And 127
   If K = 1 Then K1 = K1 And 63
   If K = 2 Then K1 = K1 And 31
   If K = 3 Then K1 = K1 And 15
   If K = 4 Then K1 = K1 And 7
   If K = 5 Then K1 = K1 And 3
   If K = 6 Then K1 = K1 And 1

   Jj = K + 1

   Shift K1 , Left , K

   K = 7 - K
   Shift K3 , Right , K

   If K = 7 Then
    Print Chr(k1);
   Else
    K1 = K1 + K4
    Print Chr(k1);
   End If

    If K = 1 Then
   Print Chr(k3);
   K3 = 0
   End If
   K4 = K3

    I1 = I1 + 2
    J1 = J1 + 2
    Incr I
   Incr J


Loop Until I >= Pdu_len
End

Smstxt:
Data "OK"' Bascom Users Now I Can Convert Smsmsg From Text > Pdu And From Pdu > Text Can You Make It More Simple In The Code Print "

Odczytaj_uart:
  Bufor = Ischarwaiting()     'Sprawdz czy bufor pełny
     If Bufor = 1 Then Gosub Odczytaj_sprzetowy_uart
 Return
   
Odczytaj_sprzetowy_uart:
Uart_txt = ""
Do                            'Odbierz znak po znaku
  Kod = Inkey()
  Uart_txt = Uart_txt + Chr(kod)       'Zapisz w Uart_txt
  Bufor = Ischarwaiting()     'Zakoncz jeśli CR lub brak znaku
Loop Until Bufor = 0 Or Kod = 13
Return  

Oproznij_bufor:
Do
   Kod = Inkey()              'Czyści bufor
   Bufor = Ischarwaiting()
Loop Until Bufor = 0
Return

Dim Kod As Byte
Dim Bufor As Byte
Dim Uart_txt As String * 200 'W zależności od potrzeb

Inicjuj:
Cls : Lcd "Inicjuje"
  Waitms 100
  Print "ATX0" ; Chr(13)      'Odpowiadaj
  Waitms 100
  Print "ATZ" ; Chr(13)       'Ustaw domyślnie
  Waitms 100
  Print "ATE0" ; Chr(13)      'WYLACZ ECHO
  Waitms 100
  Print "AT+CLIP=1" ; Chr(13) 'Wlaczanie prezentacji numeru
  Waitms 100
  Print "AT+CNMI=1,1,0,2" ; Chr(13)       'Wysyłanie informacji o nadejściu sms'a
  Waitms 100
  Gosub Oproznij_bufor

Cls : Lcd "Koniec inicjacji"
   Wait 1
Return