Titel: Analog watch
Author: Christian Sandberg
Description: Fun analog watch. First, set the time in hours and minutes
             Hours: 1->12 
             Minutes: 1->60
             It behaves like an ordinary watch with moving pointers.
             I have discoverd some bugs when it is about to shif hour, but
             I havn't had the time to check what wrong. The speed of the watch 
             is depending on a delay in the code. I've notiched that I have to 
             decrease the delay when the batteries are becoming to old.
             Check the time for it to go 1min with a stopwatch and change
             the delay.
             
             
__________________________________________________________________________________
Command translation:
->      Singel arrow
=>      Double arrow (press: shift prgm f1 f1)
_       Display (press: shift prgm f4)
<=      Less or equal 
>       Greater or equal
<>      Not equal
^       Raised to the power of
/       Division
2rt()   Root ( 2rt(9) is the square root of 9 = 3)
3rt()   3:rd root
pi      Pi (3.14....) (press: shift exp)
E       Exponent (press:EXP)
___________________________________________________________________________________
"Watch"
Lbl 7
Range -2,2,0,-1.3,1.3,0
Mcl
90->A~D
60->I
12->J
90->K~L
"SETUP"
"HOUR 1->12"?->D
D<=0=>"DEMO MODE"_
D<=0=>1->O
D<=0=>Goto 0
D>12=>"error"
D>12=>Goto 7
"Minutes"?->E
E>60=>"error"
E>60=>Goto 7
Lbl Q
M=1=>E=I=>L->N
M=1=>Dsz I
M=1=>L+6->L
M=1=>D=J=>K->C
M=0=>Dsz J
M=0=>K+30->K
D=J=>M=0=>Isz M
E=I=>M=1=>Isz M
M=2=>Goto 8
K>=450=>90->K
L>=450=>90->L
Goto Q
Lbl 8
L->B
Lbl 0
Cls
Plot 0,0
Plot cos A,sin A
Line
Plot 0,0
Plot cos B,sin B
Line
Plot 0,0
Plot 0.7cos C,0.7sin C
Line
0->G
Lbl A
Isz G
O=1=>Goto B
G=32=>Goto B
Goto A
Lbl B
B=-270=>C-30->C
C=-270=>90->C
A=-270=>B-6->B
B=-270=>90->B
A=-270=>90->A
A-6->A
Goto 0
______________________________________________________________________________________