説明省いたVer Acls Widch 16 ?"7のタイミングでボタンをおしてね" While (Button(2) And #A)==0 Locate 0,1 ?S Vsync Inc S If S==10 Then S=0 Wend If S==7 Then ?"あたり！" Else ?"はずれ…" Vsync 300 End