'usuwać $sim podczas programowania!!!
$sim
$large

Config Lcdpin = Pin , Db4 = P3.4 , Db5 = P3.5 , Db6 = P3.6 , Db7 = P3.7 , E = P3.3 , Rs = P3.1

Dim Zmienna1 As Byte
Dim Zmienna2 As Byte
Dim Zmienna3 As Byte
Dim Zmienna4 As Byte
Zmienna1 = 0
Zmienna2 = 0
Zmienna3 = 0
Zmienna4 = 0

Dim Wartownik As Byte
Wartownik = 0

Dim Licznik As Byte
Licznik = 0

Dim Pom As Byte
Pom = Licznik + 1

Cls
Lcd "WPROWADZ HASLO"
Lowerline
Lcd "CYKL 1:"

Declare Sub Wprowadz_zmienna1
Declare Sub Wprowadz_zmienna2
Declare Sub Wprowadz_zmienna3
Declare Sub Wprowadz_zmienna4

P2 = 0

Do

   If Licznik <> 3 Then
      If Wartownik = 0 Then
         Call Wprowadz_zmienna1
      End If
      If Wartownik = 1 Then
         Call Wprowadz_zmienna2
      End If
      If Wartownik = 2 Then
         Call Wprowadz_zmienna3
      End If
      If Wartownik = 3 Then
         Call Wprowadz_zmienna4
      End If
      If Wartownik = 4 Then
         If Zmienna1 = 0 And Zmienna2 = 1 And Zmienna3 = 2 And Zmienna4 = 3 Then
            Cls
            P2.0 = 1
            Lcd "OTWARTE!"
            Wait 5
            P2.0 = 0
            Wartownik = 0
            Licznik = 0

            Cls
            Lcd "WPROWADZ HASLO"
            Lowerline
            Pom = Licznik + 1
            Lcd "CYKL " ; Pom ; ":"

         Else
            Cls
            Lcd "BLEDNY KOD!"
            Licznik = Licznik + 1
            Wait 5
            Wartownik = 0

            If Licznik <> 3 Then
               Cls
               Lcd "WPROWADZ HASLO"
               Lowerline
               Pom = Licznik + 1
               Lcd "CYKL " ; Pom ; ":"
            End If

         End If
      End If
   Else

      Cls
      Lcd "ZABLOKOWANE!"
      Wait 240
      Wait 240
      Wait 240
      Wait 240
      Wait 240

      Wartownik = 0
      Licznik = 0

      Cls
      Lcd "WPROWADZ HASLO"
      Lowerline
      Pom = Licznik + 1
      Lcd "CYKL " ; Pom ; ":"

   End If

Loop
End

Sub Wprowadz_zmienna1

   If P0.0 = 0 Then
      Zmienna1 = 0
      Wartownik = Wartownik + 1
      Lcd "0"
      'Wait 1
      Bitwait P0.0 , Set
   End If
   If P0.1 = 0 Then
      Zmienna1 = 1
      Wartownik = Wartownik + 1
      Lcd "1"
      'Wait 1
      Bitwait P0.1 , Set
   End If
   If P0.2 = 0 Then
      Zmienna1 = 2
      Wartownik = Wartownik + 1
      Lcd "2"
      'Wait 1
      Bitwait P0.2 , Set
   End If
   If P0.3 = 0 Then
      Zmienna1 = 3
      Wartownik = Wartownik + 1
      Lcd "3"
      'Wait 1
      Bitwait P0.3 , Set
   End If
   If P0.4 = 0 Then
      Zmienna1 = 4
      Wartownik = Wartownik + 1
      Lcd "4"
      'Wait 1
      Bitwait P0.4 , Set
   End If
   If P0.5 = 0 Then
      Zmienna1 = 5
      Wartownik = Wartownik + 1
      Lcd "5"
      'Wait 1
      Bitwait P0.5 , Set
   End If
   If P0.6 = 0 Then
      Zmienna1 = 6
      Wartownik = Wartownik + 1
      Lcd "6"
      'Wait 1
      Bitwait P0.6 , Set
   End If
   If P0.7 = 0 Then
      Zmienna1 = 7
      Wartownik = Wartownik + 1
      Lcd "7"
      'Wait 1
      Bitwait P0.7 , Set
   End If

End Sub

Sub Wprowadz_zmienna2

   If P0.0 = 0 Then
      Zmienna2 = 0
      Wartownik = Wartownik + 1
      Lcd "0"
      'Wait 1
      Bitwait P0.0 , Set
   End If
   If P0.1 = 0 Then
      Zmienna2 = 1
      Wartownik = Wartownik + 1
      Lcd "1"
      'Wait 1
      Bitwait P0.1 , Set
   End If
   If P0.2 = 0 Then
      Zmienna2 = 2
      Wartownik = Wartownik + 1
      Lcd "2"
      'Wait 1
      Bitwait P0.2 , Set
   End If
   If P0.3 = 0 Then
      Zmienna2 = 3
      Wartownik = Wartownik + 1
      Lcd "3"
      'Wait 1
      Bitwait P0.3 , Set
   End If
   If P0.4 = 0 Then
      Zmienna2 = 4
      Wartownik = Wartownik + 1
      Lcd "4"
      'Wait 1
      Bitwait P0.4 , Set
   End If
   If P0.5 = 0 Then
      Zmienna2 = 5
      Wartownik = Wartownik + 1
      Lcd "5"
      'Wait 1
      Bitwait P0.5 , Set
   End If
   If P0.6 = 0 Then
      Zmienna2 = 6
      Wartownik = Wartownik + 1
      Lcd "6"
      'Wait 1
      Bitwait P0.6 , Set
   End If
   If P0.7 = 0 Then
      Zmienna2 = 7
      Wartownik = Wartownik + 1
      Lcd "7"
      'Wait 1
      Bitwait P0.7 , Set
   End If

End Sub

Sub Wprowadz_zmienna3

   If P0.0 = 0 Then
      Zmienna3 = 0
      Wartownik = Wartownik + 1
      Lcd "0"
      'Wait 1
      Bitwait P0.0 , Set
   End If
   If P0.1 = 0 Then
      Zmienna3 = 1
      Wartownik = Wartownik + 1
      Lcd "1"
      'Wait 1
      Bitwait P0.1 , Set
   End If
   If P0.2 = 0 Then
      Zmienna3 = 2
      Wartownik = Wartownik + 1
      Lcd "2"
      'Wait 1
      Bitwait P0.2 , Set
   End If
   If P0.3 = 0 Then
      Zmienna3 = 3
      Wartownik = Wartownik + 1
      Lcd "3"
      'Wait 1
      Bitwait P0.3 , Set
   End If
   If P0.4 = 0 Then
      Zmienna3 = 4
      Wartownik = Wartownik + 1
      Lcd "4"
      'Wait 1
      Bitwait P0.4 , Set
   End If
   If P0.5 = 0 Then
      Zmienna3 = 5
      Wartownik = Wartownik + 1
      Lcd "5"
      'Wait 1
      Bitwait P0.5 , Set
   End If
   If P0.6 = 0 Then
      Zmienna3 = 6
      Wartownik = Wartownik + 1
      Lcd "6"
      'Wait 1
      Bitwait P0.6 , Set
   End If
   If P0.7 = 0 Then
      Zmienna3 = 7
      Wartownik = Wartownik + 1
      Lcd "7"
      'Wait 1
      Bitwait P0.7 , Set
   End If

End Sub

Sub Wprowadz_zmienna4

   If P0.0 = 0 Then
      Zmienna4 = 0
      Wartownik = Wartownik + 1
      Lcd "0"
      'Wait 1
      Bitwait P0.0 , Set
   End If
   If P0.1 = 0 Then
      Zmienna4 = 1
      Wartownik = Wartownik + 1
      Lcd "1"
      'Wait 1
      Bitwait P0.1 , Set
   End If
   If P0.2 = 0 Then
      Zmienna4 = 2
      Wartownik = Wartownik + 1
      Lcd "2"
      'Wait 1
      Bitwait P0.2 , Set
   End If
   If P0.3 = 0 Then
      Zmienna4 = 3
      Wartownik = Wartownik + 1
      Lcd "3"
      'Wait 1
      Bitwait P0.3 , Set
   End If
   If P0.4 = 0 Then
      Zmienna4 = 4
      Wartownik = Wartownik + 1
      Lcd "4"
      'Wait 1
      Bitwait P0.4 , Set
   End If
   If P0.5 = 0 Then
      Zmienna4 = 5
      Wartownik = Wartownik + 1
      Lcd "5"
      'Wait 1
      Bitwait P0.5 , Set
   End If
   If P0.6 = 0 Then
      Zmienna4 = 6
      Wartownik = Wartownik + 1
      Lcd "6"
      'Wait 1
      Bitwait P0.6 , Set
   End If
   If P0.7 = 0 Then
      Zmienna4 = 7
      Wartownik = Wartownik + 1
      Lcd "7"
      'Wait 1
      Bitwait P0.7 , Set
   End If

End Sub