あとこんなのも ソラで書いているが、たぶん動くはず acls dim mx[16],my[16] spset 0,0:x=100:y=200 my[#up or #left]=-1:my[#up]=-1:my[#up or #right]=-1 my[#down or #left]=1:my[#down]=1:my[#down or #right]=1 mx[#left or #up]=-1:mx[#left]=-1:mx[#left or down]=-1 mx[#right or #up]=1:mx[#right]=1:mx[#right or #down]=1 '定数でもいいのだが計算がめんどくさい while 1 b=button() and 15 x=x+mx[b]:y=y+my[b] spoft 0,x,y wend