Microsoft Small Basic

Program Listing: LTP201

List Program

For i = 1 To 12
GraphicsWindow.DrawText(295+125*Math.Sin(Math.GetRadians(i*30)),195-125*Math.Cos(Math.GetRadians(i*30)),i)
EndFor
Shapes.Move(Shapes.AddLine(0,0,0,-70),300,200) ' hour hand
Shapes.Move(Shapes.AddLine(0,0,0,-90),300,200) ' minute hand
Shapes.Move(Shapes.AddLine(0,0,0,-110),300,200) ' second hand
While "True"
Shapes.Rotate("Line1",(30*Clock.Hour)+(0.5*Clock.Minute))
Shapes.Rotate("Line2",(Clock.Minute*6)+(0.1*Clock.Second))
Shapes.Rotate("Line3",(Clock.Second*6))
EndWhile