Description of the procedure: rectangle
Source:
procedure mainprocedure rectanglecolor redgo 100right 90go 50 right 90go 100 rt 90go 50 rt 90end