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

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

VAR_TEMP
  Dim_HMI_Digital : Int;
  PDim_HMI_Digital : DWord;
END_VAR

BEGIN

  // Network 1:  (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	AUF	"HMI_Digital"
     	L_DBLG
     	T	"Dim_HMI_Digital"
     	L	P#0.0
     	L	"Dim_HMI_Digital"
     	SLD	3
     	ADD_D
     	T	"PDim_HMI_Digital"
   
  // --- END STL Network 1 ---

  // Network 2: DIGITAL SCANNER (Original Language: STL)

  // --- BEGIN STL Network 2 ---
   
     	AUF	"HMI_Digital"
     	L	P#0.0
     	LAR1_ACCU1
     M011:   		NOP_0
     	A	DBX[AR1,P#0.7]
     	JC	M012
     	SET
     	R	DBX[AR1,P#0.1]
     	R	DBX[AR1,P#0.2]
     	L	0
     	T	DBW[AR1,P#6.0]
     	T	DBW[AR1,P#8.0]
     	JU	M030
     M012:   		AN	DBX[AR1,P#0.0]
     	JC	M022
     	L	0
     	T	DBW[AR1,P#8.0]
     	A	DBX[AR1,P#0.1]
     	JC	M030
     	L	DBW[AR1,P#6.0]
     	AN	CLK_0.1S
     	JC	M013
     	ADD	1
     	T	DBW[AR1,P#6.0]
     M013:   		L	DBW[AR1,P#2.0]
     	LT_I
     	JC	M030
     	SET
     	S	DBX[AR1,P#0.1]
     	JU	M030
     M022:   		L	0
     	T	DBW[AR1,P#6.0]
     	AN	DBX[AR1,P#0.1]
     	JC	M030
     	L	DBW[AR1,P#8.0]
     	AN	CLK_0.1S
     	JC	M023
     	ADD	1
     	T	DBW[AR1,P#8.0]
     M023:   		L	DBW[AR1,P#4.0]
     	LT_I
     	JC	M030
     	SET
     	R	DBX[AR1,P#0.1]
     M030:   		NOP_0
     	ADDAR1	P#10.0
     	TAR1_ACCU1
     	L	"PDim_HMI_Digital"
     	LT_D
     	JC	M011
   
  // --- END STL Network 2 ---

END_FUNCTION

```