$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Config Portb = Input Portb = 1 Do If Pinb.0 = 1 Then Toggle Porta.0 Waitms 50 End If Loop End