Procedure: house by noah

Description of the procedure:
this makes a factory

Source:

procedure main
goto house
end

procedure house
color blue
go 150
right 90
go 100
right 90
go 150
right 90
go 100
right 90
up
go 150
down
color orange
right 50
go 65
right 80
go 65
up
go 40
right 140
go 40
down
color blue
go 80
left 90
go 20
left 90
go 80
left 90
go 20
left 180
up
go 30
down
go 20
right 90
go 80
right 90
go 20
right 90
go 80
right 90
up
go 30
down
go 20
right 90
go 80
right 90
go 20
right 90
go 80
right 90
up
go 30
right 90
go 10
left 90
go 35
right 180
down
go 30
left 90
go 60
left 90
go 30
left 90
go 31
left 90
color red
go 30
up
go 15
down
go 20
up
go 10
down
go 20
up
go 10
down
go 20
up
left 90
go 20
left 90
down
go 20
left 90
up
go 40
left 90
down
go 20
left 180
up
go 30
down
go 20
up
right 90
up
go 40
right 90
down
go 20
right 180
up
go 30
down
go 20
up
left 90
go 40
left 90
down
go 20
left 180
up
go 55
right 90
go 10
down
color gray
go 2
right 90
go 2
right 90
go 2
right 90
go 2
right 90
up
go 15
down
go 2
right 90
go 2
right 90
go 2
right 90
go 2
right 90
up
go 45
color orange
left 90
go 10
right 90
down
go 30
right 90
go 210
right 90
go 28
right 90
go 210
right 90
go 5
right 90
go 210
left 90
go 5
left 90
go 210
right 90
go 5
right 90
go 210
left 90
go 5
left 90
go 210
right 90
go 5
right 90
go 210
right 90
up
go 23
down
right 90
go 210
right 90
go 1
right 90
go 210
left 90
go 4
left 90
go 210
right 90
go 5
right 90
go 210
up
left 90
go 16
right 180
down
color red
go 28
right 90
go 210
right 90
go 30
right 90
go 40
up
go 100
down
go 70
end