Mein ungetesteter Ansatz:
Code:$baud = 9600 Dim Pos As Byte Dim Led(126) As Byte Dim B As Byte Do If Ischarwaiting() = 1 Then B = Inkey() If B >= 48 Then Incr Pos Led(pos) = B And &B00000001 'Nur 0 und 1 erlaubt Else 'chr13 oder chr10,... Pos = 0 End If If Pos >= 126 Then Pos = 0 'Überlauf verhindern End If Loop End
Lesezeichen