bild=laodimage("Bilder/spielfigur.bmp")
x=0
y=0

;Graphics 640,480 usw..

repeat
cls
drawimage bild,x,y

if keydown(205) then ;Die Figur bewegt sich nach rechts
x=x+1
endif

flip
until keyhit(1)
end

;Ein kleine Bsp. für "Wie bewege ich einen Kreis über den Bildschirm?" von Smokie für Hallosager damit
;er draus lernt und er es nicht abschreibe/kopiert!

;Grafikmodus setzen
Graphics 640,480
;Backbuffer setzen
SetBuffer BackBuffer()
;Die x koordinate für den Ball
xpos=10
;Die y Koordinate für den Ball
ypos=10
;Hauptschleife
Repeat
Cls                  ;Den Bildschirm bei jedem Schleifendruschlauf löschen
ClsColor 0,0,255      ;Die Hintergrundfarbe auf blau setzen

Color 255,0,0         ;Rot für den Kries als Farbe wählen
Oval xpos,ypos,10,10   ;Den Kreis malen

If KeyDown(205) Then xpos= xpos + 2   ;Wenn die Rechts-taste gedrückt wird xpos erhöhen
If KeyDown(203) Then xpos= xpos - 2 ;Wenn die Links-taste gedrückt wird xpos verringern
If KeyDown(200) Then ypos= ypos - 2 ;Wenn die hoch-taste gedrückt wird ypos verringern
If KeyDown(208) Then ypos= ypos + 2   ;Wenn die Runter-taste gedrückt wird ypos erhöhen

;Prüfen ober der ball den Bildschirmrand berrürt dies geschieht über eine Positionsabfrage:
If xpos > 629 Then xpos=630   ;Wenn xpos größer als 629 dann soll die Position gehalten werden
If xpos < 1 Then xpos=0      ;Wenn xpos kleiner als 1 ist dann soll diese Position auch gehalten werden

If ypos > 469 Then ypos=470   ;Hier gilt das selbe nur mit ypos
If ypos < 1 Then ypos=0

Color 0,255,0   ;Die hier werden die Koordinaten ausgegeben das ist nicht notwendig nur zur Hilfe
Text 0,0,"Der aktuelle xpos Wert: " + xpos
Text 0,10,"Der aktuelle ypos Wert: " + ypos


Flip
Until KeyHit(1)
End