といいつつ、やってみたらわりと簡単に直せたので、一応プログラムを書いておきます。ちょっと楽になるかな？ ・412行を「MZ=8*4」に変更。 ・611行を「IF D2<3 AND YF==0 THEN IF D3>=3 THEN MX=PMX ELSE IF D4>=3 THEN MZ=PMZ ELSE MX=PMX:MZ=PMZ」に変更。 ・610行に以下を挿入。CX3=PMX/16:CY3=MY/16:CZ3=PMZ/4:D3=DPT[CX3,CZ2]:D4=DPT[CX2,CZ3]