$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Lcdpin = Portc.6 , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2

Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinb.3 = Output
Enable Timer1

Pwm1a = 32
Pwm1b = 32

Dim Speed As Integer
Speed = 5

Do
   Cls
   Lcd "Abc"

   Dim A As Integer
   For A = 0 To 255

      Pwm1a = A
      Pwm1b = A
      Waitms Speed
   Next

   Waitms Speed

   For A = 0 To 255
      Pwm1a = 255 - A
      Pwm1b = 255 - A
      Waitms Speed
   Next

   Waitms Speed
Loop
End