Code:
Dim A as Byte

Do

For A = 1 to 255
   PWM = A
   Waitms 100
Next A

wait 1

For A = 255 to 1 Step -1
    PWM = A
    Waitms 100
Next A

Loop
mfg