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


thank you very very much men
i used your tricks(henrik) and used your examples(archangel).
but it isnt working yet.
please check my example out.
can you find an error?
oh,thank you veryyyyyy much!
in the software all the critical words are with capital letters,when i copied them they turned to lowercase.
oh, excuse me if my english speaking is weak!!!