ACLS WHILE 1 Q=Q+1 LOCATE 0,0?Q WEND これでもずっと+1されますよ。 Q=0はしなくても、ACLSで、変数の中身がリセットされています。