Probier mal das. Fehlt noch die LCD init...
Code:
$hwstack = 32
$swstack = 10
$framesize = 40

Dim B As Byte
Dim Empfang As String * 20


Do
B = Inkey()
If B <> 0 Then
   If B = 13 Then
      If Left(empfang , 4) = "+CMGL" Then
          nop
      Else
         Cls
         Locate 1 , 1
         Lcd Empfang
      End If
      Empfang = ""

   Else
      If B <> 10 Then
         Empfang = Empfang + Chr(b)
      End If
   End If

End If


Loop

End