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 banner2
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 1
setxy -125 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 0
setxy -410 12
label [IN]
setxy 370 12
label [OUT]
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setxy -380 0
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 5
setxy -120 -260
label [Find a way through the maze.]
setxy -380 0
setheading 90
setpc 4
setpensize [3 3]
pd
fd 20
st
end

to begin2
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 0
setxy -8 -270
label [IN]
setxy -20 280
label [OUT]
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 5
setxy -120 -290
label [Find a way through the maze.]
setxy 0 -270
setheading 0
setpc 4
setpensize [3 3]
pd
fd 15
st
end

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

to easymaze
ht pu
cs
banner
perimeter2
repeat 4[easycoords fd 100 rt 90 pd fd 10 fd :eran pu fd 70 pd fd :e2ran fd 10 pu bk 500 lt 90]
begin2
end

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

to hardmaze
ht pu
cs
banner2
perimeter
pu setxy -350 250 setheading 90
repeat 13[hardcoords fd 50 rt 90 pd fd 10 fd :eran pu fd 60 pd fd :e2ran fd 10 pu bk 500 lt 90]
begin
end

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

to medmaze
ht pu
cs
banner
perimeter3
repeat 9[medcoords fd 50 rt 90 pd fd 10 fd :eran pu fd 60 pd fd :e2ran fd 10 pu bk 700 lt 90]
begin2
end

to perimeter
pu home bk 250 lt 90 fd 350 rt 90 pd
setpensize [5 5]
setpencolor 0
repeat 2[fd 230 pu fd 40 pd fd 230 rt 90 fd 700 rt 90]
pu 
end

to perimeter2
pu home bk 250 lt 90 fd 250 rt 90 pd
setpensize [5 5]
setpencolor 0
repeat 2[fd 500 rt 90 fd 220 pu fd 60 pd fd 220 rt 90]
pu 
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 320 pu fd 60 pd fd 320 rt 90]
pu 
end

Make "e2ran 341
Make "eran 79