$regfile = "2313def.dat"
$crystal = 4000000

Config Pind.6 = Output
Config Pind.2 = Input
Config Pind.3 = Input

Const Debouncetime = 25


Dim Wtime As Byte
Dim Encounter As Integer


Cls

Wtime = 100
Encounter = 0

Set Portd.2
Set Portd.3

Do
  Cls
  Lcd Pind.2 ; " " ; Pind.3
  Waitms Wtime
Loop

End