Bin vor paar tagen angefangen mich bissl in µC einzu arbeiten habe ne kleine anzeige mit einer 7 Segment programmiert der dauerhaft nacheinander ne zufällige Zahl anzeigt.
Mein Code ist aber ziemlich lang wollte mal fragen ob ihr tipps für mich habt den code bissl kleiner zu bekommen

Code:
 $regfile = "m8def.dat"                                
 $framesize = 32                                            
 $swstack = 32                                             
 $hwstack = 32
 $crystal = 16000000                                        

 $baud = 9600


Config Portc.5 = Output
         Config Portc.4 = Output
         Config Portc.3 = Output
         Config Portc.2 = Output
         Config Portc.1 = Output
            Config Portc.0 = Output
         Config Portb.5 = Output
         Config Portb.4 = Output

         1a Alias Portb.4
         2a Alias Portb.5
         4a Alias Portc.0
         5a Alias Portc.1
         6a Alias Portc.5
         7a Alias Portc.4
         9a Alias Portc.3
         10a Alias Portc.2

         Dim I As Word                                      

Do

  I = Rnd(10)                                              
                                  
          If I = 0 Then
1a = 0
2a = 1
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 1
Waitms 50

    End If
      If I = 1 Then
1a = 0
2a = 0
4a = 0
5a = 1
6a = 0
7a = 1
9a = 0
10a = 0

Waitms 50

End If

      If I = 2 Then
1a = 1
2a = 0
4a = 1
5a = 1
6a = 0
7a = 0
9a = 1
10a = 1
Waitms 50

End If
          If I = 3 Then
1a = 1
2a = 0
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 0
Waitms 50
End If
If I = 4 Then
1a = 1
2a = 1
4a = 0
5a = 1
6a = 0
7a = 1
9a = 0
10a = 0
Waitms 50
End If
If I = 5 Then
1a = 1
2a = 1
4a = 1
5a = 0
6a = 0
7a = 1
9a = 1
10a = 0
Waitms 50
End If
If I = 6 Then
1a = 1
2a = 1
4a = 1
5a = 0
6a = 0
7a = 1
9a = 1
10a = 1
Waitms 50
End If
If I = 7 Then
1a = 0
2a = 0
4a = 1
5a = 1
6a = 0
7a = 1
9a = 0
10a = 0
Waitms 50
End If
If I = 8 Then
1a = 1
2a = 1
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 1
Waitms 50
End If
If I = 9 Then
1a = 1
2a = 1
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 0
Waitms 50
End If



Loop
End