Stable ADC readings

[fratello]

It's this correct ?
In header of code I add :

    ADCON0 = %10001101      ' ADC input on GPIO.4/AN3/pin3 (page 41)
                            ' MSB 1 = Right Justify                   "1"    
                            '     0 = Vdd as voltage reference        "0"
                            '     0 = n/a                             "00"
                            '     0 = n/a
                            '     1 = select channel 03 (bit 2 of 2)  "11"
                            '     1 = select channel 03 (bit 1 of 2)
                            '     0 = conversion status (see routine) "0"
                            ' LSB 1 = A/D converter module is on      "1"

And I modify the "check" subroutine like that :

check:           
 vt  =0
 vs  =0
 grup=0
 cnt =0
 pause 50			
 for cnt = 1 to 10
      ADCON0.1 = 1
      NOT_DONE:
		if ADCON0.1 = 1 THEN NOT_DONE
            Pause 10
            adval.highbyte = ADRESH
            adval.lowbyte = ADRESL
 PAUSE 10
 	vt=adval * 5000
 	vt=div32 1023
 	grup=vt+grup
 PAUSE 10
 next cnt
 vs=grup / 10
      if (vs > checkin) or (T1Count > 50) then 		   
  	     	gpio.0=0
           	gpio.5=0
      endif

The hardware it's in picture.
Thanks !