&ACCESS RV1
DEFFCT INT GetInt16 (iVal:IN )
DECL INT iVal,iRet
IF iVal>32767 THEN
iRet=iVal-65536
ELSE
iRet=iVal
ENDIF
RETURN iRet
ENDFCT