'The ATTiny13 is used.
$regfile = "ATtiny13.dat"
$crystal = 1200000

Config Portb.2 = Output
Led Alias Portb.2
Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim Adcin As Word

Open "comb.1:9600,8,n,1" For Output As #1
Open "comb.0:9600,8,n,1" For Input As #2
Start Adc

Do
  Set Led
  Waitms 500

  'get adc reading on channel 3 (pin 2 on attiny13)
  Adcin = Getadc(3)
  Print #1 , "adc ch#3: " ; Adcin
  Reset Led
  Waitms 500
Loop

End