Blitz Basic Tutes - Answer Ex.4

Ex.4

Graphics 640,480
SetBuffer BackBuffer()
img=LoadImage("hill_castle.jpg")
DrawBlock img,0,0
piece=CreateImage(160,160)
GrabImage piece,320,160
Cls
DrawBlock piece,0,0
Flip
WaitKey
End