Procedure: Sqaure by Ian

Description of the procedure:
procedure main
goto square
end

procedure square
repeat 4,go_and_turn
end

procedure go_and_turn
go 100
rt 90
end

Source:

procedure main
goto square
end

procedure square
repeat 4,go_and_turn
end

procedure go_and_turn
go 100
rt 90
end