$regfile = "m8def.dat"
$crystal = 16000000
$baud = 38400

On Urxc Rs232int
Enable Urxc
Enable Interrupts



Rs232int:
If Udr = 13 Then 'return?

Instring = Buf + Chr(udr)
Bc = Len(instring)
Bc = Bc - 1
Instring = Mid(instring , 2 , Bc)



Buf = ""
'Print "instring: " ; Instring


Else
Buf = Buf + Chr(udr)

'add to buffer
End If

Return


Nur so ca. halt lässt sich noch vereinfachen in Instring steckt dann die der aktuelle Inhalt der bis zum letztn Chr(13) gekommen ist

Fehlen halt noch die Dims der Variablen aber das wirst du hinbekommen oder?