Designed and Programed by Robb Elko
@ The Lakeview School Denville NJ 07834-3419 2000

to ball
tto [ t1 ]
setpos [ 153 -51 ]
tto [ t2 ]
setpos [ -175 92 ]
tto [ t3 ]
setpos [ 192 104 ]
tto [ t1 t2 t3 ]
pu
seth 315
repeat 10 [ fd 1000 rt 1563 lt 878 fd 784 lt 367 fd 7657 lt 3858 rt 4745 lt 484 fd 484 ]
tto [ t1 ]
setpos [ 153 -51 ]
tto [ t2 ]
setpos [ -175 92 ]
tto [ t3 ]
setpos [ 192 104 ]
wait 30
page2
end

to homerun
bat
tto [ t1 ]
setpos [ -216 -124 ]
tto [ t2 ]
setpos [ -220 -138 ]
wait 5
tto [ t1 t2 ]
pu seth 55
repeat 17 [ fd 15 wait 2 ]
record1
repeat 18 [ fd 15 wait 2 ]
wait 10
page3
end

to news
tto [ t2 ]
setpos [ -58 15 ]
seth 90
repeat 10 [ fd 5 ]
tto [ t1 ]
setpos [ -9 26 ]
repeat 10 [ fd 264 rt 364 fd 4658 lt 585 rt 4758]
setpos [ -9 26 ]
tto [ t2 ]
setpos [ -58 15 ]
wait 10
page4
end

to news2
tto [ t2 ]
setpos [ -58 15 ]
seth 90
repeat 10 [ fd 5 ]
tto [ t1 ]
setpos [ -9 26 ]
repeat 10 [ fd 264 rt 364 fd 4658 lt 585 rt 4758]
setpos [ -9 26 ]
tto [ t2 ]
setpos [ -58 15 ]
wait 10
page5
end

to yankees
tto [ t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 ]
seth 0
repeat 38 [ fd 10 ]
wait 10
page6
wait 30
page7
wait 20
page8
fred
robb
page1
end