$regfile = "2313def.dat"
$hwstack = 32
$swstack = 10
$framesize = 40
$crystal = 8000000    ' Achtung: Taktfrequenz per Fusebits auf 8 MHz einstellen!

Ddrb = &B11111111   ' Ports auf Ausgang setzen
Ddrd = &B01111111

Dim Bild As Word         ' Variablen deklarieren
Dim Ebene As Byte
Dim Dauer As Word
Dim Temp As Word
Dim Temp1 As Byte
Dim Offset As Word
Dim PGM_Zaehler As Word

Do

For PGM_Zaehler = 0 To 12                       ' Programmschritte durchzŠhlen (Anzahl siehe unten beim Programm)

  Temp = PGM_Zaehler * 2                         ' Daten-Position Bild-Nummer in Programmtabelle, pro Programmschritt 2 Zahlen
  Bild = Lookup (Temp, Programm)             ' Bild-Nummer aus Tabelle holen

  Temp = Temp + 1                                    ' Dauer ist die nŠchste Zahl
  Dauer = Lookup (Temp, Programm)          ' Dauer aus Tabelle holen

  For Temp = 0 to Dauer                            ' Dauer des Bildes, pro Durchlauf ca. 15 ms

    For Ebene = 0 To 2                                ' 3 Ebenen durchmultiplexen

      Offset = Bild * 6                                 ' Offset Berechnen, 6 Byte pro Bild
      Temp1 = Ebene * 2                             ' 2 Byte pro Ebene
      Offset = Offset + Temp1

      Portd = Lookup (Offset, Muster)         ' 1. Byte-Muster ausgeben
      Offset=Offset + 1
      Portb = Lookup (Offset, Muster)         ' 2. Byte-Muster ausgeben

      Waitms 5                                            ' diese Ebene fŸr 5 ms anzeigen

    Next Ebene

  Next Temp

Next PGM_Zaehler

Loop                                                         ' Programm von vorne beginnen

End

'-------------------------------------------------------------------------------------------------
Programm:

Data 1% , 20%     ' 1. Bild mit Dauer 20 anzeigen     'Ebenen von oben nach unten
Data 2% , 20%     ' 2. Bild mit Dauer 20 anzeigen
Data 3% , 20%     ' 3. Bild mit Dauer 20 anzeigen

Data 1% , 40%     ' 1. Bild mit Dauer 40 anzeigen
Data 2% , 40%     ' 2. Bild mit Dauer 40 anzeigen
Data 3% , 40%     ' 3. Bild mit Dauer 40 anzeigen

Data 1% , 60%     ' 1. Bild mit Dauer 60 anzeigen
Data 2% , 60%     ' 2. Bild mit Dauer 60 anzeigen
Data 3% , 60%     ' 3. Bild mit Dauer 60 anzeigen

Data 4% , 80%     ' 4. Bild mit Dauer 80 anzeigen    ' Wechsel Kreuz-Ecken
Data 5% , 80%     ' 5. Bild mit Dauer 80 anzeigen

Data 4% , 80%     ' 4. Bild mit Dauer 80 anzeigen
Data 5% , 80%     ' 5. Bild mit Dauer 80 anzeigen

' insg. 13 Programmschritte

'-------------------------------------------------------------------------------------------------
Muster:

' Obere Ebene

Data &B01000001 , &B11111111   '1. Bild  Ebene 1
Data &B00100000 , &B00000000   '1. Bild  Ebene 2
Data &B00010000 , &B00000000   '1. Bild  Ebene 3

' Mittlere Ebene

Data &B01000000 , &B00000000   '2. Bild  Ebene 1
Data &B00100001 , &B11111111   '2. Bild  Ebene 2
Data &B00010000 , &B00000000   '2. Bild  Ebene 3

' Untere Ebene

Data &B01000000 , &B00000000   '3. Bild  Ebene 1
Data &B00100000 , &B00000000   '3. Bild  Ebene 2
Data &B00010001 , &B11111111   '3. Bild  Ebene 3

' Kreuz

Data &B01000000 , &B00010000   '4. Bild  Ebene 1
Data &B00100000 , &B10111010   '4. Bild  Ebene 2
Data &B00010000 , &B00010000   '4. Bild  Ebene 3

' Ecken

Data &B01000001 , &B01000101   '5. Bild  Ebene 1
Data &B00100000 , &B00000000   '5. Bild  Ebene 2
Data &B00010001 , &B01000101   '5. Bild  Ebene 3