p="1=256;2=297;3=312;4=298;5=255;6=196;7=136;8=95;9=78;10=85;11=128;12=191;13=92;14=135;15=192;16=248;17=294;18=310;19=293;20=253;21=192;22=137;23=89;24=75;"
For i=1 To 12
GraphicsWindow.DrawBoundText(p[i],p[i+12],20,i)
EndFor
arrowH=Shapes.AddLine(100/2,100/2,100,100) 'arrow Hour
arrowM=Shapes.AddLine(130/2,130/2,130,130) 'arrow Minute
arrowS=Shapes.AddLine(160/2,160/2,160,160) 'arrow Second
Shapes.Move(arrowH,400/2-100/2,400/2-100/2) 'move to center arrow Hour
Shapes.Move(arrowM,400/2-100/2-(130-100)/2,400/2-100/2-(130-100)/2) 'move to center arrow Minute
Shapes.Move(arrowS,400/2-100/2-(160-100)/2,400/2-100/2-(160-100)/2) 'move to center arrow Second)
LOOP:
Shapes.Rotate(arrowS,(Clock.Second*6)-135)
Shapes.Rotate(arrowM,(Clock.Minute*6)+(0.1*Clock.Second)-135)
Shapes.Rotate(arrowH,(30*Clock.Hour)+(0.5*Clock.Minute)-135)
Goto LOOP
Program Listing: WVQ463