$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Config Portb = Input Portb = &B01000001 Do If Pinb.0 = 0 Then Porta = 1 End If If Pinb.6 = 0 Then Porta = 0 End If Loop End