Microsoft Small Basic

Program Listing: HSQ178

List Program

x = GraphicsWindow.Width
y = GraphicsWindow.Height
GraphicsWindow.DrawText(40, 30, "Cтепанишина 9Б")
GraphicsWindow.PenColor = "Purple"
n=15
uzor1()
n=15
uzor2()
n=x-37
uzor2()
n=y-31
uzor1()


Sub uzor1
For i = 15 To x-20 Step 20
GraphicsWindow.DrawEllipse (i, n, 15, 15)
EndFor
EndSub

Sub uzor2
For j = 15 To y-15 Step 20
GraphicsWindow.DrawEllipse (n, j, 15, 15)
EndFor
EndSub