-- JAL 2.0.6
include 12f675_bert

-- define variables
var byte t0
var word counter
var byte tblue, tred, tgreen

-- define the pins
pin_a0_direction = output
pin_a1_direction = output
pin_a2_direction = output

var bit blueled is pin_a0
var bit greenled is pin_a1
var bit redled is pin_a2

procedure fade_pwm is
   ; set brightness using simple pwm
   if t0 == 0 then
      blueled = 1
      redled = 1
      greenled = 1
   end if
   if t0 >= tblue then blueled = 0 end if
   if t0 >= tred then redled = 0 end if
   if t0 >= tgreen then greenled = 0 end if
   t0 = t0 + 1
end procedure

forever loop

   tgreen  = 200
   tblue = 0
   while tgreen != 0 loop
     counter = counter + 1
     if counter == 800 then
       tblue = tblue + 1
       tgreen = tgreen -4
      counter = 0
      end if
     fade_pwm
   end loop

   tblue  = 50
   tred = 0
   while tblue != 0 loop
     counter = counter + 1
     if counter == 800 then
       tblue = tblue - 1
       tred = tred + 4
      counter = 0
      end if
     fade_pwm
   end loop

   tgreen = 0
   tred = 200
   while tred != 0 loop
     counter = counter + 1
     if counter == 800 then
       tgreen = tgreen + 4
       tred = tred - 4
      counter = 0
      end if
     fade_pwm
   end loop

end loop