to banner
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
pu fd :size * 8.5 rt 90
label "www.numeracysoftware.com
setpc 0
end

to biggrid
make "size 100
ht cs prepare
setpensize [3 3] setpencolor 0 pd
repeat 9 [fd 800 bk 800 pu rt 90 fd 100 lt 90 pd]
pu rt 90 bk 900 pd
repeat 9 [fd 800 bk 800 pu lt 90 fd 100 rt 90 pd]
numberlabelx
numberlabely
banner
make "code 1
end

to makecross
setpencolor 4
lt 45 pd repeat 4[fd :size * 0.2 bk :size * 0.2 rt 90] rt 45 pu
end

to medgrid
make "size 75
ht cs prepare
setpensize [3 3] setpencolor 0 pd
repeat 9 [fd 600 bk 600 pu rt 90 fd 75 lt 90 pd]
pu rt 90 bk 675 pd
repeat 9 [fd 600 bk 600 pu lt 90 fd 75 rt 90 pd]
numberlabelx
numberlabely
banner
make "code 1
end

to numberlabelx
prepare 
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
bk 10 rt 90 bk :size * 1.08
fd :size label "0
fd :size label "1
fd :size label "2
fd :size label "3
fd :size label "4
fd :size label "5
fd :size label "6
fd :size label "7
fd :size label "8
prepare
end

to numberlabely
prepare 
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
lt 90 fd 30 rt 90 bk :size * 0.85
fd :size label "0
fd :size label "1
fd :size label "2
fd :size label "3
fd :size label "4
fd :size label "5
fd :size label "6
fd :size label "7
fd :size label "8
prepare
end

to plot :xcor :ycor
ifelse :xcor > 8 [print [Number is too big.] Halt] []
ifelse :ycor > 8 [print [Number is too big.] Halt] []
ifelse :xcor < 0 [print [Number is too small.] Halt] []
ifelse :ycor < 0 [print [Number is too small.] Halt] []
prepare fd :size * :ycor rt 90 fd :size * :xcor lt 90
makecross 
end

to prepare
pu home lt 90 fd :size * 4 rt 90 bk :size * 4
end

to smallgrid
make "size 50
ht cs prepare
setpensize [3 3] setpencolor 0 pd
repeat 9 [fd 400 bk 400 pu rt 90 fd 50 lt 90 pd]
pu rt 90 bk 450 pd
repeat 9 [fd 400 bk 400 pu lt 90 fd 50 rt 90 pd]
numberlabelx
numberlabely
banner
make "code 1
end

Make "code 1
Make "size 100