Microsoft Small Basic
Program Listing: BVN282
rectangle = Shapes.AddRectangle(GraphicsWindow.Width GraphicsWindow.Height)
scale = 1
While scale > 0
scale = scale - 0.01
Shapes.Zoom(rectangle scale scale)
Program.Delay(15)
EndWhile
TextWindow.WriteLine("Left: " + Shapes.GetLeft(rectangle))
TextWindow.WriteLine("Top: " + Shapes.GetTop(rectangle))