$regfile = "2313def.dat"
$hwstack = 32
$swstack = 10
$framesize = 40
$crystal = 8000000    ' Achtung: Taktfrequenz per Fusebits auf 8 MHz einstellen!
'-------------------------------------------------------------------------------------------------
' Ports auf Ausgang setzen
'-------------------------------------------------------------------------------------------------
Ddrb = &B11111111
Ddrd = &B01111111
'-------------------------------------------------------------------------------------------------
' Variablen deklarieren
'-------------------------------------------------------------------------------------------------
Dim Bild As Word         ' Aktuelle Bildnummer
Dim MaxBild as Word    ' Nummer des letzten Bildes (=Zahl der Bilder in der Animation)
Dim Ebene As Byte      ' Ebenen-ZŠhler
Dim Dauer As Byte      ' Anzeigedauer des Bildes
Dim Temp As Word      ' fŸr Berechnungen
Dim Offset As Word    ' Position der zu holenden Daten
'-------------------------------------------------------------------------------------------------
' Hauptprogramm
'-------------------------------------------------------------------------------------------------
Do

Maxbild = Lookup (0, Muster)                     ' Anzahl der gespeicherten Bilder holen
Maxbild = Maxbild - 1                                  ' 1 abziehen, da von 0 ab gezŠhlt wird

For Bild = 0 To MaxBild                              ' Bilder durchzŠhlen

  For Dauer = 0 to 27                                ' Dauer des Bildes, pro Durchlauf ca. 15 ms - also hier ca. 0,4 sek.

    For Ebene = 0 To 2                                ' 3 Ebenen durchmultiplexen

      Offset = Bild * 6                                 ' Offset Berechnen, 6 Byte pro Bild
      Temp = Ebene * 2                               ' 2 Byte pro Ebene
      Offset = Offset + Temp
      Offset=Offset + 2                              ' 1. Eintrag Ÿberspringen (Zahl der Bilder)

      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 Dauer

Next Bild

Loop                                                         ' Programm von vorne beginnen

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

$include "muster.txt"          ' Datei mit Mustern einbinden