ConvertJSN.LEN := 0;

FOR i := 0 TO 40 DO
    ConvertJSN.DATA[i] := 0;
END_FOR;

pos := 0;

FOR i := 0 TO 9 DO

    IF (StartIndex + i) <= 63 THEN

        value := In_Results.Results[StartIndex + i];

		byteVal := value MOD 256;
		ConvertJSN.DATA[pos] := byteVal;

		byteVal := (value / 256) MOD 256;
		ConvertJSN.DATA[pos + 1] := byteVal;

		byteVal := (value / 65536) MOD 256;
		ConvertJSN.DATA[pos + 2] := byteVal;

		byteVal := value / 16777216;
		ConvertJSN.DATA[pos + 3] := byteVal;

        pos := pos + 4;

    END_IF;

END_FOR;


FOR i := 0 TO 39 DO
    IF ConvertJSN.DATA[i] <> 0 THEN
        ConvertJSN.LEN := i + 1;
    END_IF;
END_FOR;