aUCBLogo Demos and Tests / bitpastetotest

to bitpastetotest
   clearScreen
   box
   PenUp setXY -10 -10
   bmp=BitCopy 200 200
   bmp2=BitCopy 200 200
   BitMakeTransparent bmp2 ScreenColor
   BitPasteTo bmp bmp2 (BitMaxX bmp)*0.4 (BitMaxY bmp)*0.4
   Home
   setXY -10 -10
   BitPaste bmp
   Home
   PenDown
end