'-----------------------------------------------------------------------------------------
'Titel                    : Xtree
'Name                     : Xtree-Max7219
'Datei                    : Xtree.bas
'Autor                    : Arno Schweissinger, Wanne-Eickel, Deutschland
'WWW                      : www.frickelfritze.de
'Datum                    : 10.11.2014
'Version                  : 0.01
'Compiler                 : Bascom 1.11.8.7
'MicroController          : AtMega328 8MHz interner Takt
'Hardware                 : MAX7219
'                         : 62 grüne Led
'                         : Portd.0 - MAX7219 Pin01
'                         : Portd.1 - MAX7219 Pin13
'                         : Portd.2 - MAX7219 Pin12
'
'Stromversorgung:         : 5V aus dem USB-Port
'Besonderes               :
'Letzte Änderung          : 16.11.2014 animierte Sequenzen eingefügt
'                         :            Elch Wischer Lauflicht
'                         :
'
'-------------------------------------------------------------------------------


'****************************** Allgemein **************************************

$regfile = "m328def.dat"
$crystal = 8000000                                          ' intern
$hwstack = 48
$swstack = 48
$framesize = 48
Dim Eeprom As Eram String * 255
' Text steht im EEPROM zur besseren Identifikation der Firmware
Eeprom = "Xtree Max7219  Xtree.bas        vom 10.11.2014  von   Arno      Schweissinger                   "

'(
Testpin Alias Portb.0                                       '
Config Pinb.0 = Output                                      ' Testpin
  Do
   Toggle Testpin
   Waitus 50
  Loop
')
'************************ MAX7219 **********************************************
Declare Sub Max7219set()
Declare Sub Max7219clear()
Declare Sub Max7219init()

Din Alias Portd.0                                           ' Dateneingang am MAX7219 Pin1
Config Pind.0 = Output
Clk Alias Portd.1                                           ' Clock Signal am MAX7219 Pin13
Config Pind.1 = Output
Strobe Alias Portd.2                                        ' Load Signal  am MAX7219 Pin12
Config Pind.2 = Output

Dim _data As Byte                                           ' MAX7219 Data Bit D0-D7
Dim _register As Byte                                       ' MAX7219 Address Bit D8-D15
Dim I As Byte , J As Byte                                   ' SChleifenzähler

Call Max7219init
Call Max7219clear

'***************************** HAUPTSCHLEIFE ***********************************
Do
  Gosub Elch
  Gosub Schnee_faellt
  Gosub Rahmen
  Gosub Nacheinander
  Gosub Zufall
  Gosub Wischer
  Gosub Etagenweise
  Gosub Lauflicht
  Gosub Spitz_nach_oben
Loop
End


'------------- Elch ------------------------------------------------------------
Elch:
   Restore Dta6
    For J = 1 To 23                                         ' nach dem 8 Frame den
      For I = 1 To 8
        Read _data
        _register = I
        Call Max7219set
      Next I
      Waitms 100
    Next J
    Waitms 100
Return

'------------- Wischer -----------------------------------------------------
Wischer:
   Restore Dta5
    For J = 1 To 24                                         ' nach dem 8 Frame den
      If J = 9 Then Restore Dta5                            ' Durchgang neu starten
      If J = 17 Then Restore Dta5
      For I = 1 To 8
        Read _data
        _register = I
        Call Max7219set
      Next I
      Waitms 50
    Next J
    Waitms 100
Return

'------------- Lauflicht -------------------------------------------------------
Lauflicht:
    For I = 1 To 8
      For J = 1 To 8
        _data = 0
        Set _data.j
        _register = I
        Call Max7219set
        Waitms 5
      Next J
    Next I
    Waitms 200
Return

'------------- Rahmen ----------------------------------------------------------
Rahmen:
   Restore Dta4
    For J = 1 To 31
      For I = 1 To 8
        Read _data
        _register = I
        Call Max7219set
      Next I
      Waitms 10
    Next J
    Waitms 50
    Call Max7219clear
Return
'------------ Schnee fällt ----------------------------------------------------
Schnee_faellt:
   Restore Dta3
    For J = 1 To 13
      For I = 1 To 8
        Read _data
        _register = I
        Call Max7219set
      Next I
      Waitms 50
    Next J
    Waitms 200
    Restore Dta3
    For J = 1 To 13
      For I = 1 To 8
        Read _data
        _data = Not _data
        _register = I
        Call Max7219set
      Next I
      Waitms 50
    Next J
    Waitms 200
Return

'------------- nacheinander ----------------------------------------------------
Nacheinander:
  For I = 1 To 8
    _data = 0
    For J = 0 To 7 Step 1
      _register = I : Set _data.j
      Call Max7219set
      Waitms 7
    Next J
  Next I

  Waitms 200
  For I = 8 To 1 Step -1
    _data = 255
    For J = 7 To 0 Step -1
      _register = I : Reset _data.j
      Call Max7219set
      Waitms 3
    Next J
  Next I
Waitms 200
Return

'------------- Etagenweise -----------------------------------------------------
Etagenweise:
Restore Dta1
 For J = 1 To 13
   For I = 1 To 8
     Read _data
     _register = I
     Call Max7219set
   Next I
   Waitms 50
 Next J
 Waitms 200
 Restore Dta1
 For J = 1 To 13
   For I = 1 To 8
     Read _data
     _data = Not _data
     _register = I
     Call Max7219set
   Next I
   Waitms 50
 Next J
 Waitms 200
Return

'------------- Spitz nach oben -------------------------------------------------
Spitz_nach_oben:
 Restore Dta2
 For J = 1 To 8
   For I = 1 To 8
     Read _data
     _register = I
     Call Max7219set
   Next I
   Waitms 100
 Next J
 Waitms 100
 Restore Dta2
 For J = 1 To 8
   For I = 1 To 8
     Read _data
     _data = Not _data
     _register = I
     Call Max7219set
   Next I
   Waitms 100
 Next J
 Waitms 100
Return

'------------- Zufall ----------------------------------------------------------
Zufall:
   For J = 0 To 50
     For I = 1 To 8
       _data = Rnd(256)
       _register = I
       Call Max7219set
     Next I
     Waitms 20
   Next J
Return

'******************************** Max7219 **************************************
Sub Max7219init
'Initialise Max7219
  _register = &H0F : _data = &B0000_0001                    'Display Test aus=0 ein=1
  Call Max7219set
   Waitms 300                                               ' kurzes aufleuchten
  _register = &H0F : _data = &B0000_0000                    'Display Test aus=0 ein=1
  Call Max7219set
  _register = &H0C : _data = &B0000_0000                    'shutdown mode / nomal=1 down=0
  Call Max7219set
  _register = &H0A : _data = &H0F                           'Helligkeit der Anzeige / dunkel=0 hell=15
  Call Max7219set
  _register = &H0B : _data = &H07                           'Anzahl der vorhanden Spalten / Eine=0 alle=7
  Call Max7219set
'  _register = &H09 : _data = &B1101_1011                    '0=switch off 7-segment decoding
  _register = &H09 : _data = &B0000_0000                    '0=switch off 7-segment decoding
  Call Max7219set
  _register = &H0C : _data = &H01                           'normal mode / nomal=1 down=0
  Call Max7219set
End Sub

Sub Max7219set
   Waitus 1
   Reset Strobe
   Shiftout Din , Clk , _register , 1 , 8 , 5
   Shiftout Din , Clk , _data , 1 , 8 , 5
   Set Strobe
   Waitus 1
End Sub

Sub Max7219clear
  _data = &B0000_0000
  For _register = 1 To 8
    Call Max7219set
  Next _register
End Sub

'------------- Elch ------------------------------------------------------------
Dta6:
'1 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0011_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0100
Data &B0000_0000
'2 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0100_0000
Data &B0110_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_1000
Data &B0000_0000
'3 Bild
Data &B0000_0000
Data &B0000_0000
Data &B1100_0000
Data &B1100_0000
Data &B0010_0000
Data &B0000_1000
Data &B0001_0000
Data &B0000_0000
'4 Bild
Data &B0000_0000
Data &B0000_0000
Data &B1000_0000
Data &B1000_0001
Data &B0110_0001
Data &B0001_1000
Data &B0010_0000
Data &B0000_0000
'5 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0011
Data &B1110_0011
Data &B0011_1000
Data &B0100_1000
Data &B0000_0000
'6 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0110
Data &B1110_0110
Data &B0111_0001
Data &B1001_0000
Data &B0000_0000
'7 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_1100
Data &B1100_1100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'8 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_1100
Data &B1110_1100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'9 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0100_1100
Data &B1100_1100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'10 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_1100
Data &B1110_1100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'11 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0100_1100
Data &B1100_1100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'12 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0110
Data &B1100_0110
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'13 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_1100
Data &B1100_1100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'14 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0110
Data &B1100_0110
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'15 Bild   Pfeil
Data &B0100_0000
Data &B0010_0111
Data &B0000_0000
Data &B0000_0110
Data &B1100_0110
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'16 Bild   Pfeil
Data &B0100_0000
Data &B0010_0111
Data &B0000_0000
Data &B0000_0110
Data &B1100_0110
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'17 Bild   gedreht
Data &B0100_0000
Data &B0010_0111
Data &B1000_0000
Data &B1100_0001
Data &B1100_0100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'18 Bild
Data &B0000_0000
Data &B0000_0000
Data &B1100_0000
Data &B1100_0000
Data &B1100_0100
Data &B1110_0011
Data &B0010_0000
Data &B0000_0001
'19 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0100_0000
Data &B0110_0000
Data &B1110_0010
Data &B0111_0001
Data &B1001_0000
Data &B0000_0000
'20 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0011_0000
Data &B1110_0001
Data &B0011_1000
Data &B0100_1000
Data &B0000_0000
'21 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B1001_0000
Data &B0110_0000
Data &B0001_1000
Data &B0010_0100
Data &B0000_0000
'22 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0100_0000
Data &B0010_0000
Data &B0000_1000
Data &B0001_0000
Data &B0000_0000
'23 Bild
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_1000
Data &B0000_0000


'------------- Wischer ---------------------------------------------------------
Dta5:
'1 Bild
Data &B1111_1111
Data &B1111_1111
Data &B1011_1111
Data &B1001_1111
Data &B1001_1111
Data &B1100_1111
Data &B1001_1111
Data &B1110_1111
'2 Bild
Data &B1111_1111
Data &B1111_1111
Data &B0011_1101
Data &B0011_1111
Data &B0011_1111
Data &B1001_1111
Data &B0011_1111
Data &B1110_1111
'3 Bild
Data &B1111_1111
Data &B1001_1111
Data &B1111_0111
Data &B1111_1100
Data &B0111_1110
Data &B1011_1110
Data &B0011_1111
Data &B1110_1111
'4 Bild
Data &B1111_1111
Data &B1111_1111
Data &B1101_1111
Data &B1111_0011
Data &B1111_1001
Data &B0011_1100
Data &B0011_1111
Data &B1110_1111
'5 Bild
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_0111
Data &B1111_0011
Data &B0111_1001
Data &B0111_1110
Data &B1110_1110
'4 Bild
Data &B1111_1111
Data &B1111_1111
Data &B1101_1111
Data &B1111_0011
Data &B1111_1001
Data &B0011_1100
Data &B0011_1111
Data &B1110_1111
'3 Bild
Data &B1111_1111
Data &B1001_1111
Data &B1111_0111
Data &B1111_1100
Data &B0111_1110
Data &B1011_1110
Data &B0011_1111
Data &B1110_1111
'2 Bild
Data &B1111_1111
Data &B1111_1111
Data &B0011_1101
Data &B0011_1111
Data &B0011_1111
Data &B1001_1111
Data &B0011_1111
Data &B1110_1111

'------------- Rahmen -----------------------------------------------------
Dta4:
'1 Bild
Data &B0000_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'2 Bild
Data &B0000_0101
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'3 Bild
Data &B0010_0101
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'4 Bild
Data &B1010_0101
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'5 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'6 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0000_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'7 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'8 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'9 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'10 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B0000_0000
Data &B0000_0000
'11 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B0000_0010
Data &B0000_0000
'12 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B0000_0010
Data &B0000_1000
'13 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B0000_0010
Data &B0000_1100
'14 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B0000_0010
Data &B0000_1110
'15 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B0000_0010
Data &B0000_1111
'16 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B1000_0010
Data &B0000_1111
'17 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B1100_0010
Data &B0000_1111
'18 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B1110_0010
Data &B0000_1111
'19 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B1111_0010
Data &B0000_1111
'20 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B1111_1010
Data &B0000_1111
'21 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_0100
Data &B1111_1110
Data &B0000_1111
'22 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0001_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'23 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0000_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'24 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0010_0001
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'25 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0110_0001
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'26 Bild
Data &B1010_0101
Data &B0000_0100
Data &B0110_0011
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'27 Bild
Data &B1010_0101
Data &B0000_1100
Data &B0110_0011
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'28 Bild
Data &B1010_0101
Data &B0000_1101
Data &B0110_0011
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'29 Bild
Data &B1110_0101
Data &B0000_1101
Data &B0110_0011
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'30 Bild
Data &B1110_1101
Data &B0000_1101
Data &B0110_0011
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111
'31 Bild
Data &B1110_1111
Data &B0000_1101
Data &B0110_0011
Data &B0001_1000
Data &B0011_0000
Data &B0000_1100
Data &B1111_1110
Data &B0000_1111


'------------- Etagenweise -----------------------------------------------------
Dta1:
'1 Bild
Data &B0000_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'2
Data &B0000_0111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'3
Data &B0011_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'4
Data &B1111_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'5
Data &B1111_1111
Data &B0000_0111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'6
Data &B1111_1111
Data &B1111_1111
Data &B0000_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'7
Data &B1111_1111
Data &B1111_1111
Data &B0011_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'8
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0000_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'9
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0001_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'10
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0000_0111
Data &B0000_0000
Data &B0000_0000
'11
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0000_0011
Data &B0000_0000
'12
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0000_1111
'13
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0011_1111

'------------- Spitz nach oben -------------------------------------------------
Dta2:
'1
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0011_0000
'2
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B1100_0000
Data &B0011_0000
'3
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0100_0000
Data &B1100_0000
Data &B0011_0000
'4
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B1000_0001
Data &B1110_0001
Data &B1110_0000
Data &B0011_0001
'5
Data &B0000_0000
Data &B0000_0000
Data &B0000_1000
Data &B1000_0011                                            '
Data &B1100_0011
Data &B1111_0011
Data &B1111_0001
Data &B0011_0011
'6
Data &B0000_0000
Data &B0110_0010
Data &B1001_1100
Data &B1100_0111
Data &B1110_0111
Data &B1111_1111
Data &B1111_1011
Data &B0011_0111
'7
Data &B1101_0000
Data &B1111_0111
Data &B1111_1110
Data &B1110_1111
Data &B1110_1111
Data &B1111_1111
Data &B1111_1111
Data &B0011_1111
'8
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0011_1111

'------------- Schnee fällt ----------------------------------------------------
 Dta3:
 '1
Data &B0000_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'2
Data &B0000_0101
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'3
Data &B0010_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'4
Data &B1011_1111
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'5
Data &B1111_1111
Data &B0000_0010
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'6
Data &B1111_1111
Data &B1010_1111
Data &B0000_0001
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'7
Data &B1111_1111
Data &B1111_1111
Data &B0010_1011
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'8
Data &B1111_1111
Data &B1111_1111
Data &B0111_1111
Data &B0000_1010
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'9
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1011_1111
Data &B0000_1010
Data &B0000_0000
Data &B0000_0000
Data &B0000_0000
'10
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1011_1111
Data &B0000_0101
Data &B0000_0000
Data &B0000_0000
'11
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1010_1111
Data &B0000_0010
Data &B0000_0000
'12
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1010_1011
Data &B0000_1010
'13
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B1111_1111
Data &B0011_1111