最新のショウ(*'ω'*)さんのコメントへ ACLS VAR SX,SY,X,Y SX=25:SY=15 WHILE 1 WAIT 1 CLS LOCATE SX,SY PRINT"P" STICK OUT X,Y SX=SX+X:SY=SY-Y WEND でできると思います。