Copies a bitmap to the current output device.
Put x, y, screensegment$[,mode]
Put x, y, hbitmap%[,mode]
x, y:Single expression
screensegment$:svar
hbitmap:Handle
mode:iexp
Put x, y copies a portion of the screen saved with, for instance, Get back to screen memory, so that the upper left corner of the segment is aligned with the x,y coordinates on the screen.
By specifying the optional parameter mode it can be determined how the raster operation is to be performed. Raster operation codes define how the system combines colors in output operations that involve a brush, a source bitmap, and a destination bitmap. See BitBlt for a list of common raster operations.
Auto a$, mk%, mx%, my%
OpenW # 1
DefFill 2
PBox 10, 10, 20, 20
Get 10, 10, 20, 20, a$
Repeat
Mouse mx%, my%, mk%
If mk% = 1
Put mx%, my%, a$
EndIf
Until mk% = 2
CloseW # 1
Draws a filled rectangle and saves it in the variables a$. When the left mouse button is pressed, the rectangle is moved to the current mouse position on the screen.
{Created by Sjouke Hamstra; Last updated: 21/10/2014 by James Gaite}