Procedure: square by TQ98

Description of the procedure:
Our procedure draws a square.

Source:

procedure main
goto square
end

procedure square
go 100
rt 90
go 100
rt 90
go 100
rt 90
go 100

end