Probiere es mal so:
Code:
$regfile = "m32def.dat"
$crystal = 16000000 
$framesize = 32 
$swstack = 32 
$hwstack = 32 
 

$baud = 9600 


Dim Result As Word 

Config Pinc.1 = Output 

Config Adc = Single , Prescaler = Auto , Reference = Avcc 

Portc.1 = 0 

Start Adc 

Do
  Portc.1 = 0 
  Result = Getadc(4) 
  If Result > 350 Then 
    Portc.1 = 1 
  End If 
  Wait 1 
Loop 

End
Eventuell musst du "Portc.1 = 0" in "Portc.1 = 1" ändern und andersherum.

jon