' Dezimaluhr

Pi! = 4! * ATN(1!)

SCREEN 7, , 4
' Zifferblatt zeichnen
CIRCLE (160, 100), 114, , , , 5! / 6!
FOR i% = 0 TO 99
  w! = CSNG(i%) * Pi! / 50!
  IF i% MOD 10 = 0 THEN
    LINE (160! + 96! * SIN(w!), 100! - 80! * COS(w!))-(160! + 114! * SIN(w!), 100! - 95! * COS(w!)), 11
  ELSE
    LINE (160! + 108! * SIN(w!), 100! - 90! * COS(w!))-(160! + 114! * SIN(w!), 100! - 95! * COS(w!)), 14
  END IF
NEXT i%

n% = 0
SCREEN , , n%
WHILE INKEY$ = ""
  t! = TIMER
  std! = t! / 86400!
  min! = t! / 8640!
  min! = min! - INT(min!)
  sek! = t! * 10! / 864!
  sek! = sek! - INT(sek!)
  PCOPY 4, n%
  LINE (160!, 100!)-(160! + 84! * SIN(2! * Pi! * std!), 100! - 70! * COS(2! * Pi! * std!)), 9
  LINE (160!, 100!)-(160! + 108! * SIN(2! * Pi! * min!), 100! - 90! * COS(2! * Pi! * min!)), 9
  LINE (160!, 100!)-(160! + 108! * SIN(2! * Pi! * sek!), 100! - 90! * COS(2! * Pi! * sek!)), 4
  SCREEN , , n% + 1 AND 3, n%
  n% = n% + 1 AND 3
WEND

SCREEN 0
WIDTH 80, 25