home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
f
/
forthmac
/
!Forthmacs
/
lib
/
clock
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1997-04-12
|
238 b
|
14 lines
\ simple clock hs 09.02.95
multi
task: clock
: do-clock
multi clock activate
begin single at-xy?
#columns d# 9 - 0 at-xy .now
at-xy multi d# 1000 ms
again ;
do-clock
: (cold-hook (cold-hook do-clock ;
' (cold-hook is cold-hook