$regfile = "at26def.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 Config Lcdpin = Pin , Db6 = Porta.6 , Db7 = Porta.7 Config Lcdpin = Pin , E = Porta.3 , Rs = Porta.2 Config Lcd = 16 * 2 Config Portb = Input Portb = 1 Dim N As Byte Cursor Off Cls Do If Pinb.0 = 1 Then Cls Lcd "Count " ; N Wait 1 Incr N End If Loop End