Re: [U2] Timed INPUT [UV]

[Robert Stearns]

Thanks a lot. Does this hang forever after the user types one character, 
waiting for a CR? Can I "cure" this problem by making the second input 
statement
input aCharacter,1
and then concatenating until aCharacter=char(13)?

Clifton Oliver wrote:
      waitTime = 10 ;* in seconds
      napDuration = 500 ;* in milliseconds, whatever is appropriate
      promptCharacter = system(26)
      crt promptCharacter:
      startTime = time()
      loop
         input characterPresent, -1
         now = time()
         if characterPresent then
            prompt ""
            input theData
            prompt promptCharacter
            thenClause = @true
            exit
         end else
            if now >= (startTime + waitTime) then
               thenClause = @false
               exit
            end
         end
         nap napDuration
      repeat
      if thenClause then
         crt "Input received."
      end else
         crt "No input seen."
      end
   end
-------
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users