SPSET0,500 WHILE STICE OUT XX,YY X=X+XX Y=Y-YY SPOFS0,X,Y VSYUC 1 WEND これでどうですか？