aUCBLogo Demos and Tests / teststack


to teststack
   clearText
   fillstack 1000000
end

to fillstack n
   if n > 0 [fillstack n-1]
   n=n
end