```pascal
// Block Type: FC
// Block Number: 2037
// Original Network Languages: STL

FUNCTION "BlenderCtrl_ManualActive" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_TEMP
  Dim_HMI_Device : Int;
  PDim_HMI_Device : DWord;
  Dim_HMI_PID : Int;
  PDim_HMI_PID : DWord;
END_VAR

BEGIN

  // Network 1: Set manual active (Original Language: STL)
  //   DEVICE

  // --- BEGIN STL Network 1 ---
   
     	SET
     	R	"HMI_Alarms".gH_Message[3]
   
  // --- END STL Network 1 ---

  // Network 2:  (Original Language: STL)

  // --- BEGIN STL Network 2 ---
   
     	AUF	"HMI_Device"
     	L_DBLG
     	T	"Dim_HMI_Device"
     	L	P#0.0
     	L	"Dim_HMI_Device"
     	SLD	3
     	ADD_D
     	T	"PDim_HMI_Device"
     	L	P#0.0
     	LAR1_ACCU1
     M100:   		NOP_0
     	AUF	"HMI_Device"
     	A	DBX[AR1,P#0.7]
     	AN	DBX[AR1,P#0.0]
     	S	"HMI_Alarms".gH_Message[3]
     	ADDAR1	P#2.0
     	TAR1_ACCU1
     	L	"PDim_HMI_Device"
     	LT_D
     	JC	M100
   
  // --- END STL Network 2 ---

  // Network 3:  (Original Language: STL)

  // --- BEGIN STL Network 3 ---
   
     	AUF	"HMI_PID"
     	L_DBLG
     	T	"Dim_HMI_PID"
     	L	P#0.0
     	L	"Dim_HMI_PID"
     	SLD	3
     	ADD_D
     	T	"PDim_HMI_PID"
     	L	P#0.0
     	LAR1_ACCU1
     M101:   		NOP_0
     	AUF	"HMI_PID"
     	A	DBX[AR1,P#0.7]
     	A_BRACK
     	A	DBX[AR1,P#2.0]
     	O	DBX[AR1,P#3.0]
     	BRACKET
     	S	"HMI_Alarms".gH_Message[3]
     	ADDAR1	P#76.0
     	TAR1_ACCU1
     	L	"PDim_HMI_PID"
     	LT_D
     	JC	M101
   
  // --- END STL Network 3 ---

END_FUNCTION

```