Program and Design by
Laura French
The Lakeview School
Denville NJ 07834-3419

to up
tto [t7]
ht
tto [t1 t2]
st
tto [t1]
setpos [66 42]
tto [t2]
setpos [292 147]
tto [ t1]
seth 390
repeat 5 [fd 30 wait 2]
tto [ t2 ]
seth 270
repeat 5 [fd 30 wait 2]
tto [ t1 t2 ]
seth 135
repeat 5 [fd 50 wait 2]
ht
page2
loser
wait 50
page1
end

to goright
tto [ t7] ht
tto [ t1 ]
st
setpos [66 42]
seth 90
repeat 10 [fd 25 wait 2]
ht
tto [ t6 ]
setpos
[316 66]
repeat 4 [seth 360 wait 2 fd 10 wait 2 seth 180 wait 2 fd 10 wait 2]
page3
winner
wait 50
page4
end

to down

tto [t8] ht
tto [t1]
st
setpos [66 42]
tto [t7]
ht
setpos [66 42]
tto [t1 t7]
seth 180
repeat 10 [fd 21 wait 2]
tto [t1]
ht
tto [t7]
st
tto [t3 t4 t5]
seth 90
repeat 13 [fd 24 wait 1]
page2
loser
wait 50
page1
end

to under
tto [t1]
st
setpos[-12 -123]
tto [t2]
setpos [-157 -90]
tto [t5 t7]
ht
setpos [-12 -123]
tto [t3]
st
setpos [330 -117]
tto [t6 t8]
ht
setpos [330 -117]
tto [t4]
st
setpos [296 -122]
tto [t1 t5 t7]
seth 270
repeat 10 [fd 8 wait 1]
tto [t2]
repeat 10 [fd 8 wait 2]
tto [t1 t5 t7]
repeat 4 [fd 10 wait 2]
tto [t4]
seth 270
repeat 41 [fd 10 wait 1]
ht
tto [t1]
ht
tto[t7]
st wait 10
ht
tto [t5] st
wait 15
page2
loser
wait 50
page4
end

to ontop
tto [t1]
st
setpos[-12 -123]
tto [t2]
setpos [-157 -90]
tto [t5 t7]
ht
setpos [-12 -123]
tto [t3]
st
setpos [330 -117]
tto [t6 t8]
ht
setpos [330 -117]
tto [t4]
st
setpos [296 -122]
tto [t1 t5 t7]
seth 270
repeat 10 [fd 7 wait 2]
seth 360
repeat 10 [fd 11 wait 1]
seth 270
repeat 10 [fd 6 wait 2]
tto [t4]
seth 284
repeat 44[fd 10 wait 1]
ht
tto [t1]
ht
tto[t7]
st wait 10
ht
tto [t5] st
wait 15
page2
loser
wait 50
page4
end

to behind
tto [t1]
st
setpos[-12 -123]
tto [t2]
setpos [-157 -90]
tto [t5 t7]
ht
setpos [-12 -123]
tto [t3]
st
setpos [330 -117]
tto [t6 t8]
ht
setpos [330 -117]
tto [t4]
st
setpos [296 -122]
tto [t1]
seth 270
repeat 10 [fd 8 wait 1]
seth 360
repeat 10 [fd 11 wait 1]
seth 270
repeat 10 [fd 7 wait 1]
seth 223
repeat 10 [fd 15 wait 1]
tto [t4]
seth 270
repeat 39 [fd 10 wait 1]
seth 90
repeat 42[fd 10 wait 1]
tto [t3]
ht
tto [t8]
st wait 10
ht
tto [t6]
st wait 15
page3
winner
wait 50
page5
end

to play
tto [t1]
repeat 20 [setshape 30 wait 2 setshape 29 wait 2]
repeat 41 [setshape 31 wait 2 setshape 32 wait 2]
page6
end

to A
tto [t7]
setpos [-361 -166]
setshape 44
tto [t1 t2 t3 t4 t5 t6 t7]
ht
wait 5
tto[t3]
setpos [11 -167]
st
wait 5
tto[t7]
st
seth 90
repeat 10 [setshape 64 fd 20 wait 2 setshape 44 fd 20 wait 2]
tto [t7]
setshape 42
tto [t3 t7]
seth 270
repeat 24 [ fd 10 wait 2]
ht
page7
end

to finalcartoon
tto [t3]
setpos [236 -166]
tto [t1]
setshape 25
repeat 10 [setshape 16 wait 1 setshape 25 wait 1]
tto [t3]
st
seth 270
repeat 10 [fd 23 wait 2]
ht
tto [t1]
setshape 47 wait 7
setshape 46
end