Danke Robert, es funktioniert.
So schauts jetzt aus:


....
************************************************** ***********
'--- LCD Löschen
Cls
Wait 1
'-------------------------------------------------------------------------------
Dim Stest As String * 20
Dim S As Word
Dim Bp As Byte

On Urxc Onrxd
Enable Urxc
Enable Interrupts

'-- at&f BEFEHL zum reset
Print "at&f"
'Als Antwort vom Handy kommt: => AT&FCRCRLFOKCRLF
Wait 1
'--Länge des Strings "Stest" => S=11
S = Len(stest)
'--Pos von "OK" im String "STEST" // Achtung Großschreiben!// Pos=8
Bp = Instr(stest , "OK")

'-- Nur zum Anzeigen am LCD
Locate 1 , 1
Lcd "Stest=: " ; Stest '-- STEST=a t & f cr cr lf o k cr lf
Wait 1

Locate 4 , 1
Lcd "Bp=" ; Bp ' Position Bp=8
Wait 1

Locate 4 , 7
Lcd "S=" ; S ' S=11
Wait 1
Return

'-- Zeichen vom USART holen und zu String zusammenstellen in Stest
Onrxd:
Stest = Stest + Chr(udr)
Return
'************************************************* ***********

-----------------------
Gruß Hans