Ich schreibe gerade andersrum was Delphi > Mega 32:

Auszug wo 8 Werte eingelesen werden sollen mit Bestätigung/Echo.
------------------------------------

For A = 1 To 8 'Empfangsarray auf 0
Datenfeld(a) = 0
Next A
Charzaehler = 0
Timeout = 0
Do
Hole_char = Ischarwaiting() 'RS232 auf Daten abfragen
If Hole_char = 0 Then 'keine Daten da
Waitms 1
Incr Timeout
Else
Hole_char = Inkey() 'Daten lesen
Print Chr(hole_char) 'bestätigen
Incr Charzaehler
Datenfeld(charzaehler) = Hole_char
Timeout = 0
End If
If Timeout > 100 Then Exit Do 'Timeout erreicht ?
Loop Until Charzaehler > 7 'Alle Werte eingelesen ?

-----------------------------------
if charzaehler < 8 then fehler

mit 100 mSek timeout

Gento