while 1 locate 0,0 print time$ wait 60 wend