# 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