Microsoft Small Basic

Program Listing: HMP803
' Dragon vs Turtle 0.1a
' Copyright © 2015 Nonki Takahashi. The MIT License.
'
GraphicsWindow.Title = "Dragon vs Turtle"
GraphicsWindow.BackgroundColor = "YellowGreen"
Turtle.PenUp()
Turtle.TurnRight()
Turtle.Move(220)
Turtle.TurnLeft()
Turtle.TurnLeft()
dc = "OrangeRed"
dw = 12
GraphicsWindow.PenColor = "Black"
GraphicsWindow.BrushColor = dc
x0 = 60
y0 = 200
a = 20
For x = x0 To 300 Step dw
_x = Math.GetRadians(x)
y = y0 + a * Math.Sin(_x)
body = Shapes.AddEllipse(dw, dw)
Shapes.Move(body, x, y)
If x = x0 + 6 * dw Or x = x0 + 15 * dw Then
GraphicsWindow.DrawLine(x + dw, y - dw, x + 1.5 * dw, y - 1.5 * dw)
GraphicsWindow.DrawLine(x + dw / 2, y - dw, x + 1.5 * dw, y - dw)
GraphicsWindow.DrawLine(x + dw, y - dw, x + 1.5 * dw, y - 0.5 * dw)
GraphicsWindow.DrawLine(x + dw / 2, y - dw, x + dw / 2, y + 2 * dw)
GraphicsWindow.DrawLine(x + dw, y + 2 * dw, x + 1.5 * dw, y + 1.5 * dw)
GraphicsWindow.DrawLine(x + dw / 2, y + 2 * dw, x + 1.5 * dw, y + 2 * dw)
GraphicsWindow.DrawLine(x + dw, y + 2 * dw, x + 1.5 * dw, y + 2.5 * dw)
EndIf
Program.Delay(200)
EndFor
head = Shapes.AddRectangle(dw, dw)
Shapes.Move(head, x, y)