$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Dim N1 As Byte Dim N2 As Byte Declare Sub Routine For N1 = 1 To 8 N2 = 2 ^ N1 Porta = N2 - 1 Call Routine Next N1 Porta = 0 Sub Routine Waitms 500 Porta = 0 Waitms 500 End Sub End