PRINT
PRINT "＜ １２分計  タイマー機能付き ＞"
PRINT
SET WINDOW -1.2,1.2,-1.2,1.2
SET TEXT JUSTIFY "center","half"
DEF agl(p,q)=PI/2-2*PI*p/q      ! 円周上をＹ軸から時計まわり
DIM W$(2)
LET W$(1)="  スタート"
LET W$(2)="  終了"
10 INPUT PROMPT "タイマーは何秒間にセットする？ ":TT
   PRINT
   LOCATE CHOICE(W$):k
   IF k=1 THEN GOTO 20
   IF k=2 THEN GOTO 30
20 LET t0=TIME
   DO WHILE TT>ss
      LET t1=TIME
      LET ss=t1-t0
      SET DRAW mode hidden     ! ちらつき防止
      CLEAR
      FOR i=1 TO 12            ! 文字の配置
         LET th=agl(i,12)
         PLOT TEXT ,AT COS(th),SIN(th): STR$(i)
      NEXT i            
      SET LINE width 4
      LET th=PI/2-INT(ss/60)*PI/6 !分針
      PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
      SET LINE width 1
      LET th=PI/2-INT(ss)*PI/30 !秒針
      PLOT LINES: 0,0; 0.9*COS(th),0.9*SIN(th)
      SET DRAW mode explicit
   LOOP
   BEEP 1300,100
   GOTO 10
30 PRINT
   PRINT "このプログラムは終了しました。"
END