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

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

VAR_INPUT
  Preset : Int;
  Start : Bool;
  Stop : Bool;
  Reset : Bool;
  Base : Bool;
END_VAR

VAR_OUTPUT
  End : Bool;
END_VAR

VAR_INOUT
  Actual : Int;
END_VAR

BEGIN

  // Network 1:  (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	AN	"Start"
     	O	"Reset"
     	JC	NOTM
     
     	L	"Actual"
     	L	"Preset"
     	GE_I
     	=	"End"
     	AN	"Base"
     	O	"End"
     	O	"Stop"
     	BEC
     
     	L	"Actual"
     	ADD	1
     	T	"Actual"
     	BEU
     
     NOTM:   		L	0
     	T	"Actual"
     	R	"End"
   
  // --- END STL Network 1 ---

END_FUNCTION

```