$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 24
$swstack = 18
$framesize = 16

Dim Adc_value As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Portb.0 = Output
Led Alias Portb.0
'-----------------------------------------------------------------------------
Do

  Waitms 10

  Adc_value = Getadc(3)

  Select Case Adc_value

   Case 1024 To 500

   Reset Led

   Case 500 To 0

   Set Led

  End Select
Loop

End