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

to begin2
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 0
setxy -255 -270
label [PLAYER 1 IN]
setxy -220 280
label [OUT]
setxy 145 -270
label [PLAYER 2 IN]
setxy 180 280
label [OUT]
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 5
setxy -285 -290
label [Don't forget to type P1 or P2 before your instructions e.g. "P1 FD 50".]
setxy -125 275
label [Find a way through the maze.]
setxy -200 -270
setheading 0
setpc 4
setpensize [3 3]
pd
fd 15
st
p2 pu
setxy 200 -270
setheading 0
setpc 4
setpensize [3 3]
pd
fd 15
st
end

to easycoords
make "eran random 210
make "e2ran 210 - :eran
end

to easymaze
p1 pu ht p2 pu ht
cs
banner
perimeter2
begin2
end

to hardcoords
make "eran random 230
make "e2ran 230 - :eran
end

to hardmaze
p1 pu ht p2 pu ht
cs
banner
perimeter4
begin2
end

to medcoords
make "eran random 220
make "e2ran 220 - :eran
end

to medmaze
p1 pu ht p2 pu ht
cs
banner
perimeter3
begin2
end

to p1
setturtle 0
end

to p2
setturtle 1
end

to perimeter2
pu home bk 250 lt 90 fd 350 rt 90 pd
setpensize [5 5]
setpencolor 0
repeat 2[fd 500 rt 90 fd 120 pu fd 60 pd fd 120 rt 90]
pu
repeat 4[easycoords fd 100 rt 90 pd fd 10 fd :eran pu fd 70 pd fd :e2ran fd 10 pu bk 300 lt 90] bk 400
rt 90 fd 400 lt 90  pd
repeat 2[fd 500 rt 90 fd 120 pu fd 60 pd fd 120 rt 90]
pu
repeat 4[easycoords fd 100 rt 90 pd fd 10 fd :eran pu fd 70 pd fd :e2ran fd 10 pu bk 300 lt 90]
end

to perimeter3
pu home bk 250 lt 90 fd 350 rt 90 pd
setpensize [5 5]
setpencolor 0
repeat 2[fd 500 rt 90 fd 120 pu fd 60 pd fd 120 rt 90]
pu
fd 5 repeat 6[medcoords fd 70 rt 90 pd fd 10 fd :eran pu fd 60 pd fd :e2ran fd 10 pu bk 300 lt 90] bk 425
rt 90 fd 400 lt 90  pd
repeat 2[fd 500 rt 90 fd 120 pu fd 60 pd fd 120 rt 90]
pu
fd 5 repeat 6[medcoords fd 70 rt 90 pd fd 10 fd :eran pu fd 60 pd fd :e2ran fd 10 pu bk 300 lt 90]
end

to perimeter4
pu home bk 250 lt 90 fd 350 rt 90 pd
setpensize [5 5]
setpencolor 0
repeat 2[fd 500 rt 90 fd 120 pu fd 60 pd fd 120 rt 90]
pu
repeat 9[hardcoords fd 50 rt 90 pd fd 10 fd :eran pu fd 50 pd fd :e2ran fd 10 pu bk 300 lt 90] bk 450
rt 90 fd 400 lt 90  pd
repeat 2[fd 500 rt 90 fd 120 pu fd 60 pd fd 120 rt 90]
pu
repeat 9[hardcoords fd 50 rt 90 pd fd 10 fd :eran pu fd 50 pd fd :e2ran fd 10 pu bk 300 lt 90]
end

Make "e2ran 189
Make "eran 41