Das habe ich nun versucht:

Code:
'Text LED Dot-Matrix Anzeige


$regfile = "M8def.dat"

Config Portb = Output
Config Portd = Output

Daten Alias Portb.0
Schieben Alias Portb.1
Speichern Alias Portb.2

$crystal = 1000000


'*******************************************************************************

Do
       Daten = 1
       Toggle Speichern
       Portd = 0
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Daten = 0
       Waitms 2

       Toggle Speichern
       Portd = &B01111111
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = &B00000010
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = &B00000100
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = &B00000100
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = &B00000010
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = &B01111111
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = 0
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

       Toggle Speichern
       Portd = 0
       Toggle Schieben
       Toggle Schieben
       Toggle Speichern
       Waitms 2

Loop
Man sieht jedoch immernoch ein zweites M nur ist es dieses Mal nach hinten verschoben.
Ich habe jedoch das Gefühl, dass die Led's von zweiten M ein wenig schwächer leuchten.