SETPIN GP29, AIN

DO
  PRINT PIN(GP29)
LOOP

OPTION EXPLICIT
oPTION DEFAULT NONE
option autorun on
 'SetPin GP28,pwm1A 'this optional test signal comment out
 'PWM 1,10000,50  'square wave ,this optional test signal comment out
 dim c%,x%,samples!(480)
 SETPIN GP29, AIn
 adc open 50000,3
 FRAMEBUFFER CREATE F
 FRAMEBUFFER LAYER L
 FRAMEBUFFER WRITE L
 line 0,mm.vres/2,mm.hres,mm.vres/2,,rgb(blue)
 line mm.hres/2,0,mm.hres/2,mm.vres,,rgb(blue) 'draw cross to layer L
 FRAMEBUFFER WRITE F
 do
   adc start samples!() 'get new samples
   'trigger
   c%=0
  do:If samples!(c%) > 0.1 then if samples!(c%+1) < 0.2 then exit do
inc c%:loop while c%<160

math scale samples!(),239/3.3,samples!()'scale to 80 pixel height
FRAMEBUFFER COPY L,F
for x%=0 to 238 'screen width
     line x%,samples!(x%+c%),x%+1,samples!(x%+1+c%),,rgb(green) 'draw new sample from sample(c%)
next x%
FRAMEBUFFER COPY F,N
loop