
And it's like a sprite! (kind of)
But it's not going round the whole screen...
Code: Select all
x1=40
y1=20
x2=10
y2=30
PBOX x1,y1,x2,y2
svar$=MKI$(x1)+MKI$(y1)+MKI$(x2)+MKI$(y2)
GET x1,y1,x2,y2,svar$
DO
c$=INKEY$
c=ASC(RIGHT$(c$))
SELECT c
CASE &H4B
x=ADD(x1,20)
CLS
PUT x,y,svar$
CASE &H4D
x=SUB(x1,20)
CLS
PUT x,y,svar$
ENDSELECT
LOOP UNTIL c=27
And also
Can i replace svar$ with a picture file? (i'd assume that it's possible, maybe with BLOAD?)
Thanks,
WireLord55