Source code for the winning entry

The third place in the November contest:

The source:

procedure main
penup
lt 90
go 100
rt 90
go 230
rt 90
pendown
color darkgray
goto rect,length=200,width=460
go 110
lt 180
repeat 6,stripe,length=20,width=50
rt 180
go 20
rt 90
go 80
lt 90
color red
goto car,length=50,width=100
go 5
color green
goto car,length=40,width=80
penup
rt 180
go 60
goto bus
end

procedure bus
pendown
color yellow
goto rect,length=70,width=200
lt 90
go 160
rt 90
color blue
goto rect,length=70,width=10
rt 90
go 140
lt 90
goto rect,length=70,width=10
rt 90
end

procedure car
goto rect,length=length,width=width
lt 90
go 4*width/5
rt 90
color cyan
goto rect,length=length,width=width/5
rt 90
go width/5
lt 90
goto rect,length=length,width=width/5
rt 90
go width/2
lt 90
end

procedure stripe
color white
goto rect,length=length,width=width
rt 90
go 30
lt 90
end

procedure rect
repeat width,line,length=length
end

procedure line
pendown
go length
penup
rt 180
go length
lt 90
go 1
lt 90
end