GSM Modem probleme

Hallo

Ich hoffen jemand kann mir sagen was ich falsch mache. Ich will mit einem GSM Modem SMS verschicken. Senden geht auch alles ganz prima ich möchte nun aber gerne die Antwort des Modems auswerten. Ich habe den Großteil aus einem Buch abgeschrieben muss aber noch ein Fehler drinn sein es geht einfach noch nicht.

Vielen dank

Code:

---

$crystal = 4000000
$baud = 9600
$regfile "m16def.dat"


Declare Function Read_gsm(byval Mask As String) As Byte

Config Serialin = Buffered , Size = 40

Enable Interrupts

Dim Status As Byte


Config Porta = Output
Config Portc = Output






Toggle Porta.0          'GSM Modem einschalten                             
Waitms 1000
Toggle Porta.0




Do



    Print "AT"

    Status = Read_gsm( "OK")

    If Status <> 0 Then



        Portc.6 = 1
        Wait 1
        Portc.6 = 0

        Else

        Portc.7 = 1
        Wait 1
        Portc.7 = 0


      End If

      Wait 4


Loop
End


 Function Read_gsm(byval Mask As String) As Byte

 Local In$ As String * 20
 Local C As Byte


  In$ = ""
  Wait 1
  While Ischarwaiting() <> 0
  C = Inkey()
  In$ = In$ + Chr(c)
  Wend

  Read_gsm = Instr(in$ , Mask)

 End Function

---

Welches 'Handy' benutz Du ?

In Deinem Buch ? ist von Siemens die Rede !

Gento

das modem ist das GM862 von Telit kann aber die gleichen AT-Befehle. Ich konnte das natürlich schon mit einer Hyperterminal testen.