ちょっとおまけ。 最初のほうの変数定義で VAR VP=0,DP=1 このように追加。 DEF REDRAWの最後に SWAP VP,DP GPAGE VP,DP この2行を追加するとちらつかなくなります。