Define  LCD_DREG  PORTD
	Define  LCD_DBIT  4
	Define  LCD_RSREG PORTE
	Define  LCD_RSBIT 0
	Define  LCD_EREG  PORTE
	Define  LCD_EBIT  1
	 
	adval Var word    ' Create adval to store result
	 
	   TRISA = %11111111       ' Set PORTA to all input
	   ADCON1 = %10000010      ' Set PORTA analog and RIGHT justify result
	   ADCON0 = %11000001      ' Configure and turn on A/D Module
	   Pause 500               ' Wait .5 second
	 
	mainloop:
	   ADCON0.2 = 1            ' Start Conversion
	 
	notdone:
	   Pause 5
	   If ADCON0.2 = 1 Then notdone ' Wait for low on bit-2 of ADCON0, conversion finished
	 
	   adval.highbyte = ADRESH ' Move HIGH byte of result to adval
	   adval.lowbyte = ADRESL  ' Move LOW byte of result to adval
	 
	   Lcdout $fe, 1           ' Clear screen
	   Lcdout "Value: ", DEC adval  ' Display the decimal value 
	   Pause 100               ' Wait .1 second
	 
	   Goto mainloop           ' Do it forever
	  
	   End