Program and Design by
Avery Chan
The Lakeview School
Denville NJ 07834-3419

to logopage
cg
repeat 10
[
setc 9
setbg 90
repeat 200 [ fd 100 rt 45]
setbg 9
setc 27
repeat 200 [ fd 100 rt 45]
setbg 27
setc 67
repeat 200 [ fd 100 rt 45]
]
wait 15
page3
end

to start
wait 10
page4
cg
end

to something

setc 65

cg
repeat 500 [fd 220 rt 4645]
page5
end

to matrix
tto [t1 t2]
cg
setc 15
setbg 9

repeat 7
[
repeat 110 [ fd 123 rt 9999 fd 34 lt 67]
setc 65
repeat 110 [ fd 123 rt 9999 fd 34 lt 67]
setc 104
repeat 110 [ fd 123 rt 9999 fd 34 lt 67]
setc 15
repeat 110 [ fd 123 rt 9999 fd 34 lt 67]
setc 109
repeat 110 [ fd 123 rt 9999 fd 34 lt 67]
setc 15
repeat 110 [ fd 123 rt 9999 fd 34 lt 67]

]
wait 10
page7
end

to stairs
cg
lt 90
setbg 9
setc 15
repeat 50
[
repeat 20 [fd 1]
lt 45 fd 25
rt 45 fd 25
]
wait 20
page8
end

to discoball
repeat 5
[
setsh 31 wait 5
setbg 9
setsh 63 wait 5
setbg 65
setsh 47 wait 5
setbg 9
setsh 31 wait 5
setbg 65
setsh 63 wait 5
]
wait 10
setbg 9
page6

end
to newsflash
cg
rt 90
setbg 9
repeat 9
[
setsh 63 wait 3
fd 50
setsh 32 wait 1
fd 25
setsh 63 wait 3
]
setsh 61 wait 25 setbg 5
setsh 62 wait 15 setbg 9
setsh 13
end