All pastes #741470 Raw Edit

Stuff

public text v1 · immutable
·published 2007-10-18 18:52 UTC
rendered paste body
: ss ( u --> )
     >R 0 ( либо вместо нуля 2000 ms ahead  либо проверка внутри цикла) 
     intcnt off -1
     BEGIN IF 2000 ms ahead THEN
           intcnt @ DUP R@ < WHILE
                    SWAP timeout? THROW drop
           TUCK -
         10 ms sleep
     REPEAT RDROP 2DROP ;