Acls '初期設定に戻します Widch 16 '文字を大きくします ?"7のタイミングでボタンをおしてね" '文字表示します While (Button(2) And #A)==0 'ループの開始。Aが押されたら抜けます Locate 0,1 '文字の表示位置を指定します ?S '変数Sの値を表示します Vsync '少し待ちます Inc S '変数Sに１を足します If S==10 Then S=0 '変数Sが10になったら0にします Wend 'ループの終了 If S==7 Then ?"あたり！" Else ?"はずれ…" '7なら「あたり！」、それ以外なら「はずれ…」と表示します Vsync 300 End 'プログラムを終了します ' 「'」という文字以降はただの説明なので、実際に打つときは省いていいです