Step.7 線を引く
今回は画面に線を引く方法を覚えましょう。ただするだけでは面白くないので、マウスで線が引けるようにします。
*main
getkey a,1
if a=1 : line mousex,mousey
wait 1
goto *main
getkey a,1
if a=1 : line mousex,mousey
wait 1
goto *main
まずは簡単な命令から見ていきましょう。waitは少しの間処理を止める命令です。終了するまでループし続ける中には欠かせません。これがないと(実験してみないほうがいいと思いますが)プログラムが応答しなくなります。
mousexとmouseyは現在のマウスの位置を示すものです。便利なので覚えておくといいでしょう。
getkeyはキーが押されているかどうか調べる命令です。キーというのはキーボードだけではなくマウスのクリックも含みます。もし押されていれば指定している変数に1、そうでなければ0が代入されます。
最後になってしまいましたがlineは線を引くための命令です。本来は"line 0,0,10,10"と4つ変数を持たせるのですが、2つしかない場合は現在のカレントポジションから指定した位置にまで線を引くことになります。