input time delay

[Seb McClouth]

Code: Select all

Do
    A$=inkey$
    if A$ <> "" then
      CMD$ = CMD$ + A$
    end if
    locate y, 2: PRINT CMD$
loop until cmd$ = chr$(13) or ...

I need it this loop a time counter. Either you press any key within a certain amount of seconds or if you don't the loop stops after the certain amount of seconds. How can I achieve this?

grtz
Seb

[The Awakened]

Code: Select all

StartTime! = TIMER     'you could make it an integer if precise timing is not needed

Do
    A$=inkey$ 
    if A$ <> "" then 
      CMD$ = CMD$ + A$ 
    end if 
    locate y, 2: PRINT CMD$ 
loop until cmd$ = chr$(13) or TIMER - StartTime! < AmountOfSeconds

I still havn't finished the Kiwi Bird... damn that thing is hard to draw...

[Seb McClouth]

Well keep it up. You're getting there!!

grtz
Seb

[Michael Calkins]

You might put this inside the loop:

IF starttime! > t! THEN
'crossed midnight, timer went to 0
starttime! = starttime! - 86400
END IF

Regards,
Michael

[The Awakened]

Yeah, I didn't include the midnight error handler because I knew he got it from another thread.