Hi

Code:
$regfile = "4433def.dat"
$crystal = 7372800

const inter1=1
const inter2=10

Dim Intervall As Word , Temp As Byte

Do
   intervall=inter1
   gosub buttons
   While Button = 1
      gosub buttons
      Incr Temp
      If Temp > 3 Then Intervall = Inter2
      for i = 1 to intervall
         incr bytevariable
      next
      Waitms 1000
   Wend
Loop

butan:
   Button=1
return

butaus:
   Button=0
return

buttons:
   Debounce M , 0 , butan , Sub
   Debounce M , 1 , butaus , Sub
Return
Inter1=Konstante, mit der du die Schritte bis zum umschalten auf zwei einstellen kannst (in deinem Beipiel 1 Schritt pro Sek.)

Inter2=Konstante, mit der du die Schritte nach dem umschalten einstellen kannst (in deinem Beipiel 10 Schritte pro Sek.)


Ich hoffe dir konnte das helfen...
Habs zwar nicht getestet, müsste aber funktionieren

MfG
Martin