aUCBLogo Demos and Tests / randomtest

to randomtest
   maxn=800
   n=array maxn
   for [x 1 maxn]
   [   n.x=int 0
   ]
   print [Wait a few moments,
   then press a key to show the distribution!]
   until [key?]
   [   r=1+random maxn
      n.r=n.r+1
   ]
   n=n*600/(max n)
   ht
   boundingbox
   pu
   setxy -400 n.1-300
   pd
   for [x 1 maxn]
   [   setxy x-400 (n.x)-300
   ]
end