$regfile = "m32def.dat"                                     'ładowanie pliku definicji rejestrów Atmegi32
$crystal = 16000000                                         'definiwanie częstotliwości oscylatora w hercach

Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.2 , E = Portb.3 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Cursor Off : Cls
Locate 1 , 1 : Lcd "A:"
Locate 2 , 1 : Lcd "B:"


Config Kbd = Porta , Delay = 150

Config Portd.6 = Output

Portd.6 = 0


Dim Klawiatura As Byte
Dim Peron_a As String * 6
Dim Peron_b As String * 6
Dim Temp As String * 1
Dim Temp2 As String * 1
Dim Peron As Byte
Dim Wlacz_kursor As Bit
Dim X As Byte

Peron = 0
Wlacz_kursor = 0
X = 0


Do
'Print Chr(0) ;
Klawiatura = Getkbd()

Select Case Klawiatura
Case 3 :
If Peron = 0 And Peron <> 1 Then : Peron = 1 : Wlacz_kursor = 1 : X = 3 : End If
Case 7 :
If Peron = 0 And Peron <> 2 Then : Peron = 2 : Wlacz_kursor = 1 : X = 3 : End If


Case 0 :
If Peron <> 0 Then : Temp = "1" : End If
Case 1 :
If Peron <> 0 Then : Temp = "2" : End If
Case 2 :
If Peron <> 0 Then : Temp = "3" : End If
Case 4 :
If Peron <> 0 Then : Temp = "4" : End If
Case 5 :
If Peron <> 0 Then : Temp = "5" : End If
Case 6 :
If Peron <> 0 Then : Temp = "6" : End If
Case 8 :
If Peron <> 0 Then : Temp = "7" : End If
Case 9 :
If Peron <> 0 Then : Temp = "8" : End If
Case 10 :
If Peron <> 0 Then : Temp = "9" : End If
Case 11 :
If Peron = 1 Then : X = 3 : Peron_a = "" : Locate 1 , 3 : Lcd "       " : Locate 1 , 3 : End If
If Peron = 2 Then : X = 3 : Peron_b = "" : Locate 2 , 3 : Lcd "       " : Locate 2 , 3 : End If
Case 12 :
If Peron <> 0 Then : Temp = "," : End If
Case 13 :
If Peron <> 0 Then : Temp = "0" : End If
Case 15 :
'Gosub Wyslij_peron_a

End Select

'Locate 2 , 3 : Lcd X

If Peron = 1 And Klawiatura = 7 Then : Peron_a = "" : Locate 1 , 3 : Lcd "       " : Cursor Off : Wlacz_kursor = 1 : X = 3 : Peron = 2 : Waitms 50 : End If
If Peron = 2 And Klawiatura = 3 Then : Peron_b = "" : Locate 2 , 3 : Lcd "       " : Cursor Off : Wlacz_kursor = 1 : X = 3 : Peron = 1 : Waitms 50 : End If




If Peron = 1 Then


If Wlacz_kursor = 1 Then : Locate 1 , 3 : Cursor Blink : Wlacz_kursor = 0 : End If

If Klawiatura <> 16 And Klawiatura <> 11 And Klawiatura <> 14 And Klawiatura <> 3 And Klawiatura <> 15 Then
Peron_a = Peron_a + Temp : Waitms 50 : Temp = ""
Locate 1 , 3 : Lcd Peron_a : Incr X

   If X > 9 Then : X = 3 : Locate 1 , 3 : Peron_a = "" : Lcd "       " : Locate 1 , 3 : End If

End If
End If



If Peron = 2 Then


If Wlacz_kursor = 1 Then : Locate 2 , 3 : Cursor Blink : Wlacz_kursor = 0 : End If

If Klawiatura <> 16 And Klawiatura <> 11 And Klawiatura <> 14 And Klawiatura <> 7 And Klawiatura <> 15 Then
Peron_b = Peron_b + Temp : Waitms 50 : Temp = ""
Locate 2 , 3 : Lcd Peron_b : Incr X

If X > 9 Then : X = 3 : Locate 2 , 3 : Peron_b = "" : Lcd "       " : Locate 2 , 3 : End If

End If



End If


'Cls

'Locate 1 , 1 : Lcd Perona
'Locate 2 , 1 : Lcd Temp




Loop : End

Wyslij_peron_a:
Locate 1 , 3 : Lcd "Czekaj" : Cursor Off
Return