to a :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 0.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to b :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 1.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

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]
letterlabel
numberlabel
banner
make "code 1
end

to c :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 2.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to d :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 3.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to e :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 4.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to f :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 5.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to g :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 6.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to h :height
ifelse :height > 8 [print [Number is too big.] Halt] []
prepare fd :size * 0.5 rt 90 fd :size * 7.5 lt 90
fd :size * (:height - 1) 
setfloodcolor :code fill
make "code :code + 1
test :code = 7
iftrue [make "code :code + 1]
end

to letterlabel
prepare 
setlabelfont[[MS Sans Serif] -25 0 0 400 0 0 0 0 3 2 1 34]
bk 10 rt 90 bk :size * 0.6
fd :size label "A
fd :size label "B
fd :size label "C
fd :size label "D
fd :size label "E
fd :size label "F
fd :size label "G
fd :size label "H
prepare
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]
letterlabel
numberlabel
banner
make "code 1
end

to numberlabel
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 *.3
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 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]
letterlabel
numberlabel
banner
make "code 1
end

Make "code 3
Make "size 50