Procedure: com by Carlos Flores

Description of the procedure:

Source:

procedure main
up
left 90
go 100
right 90
down
repeat 4,sq.1
up
right 90
go 20
left 90
go 15
down
repeat 4,sq.2
up
left 90
go 15
right 90
go 16
left 90
down
repeat 2,rec.1
right 180
up
go 115
right 90
go 20
down
repeat 4,rec.2
up
go 20
left 90
go 100
down
repeat 4,sq.3
end

procedure sq.1
go 125
right 90
end

procedure sq.2
go 85
right 90
end

procedure rec.1
right 90
go 65
right 90
go 10
end

procedure rec.2
go 6
right 90
go 6
end

procedure sq.3
left 90
go 150
left 90
go 75

end