10 lines
164 B
Plaintext
10 lines
164 B
Plaintext
&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 |
