Type Character
    Field X
    Field Y
    Field img
End Type

FrameLimit 30

Jonne.Character = New (Character)
Jonne\img = LoadImage("media/ebin.bmp")
X = 0
Y = 0


Repeat
    DrawImage Jonne\img, Jonne\X, Jonne\Y

    If KeyDown(cbkeya) Then
        Jonne\X = Jonne\X - 1
    ElseIf KeyDown(cbkeyd) Then
        Jonne\X = Jonne\X + 1
    ElseIf KeyDown(cbkeyw) Then
        Jonne\Y = Jonne\Y - 1
    ElseIf KeyDown(cbkeys) Then
        Jonne\Y = Jonne\Y + 1
    EndIf

    DrawScreen
Until EscapeKey()
End