Global b,a,m$,stpx,stpy,dx,dy,imx,imy,fr,im,test
Graphics 640,480,16,2

test=CreateImage(32,32)
SetBuffer ImageBuffer(test)
Color 255,128,64
Oval 2,2,14,14
GrabImage test,0,0
SetBuffer BackBuffer ()

While Not KeyDown(1)
Cls
ImageMove(test,"44444444444444444444666666666666666666668888888888888888888822222222222222222222",1,1,0)

Flip
Wend
End

Function ImageMove(test,m$,stpx,stpy,fr)
b=Len(m$)
If a<b Then a=a+1:Else a=1
Select Mid$(m$,a,1)
Case 0
dx=0:dy=0
Case 1
dx=0: dy=-stpy
Case 2
dx=stpx:dy=-stpy
Case 3
dx=stpx:dy=0
Case 4
dx=stpx:dy=stpy
Case 5
dx=0:dy=stpy
Case 6
dx=-stpx:dy=stpy
Case 7
dx=-stpx:dy=stpy
Case 8
dx=-stpx:dy=-stpy
End Select
imx=imx+dx:imy=imy+dy
DrawImage test,imx,imy,fr
End Function

Type ImageMove
  Field b,a,m$,stpx,stpy,dx,dy,imx,imy,fr,im,test
End Type

; Einmal:
i.ImageMove = New ImageMove
; Beliebig oft:
ImageMove(i,blabla... )

Function PeekString$(bank,numbytes)
   Local a$=""
   For pos=0 To numbytes-1
      byte=PeekByte(bank,pos)
      If byte<>0 Then a$=a$+Chr$(byte)
   Next
   Return a$
End Function

if status <>-1 then
status=image_move(status, x,y,befehl$,bildhandle)
end if
.
.
.
function move_image(status,x,y,befehl$,bildhandle)

if mid(befehl$,status,1)<>0 then
  for zaehler= 1 to status+1
     ;prüfe mit mid(befehl,i,1) auf richtung, addiere dementsprechend deine x und y  zu den startx und y.
  next
  status=status+1
else
  status=-1
end if
drawimage bildhandle,xneu,yneu
return status
end function