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))