to adot
repeat 8[fd 10 bk 10 rt 45]
end

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

to compass16
cs compass8 wait 30 northnortheast wait 30 eastnortheast wait 30 eastsoutheast wait 30 southsoutheast wait 30 southsouthwest wait 30 westsouthwest wait 30 westnorthwest wait 30 northnorthwest north
end

to compass4
cs wait 30 pu fd 300 rt 90 bk 150 banner home wait 30 north wait 30 south wait 30 west wait 30 east north
end

to compass8
cs compass4 wait 30 northeast wait 30 southeast wait 30 southwest wait 30 northwest north
end

to e
pu home pd setpc 0 setpensize [4 4] adot rt 90 fd 200
pu fd 30 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "E
pu bk 12 rt 90 bk 30 pd setpc 0
end

to east
pu home pd setpc 0 setpensize [4 4] adot rt 90 fd 200
pu fd 30 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "E
pu bk 12 rt 90 bk 30 pd setpc 0
end

to eastnortheast
pu home pd setpc 0 setpensize [3 3] adot rt 67.5 fd 200
pu fd 30 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "ENE
pu bk 12 rt 90 bk 30 pd setpc 0
end

to eastsoutheast
pu home pd setpc 0 setpensize [3 3] adot rt 112.5 fd 200
pu fd 20 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "ESE
pu bk 12 rt 90 bk 20 pd setpc 0
end

to ene
pu home pd setpc 0 setpensize [3 3] adot rt 67.5 fd 200
pu fd 30 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "ENE
pu bk 12 rt 90 bk 30 pd setpc 0
end

to ese
pu home pd setpc 0 setpensize [3 3] adot rt 112.5 fd 200
pu fd 20 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "ESE
pu bk 12 rt 90 bk 20 pd setpc 0
end

to n
pu home pd setpc 0 setpensize [4 4] adot fd 200
pu fd 50 lt 90 fd 8 rt 90 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "N
pu bk 50 rt 90 fd 8 lt 90 pd setpc 0
end

to ne
pu home pd setpc 0 setpensize [3 3] adot rt 45 fd 200
pu fd 40 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "NE
pu bk 12 rt 90 bk 40 pd setpc 0
end

to nne
pu home pd setpc 0 setpensize [3 3] adot rt 22.5 fd 200
pu fd 40 lt 90 fd 25 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "NNE
pu bk 25 rt 90 bk 40 pd setpc 0
end

to nnw
pu home pd setpc 0 setpensize [3 3] adot rt 337.5 fd 200
pu fd 57 lt 90 fd 20 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "NNW
pu  bk 20 rt 90 bk 57 pd setpc 0
end

to north
pu home pd setpc 0 setpensize [4 4] adot fd 200
pu fd 50 lt 90 fd 8 rt 90 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "N
pu bk 50 rt 90 fd 8 lt 90 pd setpc 0
end

to northeast
pu home pd setpc 0 setpensize [3 3] adot rt 45 fd 200
pu fd 40 lt 90 fd 12 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "NE
pu bk 12 rt 90 bk 40 pd setpc 0
end

to northnortheast
pu home pd setpc 0 setpensize [3 3] adot rt 22.5 fd 200
pu fd 40 lt 90 fd 25 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "NNE
pu bk 25 rt 90 bk 40 pd setpc 0
end

to northnorthwest
pu home pd setpc 0 setpensize [3 3] adot rt 337.5 fd 200
pu fd 57 lt 90 fd 20 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "NNW
pu  bk 20 rt 90 bk 57 pd setpc 0
end

to northwest
pu home pd setpc 0 setpensize [3 3] adot lt 45 fd 200
pu fd 60  pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "NW
pu bk 60 pd setpc 0
end

to nw
pu home pd setpc 0 setpensize [3 3] adot lt 45 fd 200
pu fd 60  pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "NW
pu bk 60 pd setpc 0
end

to s
pu home pd setpc 0 setpensize [4 4] adot rt 180 fd 200
pu  fd 20 rt 90 fd 8 lt 90 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "S
pu  bk 20 lt 90 fd 8 rt 90 pd setpc 0
end

to south
pu home pd setpc 0 setpensize [4 4] adot rt 180 fd 200
pu  fd 20 rt 90 fd 8 lt 90 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "S
pu  bk 20 lt 90 fd 8 rt 90 pd setpc 0
end

to southeast
pu home pd setpc 0 setpensize [3 3] adot rt 135 fd 200
pu fd 20 lt 90  pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "SE
pu  rt 90 bk 20 pd setpc 0
end

to southsoutheast
pu home pd setpc 0 setpensize [3 3] adot rt 157.5 fd 200
pu fd 10 rt 90 fd 20 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "SSE
pu  bk 20 lt 90 bk 10 pd setpc 0
end

to southsouthwest
pu home pd setpc 0 setpensize [3 3] adot rt 202.5 fd 200
pu fd 40 rt 90 fd 30 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "SSW
pu  bk 30 lt 90 bk 40 pd setpc 0
end

to southwest
pu home pd setpc 0 setpensize [3 3] adot lt 135 fd 200
pu fd 40 rt 90 fd 20 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "SW
pu bk 20 lt 90 bk 40 pd setpc 0
end

to ss
pu home pd setpc 0 setpensize [4 4] adot rt 180 fd 200
pu  fd 20 rt 90 fd 8 lt 90 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "S
pu  bk 20 lt 90 fd 8 rt 90 pd setpc 0
end

to sse
pu home pd setpc 0 setpensize [3 3] adot rt 157.5 fd 200
pu fd 10 rt 90 fd 20 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "SSE
pu  bk 20 lt 90 bk 10 pd setpc 0
end

to ssw
pu home pd setpc 0 setpensize [3 3] adot rt 202.5 fd 200
pu fd 40 rt 90 fd 30 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "SSW
pu  bk 30 lt 90 bk 40 pd setpc 0
end

to sw
pu home pd setpc 0 setpensize [3 3] adot lt 135 fd 200
pu fd 40 rt 90 fd 20 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
label "SW
pu bk 20 lt 90 bk 40 pd setpc 0
end

to w
pu home pd setpc 0 setpensize [4 4] adot lt 90 fd 200
pu fd 50 rt 90 fd 15 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "W
pu bk 15 lt 90 bk 50 pd setpc 0
end

to west
pu home pd setpc 0 setpensize [4 4] adot lt 90 fd 200
pu fd 50 rt 90 fd 15 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
label "W
pu bk 15 lt 90 bk 50 pd setpc 0
end

to westnorthwest
pu home pd setpc 0 setpensize [3 3] adot rt 292.5 fd 200
pu fd 80 lt 90 fd 10 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "WNW
pu  bk 10 rt 90 bk 80 pd setpc 0
end

to westsouthwest
pu home pd setpc 0 setpensize [3 3] adot rt 247.5 fd 200
pu fd 75 rt 90 fd 30 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "WSW
pu  bk 30 lt 90 bk 75 pd setpc 0
end

to wnw
pu home pd setpc 0 setpensize [3 3] adot rt 292.5 fd 200
pu fd 80 lt 90 fd 10 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "WNW
pu  bk 10 rt 90 bk 80 pd setpc 0
end

to wsw
pu home pd setpc 0 setpensize [3 3] adot rt 247.5 fd 200
pu fd 75 rt 90 fd 30 pd
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 2
label "WSW
pu  bk 30 lt 90 bk 75 pd setpc 0
end