(* @PATH := '\/TASK0_VOID' *)
(* @SYMFILEFLAGS := '4096' *)
FUNCTION ConvertReal : MFM_Real_Struct
VAR_INPUT
	mIn_ValueFromMFM	: ARRAY[0..4] OF BYTE;
END_VAR
VAR
	i					: INT;
	p					: UDINT;
	mPoint				: POINTER TO BYTE;
	mTemp				: REAL;
	mTempReal			: MFM_Real_Struct ;
END_VAR
(* @END_DECLARATION := '0' *)
mPoint := ADR(mTemp);
FOR i := 3 TO 0 BY -1
DO
	mPoint^ := mIn_ValueFromMFM[i] ;
	p := mPoint ;
	p := p + 1 ;
	mPoint := p ;
END_FOR

ConvertReal.Analog_Value := mTemp;
ConvertReal.Value_State := mIn_ValueFromMFM[4] ;

END_FUNCTION