$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Config Portb = Input Portb = &B00001111 Dim N As Byte Do N = Pinb Shift N , Left , 4 Porta = N Loop End