spinix-hive/pfth/time.fth

3 lines
72 B
Forth

: TIME CNT@ 100000 BEGIN 1 - DUP 0 = UNTIL DROP CNT@ SWAP - 8000 / . ;