suuzi=1 kazu=0 randomize rnd kazu,10 mes "数値を入力してください。" *main input suuzi button "よし!",*hantei stop *hantei cls if 9<suuzi: mes "1から9までですよ。"goto*main if 1>suuzi: mes "1から9までですよ。"goto*main if kazu>suuzi:mes"もっと大きいよ。"goto*main if kazu<suuzi:mes"もっと小さいよ。"goto*main if kazu=suuzi:mes"あったりー!"