Hallo,
bräuchte nochmal eure Hilfe:
Ich bekomme bei folgendem Code immer Fehlermeldungen, was muss ich also ändern, damit Bascom die ankommenden Bytes in die Variable mit Index schreibt!

Sub Getframe
Do
Bz = Bz + 1
Input = Inbuf(bz)
Waitms 100
Loop Until Bz < 4
Checkframe
End Sub

der Orginalcode:

Sub GetFrame()

LCD_ClearLCD()
Zeile1 = "READ "
LCD_Locate(1,1) : LCD_WriteText(Zeile1)

Do
BZ = BZ + 1
InBuf(BZ) = Serial_ReadExt(0)
LCD_Locate(2,1) : LCD_WriteWord(BZ,1)
LCD_Locate(2,4) : LCD_WriteWord(InBuf(BZ),3)
AbsDelay(1000)
Loop While BZ < 4

CheckFrame()

End Sub

Vielen Dank schonmal!