gosub load
gosub pasteandcut
Do
cls
sprite 1,a,b,1
if leftkey()=1 then a=a-1
if rightkey()=1 then a=a+1
if upkey()=1 then b=b-1
if downkey()=1 then b=b+1
loop
load:
print "which file do you want to load"
repeat
input a$
until a$ <> ""
load image a$,2,1
return
pasteandcut:
paste image 2,0,0
print "click left side"
wait mouse
x= mousex()
print "click top"
wait mouse
y= mousey()
print "click right"
wait mouse
xx=mousex()
print "click bottom"
wait mouse
yy=mousey()
print "thank you"
get image 1,x,y,xx,yy
a=100
b=100
cls
set sprite 1,0,1
sprite 1,a,b,1
scale sprite 1,50
return
CTP