Programmed and Design by
Billy Bryan
Lakeview School
Denville NJ 07834-3419

to start

tto [ girl ]
setpos [ 52 -107 ]
tto [ boy ]
setpos [ 61 -46 ]
tto [ bird ]
st
setpos [ -101 122 ]
seth 225
repeat 10 [ fd 10 setshape 9 wait 2 fd 10 setshape 10 wait 2 ]
ht
repeat 10 [
tto [ boy ]
seth 90
fd 10 setshape 43
tto [ girl ]
seth 90
fd 10 setshape 49 wait 1
tto [ boy ]
fd 10 setshape 44
tto [ girl ]
fd 10 setshape 50 wait 1
tto [ boy ]
fd 10 setshape 42
tto [ girl ]
fd 10 setshape 51 wait 1
]
page2
tto [ t4 ]
ht
setshape 53
setsize 30
tto [ t3 ]
setshape 36
tto [ t1 ]
setpos [ -346 -170 ]
tto [ t2 ]
setpos [ -349 -186 ]
tto [ t1 t2 ]
st
seth 90
repeat 14 [ fd 5 wait 1 ]
tto [ door ]
setshape 46
tto [ t1 t2 ]
ht
wait 10
tto [ door ]
setshape 45
wait 5
page3
tto [ t1 t2 ]
st
tto [ t3 ]
setshape 47
tto [ t1 ]
setpos [ -264 -126 ]
tto [ t2 ]
setpos [ -152 -101 ]
repeat 5 [
tto [ t1 ]
seth 90
fd 10 setshape 43
tto [ t2 ]
seth 90
fd 10 setshape 49 wait 1
tto [ t1 ]
fd 10 setshape 44
tto [ t2 ]
fd 10 setshape 50 wait 1
tto [ t1 ]
fd 10 setshape 42
tto [ t2 ]
fd 10 setshape 51 wait 1
]
repeat 3 [
tto [ t1 ]
seth 90
fd 10 setshape 43 wait 1
fd 10 setshape 44 wait 1
fd 10 setshape 42 wait 1
]
tto [ t3 ]
setshape 48
tto [ t1 t2 ]
ht
tto [ t3 ]
wait 5
setshape 47
page4
tto [ t3 t4 ]
st
tto [ t4 ]
setpos [ -293 -116 ]
tto [ t3 ]
setpos [ -204 -114 ]
tto [ t3 t4 ]
seth 90
repeat 8 [
tto [ t3 ]
fd 10 setshape 43
tto [ t4 ]
fd 10 setshape 49 wait 1
tto [ t3 ]
fd 10 setshape 44
tto [ t4 ]
fd 10 setshape 50 wait 1
tto [ t3 ]
fd 10 setshape 42
tto [ t4 ]
fd 10 setshape 51 wait 1
]
elevator1
repeat 3 [
tto [ t3 ]
seth 0
fd 10 setshape 43
tto [ t4 ]
seth 0
fd 10 setshape 49 wait 1
tto [ t3 ]
fd 10 setshape 44
tto [ t4 ]
fd 10 setshape 50 wait 1
tto [ t3 ]
fd 10 setshape 42
tto [ t4 ]
fd 10 setshape 51 wait 1
]
tto [ t3 t4 ]
ht
elevator2
wait 10
page5
tto [ t1x54 ]
setpos [ -41 -168 ]
seth 360
repeat 360 [
fd 1
wait 0.1
]
page6
tto [ t4 t5 ]
ht
tto [ t4 ]
setshape 13
st
wait 15
ht
tto [ t5 ]
setshape 13
st
wait 15
ht
tto [ t4 ]
setshape 61
st
wait 15
ht
tto [ t5 ]
setshape 62
st
wait 15
ht
tto [ t4 t5 ]
setshape 63
tto [ t4 ]
st
wait 15
ht
tto [ t5 ]
st
wait 15
ht
page5
tto [ t1x54 ]
setpos [ -41 192 ]
seth 180
repeat 360 [
fd 1
wait 0.1
]
page7
tto [ t1 ]
setpos [ 348 -27 ]
seth 270
repeat 700 [
fd 1
wait 0.1
]
page8
tto [ t1 ]
repeat 10 [
setshape 17
wait 5
setshape 18
wait 5
]
page2
tto [ t4 ]
ht
tto [ t3 ]
setpos [ -12 167 ]
setshape 36
repeat 150 [
fd 1
wait 0.1
]
tto [ t4 ]
st
seth 180
repeat 10 [
fd 10
wait 1
]
setshape 60
setsize 100
wait 10
page9
end

to elevator1
ding
tto [ t1 ]
wait 5
setshape 16
wait 1
setshape 15
end

to elevator2
tto [ t1 ]
setshape 16
wait 1
setshape 14
end