Hi,
arg unsauber:

For n = 1 To 500
Eingang = Inkey()
If Eingang <> 0 Then
gosub daten_auswerten
End If
Next n
Incr adr

Inkey wird eine Zeit lang abgefragt.
Eben so lange wie es dauert es 500 mal abzufragen.
Je nach Taktfrequenz und gewünschter Wartezeit müsstest du unterschiedliche Werte ausprobieren )
Tut sich in der Zeit nix, kommt also kein Byte an, dann wird die Adresse erhöht

Gruß
Christopher