Basic Auswahl von Variablen anhand von anderer Variabler

Const Led_left = 0

Const Led_right = 1

Dim Led1 As Integer

Dim Led2 As Integer

Dim Led3 As Integer

Dim Led4 As Integer

Led1 , Led2 , Led3 , Led4 = 0

Dim Address As Byte , Command As Byte,

Enable Interrupts

Do

Getrc5(address , Command)

   If Address <> 255 Then

      Reset Command.7

      Else

      Ring_number% = Round(command / 10)

      Direction% = Command Mod 10

      While(Led1 < Led2 < Led3 < Led4)

      select Case Direction

         Case Led_left : Decr Led(ring_number)

         Case Led_right : Incr Led(ring_number)

       Wend

   End If

Loop