$regfile = ”m8def.dat”
$crystal = 1000000
$hwstack=40
Mwstack=16$
$framesize=32

Config PORTB.1 = Input
Config Lcdpin = Pin , Db4 = PORTC.2 , Db5 = PORTC.3 , Db6 = PORTC.4 , Db7 = PORTC.5, E = PORTC.1 , Rs = PORTC.0
Config Lcd * 16x2
Dim A As Long
Do
If PINB.1 = 0 then
    A = A + 1
    Cls
Lcd „Licznik”
Lcd A
Lowerline
Lcd „ Czujnik tak”

Do
Loop Until PINB.1 = 1
End If

Cls
Lcd „Licznik”
Lcd A
Lowerline
Lcd „ Czujnik nie”

Waitms 125
Loop
End