''''''''''''''''''''''''''''''''''''''''
' Program za Bežeče lučke              '
'                                      '
' Avtor: Rudi Šlejkovec 2004           '
' Http://www.avr.4mg.com               '
' Mikrokontroler: ATMEL AT90S2313      '
'                                      '
''''''''''''''''''''''''''''''''''''''''

$regfile = "2313def.dat"                                    'Tip mikrokontrolerja
$crystal = 4000000                                          'Frekvenca kristala = 4 MHz

Dim N As Byte , M As Byte , Bport As Byte
Dim Dport As Byte , Cikli As Byte , Pause As Byte

Ddrb = 255                                                  'Določitev izhodov na B portu
Ddrd = 255                                                  'Določitev izhodov na D portu

Do                                                          'Začetek glavne zanke
Portb = 0                                                   'Ugasni port b. Na izhodih je "0".
Portd = 0                                                   'Ugasni port d. Na izhodih je "0".

   For N = 1 To 5                                           'Določi število ponovitev (5x).
      Pause = 150                                           'Določi hitrost preklapljanja.
      Cikli = 16                                            'Določi koliko podatkov je v tabeli.
      Restore Tabela_1                                      'Aktiviraj 1. tabelo.
      Gosub Read_data                                       'Izvedi cikel.
   Next N

   For N = 1 To 3                                           'Druga kombinacija (3X)
      Pause = 100                                           'z drugačno hitrostjo,
      Cikli = 16                                            'enakim št. ciklov
      Restore Tabela_2                                      'in drugo tabelo
      Gosub Read_data
   Next N

   For N = 1 To 1                                           'Tretja kombinacija
      Pause = 250
      Cikli = 16
      Restore Tabela_3
      Gosub Read_data
   Next N

   For N = 1 To 1                                           'Četrta kombinacija
      Pause = 100
      Cikli = 16
      Restore Tabela_4
      Gosub Read_data
   Next N

'Na to mesto lahko vstavljate dodatne kombinacije, vendar
'morate tudi vpisati podatke v tabelo npr Tabela_5 itd.

Loop

End                                                         'Konec glavne zanke

Read_data:
For M = 1 To Cikli                                          'Število ciklov
   Read Dport
   Read Bport
   Portd = Dport
   Portb = Bport
   Waitms Pause                                             'Počakaj
Next M
Return

'Tabele s podatki

Tabela_1:
Data 0 , 0 , 1 , 0 , 2 , 0 , 4 , 0 , 8 , 0 , 16 , 0 , 32 , 0 , 64 , 0
Data 0 , 1 , 0 , 2 , 0 , 4 , 0 , 8 , 0 , 16 , 0 , 32 , 0 , 64 , 0 , 128

Tabela_2:
Data 0 , 128 , 0 , 64 , 0 , 32 , 0 , 16 , 0 , 8 , 0 , 4 , 0 , 2 , 0 , 1
Data 64 , 0 , 32 , 0 , 16 , 0 , 8 , 0 , 4 , 0 , 2 , 0 , 1 , 0 , 0 , 0

Tabela_3:
Data 1 , 1 , 2 , 2 , 4 , 4 , 8 , 8 , 16 , 16 , 32 , 32 , 64 , 64 , 0 , 128
Data 64 , 64 , 32 , 32 , 16 , 16 , 8 , 8 , 4 , 4 , 2 , 2 , 1 , 1 , 0 , 0

Tabela_4:
Data 0 , 1 , 64 , 2 , 32 , 4 , 16 , 8 , 8 , 16 , 4 , 32 , 2 , 64 , 1 , 128
Data 64 , 2 , 32 , 4 , 16 , 8 , 8 , 16 , 4 , 32 , 2 , 64 , 1 , 0 , 0 , 0

'Zapis si sledi v vrstnem redu DATA1 , DATA2 , DATA1...
'Število ciklov mora biti prilagojeno številu podatkov
'v tabeli, in sicer 1/2.