'----------------------------------------
'Projekt:         CodeLockRF
'Avtor:         Rudi Slejkovec
'WWW:          www.avr.4mg.com
'Procesor:        AT89C2051
'Datum:           4.4.2004
'----------------------------------------
'Program je spremenjen program originala
'iz revije Svet Elektronike
'http://www.svet-el.si
'Program za oddajnik
'----------------------------------------
$regfile = "89c2051.dat"
$crystal = 12000000
$baud = 2400

Dim Kazalec As Byte , Kolikokrat As Byte                      'kazalec doloca st.karakterjev
                                                          'kolikokrat doloca, kolikokrat se odda ista koda
Dim Crka As String * 1
Dim Tekst As String * 8
Dim Dolzina As Byte

Tekst = "123"                                                 ' KODA-tekst, ki ga zelimo oddati; 3 do 6 znakov
Dolzina = Len(tekst)                                          ' Doloci dolzino teksta

Kazalec = 0
Kolikokrat = 0
Scon.1 = 1
Do                                                            ' neskoncna zanka
   If Scon.1 = 1 Then                                         ' aha.. predhodni byte je ze odsel
      Scon.1 = 0                                              ' do oddaje si lahko privoscimo
         Incr Kazalec                                         ' vklop/izklop prvega kanala
            If Kazalec > Dolzina Then
               Kazalec = 0
               Incr Kolikokrat
               If Kolikokrat = 3 Then                         ' ali je bila koda 3x oddana?
                  Powerdown                                   ' mikrokontroler programsko ustavimo
               End If
            End If
         Crka = Mid(tekst , Kazalec , 1)
         Sbuf = Asc(crka)                                     ' pricne se oddaja crke
   End If
Waitms 10
Loop                                                          ' sreca, da se zanka dovolj hitro ponavlja

Print " "                                                     ' ta ukaz nikoli ne bo prisel na vrsto
                                                               ' prevajalnik bo nastavil vse potrebno
                                                              ' za oddajo samo, ce kje sreca PRINT " "