Dim my_led_data(10) As Byte
DIM my_index als Byte
DIM my_flag als byte

Config Timer0 = Timer , Prescale = 256
Enable Timer0
On Timer0 Timer0_isr

Enable Interrupts

my_flag =0
Do
  if my_flag=1 then
    my_flag = 0;
    my_index=my_index+1
    if my_index=10 then my_index=0
    Portc = Portc AND &30 OR my_led_data(my_index)
  end if
Loop
End

Timer0_isr:
  my_flag=1
Return