Source code for the winning entry

The third place in the October contest:

The source:

procedure main
repeat 60,something
penup
rt 60
go 60
end

procedure something
color red
go 90
rt 41
color yellow
go 20
rt 60
color green
go 90
rt 54
end