Wait 3

Do

Maxbild = Lookup(0 , Muster)                                ' Anzahl der gespeicherten Bilder holen
Maxbild = Maxbild - 1                                       ' 1 abziehen, da von 0 ab gezä.hlt wird $PROG &HFF,&H64,&HDF,&H00' generated. Take care that the chip supports all fuse bytes

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