RosettaCodeData/Task/Keyboard-input-Flush-the-keyboard-buffer/M2000-Interpreter/keyboard-input-flush-the-keyboard-buffer-2.m2000
2023-07-01 13:44:08 -04:00

10 lines
237 B
Text

Module checkit {
Print "You have 3 seconds to write your name (press enter)"
After 3000 {
Input End
}
Input "Your name:", A$
If A$="" Then Print "Not Ready" : Exit
Print "Ok:";A$
}
Checkit