Code:
Dim X As Integer
Dim Y As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim Durchmesser As Integer


X = 0
Y = 0
Durchmesser = 2

Print "X: " ; X ; "Y: " ; Y

Incr Y

Print "X: " ; X ; "Y: " ; Y

While I < 3


While J < 3

Incr X
Print "X: " ; X ; "Y: " ; Y
Incr J

Wend


While K < 3

Decr Y
Print "X: " ; X ; "Y: " ; Y
Incr K

Wend


While L < 3

Decr X
Print "X: " ; X ; "Y: " ; Y
Incr L

Wend


While M < 3

Incr M
Print "X: " ; X ; "Y: " ; Y
Incr M

Wend

Incr I

Durchmesser = Durchmesser + 2

Wend