input with non Blocking

[svenulm31]

meinst du das so ? die 13 kannst du durch jeden anderen tastaturcode ersetzten

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

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

Print "Enter getrückt"

End