FUNCTION "Set_Input" : Void
TITLE = Eingangsbit zwangssteuern
{ S7_Optimized_Access := 'FALSE' }
VERSION : 0.1
   VAR_INPUT 
      Enable : Bool;   // Baustein aktivieren
      Status : Bool;   // Angegebenen Ausgang auf diesen Status steuern
      InByte : DInt;   // Eingangsbyte zum Steuern
      InBit : Int;   // Eingangsbit 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 = Eingang stuern
      L #InByte;//Ausgangsbyte zum Steuern
      SLD 3;
      L #InBit;//Ausgangsbit zum Steuern
      OW;
      T #AR1Zeiger;//Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)

      U #Status;
      = E[ #AR1Zeiger];//Eingang steuern

NETWORK
TITLE = Ende
      BE;

END_FUNCTION

