FUNCTION "Set_Output" : Void
TITLE = Ausgangsbit zwangsstuern
{ S7_Optimized_Access := 'FALSE' }
VERSION : 0.1
   VAR_INPUT 
      Enable : Bool;   // Baustein aktivieren
      Status : Bool;   // Angegebenen Ausgang auf diesen Status steuern
      OutByte : DInt;   // Ausgangsbyte zum Steuern
      OutBit : Int;   // Ausgangsbit zum Steuern
   END_VAR

   VAR_TEMP 
      AR1Zeiger : DWord;   // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
   END_VAR


BEGIN
NETWORK
TITLE = Baustein aktiviert ?
      UN #Enable;
      BEB;

NETWORK
TITLE = Ausgang steuern
      L #OutByte;//Ausgangsbyte zum Steuern
      SLD 3;
      L #OutBit;//Ausgangsbit zum Steuern
      OW;
      T #AR1Zeiger;//Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)

      U #Status;
      = A[ #AR1Zeiger];//Ausgang steuern

NETWORK
TITLE = Ende
      BE;

END_FUNCTION