6 lines
179 B
Text
6 lines
179 B
Text
: sleep ( n- )
|
|
[ time [ time over - 1 > ] until drop ] times ;
|
|
: test
|
|
"\nTime to sleep (in seconds): " puts getToken toNumber
|
|
"\nSleeping..." sleep
|
|
"\nAwake!\n" ;
|