Turtle.Move(100)

Turtle.Turn(90)

Turtle.Move(100)

Turtle.Turn(90)

Turtle.Move(100)

Turtle.Turn(90)

Turtle.Move(100)

Turtle.Turn(90)

haromszog()

Sub haromszog

For i= 1 To 3

  Turtle.Move(100)

  Turtle.Turn(120)

EndFor

EndSub

'http://smallbasic.com/program/?FVV294

Turtle.Speed=10

Turtle.x=10

Turtle.y=260

For n=3 to 16

  sokszog()

EndFor

Sub sokszog

For i= 1 To n

  Turtle.Move(80)

  Turtle.Turn(360/n)

EndFor

EndSub

Turtle.Speed=10

For i= 0 To 240 Step 4

  Turtle.Move(i)

  Turtle.Turn(91)

EndFor  

Turtle.Speed=10

For n=1 To 6

For j=1 To 3

  For i=1 To 40

    Turtle.Move(3)

    Turtle.Turn(3)

  EndFor

  Turtle.Turn(120)  

EndFor

Turtle.Turn(60)

EndFor

Turtle.Speed=10

Turtle.y=300

GraphicsWindow.PenColor="green"

GraphicsWindow.PenWidth=5

level()

Turtle.Turn(-90)

level()

GraphicsWindow.PenColor="brown"

Turtle.Turn(90)

Turtle.Move(160)

GraphicsWindow.PenColor="orange"

For j=1 to 12

  level()

  Turtle.Turn(30)

EndFor  

'------------------------------

Sub level

  For i=1 To 90

    Turtle.Move(1)

    Turtle.Turn(1)

  EndFor

  Turtle.Turn(90)

  For i=1 To 90

    Turtle.Move(1)

    Turtle.Turn(1)

  EndFor

  Turtle.Turn(90)

EndSub

For i=1 To 5

  Turtle.Move(100)

  Turtle.Turn(144)

  Turtle.Move(100)

  Turtle.Turn(-72)

EndFor

Turtle.Speed=10

For i= 5 To 380 Step 5

  GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()

  Turtle.Move(i)

  Turtle.Turn(122)

EndFor