Procedure: square by

Description of the procedure:

Source:

procedure main
goto square
end

procedure square
repeat 4,go_and_turn
end

procedure go_and_turn
go 100
rt 90
end