Cobol key trapping

Is there a way to apply some kind of timeout to the "ACCEPT" function in cobol...

the use I'm looking for is keytrapping... I've been able to handle timed events... the next step is keytrapping... I hope somebody finds a way for it... my guess is that ACCEPT function... :confused:

:wave:

*bump?*

To clarify

I'm looking for some way to apply a timeout on the accept function... or some way to proccess simultaneously, parallely or with timed events in parallel an input...

either similar to inkey$ in QB, or an input that is timed...

:ehh: