Normal procedure + Super procedure

to all1
square 50
rectangle 50 100
pentagon 50
octagon 50
hexagon 50
vcircle 2
circle
vcircle 0.5
triangle 50
triangle 50
triangle 50
triangle90
End

to all2
square 50
rectangle 50 100
pentagon 50
octagon 50
hexagon 50
vcircle 2
circle
vcircle 0.5
triangle 50
triangle 50
triangle90
End

to all3
square 50
rectangle 50 100
pentagon 50
octagon 50
hexagon 50
vcircle 2
circle
vcircle 0.5
triangle 100
triangle 100
triangle 100
triangle90
End

to circle
repeat 360 [fd 1 rt 1]
end

to hexagon :side
repeat 6 [fd :side rt 60]
end

to hsbc
triangle 100
rt 120
fd 100
rt 180
triangle 100
rt 30
fd 173
rt 90
triangle 100
rt 120
fd 100
rt 180
triangle 100
rt 30
fd 173
end

to mila
rectangle 100 20
fd 100
rt 90
fd 20
rt 45
rectangle 50 20
fd 30
lt 90
bk 20
rectangle 50 20
fd 50
rt 45
fd 20
rt 90
rectangle 100 20

lt 90
pu
fd 20
fd 20
rt 90
pd
rectangle 100 20

lt 90
pu
fd 40
rt 90
pd
rectangle 100 20
fd 80
lt 90
rectangle 50 20

pu
rt 90 fd 20 lt 90
fd 70
lt 90
rectangle 100 20
pd
rectangle 100 20

fd 100
rt 90
rectangle 70 20
fd 70
rt 90
rectangle 100 20
fd 60
rt 90
pu
fd 20
pd
rectangle 30 20
pu fd 550 pd
pattern1
rt 90
fd 120 rt 90
rectangle 600 200
repeat 3 [rt 90 fd 10 lt 90 fd 10 rectangle 600 200]
end

to octagon :side
repeat 8 [fd :side rt 45]
end

to olympics
circle
pu bk 60 lt 90 fd 60 rt 90 pd
circle
pu fd 60 lt 90 fd 60 rt 90 pd
circle
pu bk 60 lt 90 fd 60 rt 90 pd
circle
pu fd 60 lt 90 fd 60 rt 90 pd
circle
End

to pattern1
repeat 4[all1]
End

to pattern2
repeat 12[all2]
End

to pattern3
repeat 4[all3]
End

to pentagon :side
repeat 5 [fd :side rt 72]
End

to rectangle :h :l
Repeat 2 [fd :h rt 90 fd :l rt 90]
end

to square :side
Repeat 4 [fd :side rt 90]
end

to triangle :side
fd :side rt 120 fd :side rt 120 fd :side
end

to triangle90
fd 150 rt 127 fd 250 rt 143 fd 200
end

to vcircle :side
repeat 360 [fd :side rt 1]
end