SCREEN 1
DEFDBL A-Z
WINDOW (-1.5, 1.15)-(1.5, -1.15)
begin:
CLS
PRINT "clock run by Taylor series calculating"
PRINT "sines and cosines"
PRINT TIME$
CIRCLE (0, 0), 1
e = VAL(MID$(TIME$, 7, 2))
b = -((6 * e) - 90)
IF e > 46 THEN b = 180 - ((e - 45) * 6)
f = (3.141592653598793# / 180) * b
ff = f - ((f ^ 3) / (1 * 2 * 3)) + ((f ^ 5) / (1 * 2 * 3 * 4 * 5)) - ((f ^ 7) / (1 * 2 * 3 * 4 * 5 * 6 * 7))
fff = 1 - ((f ^ 2) / (1 * 2)) + ((f ^ 4) / (1 * 2 * 3 * 4)) - ((f ^ 6) / (1 * 2 * 3 * 4 * 5 * 6))
LINE (0, 0)-(.7 * fff, .7 * ff)
c = VAL(MID$(TIME$, 4, 2))
g = -((6 * c) - 90)
m = (3.141592653589793# / 180) * g
LINE (0, 0)-(COS(m), SIN(m))
o = VAL(MID$(TIME$, 1, 2))
i = -((30 * o) - 90)
h = (3.141592653589793# / 180) * i
LINE (0, 0)-(.5 * COS(h), .5 * SIN(h))
FOR a = 1 TO 30000
NEXT a
GOTO begin