I can hazard a guess that changing this section of code
Code:
     vt=adval * 500      
            vt=div32 1023 
            grup=vt+grup  
            PAUSE 10
to this
vt=adval >> 1
grup=vt+grup
PAUSE 10
might save you a bit of code & ram space. But, I've not checked this, so, you'll beware. Again, if you notice,
I've used an approximation of divide by 2(500/1000) for 500/1023 instead of 1/2.046 I do not think it will matter much if you calibrate
the readings.