Graphics 800,600,16,2
SetBuffer BackBuffer()
Const ESC = 1
Const Hoch= 200,Runter=208,Links = 203,Rechts=205

Const Links_Zeit_Delay = 100 ; 100 millisekunden für 10er Schritte
Const Rechts_Zeit_Delay=100
Const Wartezeit_Delay = 500
x =400

While Not KeyDown(ESC)

If KeyHit (Links) = 1 Then x = x - 1 ; is klar
If   Not  KeyDown(Links)  Then
Links_Taste_Start = MilliSecs()
Schrittweite = 0
End If
If  MilliSecs() - Links_Taste_Start  > Wartezeit_Delay Then Schrittweite = 10
If MilliSecs() - Links_Speedtime  > Links_Zeit_Delay  Then
  x= x -Schrittweite
  Links_Speedtime = MilliSecs()
End If

If KeyHit (Rechts) = 1 Then x = x + 1 ; is klar
If   Not  KeyDown(Rechts)  Then
Rechts_Taste_Start = MilliSecs()
Rechts_Schrittweite = 0
End If
If  MilliSecs() - Rechts_Taste_Start  > Wartezeit_Delay Then Rechts_Schrittweite = 10
If MilliSecs() - Rechts_Speedtime  > Rechts_Zeit_Delay  Then
  x= x +Rechts_Schrittweite
  Rechts_Speedtime = MilliSecs()
End If

Rect x,300,30,30,1
Text 400,100,x

   Flip
   Cls
Wend
End

const KeyDownObjectMovementStartTime#=0.5
const KeyDownObjectMovementStepTime#=0.25
global KeyDownObjectMovementTime#=0

global fps=40
timer=createtimer(fps)

global Zeitkonstante#=1/float(fps)

repeat
waittimer(timer)

if keydown(KeyMovement) then

KeyDownObjectMovementTime#=KeyDownObjectMovementTime#+Zeitkonstante#

;hier musst du die Fälle catchen, evtl. durch einen Bereich, abgesteckt durch einen Schwellenwert oder so ->
;if KeyDownObjectMovementTime#=Schwellenwert(0.5) ;
;...
;end if
;if (KeyDownObjectMovementTime#-0.5)/0.25>=1 and Schwellenwert((KeyDownObjectMovementTime#-0.5)/0.25) then
;...
;end if

else

 KeyDownObjectMovementTime#=0

end if

until keyhit(1)