# A simple clock
proc main
while 1
	print [format "~FY%s, ~FG%d %s %d, ~FT%s\r" \
	              [gettime dayname] \
	              [gettime mday] \
	              [gettime monthname] \
	              [gettime year] \
	              [gettime time]] \

	# Beep if we're on the 15 minutes.
	if [gettime secs]=0 and [member "0 15 30 45" [gettime mins]]
		print [format "\a\r"]
	endif
	sleep 1
wend
endproc