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

