F
PL_
PL_
PL_RESULT()
{R} = OCONV(S$[5,4],'MCXD')
IF {R} > 32768 THEN
   {R} = {R} - 65536
END
