$regfile = "m8def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5, Config Portc.0 = Input Dim W As Byte 'от 0 до 255 Cursor Off Cls W = 0 Locate 1 , 1 Lcd W Do Waitms 50 'подождем 50 миллисекунд. можно изменять как вздумается If Pinc.0 = 0 Then 'если на ноге низкий уровень Incr W 'инкрементируем, т.е. увеличиваем на 1. Для переменной типа Byte максимальное число 255, следом за ним идет 0, и все по-новому Cls 'очищаем дисплей Lcd W 'выводим End If Loop End