(c) Copyright Henrik Stenberg 1996
Henrik Stenberg - henrik.s@interact.se


   Program: Clock    
   Size: 186 bytes
   Models: 7700, (9700)
   Author: Henrik Stenberg
Description: Round clock with Hours, Minutes and Seconds
________________________________________________
   Symbols:
        -->     Assign (Above DEL)
        ==>     Then (Shift  7  F1  F1)
        |       Fraction (Above 7)
________________________________________________

'CLOCK
"TIME"? --> T                                   ; Time format in HH.MM
48 --> E
32 --> F
Lbl 0
90-30(Int T+5|3(T-Int T)) --> H
90-600(T-Int T) --> M
0 --> S
Range 1,95,0,1,63,0
Plot 20cosH+E,20sin H+F
Plot E,F
Line
Plot 28cos M+E,28sin M+F
Line
Lbl 1
90-6S --> C
Plot 31cos C+E,31sin C+F
Isz S
11 --> W                                        ; 9700GE: Change this to something higher
Lbl 2
Dsz W
Goto 2
S<60 ==> Goto 1
.01+T --> T
Goto 0