Const Cpulsein_timeout = 5  

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack=40
$swstack=16
$framesize = 32

$lib "pulsein.lib"
Const Cpulsein_timeout = 5
'Dim Bpulsein_delay As Byte
Const Bpulsein_delay = 10


Config Pind.2 = Input
Ddrd.2 = 1


Config Lcdpin = Pin , E = Portc.1 , Rs = Portc.0
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3
Config Lcdpin = Pin , Db6 = Portc.4 , Db7 = Portc.5
Config Lcdbus = 4
Config Lcd = 16x2
Cls
Cursor Off


Dim W As Word


 Locate 1 , 1
 Lcd "PROBADOR DE RC"
 Waitms 100


Do
   Bitwait Pind.2 , Reset
   Pulsein W , Pind , 2 , 1
   Locate 2 , 1
   Lcd "PULSO ES " ; W ; "    "
Loop
End