Programed and Designed in 2002 by Walter Bakun
@ The Lakeview School Denville NJ 07834-3419

to start

tto[t1 t2 ]
seth 315
repeat 30[fd 20 wait 4]

end

to charge

tto[t1]
seth 90
repeat 5[fd 150 wait 3]
tto[t2 t3]
setshape 3

end

to fly

tto[t4 t5]
seth 270
bk 300
tto[t5]
setpos
[-205 137]
tto[t4]
setpos
[195 139]
tto[t2]
setshape 14
tto[t3]
setshape 62
page2

end

to eat

tto[t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12]
seth 90
repeat 10[fd 150 wait 5]
tto[t1]
setpos
[-47 -162]
tto[t9]
setpos
[-150 -146]
tto[t2]
setpos
[96 -129]
tto[t3]
setpos
[93 130]
tto[t4]
setpos
[-25 88]
tto[t5]
setpos
[-88 144]
tto[t6]
setpos
[-18 151]
tto[t7]
setpos
[-88 88]
tto[t8]
setpos
[-34 -115]
tto[t10]
setpos
[-106 -121]
tto[t11]
setpos
[-147 112]
tto[t12]
setpos
[-95 -163]
page3

end

to blowup

tto[t1 t2]
repeat 5 [seth 90 fd 200 wait 3 fd 100 wait 2 fd 100 wait 2 fd 100 wait 1]
tto[t2]
seth 180
repeat 4[fd 55 wait 5]
tto[t2]
setsize 60
wait 5
setsize 80
wait 5
setsize 100
wait 5
setsize 120
wait 5
setsize 140
wait 5
setsize 160
wait 10
tto[t1]
setpos
[-277 119]
tto[t2]
setpos
[-279 110]
setsize 40
page4

end

to feed

tto[t1]
setshape 57
seth 90
repeat 25[setshape 58 wait 1 fd 10 setshape 57 wait 1 fd 10 ]
tto[t2 t3 t4]
setshape 3
tto[t1]
setpos[-272 -105]
wait 10
tto[t2]
setshape 5
tto[t3]
setshape 6
tto[t4]
setshape 25
page5

end

to destroy
tto[t1 t2]
ht
seth 270
wait 12
back 10
wait 3
st
repeat 5[fd 28 wait 3]
ht
tto[t3]
setshape 3
wait 20
tto[t2]
setpos [85 -41]
st
tto[t1]
setpos[86 43]
st
tto[t3]
setshape 29
tto[t1 t2]
ht
page6
end

to insane
tto[t3]
ht
tto[t1]
seth 270
repeat 5[fd 60 wait 3]
wait 3
tto[t3]
st
seth 270
repeat 5[fd 50 wait 4]
ht
tto[t2]
setshape 3
wait 15
tto[t3]
setpos[7 19]
ht
tto[t2]
setpos[-286 6]
setshape 4
tto[t1]
setpos [330 14]
page7
end

to end
tto[t3]
ht
tto[t2 t3]
seth 90
repeat 4[fd 85 wait 2]
tto[t3]
seth 90
st
repeat 5[fd 10 wait 2]
ht
tto[t1]
setshape 3
showtext
wait 16
tto[t2]
setpos[-274 5]
tto[t3]
setpos[-171 -9]
tto[t1]
setshape 30
setpos[258 -23]
hidetext
page1
end