Microsoft Small Basic

Program Listing: SXD340

List Program

' Shapes Test 2 for SBO v1.0
' Copyright © Nonki Takahashi. The MIT License.

For y = 0 To 600 Step 100
Shapes.AddLine(0, y, 800, y)
EndFor
For x = 0 To 800 Step 100
Shapes.AddLine(x, 0, x, 600)
EndFor
shp = Shapes.AddEllipse(100, 100)
Shapes.Move(shp, 0, 0)
shp = Shapes.AddEllipse(100, 100)
Shapes.Move(shp, 100, 0)
shp = Shapes.AddEllipse(100, 100)
Shapes.Move(shp, 0, 100)