; ; 画像をボタンにする ; buffer 1 ; 画像を事前に読み込んでおく場所の番号 picload "flower1.jpg" ; 画像を読み込んで、bufferに入れておく screen 0,640,480 ; ウインドウの初期化 0番、ウインドウの大きさの指定 ; bufferを使って画像を読み込んだときは、明示的にウィンドウを指定する pos 300, 200 ; ボタンの位置 objsize 180,180 ; ボタンにする画像のサイズ(大きな画像を読み込んでおいて、その一部を ;  ボタンとして使用することもできる。) objimage 1 ; ボタン画像の指定をする。最初の番号が buffer番号 ;objimage 1, 0,0, 0,1, 0,2 ; ボタン画像の指定をする。 ; 最初の番号が buffer番号 ; 次の数字の組み合わせが、表示する画像の中の左上の位置 ; その次の数字の組み合わせが、ボタンを押したときの位置 ; 最後の数字の組み合わせが、ボタンの上にマウスが来たときの位置 button gosub "", *say ; ボタン命令で、上で設定した画像がボタンとして使われる。 stop *say mes "Hello!" return