$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Config Portb = Input Portb = 1 Declare Sub Switch Do If Pinb.0 = 0 Then Call Switch End If Loop End Sub Switch Porta = 1 Wait 2 Porta = 0 End Sub