SCREEN 12
CLS
'画边框
CIRCLE (320, 240), 210, 9
FOR i = 0 TO 330 STEP 30
  PRESET (320, 240): DRAW "ta" + STR$(-i) + "bu202c9u8"
NEXT i

shi = 0: fen = 0: miao = 0
DO
  timenow$ = TIME$
  DO
  LOOP UNTIL timenow$ <> TIME$
  '擦除旧时钟
  PRESET (320, 240): DRAW "c0" + "ta-" + STR$(shi) + "u100"
  PRESET (320, 240): DRAW "c0" + "ta-" + STR$(fen) + "u150"
  PRESET (320, 240): DRAW "c0" + "ta-" + STR$(miao) + "u200"
  '计算时钟，分钟，秒钟的角度
  shi = VAL(timenow$) * 30 MOD 360
  fen = VAL(MID$(timenow$, 4, 2)) * 6  
  miao = VAL(RIGHT$(timenow$, 2)) * 6  
  '画新时钟
  PRESET (320, 240): DRAW "c10" + "ta-" + STR$(shi) + "u100"
  PRESET (320, 240): DRAW "c11" + "ta-" + STR$(fen) + "u150"
  PRESET (320, 240): DRAW "c12" + "ta-" + STR$(miao) + "u200"
LOOP