IF KJ==1 THENからそのIFのENDIFまでです。 ATH関数は DEF ATH(BGLAYER,X1,X2,Y1,Y2) _A=BGGET(BGLAYER,X1,Y1,1) _B=BGGET(BGLAYER,X1,Y2,1) _C=BGGET(BGLAYER.X2,Y1,1) _D=BGGET(BGLAYER,X2,Y2,1) RETURN (_A+_B+_C+_D) END で定義してます。ここから分かる事とかありますか？