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

TO M1START
pu home fd 250 lt 90 fd 150 rt 90 banner
pu home rt 90 fd 150 lt 90 bk 240
pd ppt st setpencolor 4 setpensize [3 3]
fd 30
end

TO M2START
pu home fd 290 lt 90 fd 150 rt 90 banner
pu home rt 90 fd 187 lt 90 bk 320
pd ppt st setpencolor 4 setpensize [3 3]
fd 30
end

TO M3START
pu home fd 355 lt 90 fd 370 rt 90 banner
pu home bk 330
pd ppt st setpencolor 4 setpensize [3 3]
fd 30
end

TO M4START
pu home fd 280 lt 90 fd 150 rt 90 banner
pu home lt 90 fd 400 lt 90 fd 15 lt 90
pd ppt st setpencolor 4 setpensize [3 3]
fd 30
end