\ simple clock hs 09.02.95
task: clock
: do-clock
	multi clock activate single
	begin	1000 ms at-xy? #columns d# 9 -  0 at-xy  .now
		at-xy  
	again ;
do-clock
: (cold-hook	(cold-hook	do-clock ;
' (cold-hook is cold-hook

