Microsoft Small Basic

Program Listing:
Embed this in your website
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
Copyright (c) Microsoft Corporation. All rights reserved.