175
end if
else
break
end if
end if
if contador > 30 then
contador = 30
end if
wend
end sub
sub procedure plantacelular() 'Procedimiento que envía los caracteres del
dim var1 as byte 'Submenú de Configuración de Correo electrónicos
espacio()
Usart_Write_Text("NOTA: LA CANTIDAD MAXIMA DE CARACTERES PARA
CADA CAMPO ES DE 30")
Usart_Write(enter)
Usart_Write_Text("DESTINATARIO [")
var1 = calculolongitud(0,31)
lecturaeeprom(0,var1)
Usart_Write_Text("]: ")
lecturadatos(0,31)
Usart_Write(enter)
Usart_Write_Text("COPIA [")
var1 = calculolongitud(32,31)
lecturaeeprom(32,var1)
Usart_Write_Text("]: ")
lecturadatos(32,31)
Komentarze do niniejszej Instrukcji