176
Usart_Write(enter)
Usart_Write_Text("REPETIDORA [")
var1 = calculolongitud(64,31)
lecturaeeprom(64,var1)
Usart_Write_Text("]: ")
lecturadatos(64,31)
end sub
sub procedure contrasena () 'Procedimiento que envía los caracteres del
dim var1 as byte 'Submenú Cambio de Contraseña
espacio()
Usart_Write_Text("NOTA: MAXIMO 30 CARACTERES POR CAMPO")
Usart_Write(enter)
Usart_Write_Text("PASSWORD [")
var1 = calculolongitud(224,31)
lecturaeeprom(224,var1)
Usart_Write_Text("]: ")
lecturadatos(224,31)
end sub
sub procedure configuracion() 'Procedimiento que envía los caracteres del
espacio () 'Menú Configuración
Usart_Write_Text(" MENU CONFIGURACION")
Usart_Write(enter)
Usart_Write_Text("1) CAMBIO DE PASSWORD ")
Usart_Write(enter)
Usart_Write_Text("2) COFIGURACION DE CORREOS DE NOTIFICACION ")
Comentarios a estos manuales