Hi,

ja so wirds gemacht...

oder so... sieht nur schöner aus.

Code:
Config Portd = input

Dim Sensor_links As Bit
Dim Sensor_rechts as Bit

Sensor_links Alias Pind.1
Sensor_rechts Alias Pind.2

'--->Haubtprogramm<---
Do

  if Sensor_links = 1 or Sensor_rechts = 1 then gosub Ausweichen

  'restliche Code....

Loop

'--->Unterrutine<----
Ausweichen:

'Deine Ausweichrutine...

Return