他の処理はできないけど CLS:I=0:WHILE 1 LOCATE 0,0:?I WAIT 60:I=I+1 WEND でできる。他の処理するなら、皆さんがいっているようにどうぞ。