7 lines
179 B
Text
7 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" ;
|