10 lines
163 B
Plaintext
10 lines
163 B
Plaintext
|
&ACCESS RV
|
||
|
|
DEFFCT INT GetInt16 (iVal:IN )
|
||
|
|
DECL INT iVal,iRet
|
||
|
|
IF iVal>32767 THEN
|
||
|
|
iRet=iVal-65536
|
||
|
|
ELSE
|
||
|
|
iRet=iVal
|
||
|
|
ENDIF
|
||
|
|
RETURN iRet
|
||
|
|
ENDFCT
|
