PROCEDURE NumTOWord
LPARAMETER nNumber
RETURN CHR(BITAND(255,nNumber)) ;
	+ CHR(BITAND(65280,nNumber)%255) ; 
	+ CHR(BITAND(16711680,nNumber)%255) ;
	+ CHR(BITAND(4278190080,nNumber)%255)

PROCEDURE WordTONum
LPARAMETER cBuffer
RETURN ASC(SUBSTR(cBuffer,1,1)) ;
	+ ASC(SUBSTR(cBuffer,2,1))*256 ;
	+ ASC(SUBSTR(cBuffer,3,1))*65536 ;
	+ ASC(SUBSTR(cBuffer,4,1))*16777216