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

to begin
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
setxy -250 -250
label [Hit the target with just one turn and one forward movement.]
home
setheading 0
setpc 0
setpensize [3 3]
pd
st
end

to easy
cs ht pu
banner
easycoords 
ecircle
begin
end

to easycoords
make "xran random 660
make "xran :xran - 330
make "abxran abs :xran
ifelse :abxran < 80 [make "xran 80] []

make "yran random 460
make "yran :yran - 230
make "abyran abs :yran
ifelse :abyran < 80 [make "yran 80] []
setxy :xran :yran
end

to ecircle
setpensize [1 1]
setpencolor 0
make "circolour random 6
make "circolour :circolour + 1
setfloodcolor :circolour
pd circle 40 fill
make "circolour :circolour + 2
ifelse :circolour > 7 [make "circolour 1] []
setfloodcolor :circolour
pd circle 25 fill
make "circolour :circolour + 2
ifelse :circolour > 7 [make "circolour 1] []
setfloodcolor :circolour
pd circle 12 fill pu
end

to hard
cs ht pu
banner
easycoords 
hcircle
hbegin
end

to hbegin
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
setxy -250 -250
label [Hit the target with just one turn and one forward movement.]
home
setheading random 360
setpc 0
setpensize [3 3]
pd
st
end

to hcircle
setpensize [1 1]
setpencolor 0
make "circolour random 6
make "circolour :circolour + 1
setfloodcolor :circolour
pd circle 20 fill
make "circolour :circolour + 2
ifelse :circolour > 7 [make "circolour 1] []
setfloodcolor :circolour
pd circle 14 fill
make "circolour :circolour + 2
ifelse :circolour > 7 [make "circolour 1] []
setfloodcolor :circolour
pd circle 7 fill pu
end

to mcircle
setpensize [1 1]
setpencolor 0
make "circolour random 6
make "circolour :circolour + 1
setfloodcolor :circolour
pd circle 30 fill
make "circolour :circolour + 2
ifelse :circolour > 7 [make "circolour 1] []
setfloodcolor :circolour
pd circle 20 fill
make "circolour :circolour + 2
ifelse :circolour > 7 [make "circolour 1] []
setfloodcolor :circolour
pd circle 10 fill pu
end

to medium
cs ht pu
banner
easycoords 
mcircle
begin
end

Make "abxran 242
Make "abyran 203
Make "circolour 1
Make "xran 242
Make "yran 203