1049 行目 var c=x*8, u=y*8 1060行 var l=len(prt$) 1070行 var x,y:for x=ex-8[略] の方がいいのでは? 1072 hf=(mx==x)&&(my==y) の方が速くなります。 hf は gphit の戻り値かな? であれば 1070 に var hf 追加。