182
configuracion()
while true
if PORTA.1= 1 then
break
end if
if Usart_Data_Ready = 1 then
menu1 = Usart_Read
select case menu1
case "1"
contrasena()
configuracion()
case "2"
plantacelular()
retardo()
configuracion()
case "3"
menuprincipal()
break
case else
Usart_Write_Text(" OPCION INVALIDA ")
retardo()
configuracion()
end select
end if
wend
case "2"
control()
while true
Comments to this Manuals