' PWM op Arduino Nano atmega168 with RGB led

$regfile = "m168def.dat"                                    ' specify the used micro
$crystal = 16000000                                         ' used crystal frequency

$hwstack = 32
$swstack = 32
$framesize = 32

$baud = 9600

Red_pwm Alias Pwm0a
Green_pwm Alias Pwm1a
Blue_pwm Alias Pwm2a

Config Timer0 = Pwm , Compare_a_pwm = Clear_up , Compare_b_pwm = Clear_down , Prescale = 1
Config Timer1 = Pwm , Pwm = 8 , Compare_a_pwm = Clear_up , Compare_b_pwm = Clear_down , Prescale = 1
Config Timer2 = Pwm , Compare_a_pwm = Clear_up , Compare_b_pwm = Clear_down , Prescale = 1

Config Portb.3 = Output                                     'red
Config Portb.1 = Output                                     'green
Config Portd.6 = Output                                     'blue

Dim X As Byte

Print Chr(27) ; "[2J"                                       'ANSI CLS goto 0/0
Print "Arduino Nano Atmega168 RGB PWM Example"
Print

Red_pwm = 0
Green_pwm = 0
Blue_pwm = 0

Print
Print "test RED"
For X = 1 To 255
Red_pwm = X
Waitms 10
Next X
Red_pwm = 0

Print
Print "test GREEN"
For X = 1 To 255
Green_pwm = X
Waitms 10
Next X
Green_pwm = 0

Print
Print "test BLUE"
For X = 1 To 255
Blue_pwm = X
Waitms 10
Next X
Blue_pwm = 0

Print
Print "All RGB colors together"
For X = 1 To 255
Red_pwm = X
Green_pwm = X
Blue_pwm = X
Waitms 10
Next X

Red_pwm = 0
Green_pwm = 0
Blue_pwm = 0

Print

Do
Input "Give PWM value for RED   (0 - 255) " , X
Red_pwm = X
Print
Input "Give PWM value for GREEN (0 - 255) " , X
Green_pwm = X
Print
Input "Give PWM value for BLUE  (0 - 255) " , X
Blue_pwm = X
Print
Loop

End