prgmNEW1

"Setup Code"
ClrDraw
ClrHome
AxesOff
1.3->Xmax
1.3->Ymax
-1.3->Xmin
-1.3->Ymin
ZSquare
Radian
Circle(0,0,1

"Tick Drawing"
For(B,0,60*pi/30,pi/30
    Line(.925+cos(B),.925*sin(B),cos(B),sin(B)
End
For(B,0,12*pi/6,pi/6
    Line(.85+cos(B),.85*sin(B),cos(B),sin(B)
End
For(B,0,4*pi/2,pi/2
    Line(.8+cos(B),.8*sin(B),cos(B),sin(B)
End

"Hand Drawing"
Lbl A
    "Split Time List Var Into 2 INT Vars"
  getTime->L1
  L1[1]->H
  L1[2]->M

  "Draw Hour Hand"
  Line 0,0,.5*sin((H-1)*pi/6),.5*cos((H-1)*pi/6),0
  Line 0,0,.5*sin((H-1)*pi/6),.5*cos((H*pi/6),1

  "Draw Minute Hand"
  Line 0,0,.7*sin((M-1)*pi/30),.7*cos((M-1)*pi/6),0
  Line 0,0,.7*sin((M-1)*pi/30),.7*cos((M*pi/30),1
Goto A