Code:
$regfile = "M48def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
Dim Flag As Word
Flag = 2

'Servo
Config Servos = 1 , Servo1 = Portb.1 , Reload = 10
Config Portb.1 = Output


'Pumpe 1 an PD7
Pumpe1 Alias Portd.5
Config Pumpe1 = Output

'Motor Stauchen an PD6
Stauchen Alias Portd.6
Config Stauchen = Output

'Motor Streckenan PD7
Strecken Alias Portd.7
Config Strecken = Output

'Pumpe 2 an PB0
Pumpe2 Alias Portb.0
Config Pumpe2 = Output

'TASTER 1 an PD2
Taster1 Alias Pind.2
Config Pind.2 = Input
Portd.2 = 1

'Taster 2 an PD3
Taster2 Alias Pind.3
Config Pind.3 = Input
Portd.3 = 1

On Int0 Zweiter
On Int1 Erster
Config Int0 = Falling
Config Int1 = Falling
Enable Int0
Enable Int1
Enable Interrupts
      Servo(1) = 60
      'Pumpe1 = 1 : Pumpe2 = 0
Do
      If Flag = 1 Then
         'Servo(1) = 40
         'Pumpe1 = 1 : Pumpe2 = 1
         'Waitms 1000
         'Pumpe1 = 0 : Pumpe2 = 1
         'Waitms 2000
         Strecken = 1 : Stauchen = 0

      Elseif Flag = 0 Then
         'Servo(1) = 50
         'Pumpe1 = 1 : Pumpe2 = 1
         'Waitms 1000
         'Pumpe1 = 1 : Pumpe2 = 0
         'Waitms 2000
         Strecken = 0 : Stauchen = 1
      End If
Loop

Zweiter:
      Strecken = 0 : Stauchen = 0
      Flag = 1

Return

Erster:

      Strecken = 0 : Stauchen = 0
      Flag = 0

Return
Return
nun habe ich es so gemacht doch leider bleibt der Vorschub an einem ende stehen und kommt bewegt sich nicht zurück

Gruß
Martin