'----------------------------------------
'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 sprejemnik
'----------------------------------------
$regfile = "89c2051.dat"
$crystal = 4000000
$baud = 2400

Dim Stevec As Byte
Dim Tekst As String * 8
Dim Dolzina As Byte
Dim Temp As String * 1
Dim Pom_vred As Byte , A2 As Byte

P3.3 = 1
P3.4 = 0
Stevec = 1                                                    ' Kazalnik na karakter
' KODA-tekst, ki ga zelimo sprejeti; pritisk na tipko S2, ki je na oddajniku
Tekst = "123"

Dolzina = Len(tekst)                                          ' Doloci dolzino teksta                                    ' Doloci dolzino teksta
Do
   A2 = Waitkey                                               ' Prebere vhod in caka
   Temp = Mid(tekst , Stevec , 1)                             ' dobi crko iz zelenega teksta
   Pom_vred = Asc(temp)                                       ' pretvori v ascii vrednost
   If Pom_vred = A2 Then                                      ' primerja z vhodom
      Incr Stevec                                             ' ce je enak, potem poveca kazalnik
   Else
      Stevec = 1                                              ' ce ne kazalec resetira
   End If

   If Stevec > Dolzina Then                                   ' ce je kazalnik vecji kot dolzina teksta
      P3.3 = 0                                                ' vklopi piskac oz. LED diodo
      Waitms 200                                              ' pocakaj 0,2 sekundi
      P3.3 = 1                                                ' izklopi piskac oz. LED diodo
      Waitms 200
      P3.3 = 0
      Waitms 200
      P3.3 = 1
      Waitms 200
      P3.4 = 1                                                ' vklopi rele RE1
      Wait 2                                                  ' pocakaj 2 sekundi
      P3.4 = 0                                                ' izklopi rele RE1
      Stevec = 1                                              ' reset kazalnika
   End If
Loop