180
var1 = calculolongitud(128,15)
lecturaeeprom(128,var1)
Usart_Write_Text("]: ")
lecturadatos(128,15)
Usart_Write(enter)
Usart_Write_Text("ED4 [")
var1 = calculolongitud(144,15)
lecturaeeprom(144,var1)
Usart_Write_Text("]: ")
lecturadatos(144,15)
end sub
sub procedure entradasdigitales() 'Procedimiento que envía los caracteres del
espacio () 'Menú Entradas Digitales
Usart_Write_Text(" MENU ENTRADAS DIGITALES ")
Usart_Write(enter)
Usart_Write_Text("1) EDITAR NOMBRE DE ENTRADAS DIGITALES ")
Usart_Write(enter)
Usart_Write_Text("2) VER ESTADO DE ENTRADAS DIGITALES ")
Usart_Write(enter)
Usart_Write_Text("3) SALIR ")
Usart_Write(enter)
Usart_Write(enter)
Usart_Write_Text("INGRESE EL NUMERO DE OPCION: ")
end sub
Comentarios a estos manuales