aUCBLogo Demos and Tests / scrolltest2
to
scrolltest2
setupdategraph
false
cs
(
rbox
200
)
pu setpos
[-
400 299
]
pd
scc
=
scrollcal
[
2 2
]
pr
scc
repeat
300
[
scroll
[
800 600
]
scc
updategraph
]
end
to scrolltest2