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