187
aux = aux+1
if cod[aux-1]= enter then
var1 = calculolongitud(224,31)
lecturapassword(224,var1)
if var1 <> 0 then
if aux-1 = var1+1 then
for aux1 = 0 to var1
if cod[aux1] <> passw[aux1] then
porta = 1
comparacion = 1
break
else comparacion = 0
end if
next aux1
else comparacion = 1
end if
if comparacion = 0 then
menuprincipal()
ingreso()
else
Usart_Write(enter)
Usart_Write_Text("CODIGO INVALIDO")
end if
else menuprincipal()
ingreso()
end if
aux = 0
bienvenida ()
end if
Comments to this Manuals