while 1 locate 0,0 print mid$(time$,0,4) wait 60 wend