das mit links recht funktioniert jetzt schon. doch ich muss die tasten immer 2 mal drücken damit ich ein Ergebnis bekomme. was muss ich da noch ändern?
Do
Servo(1) = I


Key = Getatkbd()
If Key = 56 Then
Print "Taste " ; Chr(key) ; " (" ; Key ; ")" ; " I=" ; I
I = I + 1

End If

Key = Getatkbd()
If Key = 50 Then
Print "Taste " ; Chr(key) ; " (" ; Key ; ")" ; " I=" ; I
I = I - 1

End If


Loop