)
<br />

<br />
; Use CopyPixel to copy the top half of the image to the frontbuffer
<br />
For y=0 To ImageHeight(pic)/2
<br />
For x=0 To ImageWidth(pic)
<br />
CopyPixel x,y,ImageBuffer(pic),x,y
<br />
Next
<br />
Next
<br />

<br />
Locate 0,GraphicsHeight()/2
<br />
Print "Press a key to use CopyPixelFast to copy the bottom half of the image"
<br />
Print "Once this has finished, you can then press a key to end the program"
<br />

<br />
WaitKey()
<br />

<br />
; Lock buffer before using CopyPixelFa