5 lines
82 B
Forth
5 lines
82 B
Forth
|
|
: time ( a -- n )
|
|
abort" argument not supported"
|
|
utime #1000000 um/mod nip ;
|