Description of the procedure:
Source:
procedure main color red go 1 up go 10 down color green go 19 up go 10 down color yellow go 13 up go 10 down color bleu go 7 up go 1 down color orange go 10 up go 10 down color black go 10end