Microsoft Small Basic

Program Listing: BQV567
'Graphics Challenge
GraphicsWindow.BackgroundColor="Black"
GraphicsWindow.Width=640
GraphicsWindow.Height=480
GraphicsWindow.BrushColor="red"
For i=0 To 63
For k=0 To 47
GraphicsWindow.FillEllipse(i*10,k*10,10,10)
EndFor
EndFor