FUNCTION "INT_to_4BCD" : Word
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
in : Int;
END_VAR
VAR_TEMP
u : UInt;
END_VAR
BEGIN
#u := INT_TO_UINT(#in);
#INT_to_4BCD := UINT_TO_WORD(((#u / 1000) MOD 10) * 4096 + ((#u / 100) MOD 10) * 256 + ((#u / 10) MOD 10) * 16 + #u MOD 10);
END_FUNCTION