Microsoft Small Basic

Program Listing: KDH145

List Program

' Turtle Brick
' Copyright © 2016 Nonki Takahshi. The MIT License.
'
GraphicsWindow.Title = "Turtle Brick"
Init()
' Go to top
cmd = "Right 5"
Do()
' Draw roof
For row = 1 To 5
cmd = "Fill Red"
Do()
cmd = "Down"
Do()
cmd = "Left"
Do()
EndFor
cmd = "Right 6"
Do()
cmd = "Up 4"
Do()
For row = 1 To 4
cmd = "Fill Red"
Do()
cmd = "Down"
Do()
cmd = "Right"
Do()
EndFor
' Draw wall
cmd = "Left 5"
Do()
cmd = "Up 4"
Do()
For row = 1 To 4
For col = 1 To row * 2 - 1
cmd = "Fill White"
Do()
cmd = "Right"
Do()
EndFor
cmd = "Down"
Do()
cmd = "Left " + (row * 2)
Do()
EndFor
cmd = "Right"
Do()
For row = 1 To 6
For col = 1 To 7
cmd = "Fill White"
Do()
cmd = "Right"
Do()
EndFor
cmd = "Down"
Do()
cmd = "Left 7"
Do()
EndFor
' Draw windows
cmd = "Right 1"
Do()
cmd = "Up 6"
Do()
For col = 1 To 3
For row = 1 To 2
cmd = "Fill Blue"
Do()
cmd = "Down"
Do()
EndFor
cmd = "Down"
Do()
For row = 1 To 2
cmd = "Fill Blue"
Do()
cmd = "Down"
Do()
EndFor
cmd = "Right 2"
Do()
cmd = "Up 5"
Do()
EndFor
' Draw door
cmd = "Left 4"
Do()
cmd = "Down 3"
Do()
For row = 1 To 3
cmd = "Fill Black"
Do()
cmd = "Down"
Do()
EndFor
' Draw ground
cmd = "Left 5"
Do()
For col = 1 To 16
cmd = "Fill Green"
Do()
cmd = "Right"
Do()
EndFor
' Draw tree
cmd = "Left 5"
Do()
cmd = "Up 6"
Do()
For col = 1 To 3
cmd = "Fill Green"
Do()
cmd = "Right"
Do()
EndFor
cmd = "Down"
Do()
cmd = "Left 4"
Do()
For row = 1 To 3
For col = 1 To 5
cmd = "Fill Green"
Do()
cmd = "Right"
Do()
EndFor
cmd = "Down"
Do()
cmd = "Left 5"
Do()
EndFor
cmd = "Right"
Do()
For col = 1 To 3
cmd = "Fill Green"
Do()
cmd = "Right"
Do()
EndFor
cmd = "Left 2"
Do()
cmd = "Up"
Do()
For row = 1 To 3
cmd = "Fill SaddleBrown"
Do()
cmd = "Down"
Do()
EndFor
Sub Init
size = 40
gw = 640
gh = 480
Turtle.Speed = 9
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = "LightGray"
Turtle.X = size / 2
Turtle.Y = size / 2
Turtle.PenUp()
DrawGrid()
EndSub
Sub Do
x = Turtle.X
y = Turtle.Y
If Text.StartsWith(cmd, "Right") Then
GetOperand()
If operand = "" Then
operand = 1
EndIf
Turtle.MoveTo(x + operand * size, y)
ElseIf Text.StartsWith(cmd, "Left") Then
GetOperand()
If operand = "" Then
operand = 1
EndIf
Turtle.MoveTo(x - operand * size, y)
ElseIf Text.StartsWith(cmd, "Up") Then
GetOperand()
If operand = "" Then
operand = 1
EndIf
Turtle.MoveTo(x, y - operand * size)
ElseIf Text.StartsWith(cmd, "Down") Then
GetOperand()
If operand = "" Then
operand = 1
EndIf
Turtle.MoveTo(x, y + operand * size)
ElseIf Text.StartsWith(cmd, "Fill") Then
GetOperand()
If operand = "" Then
operand = "Black"
EndIf
FillBrick()
EndIf
EndSub
Sub DrawGrid
GraphicsWindow.PenWidth = 1
GraphicsWindow.PenColor = "Gray"
For x = 0 To gw Step size
GraphicsWindow.DrawLine(x, 0, x, gh)
EndFor
For y = 0 To gh Step size
GraphicsWindow.DrawLine(0, y, gw, y)
EndFor
EndSub
Sub FillBrick
' param operand - brick color
GraphicsWindow.BrushColor = operand
GraphicsWindow.FillRectangle(x - (size - 1) / 2, y - (size - 1) / 2, (size - 1), (size - 1))
EndSub
Sub GetOperand
' param cmd
sp = Text.GetIndexOf(cmd, " ")
If sp = 0 Then
operand = ""
Else
operand = Text.GetSubTextToEnd(cmd, sp + 1)
EndIf
EndSub