$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack=8
$framesize=24

Config Portb.2 = Input
Config Portb.1 = Output
Config Portb.0 = Output
Dim W As Word
Do
Pulsein W , Pinb , 2 , 1

If W > 170 And W <= 200 Then
Portb.0 = 1
Else
Portb.0 = 0
End If
If W <= 130 And W > 100 Then
Portb.1 = 1
Else
Portb.1 = 0
End If
Loop
End