Program and Design by
Corey Niblick
The Lake School
Denville NJ 07834-3419

to start
tto [ t2 ]
setpos [ -229 -72 ]
seth 90
repeat 20 [fd 15 wait 2]
setsh [ 61]
seth 270
repeat 20 [fd 20 wait 2 ]
setsh [ 62 ]
setsh [ 53 ]
page3
end

to Godzilla!
tto [ t3 ]
seth 270
fd 50
wait 2
fd 50
wait 2
tto [ t1 ]
seth 270
fd 50
wait 2
fd 50
wait 2
fd 50
wait 2
fd 50
wait 2
tto [ t2 ]
setsh [ 3 ]
setsize 60
wait 2
setsize 80
wait 2
setsize 40
wait 2
setsh [ 37 ]
tto [ t1 ]
seth 90
fd 200
wait 2
tto [ t3 ]
bk 100
page4
end

to Ebirah

repeat 3
[
tto [ t4 ]
fd 100
wait 2
seth 270
fd 50
wait 2
tto [ t1 ]
setsh [ 3 ]
setsize 60
wait 2
setsize 80
wait 2
setsize 40
wait 2
setsh [ 35 ]
tto [ t4 ]
bk 50
wait 2
seth 360
bk 100
wait 30
]
page5
end

to Ghidorah
tto [ t1 ]
seth 45
fd 100
wait 2
seth 135
fd 100
wait 2
bk 100
wait 2
seth 45
bk 100
wait 2
tto [ t2 ]
seth 315
fd 100
wait 2
seth 225
fd 100
wait 2
bk 100
wait 2
seth 315
bk 100
wait 2
seth 270
fd 100
wait 2
bk 100
wait 2
tto [ t1 ]
seth 90
fd 100
wait 2
bk 100
wait 2
tto [ t2 ]
bk 150
wait 2
tto [ t3 ]
setsh [ 3 ]
setsize 40
wait 2
setsize 60
wait 2
setsize 80
wait 2
setsize 60
wait 2
setsize 40
wait 2
setsize 20
wait 2
tto [ t2 ]
fd 150
fd 100
wait 2
tto [ t1 ]
seth 315
fd 100
wait 2
bk 100
wait 2
tto [ t1 ]
setsh [ 16 ]
tto [ t2 ]
bk 100
wait 2
tto [ t3 ]
setsh [ 28 ]
wait 30
tto [ t1 ]
setsh [ 4 ]
page6
end

to clawta
tto [ t1 ]
seth 90
fd 50
wait 2
fd 50
wait 2
setsh [ 32 ]
tto [ t2 ]
setsh [ 3 ]
setsize 40
wait 2
setsize 60
wait 2
setsize 80
wait 2
setsize 60
wait 2
setsize 40
wait 2
tto [ t1 ]
setsh [ 31 ]
bk 50
wait 2
bk 50
wait 2
seth 315
fd 50
wait 2
seth 225
wait 2
fd 50
wait 2
tto [ t3 ]
setsh 3
setsize 40
wait 2
setsize 60
wait 2
setsize 80
wait 2
tto [ t1 ]
seth 45
fd 50
wait 2
seth 135
fd 50
wait 2
tto [ t3 ]
setsh 25
setsize 20
wait 2
tto [ t2 ]
setsh 27
setsize 60
wait 20
end