$regfile = "M8def.dat"
$crystal = 8000000



Dim W As Word
Config Portb.0 = Output

Config Adc = Single , Prescaler = Auto


Do
W = Getadc(0)
Gosub Led
Loop


Led:
Select Case W

If
Case 0 To 128 Then
Portb.0 = 10
End If

If
 Case 140 To 256 Then
 Portb.0 = 25
End If

If
 Case 270 To 384 Then
 Portb.0 = 35
End If

If
 Case 400 To 512 Then
 Portb.0 = 45

End If
If
 Case 530 To 640 Then
 Portb.0 = 55

End If
If
 Case 660 To 768 Then
 Portb.0 = 66
End If

If
 Case 780 To 896 Then
 Portb.0 = 88
End If

If
 Case 920 To 1024 Then
 Portb.0 = 100
End If
End Select
Return