$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer2 = Pwm , Prescale = 1 , Compare Pwm = Clear Up , Pwm = On
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim Rot As Word
Dim Gruen As Word
Dim Blau As Word

Enable Timer1
Enable Timer2

Start Timer1
Start Timer2
Start Adc


   Do
      Rot = Getadc(5)
      Gruen = Getadc(4)
      Blau = Getadc(3)

      Rot = Rot / 4
      Gruen = Gruen / 4
      Blau = Blau / 4

      Pwm1a = Rot
      Pwm1b = Gruen
      Ocr2 = Blau

      Waitms 50
   Loop
End