ScreenRes 1000, 800
Dim figureX As Integer
Dim figureY As Integer

figureX = 200
figureY = 500

const KEY_ESC as string = chr(27)
const KEY_CLOSE as string = chr(255) & "k"
const KEY_LEFT as string = chr(255) & "K"



Do
    Dim key As String
    key = InKey()

    if key = KEY_ESC or key = KEY_CLOSE then exit do

    if key = KEY_LEFT then figureX -= 1


    screenlock
    cls
  'line (figureX, figureY) - step(20, 20), 1, BF ist die schnellere Variante
    line (figureX, figureY) - (figureX + 20, figureY + 20), 1, BF
    screenunlock

    sleep 10
Loop