کد:
$regfile = "m8def.dat" $crystal = 1000000 $hwstack = 40 $swstack = 32 $framesize = 60 Config Adc = Single , Prescaler = Auto Config Portc.1 = Output Config Portc.0 = Input Start Adc Dim W As Byte Dim B1 As Byte Do W = Getadc(1) Print W B1 = Lookup(0 , Voltagescodes) If W = B1 Then Portc.1 = 0 Else Portc.1 = 1 End If Loop Voltagescodes: [B]Data 0% Upto 255% [/B]