Program and Design by
Gregory Bauman
The Lakeveiw School
Denville NJ 07843-3419

to greg

tto [ t1 ]
setpos [ -294 17 ]
seth 90
repeat 9999 [ fd 1 ]
end
to fast
tto [ t3 ]
setpos [ 243 13 ]
seth 270
repeat 9999 [ fd 1 ]
end
to fat
tto [ t2 ]
setpos [ -19 -65 ]
seth 360
repeat 9999 [ fd 1 ]
page02
end
to man
tto [ t1 ]
setpos [ 279 97 ]
tto [ t2 ]
setpos [ 260 59 ]
setsh 43
tto [ t1 t2 ]
seth 270
repeat 150 [ fd 2 wait 1 ]
tto [ t2 ]
seth 315
repeat 10 [ fd 10 wait 1 setsh 44 wait 2 setsh 42 wait 2 setsh 45 wait 2 setsh 43 wait 2 ]
seth 270
repeat 10 [ fd 10 wait 1 wait 2 setsh 42 wait 2 setsh 45 wait 2 setsh 43 wait 2 ]
seth 225
repeat 10 [ fd 10 wait 1 wait 2 setsh 42 wait 2 setsh 45 wait 2 setsh 43 wait 2 ]
fd 25 setsh 30
page4

end

to blow

tto [ t2 ]

seth 270
repeat 50 [ fd 2 wait 1 ]
seth 315
repeat 25 [ fd 2 wait 1 ]
seth 180
repeat 125 [ fd 2 wait 1 ]
tto [ t3 ]
setsh 3
setsize 100
setsh 14
tto [ t1 ]
setsh 47
tto [ t3 ]
setsize 20
tto [ t1 ]
seth 180
repeat 100 [ fd 2 wait 1]
end

to frog
tto [ t1 ]
setsh 30
tto [ t4 ]
setpos [ 205 14 ]
tto [ t5 ]
setpos [ -69 26 ]
setsh 14
tto [ t2 ]
setsh 48
setpos [ -217 78 ]
seth 90
tto [ t5 ]
setsh 14
tto [ t2 ]
repeat 50 [ fd 4 wait 1 ]
setsh 40
tto [ t5 ]
setsh 46
tto [ t2 ]
seth 270
repeat 25 [ fd 10 wait 1 ]
tto [ t4 ]
seth 90
repeat 25 [ fd 4 wait 1 ]
tto [ t5 ]
setsize 20
setsh 3
setsize 40 wait 1

setsize 60 wait 1

setsize 80 wait 1
setsize 100 wait 1

setsize 120 wait 1
setsize 140 wait 1
setsize 160 wait 1
setsize 20 wait 1
tto [ t4 ]
seth 270
repeat 25 [ fd 4 wait 1 ]
tto [ t2 ]
seth 90
repeat 25 [ fd 10 wait 1 ]
tto [ t5 ]
setsh 14
tto [ t1 ]
setsh 16
tto [ t2 ]
seth 270
repeat 25 [ fd 10 wait 1 ]
tto [ t4 ]
seth 90
repeat 25 [ fd 4 wait 1 ]
wait 25
page5
end

to fire
tto [ t2 t1 ]
setsh 5
tto [ t3 ]
setsh 6
tto [ t5 ]
setsh 31
setpos [-97 -34]
seth 270
repeat 100 [ fd 2 wait 1 ]
tto [ t2 ]
setsh 64
tto [ t5 ]
repeat 200 [ fd 2 wait 1 ]
tto [ t3 ]
setsh 32
tto [ t5 ]
setsh 31
seth 90
repeat 50 [ fd 4 wait 1 ]
tto [ t1 ]
setsh 64
wait 25
page7

end
to kill
tto [ t2 ]
setsh 13
tto [ t4 ]
setpos [ 29 66]
setsh 62
setsh 63
seth 315
repeat 35 [ fd 2 ]
seth 270 repeat 35 [ fd 2 ]
seth 225 repeat 10 [ fd 5 ]
tto [ t2 ]
setsh 47
wait 5
setsh 29
tto [ t4 ]
setsh 62
setpos [ 29 66]
end

to cannon
tto [ t9 ]
setsh 14
tto [ t6 t7 t8 ]
setpos [ -128 145 ]
setsh 46
setsize 40
tto [ t5 ]
setsh 61
tto [ t4 ]
setpos [ -131 145 ]
setsh 46
setsize 40
tto [ t6 ]
seth 90
repeat 25 [ fd 2 wait 0.1 ]
seth 140
repeat 60 [ fd 4 wait 0.1 ]
seth 95
repeat 60 [ fd 3 wait 0.1 ]
setsh 3
setsize 20 wait 3
setsize 40 wait 3
setsize 60 wait 3
setsize 80 wait 3
setsize 100 wait 3
setsize 120 wait 3
setsize 140 wait 3
setsize 160 wait 3
tto [ t7 ]
seth 90
repeat 25 [ fd 2 wait 0.1 ]
seth 130
repeat 60 [ fd 4 wait 0.1 ]
seth 100
repeat 60 [ fd 3 wait 0.1 ]
setsh 3
setsize 20 wait 3
setsize 40 wait 3
setsize 60 wait 3
setsize 80 wait 3
setsize 100 wait 3
setsize 120 wait 3
setsize 140 wait 3
setsize 160 wait 3
tto [ t8 ]
seth 90
repeat 25 [ fd 2 wait 0.1 ]
seth 120
repeat 60 [ fd 4 wait 0.1 ]
seth 85
repeat 60 [ fd 3 wait 0.1 ]
setsh 3
setsize 20 wait 3
setsize 40 wait 3
setsize 60 wait 3
setsize 80 wait 3
setsize 100 wait 3
setsize 120 wait 3
setsize 140 wait 3
setsize 160 wait 3
tto [ t4 ]
seth 90
repeat 25 [ fd 2 wait 0.1 ]
seth 125
repeat 60 [ fd 4 wait 0.1 ]
seth 105
repeat 60 [ fd 3 wait 0.1 ]
setsh 3
setsize 20 wait 3
setsize 40 wait 3
setsize 60 wait 3
setsize 80 wait 3
setsize 100 wait 3
setsize 120 wait 3
setsize 140 wait 3
setsize 160 wait 3
tto [ t5 ]
setsh 61
tto [ t2 ]

repeat 5 [ seth 360 fd 20 wait 1 seth 180 fd 20 wait 1 ]
tto [ t9 ]

end

to car
tto [ t1 ]
setsh 28
tto [ t5 ]
setsize 80
setsh 31
tto [ t4 ]
setsh 31
tto [ t3 t4 ]
setpos [ -358 1 ]
tto [ t5 ]
setpos [ -342 -7 ]
setsh 14
tto [ t1 ]
setpos [ -165 10 ]
tto [ t2 ]
setsh 31
tto [ t1 ]
seth 90
repeat 55 [ fd 4 wait 0.1 ]
tto [ t2 ]
setsh 15
tto [ t1 ]
seth 270
repeat 55 [ fd 4 wait 0.1 ]
tto [ t3 ]
setsh 31
setsize 160
seth 45
repeat 80 [ fd 2 wait 0.1 ]
seth 135
repeat 35 [ fd 2 wait 0.1 ]
seth 90
repeat 20 [ fd 2 wait 0.1 ]
repeat 50 [ seth 360 fd 40 wait 1 seth 180 fd 40 wait 1 ]
tto [ t1 ]
seth 90
repeat 55 [ fd 4 wait 0.1 ]
tto [ t3 ] repeat 50 [ fd 2 ]
tto [ t1 ]
seth 270
repeat 55 [ fd 4 wait 0.1 ]
tto [ t3 ]
setsh 15
tto [ t4 ]
setsh 31
tto [ t5 ]
setsh 61
tto [ t4 ]
setsh 31
tto [ t4 t5 ]
setsize 160
seth 45
repeat 80 [ fd 2 wait 0.1 ]
seth 135
repeat 35 [ fd 2 wait 0.1 ]
seth 90
repeat 20 [ fd 2 wait 0.1 ]
tto [ t5 ]
seth 180
repeat 30 [ fd 1 ]
tto [ t4 ]
seth 45
repeat 80 [ fd 2 wait 0.1 ]
seth 135
repeat 130 [ fd 2 wait 0.1 ]
tto [ t5 ]
setsh 3
setsize 10 wait 2
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 wait 2
setsize 160 wait 2
setsize 10 wait 2
tto [ t1 ]

setsh 60
wait 20
page8
end
to cars

tto [ t1 ]
setpos [ -198 16 ]
tto [ t2 ]
setsh 13
setpos [ 151 -30 ]
tto [ t1 ]
seth 90
repeat 100 [ fd 4 wait 0.1]
tto [ t2 ]
setsh 29
tto [ t1 ]
setpos [ -198 16 ]

end