Description of the procedure: Makes a simple Box
Source:
procedure main go 100left 90go 50left 90go 100left 90go 80end