please translate this into Hitech C

' Create some variables for use with LN and LOG

		Dim LOG_VALUE as Float
		Dim LOG_POWER as Float
		Dim LOG_TEMP as Float
		Dim LOG_X as Float
		Dim LOG_FACTOR as Float
		Dim LOG_XSQR as Float
		Dim LOG_N as Byte
		Dim LOG_TEMP2 as Byte 

' We can't have ln(1) so we must return a zero if it is
		If LOG_VALUE.Byte0 = 0 Then LOG_VALUE = 0: Return
		
' The difference between LOG_N.BYTE0 and $7E will be the 
' amount of 2^LOG_N's that we want to multiply times ln(2)
		If LOG_VALUE.Byte0 <= $7E Then 
			LOG_N = $7E - LOG_VALUE.Byte0
			LOG_FACTOR = -0.69314718 * LOG_N
		Else 
			LOG_N = LOG_VALUE.Byte0 - $7E
			LOG_FACTOR = 0.69314718 * LOG_N
		Endif
		LOG_VALUE.Byte0 = $7E
		
' Begin the taylor series expansion
' ln(1+LOG_X) = LOG_X - (LOG_X^2/2) + (LOG_X^3/3) -+...
		
		LOG_VALUE = LOG_VALUE - 1
		LOG_X = LOG_VALUE
		LOG_XSQR = LOG_VALUE
		LOG_N = 2
		Repeat
			LOG_XSQR = LOG_XSQR * LOG_X
			LOG_VALUE = LOG_VALUE - (LOG_XSQR / LOG_N)
			LOG_XSQR = LOG_XSQR * LOG_X
			LOG_TEMP2 = (LOG_N + 1)
			LOG_VALUE = LOG_VALUE + (LOG_XSQR / LOG_TEMP2)
			LOG_N = LOG_N + 2
		Until LOG_N > 12
		LOG_VALUE = LOG_VALUE + LOG_FACTOR
		Return

float log_value(float LOG_VALUE){
float LOG_POWER;
float LOG_TEMP;
float LOG_X;
float LOG_FACTOR;
float LOG_XSQR;
char  LOG_N;
      
      LOG_VALUE--;
      LOG_X = LOG_VALUE;
      LOG_XSQR = LOG_VALUE;
      
      for (LOG_N = 2; LOG_N <= 12; LOG_N = LOG_N + 2){
         LOG_XSQR  *= LOG_X;
         LOG_VALUE -= LOG_XSQR / LOG_N;
         LOG_XSQR  *= LOG_X;
         LOG_VALUE += LOG_XSQR / (LOG_N + 1);
      }
      
      return LOG_VALUE + LOG_FACTOR; 
}