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
to bitpastefasttest