Frank007

Wiki-Quelltext dieser Seite.

<language>Javascript</language>
Option Explicit
Private Sub Form_Load()
Turtle Form1, 0, 120, 0, 80
Pu
Bk 10
Pd
End Sub
Private Sub Command1_Click()
Dim i As Integer
Fori=0To40
Rechteck i
Rt 360 / 40
Warte 1
Next i
End Sub
Sub Rechteck(ByVal x As Single)
Dim i As Integer
Fori=1To2
Fd x
Rt 90
Fdx/2
Rt 90
Next
End Sub