input with non Blocking

[svenulm31]

oder auch so

$regfile = "m8def.dat"
Dim A As Byte

Do
A = Inkey()
If A = 65 Then Exit Do
Loop

If A = 65 Then Print "Taste GROß A gedrückt"

End