$regfile = "m1284pdef.dat"
$crystal = 8000000

$hwstack = 60
$swstack = 128
$framesize = 128
$baud = 57600
$loader = $F000                         ' As soon as this value > $8000, the led isn't working
' using either the old or new lib makes no difference
' $lib "RainbowBSCN.lib"
'$lib "RainbowBSC.lib"
Config Rainbow = 1 , Rb0_len = 1 , Rb0_port = Portb , Rb0_pin = 0
'                                                   ^ connected to pin
'                                       ^------------ connected to port
'                         ^-------------------------- 1 leds on stripe
'              ^------------------------------------- 1 channel
Rb_selectchannel 0                      ' select first channel
Dim Rgb_blue As Dword : Rgb_blue = &HFF0000
Dim Rgb_red As Dword : Rgb_red = &H0000FF

Do
    Print "red"
    Rb_setcolor 0 , Rgb_red : Rb_send
    Wait 1
    Print "blue"
    Rb_setcolor 0 , Rgb_blue : Rb_send
    Wait 1
Loop

End