{
ÞÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÝ ³ Nombre     : Fox.pas
ÞÛ Ü ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÝ ³ Proyecto   : Ninguno.
ÞÛ Û Û Ü Û Ü ÛÜÜ Û ÜÜÛ Ü ÛÝ ³ Código     : Turbo Pascal 6.0
ÞÛ ß Û Ü Þ ß Û  ßÛ ßßÛ ß ÛÝ ³ Programó   : Orozco Aguilar Alfonso
ÞÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÝ ³ Fecha      : Noviembre 1992
---------------------------------------------------------------------------
Objetivo : Cálculo de Numerología Fox
--------------------------------------------------------------------------- }
uses crt;

var { public }
 Rej:Array [1..9] of Shortint;
 CadCent:StrIng[4];
 valifue:byte;

procedure sumarej(n1,n2,n3:shortint;lif:string);
var pass:Shortint;
begin
 pass:=rej[n1]+  rej[n2]+rej[n3];
 if pass>valifue then
   begin; valifue:=pass; cadcent:=lif; end;
end;

procedure principal;
var
 s : string;
 Total,Vocal,consonante,Valuename:byte;
 estaletra,letras,poder,Csh,mp:Shortint;

Begin
 Repeat
 CadCent:='NONE';
 valifue:=0;
 Write('Introduzca el nombre (enter para salir): ');
 ReadLn(s);
 if s='' then halt;
 For csh:=1 to 9 do Rej[csh]:=0;
 ValueName:=0;
 poder:=0;
 mp:=0;
 Vocal:=9;
 Consonante:=9;
 letras:=0;
 For csh := 1 To Length(s) Do
 Begin
   s[csh] := UpCase(s[csh]);
   estaletra:=0;
   Case s[csh] Of
   'A','J','S'    : Estaletra:= 1; 
   'B','K','T'    : Estaletra:= 2; 
   'C','L','U'    : Estaletra:= 3; 
   'D','M','V'    : Estaletra:= 4; 
   'E','N','¥','W': Estaletra:= 5; 
   'F','O','X'    : Estaletra:= 6; 
   'G','P','Y'    : Estaletra:= 7; 
   'H','Q','Z'    : Estaletra:= 8; 
   'I','R'        : Estaletra:= 9; 
   End;
   if estaletra>0 then
     begin
        valuename:=valuename+estaletra;
        rej[estaletra]:=rej[estaletra]+1;
        letras:=letras+1;
     end;
   case s[csh] Of
     'A','E','I','O','U': VOCAL:=VOCAL+Estaletra;
     else;
       consonante:=consonante+estaletra;
   end;
 End;
 Repeat
   If Consonante >9 Then Consonante:=Consonante-9;
 Until (Consonante >=1) And (Consonante <=9);
 Repeat
  If Vocal >9 Then Vocal:=Vocal-9;
 Until (Vocal >=1) And (Vocal <=9);
 Total:=ValueName;
 Repeat
   If Total >9 Then Total:=Total-9;
 Until (Total >=1) And (Total <=9);
 clrScr;
 WriteLn('www.ojosabiertos.org - Programa Numerolog¡a FOX Versi¢n 1.001');
 WriteLn('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 WriteLn('Estudio numerol¢gico de ',s);
 WriteLn('Valornumerico= ',Valuename);
 WriteLn;
 Writeln('Letras: ',letras);
 WriteLn('Valor Total     = ',Total);
 WriteLn('Valor Vocal     = ',Vocal);
 WriteLn('Valor Consonante= ',Consonante);
 writeln;
 for csh:=1 to 9 do
   begin
     if rej[csh]>mp then
       begin
         poder:=csh;
         mp:=rej[csh];
       end;
     Writeln(Csh,' ',Rej[csh]);
   end;
 WriteLn('Punto Fuerte= ',poder,' = ',((mp*100)/letras):0:2,'%');
 sumarej(1,2,3,'123');
 sumarej(4,5,6,'456');
 sumarej(7,8,9,'789');
 sumarej(1,4,7,'147');
 sumarej(2,5,8,'258');
 sumarej(3,6,9,'369');
 sumarej(1,5,9,'159');
 sumarej(3,5,7,'357');
 WriteLn;
 Write('Linea Principal de Fuerza= N',cadcent,' = ',((valifue*100)/letras):0:2,'%');
 WriteLn(' (puede haber otras).');
 WriteLn;
 Until 1=2;
End;

begin
 principal;
end.