Insert the following snippet to stabilaze the ADC reading averaging it.

Code:
A0 var Byte
Ad_Average Var Word

Ad_Average = 0
For A0  = 0 TO 7
ADCIN 4, ad_word				
Ad_Average = Ad_Average + ad_word
Pauseus	200
Next A0

ad_word = Ad_Average >> 3

Al.