aUCBLogo Demos and Tests / scrolltest


to scrolltest
   
cs (rbox 300)
   
pu setpos [-400 -300pd
   
repeat 300
   
[   scroll [800 600][2 2]
   
]
end