screen 0,200,200 ;ウインドウ0の大きさを変更 repeat ;繰り返しの始め getkey key,1 ;キー番号1のキーが押されたらkeyに1を入力 if key=1:pset mousex,mousey ;keyが1だったら x座標mousex,Y座標mouseyの位置に ;1ドットの点を表示 await 1 ;待つ loop ;repeatヘ戻る