Procedure: circle by

Description of the procedure:

Source:

procedure main
repeat 90,circle
end

procedure circle
go 4
rt 4
end