Procedure: square by Jim

Description of the procedure:
My procedure can draw a square with a variable width!

Source:

procedure main
goto square,width=100
end

procedure square
repeat 4,go,width=width
end

procedure go
go width
re 90
end