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

FUNCTION "EQ_STRNG" : Bool
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_INPUT
  S1 : String[254];
  S2 : String[254];
END_VAR

VAR_TEMP
  w_Temp : Word;
  y_Loop : Byte;
END_VAR

BEGIN

  // Network 1:  (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	L	_ERR_CONST_
     	LAR1_ACCU1
     	L	_ERR_CONST_
     	LAR2_ACCU1
     	L	NoneW[AR1,P#0.0]
     	T	"w_Temp"
     	AUF	DBB[AR?,P#0.0]
     	L	NoneD[AR1,P#2.0]
     	LAR1_ACCU1
     	L	NoneW[AR2,P#0.0]
     	T	"w_Temp"
     	AUF	DIB[AR?,P#0.0]
     	L	NoneD[AR2,P#2.0]
     	OD	DW#16#0100_0000
     	LAR2_ACCU1
     	SET
     	SAVE
     	L	NoneB[AR1,P#0.0]
     LOP:    		T	"y_Loop"
     	L	NoneB[AR1,P#2.0]
     	L	NoneB[AR2,P#2.0]
     	NE_I
     	JC	RESE
     	ADDAR1	P#1.0
     	ADDAR2	P#1.0
     	L	"y_Loop"
     	LOOP	LOP
     	S	"EQ_STRNG"
     	JC	ENDE
     RESE:   		R	"EQ_STRNG"
     ENDE:   		BE
   
  // --- END STL Network 1 ---

END_FUNCTION

```