Servus!

Hab mal etwas gleichwertiges geschrieben das dynamisch ohne Stufen reagiert und auch im Code kleiner sein wird. Probiers aus und viel Spaß dabei

Code:
Define Mot1Dir    Port[1] 
Define Mot2Dir    Port[3] 
Define Sensor     AD[4] 
Define Mot1Speed  DA[1] 
Define Mot2Speed  DA[2] 
Define Speed1     Byte[1]
Define Speed2     Byte[2]
Define Vor        = On
Define Zur        = Off
Define MidSensor  = 127
Define MaxSensor  = 255

#Init
  Mot1Dir = Vor
  Mot2Dir = Vor 

#MainLoop
  Speed1 = Sensor - Mitte
  Speed2 = MaxSensor - Sensor
  If Sensor > MidSensor Then Speed1 = MidSensor Else Speed2 = MidSensor
  Mot1Links = Speed1 ShL 2
  Mot2Links = Speed2 ShL 2
  GoTo MainLoop
Grüße Wolfgang