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