Ohne weiteren Kommentar:

Code:
' Analog Input Test
'

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200
Config Adc = Single , Prescaler = Auto

Start Adc
Dim W As Word , Channel As Byte


Channel  = 1

Print "Startup";

Do
  W = Getadc(channel)

  Select Case W
     Case 0 : Print "Null"
     Case Is < 10 : Print "weniger als 10"
     Case 100 To 200 : Print "irgendwo zwischen 100 und 200"
     Case Is < 500 : Print "Sehr viel"
     Case Else : Print "irgendwas anderes"

  End Select

  Waitms 100

Loop

Stop Adc
End