WC=#GRAY:IF SYS_TSK_CTID==SYS_TSK_NOW THEN WC=WINDOW_COLOR WX=SYS_TSK_X[SYS_TSK_NOW]:WY=SYS_TSK_Y[SYS_TSK_NOW] GFILL WX,WY,WX+72,WY+7,WC こうすると647～651はスッキリするかなぁ。他の部分もWX,WYで 置き換えをすると配列変数への参照が減って実行速度も上がります。