画面右端から1ピクセル左にずれた位置に垂直線を描画します。画面右端から2ピクセルずれた位置に垂直線を描画します。文(ループ)最後の繰り返し処理になります。仕様)垂直線が右端から左端まで移動するように見えるはずです。グラフィックス画面消去を行わないなら、画面が垂直線で埋められ最後は画面が真っ黒になるはずです。プログラムを実行して確かめてみます。縦線が左に移動してゆきます。移動中に何かキーを押している間は、縦線の移動が止まります。左端まで移動すると止まります。グラフィックス画面の消去動作を伴うことが確認できました。座標系設定変数の動作について、もう少し詳しく調べて見るために、わざとエラーが出る条件を探すために、次のプログラムを実行してみます。座標系の横幅を狭くして垂直線を描画しています。