$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Dim N As Byte For N = 7 To 0 Step -1 Porta = 2 ^ N Waitms 500 Next N Porta = 0 End