185
Usart_Write_Text(" OPCION INVALIDA ")
retardo()
entradasdigitales()
end select
end if
wend
case "4"
PORTA.0 = 1 'Conmuta el tráfico hacia la MTR2000
while true
if PORTA.1 = 1 then
PORTA.0 = 0
break
end if
case "5"
break
case else
Usart_Write_Text(" OPCION INVALIDA ")
retardo()
menuprincipal()
end select
end if
wend
end sub
sub procedure lecturapassword(dim direcccion, longitud as byte)
dim contador, var1,aux1 as byte 'Procedimiento que guarda temporalmente
aux1 = 0 'la contraseña que ingrese el usuario
for contador = direcccion to (direcccion + longitud)
Comentarios a estos manuales