Programmed by Chris Guerrieri
The Lakeview School
Denville NJ 07834-3419

to start

tto [ t2 ]
setsh [ 30 ]

tto [ t1 ]
setpos [ -127 -6 ]
st
tto [ t2 ]
setsh [ 30 ]
tto [ t1 ]
repeat 12 [fd 20 wait 2]
tto [ t2 ]
setshape 31
wait 25
tto [ t2 ]
setsh [30]
tto [ t1]
ht

page2

end

to santa

tto [ t3 ]
ht
tto [ t2 ]
ht
tto [ t4 ]
ht
tto [ t1]
setpos [ 315 15 ]
seth 290
repeat 55 [ fd 5 wait 1 ]

tto [ t3 ]
setpos [ 88 114 ]
seth 180
st
repeat 30 [ fd 8 wait 1 ]
ht

tto [ t2 ]
st
setsize 20 wait 2 setsize 40 wait 2 setsize 60 wait 2 setsize 80 wait 2 setsize 100 wait 2 setsize 120 wait 2 setsize 140
crash
tto [ t4 ]
st
setsize 20 wait 2 setsize 40 wait 2 setsize 60 wait 2 setsize 80 wait 2 setsize 100 wait 2 setsize 120 wait 2 setsize 140
crash
tto [ t2]
ht
tto [ t4]
ht
wait 10
tto [t1]
setpos [ 315 15 ]
page3
end

to sadam
tto [t3 ]
setsize 20
tto [ t2 ]
setpos [ -372 16]
tto [ t3 ]
setpos [-246 12]
ht

tto [ t2 ]
repeat 2 [ fd 15 wait 2 setshape 43 fd 15 wait 2 setshape 44 fd 15 wait 2 ]

tto [ t3 ]
setsh [15] st
seth 90
repeat 20 [ fd 10 wait 1 ]
tto [t3 ]
setsh [explode]
setsize 20 wait 2 setsize 40 wait 2 setsize 60 wait 2 setsize 80 wait 2 setsize 100
wait 20
tto [t3]
ht
page4

end

to credits
t1, setpos [ -58 22 ]

repeat 5 [ fd 50 rt 90 wait 3 fd 50 rt 90 wait 3 fd 50 rt 90 wait 3 fd 50 ]

page5

end