\ simple clock hs 09.02.95
task: clock
: do-clock
	multi clock activate multi
	begin	single at?
		0 #columns d# 13 - at  .now
		at  multi d# 1000 ms
	again ;
do-clock
