aUCBLogo Demos and Tests / bitpastefasttest


to bitpastefasttest
   setUpdateGraph false
   clearScreen
   box
   bmp=BitCopy 100 100
   clearScreen
   PenUp
   while [not Key?]
   [   setXY 700*rnd-400 500*rnd-300
      BitPasteFast bmp
   ]
   Home
   PenDown
end