$regfile = "at26def.dat" $crystal = 1000000 Config Porta = Output Dim T As Word T = 500 Porta = &B00000001 Waitms T Porta = &B00000011 Waitms T Porta = &B00000111 Waitms T Porta = &B00001111 Waitms T Porta = &B00011111 Waitms T Porta = &B00111111 Waitms T Porta = &B01111111 Waitms T Porta = &B11111111 Waitms T Porta = &B00000000 End