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