$regfile = "m8def.dat"                                      'mikrokontroler, z którego korzystamy (biblioteka)
$crystal = 8000000                                          'taktowanie (czestotliwosc) mikrokontrolera
$hwstack = 40
$swstack = 16
$framesize = 32
$sim

Dim A As Byte                                               'definiujemy zmienna bajtowa o nazwie A
Config Lcd = 16 * 2                                         'definiujemy wyswietlacz 2 linie, 16 znakow
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5       'definiujemy porty wyswietlacza zgodnie ze schematami np. Db4-Db7 - wejścia przesyłu danych

Cls                                                         'czyscimy wyswietlacz

   Do
      Cursor Off Noblink                                    'ukrywamy kursor
      Lcd "     Program    "                                'wyswietlamy napis w pierwszej linii
      Wait 2                                                'czekamy chwile
      Lowerline                                             'przechodzimy do dolnej linii
      Lcd "Tomek & Adam"                                    'wyswietlamy tekst w drugiej linii

      For A = 1 To 3                                        'poczatek petli for
         Shiftlcd Left                                      'przesuwamy napis w lewo o 1 pozycje
         Wait 2                                             'czekamy chwile
         Shiftlcd Right                                     'przesuwamy napis w prawo o 1 pozycje
         Wait 1                                             'czekamy chwile
         Shiftlcd Right                                     'przesuwamy napis w prawo o 1 pozycje
         Wait 2                                             'czekamy chwile
         Shiftlcd Left                                      'przesuwamy napis w lewo o 1 pozycje
         Wait 2                                             'czekamy chwile
      Next                                                  'przechodzimy do kolejnej iteracji petli

      For A = 1 To 16                                       'petla for - maskujemy tekst
         Locate 1 , A                                       'przechodzimy w odpowiednie miejsce
         Lcd "#"                                            'wyswietlamy w biezcym miejscu symbol #
         Wait 1
         Locate 2 , A                                       'przechodzimy w odpowiednie miejsce
         Lcd "#"                                            'wyswietlamy w biezcym miejscu symbol #
         Wait 1
      Next                                                  'przechodzimy do kolejnej iteracji petli

      Locate 1 , 8                                          'przechodzimy do okreslonego miejsca
      For A = 1 To 5                                        'petla do migania kursorem
         Cursor On Noblink                                  'wlaczamy  kursor
         Wait 2                                             'czekamy chwile
         Cursor Off Noblink                                 'wylaczamy kursor
         Wait 2                                             'czekamy chwile
      Next                                                  'przejscie do kolejnej iteracji


      Home Upper                                            'przejscie na poczatek wyswietlacza
      Lcd "Dziekujemy"                                      'tekst wyswietlany w gornej linii
      Wait 1                                                'czekamy chwile
      Lcd "Tomek & Adam"                                    'pierwsza linia
      Wait 3

   Loop
End