der ganze code passte nicht, deswegen hier der rest

Code:
'######## Anzeige ################################
Sub Anzeige
Select Case Auswahl(1)
'Ebene 1
   Case 0
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 1

   Case 1
      X1 = 1
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 2
      X1 = 0
      X2 = 1
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 3
      X1 = 0
      X2 = 0
      X3 = 1
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 4
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 1
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 5
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 1
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 6
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 1
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 7
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 1
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 8
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 1
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 9
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 1
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1
'Ebene 2------------------------------------------

   Case 10
      Leds = &B0000110000000001
      X1 = 1
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 11
      Leds = &B0000110000000010
      X1 = 0
      X2 = 1
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 12
      Leds = &B0000110000000100
      X1 = 0
      X2 = 0
      X3 = 1
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 13
      Leds = &B0000110000001000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 1
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 14
      Leds = &B0000110000010000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 1
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 15
      Leds = &B0000110000100000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 1
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 16
      Leds = &B0000110001000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 1
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 17
      Leds = &B0000110010000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 1
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 18
      Leds = &B0000110100000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 1
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1
'Ebene 3------------------------------------------

   Case 19
      Leds = &B0000110000000001
      X1 = 1
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 20
      Leds = &B0000110000000010
      X1 = 0
      X2 = 1
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 21
      Leds = &B0000110000000100
      X1 = 0
      X2 = 0
      X3 = 1
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 22
      Leds = &B0000110000001000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 1
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 23
      Leds = &B0000110000010000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 1
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 24
      Leds = &B0000110000100000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 1
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 25
      Leds = &B0000110001000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 1
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 26
      Leds = &B0000110010000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 1
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 27
      Leds = &B0000110100000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 1
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0
   End Select

End Sub
'-----------------------------------
Sub Schalten
X1 = Leds.0
X2 = Leds.1
X3 = Leds.2
X4 = Leds.3
X5 = Leds.4
X6 = Leds.5
X7 = Leds.6
X8 = Leds.7
X9 = Leds.8
Ebene1 = Leds.9
Ebene2 = Leds.10
Ebene3 = Leds.11
End Sub
'-------------------------------------
Sub Zufall()
   A:
   Ladewert = Rnd(6000)
   If Ladewert <= 1000 Then Goto A
   Toggle Ledgelb
End Sub
'--------------------------------------
'--------------------------------------
Systemtakt:
Status.0 = 1                                                'timer bit setzen
Load Timer1 , Ladewert
Toggle Ledrot
Return
MfG

mycroc