Procedure: Square by Ian

Description of the procedure:
Procedure Main
Goto Procedure Square
End

Procedure Square
Repeat 4,Go_and_Turn
End

Procedure Go_and_Turn
Go 100
Rt 90
End

Source:

Procedure Main