SET WINDOW 0,100,0,100
PRINT
PRINT "プログラム終了は、"
PRINT "画面を左クリックです。"
PRINT
PRINT "カウントダウンします。"
PRINT
INPUT PROMPT "何秒間？ ( 99以下 ） ":T
SET TEXT font "MS ゴシック",38
PLOT TEXT ,AT 10,70:"カウントダウン"
DO UNTIL left=1 OR T=0
   MOUSE POLL x,y,left,right
   LET Q$=STR$(T)
   SET TEXT background "OPAQUE"
   SET TEXT font "MS ゴシック",80
   IF T<4 THEN BEEP 650,100
   IF T<10 THEN
      PLOT TEXT ,AT 20,45: "  "
      PLOT TEXT ,AT 30,45: Q$
   ELSE
      PLOT TEXT ,AT 20,45: Q$
   END IF
   SET TEXT font "MS ゴシック",60
   PLOT TEXT ,AT 44,47: "秒"
   WAIT DELAY 1
   LET T=T-1
LOOP
BEEP 1300,100
SET TEXT font "MS ゴシック",80
PLOT TEXT ,AT 30,45: "0"
PRINT
PRINT "このプログラムは終了しました。"
END