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 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]
setpc 7
setxy -180 -260
label [Please wait while the maze is made for you.]
setxy -380 0

setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 5
setxy -200 -260
label [Now you must try to find a way through the maze.]
setxy -380 0


setheading 90
setpc 4
setpensize [3 3]
pd
fd 20
st

end

to bepatient
setlabelfont[[MS Sans Serif] -20 0 0 400 0 0 0 0 3 2 1 34]
setpc 4
setxy -180 -260
label [Please wait while the maze is made for you.]
end

to easycoords
make "xran random 560
make "xran :xran - 330
make "yran random 360
make "yran :yran - 230
setxy :xran :yran
end

to easymaze
ht pu
cs
bepatient
banner
perimeter
eblockers
repeat 7[easycoords eblacksq]
begin
end

to eblacksq
setpensize [1 1]
setpencolor 0
setfloodcolor 0
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 3 repeat 8 [fill fd 17] fill bk 139 lt 45
fd 100 rt 135 fd 3 repeat 8 [fill fd 17] fill bk 139 lt 135
end

to eblockers
setpensize [1 1]
setpencolor 0
setfloodcolor 0
setxy -150 -250
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
setxy -50 -50
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
setxy 50 150
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
end

to hardcoords
make "xran random 560
make "xran :xran - 330
make "yran random 360
make "yran :yran - 230
setxy :xran :yran
end

to hardmaze
ht pu
cs
bepatient
banner
perimeter
mblockers
setxy -230 100
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
setxy 130 -200
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
repeat 5[easycoords eblacksq]
repeat 15[hardcoords hblacksq]
begin
end

to hblacksq
setpensize [1 1]
setpencolor 0
setfloodcolor 0
pd repeat 4[fd 50 rt 90]
pu rt 45 fd 3 repeat 5 [fill fd 13] fill bk 68 lt 45
fd 50 rt 135 fd 3 repeat 5 [fill fd 13] fill bk 68 lt 135
end

to mblockers
setpensize [1 1]
setpencolor 0
setfloodcolor 0
eblockers
setxy -330 -50
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
setxy 230 -50
pd repeat 4[fd 100 rt 90]
pu rt 45 fd 10 fill bk 10 lt 45
end

to medmaze
ht pu
cs
bepatient
banner
perimeter
mblockers
repeat 10[easycoords eblacksq]
begin
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

Make "xran 221
Make "yran 39