input gpio.0
output gpio.1
output gpio.2
define osc 8
define adc_clock 3
include "modedefs.bas"
ansel=%00000001
adcon0.7=1
define adc_bits 10
w0 var byte
w1 var word
w2 var word
cmcon=7
start:
adcin 0,w1
pause 100
w2=w1
for w0=65 to 90
serout gpio.1,t9600,[254,128]
serout gpio.1,t9600,[#w1]
pause 1000
serout gpio.1,t9600,[254,1]
next w0
goto start
end



hello
thank you very very much men.
i did what you said,but it didn't work.
please check this example out,it doesn't work neither.
can you find any errors in it?
thank you very very much to help me.