GetatKybd wartet, bis eine Taste gedrückt wird.
Wenn also NICHT 56, dann liest er nochmal.
Vorschlag:
Code:
do
    Key = Getatkbd() 
    If Key = 56 Then 
       Print "Taste " ; Chr(key) ; " (" ; Key ; ")" ; " I=" ; I 
       I = I + 1 
    End If 
    If Key = 50 Then 
       Print "Taste " ; Chr(key) ; " (" ; Key ; ")" ; " I=" ; I 
       I = I - 1 
    End if

loop
Gleichzeitig 50 + 56 kannst du eh nicht drücken