Program post site for everyone
ひらがなは、カタカナでいいよ。
０〜１００００時間の数を入れる。Enter
０〜１００００分の数を入れる。Enter
０〜１００００秒の数を入れる。Enter
０.１〜０.９秒の数を入れる。Enter
タイマーが始まる
画面に残り時間が表示される。
時間が来たら アラーム音として、ランダムに、BEEP音が鳴る。
10 cls:input "なんじかん?",a:input "なんﾌﾝ?",b:input "なんﾋﾞｮｳ?",c:input "0.なんびょう?",d 20 cls 21 if a<10 lc 11,12:?"0"; 22 ?a;":"; 23 if b<10 ?"0"; 24 ?b;":"; 25 if c<10 ?"0"; 26 ?c;":"; 27 if d<10 ?"0"; 28 ?d; 30 wait 6:if c=c>60 b=b+1 40 d=d-1 50 if d<0 c=c-1:d=9 60 if c<0 b=b-1:c=59 70 if b<0 a=a-1:b=59 80 if a=0 and b=0 and c=0 and d=0 goto 100 90 goto 21 100 k=inkey() 110 beep rnd(11): wait 5 120 copy #900,rnd(#d00),768 130 if k=32 then end 140 goto 100
