196
if (PORTB.1 = 1)and (correoaux = $FF) then
Eeprom_Write($DF,$00)
configuracioncorreo()
corteenergia ()
end if
if (PORTB.1 = 0) and (correoaux = $00) then
Eeprom_Write($DF,$FF)
configuracioncorreo()
reestablecimientoenergia()
end if
for bb = 0 to 255
correoaux = Eeprom_Read($DF)
if PORTA.1= 0 then
password()
end if
if (PORTB.1 = 1)and (correoaux = $FF) then
Eeprom_Write($DF,$00)
configuracioncorreo()
corteenergia()
end if
if (PORTB.1 = 0) and (correoaux = $00) then
Eeprom_Write($DF,$FF)
configuracioncorreo()
reestablecimientoenergia()
end if
for cc = 0 to 255
correoaux = Eeprom_Read($DF)
if PORTA.1= 0 then
password()
Komentarze do niniejszej Instrukcji