183
if PORTA.1= 1 then
break
end if
if Usart_Data_Ready = 1 then
menu1 = Usart_Read
select case menu1
case "1"
espacio()
Usart_Write_Text("REINICIANDO SISTEMA ")
retardo()
reset
case "2" 'Reinicio de la repetidora MTR2000
PORTB.0 = 1
retardo()
PORTB.0 = 0
case "3"
menuprincipal()
break
case else
Usart_Write_Text(" OPCION INVALIDA ")
retardo()
control()
end select
end if
wend
case "3"
entradasdigitales()
while true
Comments to this Manuals