to arcleft
repeat 90[fd 1 lt 1]
end

to arcright
repeat 90 [fd 1 rt 1]
end

to banner
setlabelfont[[MS Sans Serif] -19 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "www.numeracysoftware.com
setpc 0
end

to track1
cs
ht pu rt 90 bk 115 banner bk 135 lt 90 pd
setpensize [30 30]
setpencolor 3
fd 50 arcright fd 400 arcright fd 100 arcright fd 400 arcright fd 50
setpensize [1 1]
setpencolor 0
st
end

to track2
cs
ht pu bk 40 rt 90 bk 100 banner fd 100 lt 90 fd 40
lt 90 fd 250 rt 90 pd
setpensize [30 30]
setpencolor 2
fd 50 arcright fd 60 arcright arcleft fd 60 arcleft arcright fd 60 
arcright fd 100 arcright fd 409 arcright fd 50
setpensize [1 1]
setpencolor 0
st

end

to track3
cs ht pu fd 60 rt 90 bk 270 banner fd 270 lt 90 bk 60
fd 30 pd
setpensize [30 30]
setpencolor 4
fd 50 arcright fd 100 arcright arcright fd 50 arcleft fd 50 arcright
fd 200 arcright arcright fd 150 arcleft
setpensize [1 1]
setpencolor 0
st
end

to track4
cs ht pu fd 120 rt 90 bk 10 banner fd 10 lt 90 bk 120
lt 90 fd 50 rt 90 pd
setpensize [30 30]
setpencolor 5
fd 80 arcright fd 200 arcright fd 160 arcright arcright fd 100 
arcleft arcleft fd 90 arcright fd 200 arcright fd 140 arcright arcright
fd 100 arcleft arcleft fd 50
setpensize [1 1]
setpencolor 0
st

end

to track5
cs ht pu fd 140 rt 90 bk 140 banner fd 140 lt 90 bk 140
fd 60 rt 90 fd 30 lt 90 pd
setpensize [30 30]
setpencolor 14
rt 60 fd 150 arcright fd 45 rt 15 arcright arcleft
rt 15 arcright rt 15 arcright lt 30 fd 20 arcleft lt 15 arcleft rt 30
arcright rt 15 fd 180 arcright fd 118 rt 15 arcright fd 5
arcright fd 5 rt 15 fd 5 arcleft lt 10 arcleft 
repeat 25[rt 1 fd 5] fd 20
setpensize [1 1]
setpencolor 0
st

end