to dak
setxy -150 0
setpc [0 0 0]
pd
fd 300
lt 125
fd 100
pu
make "old pos
setxy -150 0
rt 70
pd
fd 100
make "current pos
rt 55
fd ((item 1 :old)-(item 1 :current)+1) 
pu
setfc [0 0 0]
setxy 0 10
fill
end

to deur
setxy 50 -150
setfc [255 255 0]
bitblock 50 100
end

to knop
setxy 85 -100
setpc [0 0 0]
setfc [0 0 0]
pd
circle 5
fill
pu
end

to muren
pu
setfc [255 0 0]
setxy -150 -150
bitblock 300 150
end

to raam
setfc [0 0 255]
setxy -100 -100
bitblock 100 50
end

to voegen
home
setpc [255 255 255]
for [i -150 150 20] [voegX :i]
rt 90
for [i -150 0 6] [voegY :i]
end voegen

to voegX :x
setxy :x -150
pd
fd 150
pu
end

to voegY :y
setxy -150 :y
pd
fd 300
pu
end

to z1
cs
muren
end

to z2
z1
voegen
end

to z3
z2
raam
end

to z4
z3
deur
end

to z5
z4
knop
end

to z6
z5
dak
end