Program and Design by Nathan Berger
Computer Class 2002
The Lakeview School
Denville NJ 07834-3419

to begin

page1
tto [ t1 ]
setpos [ -144 -197 ]
tto [ t2 ]
setpos [ -106 -183 ]
repeat 30 [ tto [ t1 ]
fd 1
wait 1
setsh 17
fd 1
wait 1
setsh 18
tto [ t2 ]
setsh 44
fd 1
wait 1
setsh 43
fd 1
wait 1
setsh 42
fd 1
wait 1 ]
page2
tto [ t2 ]
setsh 30
setpos [ -348 -144 ]
seth 90
tto [ t1 ]
setsh 47
setpos [ -328 -146 ]
seth 90
tto [ t2 ]
repeat 55 [ setsh 30 fd 1 wait 1 setsh 29 fd 1 wait 1 setsh 30]
wait 5
announce [Please select your choice]
end

to Pet_Dog
page2
tto [ t1 ]
setpos [ -328 -146 ]
repeat 17 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 46 ]
wait 5
seth 270
repeat 17 [ fd 1 wait 1 setsh 42 fd 1 wait 1 setsh 43 fd 1 wait 1 setsh 44 fd 1 wait 1 setsh 42 ]
setsh 46
end

to Go_Upstairs
tto [ t1 ]
seth 90
setpos [ -328 -146 ]
repeat 60 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 46 ]
seth 0
repeat 135 [ fd 2 wait 1 ]
seth 90
repeat 60 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 46 ]
page3
tto [ t1 ]
setsh 46
setpos [-328 -122]
end

to Brush_Teeth
tto [ t1 ]
setsh 46
setpos [ -328 -122 ]
seth 90
repeat 150 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 48 fd 1 wait 1 setsh 46 ]
seth 0
repeat 2 [ fd 30 wait 4 ]
seth 90
repeat .7 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 48 fd 1 wait 1 setsh 46 ]
wait 10
seth 270
repeat .7 [ fd 1 wait 1 setsh 42 fd 1 wait 1 setsh 43 fd 1 wait 1 setsh 44 fd 1 wait 1 setsh 42 ]
seth 180
repeat 2 [ fd 30 wait 4 ]
seth 270
repeat 150 [ fd 1 wait 1 setsh 42 fd 1 wait 1 setsh 43 fd 1 wait 1 setsh 44 fd 1 wait 1 setsh 42 ]
setsh 46
end

to Go_To_Bed
tto [ t1 ]
setsh 42
page4
tto [ t1 ]
seth 270
setpos [138 124]
repeat 80 [ fd 1 wait 1 setsh 42 fd 1 wait 1 setsh 43 fd 1 wait 1 setsh 44 fd 1 wait 1 setsh 42 ]
page5
tto [ t1 ]
setpos [ -336 -127 ]
seth 90
repeat 110 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 48 fd 1 wait 1 setsh 46 ]
seth 0
repeat 40 [ fd 1 wait 1 setsh 46 fd 1 wait 1 setsh 47 fd 1 wait 1 setsh 48 fd 1 wait 1 setsh 46 ]
setsh 62
seth 90
glide 40 30
wait 10
end