#include <stdio.h>
#include "stdlib.h"

#define SUNDAY 1;
#define MONDAY 2;
#define TUESDAY 3;
#define WEDNESDAY 4;
#define THURSDAY 5;
#define FRIDAY 6;
#define SATURDAY 7;
#define lnofstr 40 /* length of the name that can be inputed */

/* to compile type....   cc -o <file> <file.c> */

int birthyear, /* the birthyear inputed */
 birthmonth, /* the month of the birthday */
 birthday, /* the day of the birthday */
 presyear, /* the present year */
 presmonth, /* the present month */
 presday, /* the present day */
 cycle[12][1], /* array which determines the length of a month */
 year, /* the number of days in a year */
 yrdiff, /* used to see what year it is in 28-year cycle */
 dayofweek, /* the present day of week represented as 1 through 7 */
 totb, /* total number of days since birth from beginning of year */
 totp, /* total number of days present from beginning of year */
 degree, /* used to help calculate key in PrintFourMonthsCycle */
 birthpath, /* your birthpath, used as part of calculation */
 pprint, /* is true by default...is false if I option is chosen */
 age, /* age of the person... */
 name, /* the number of the name of the person see -N option */
 soul, /* the number added up of the vowels in name */
 tempsoul,
 stln, /* the length of the name +1 */ 
 kprint, /* is true if -N option is chosen */
 karma[9], /* number of types of letters in name */
 numage, /* determines which cycle you are in based on your name */
 tempcharac,
 charac, /* the consonants of the name */
 crittime1, /* these are both times in which you must watch under name */
 crittime2; /* cycles (the last letter of your first name and last name */

int week[9][1]; /* arrays of week, Sunday, Monday, etc  */
char 
   c[lnofstr], /* holds the name of the person, see option -N */
   cabala[40]; /* is used if -N option is chosen */

void PrintChaldeanCycle(); /* procedure to print and calculate cycle */

void PrintChange(); /* prints if your age or present year is change year */

void PrintCycle(); /* reduces digits into their basic sum */

void PrintInter(); /* Interprets PrintFourMonthsCycle */

void PrintFourMonthsCycle(); /* Calculates overtone and cycle numbers */

void PrintAgedigit(); /* prints the agedigit cycle */

void PrintChall(); /* prints the meaning of the challenge number */

void PrintPin(); /* prints the meaning of the pinnacle number */

void PrintChandPin(); /* prints out challenges and Pinnacles */

void PrintLife(); /* prints out the life cycles */

void PrintHelp(); /* prints out the help file */

void PrintBib(); /* prints out the bibliography, etc. */

int WordTrans(); /* translates letters, into numbers */

void PrintName(); /* prints out the name cycles, etc. */

void PrintKarma(); /* prints out karma and number cycles */

void KarmaInter(); /* interprets meaning of karmic numbers */

/* --------------------------------------------------------------------- */
int SumDigits(int single)     {
int hundreds, tens, ones, thousands;
        thousands=single/1000;
        hundreds = (single/100)-(thousands*10);
        tens = (single/10)-(thousands*100)-(hundreds*10);
        ones =  single - ((thousands*1000)+(hundreds*100)+(tens*10));
        single = hundreds + tens + ones + thousands;
        return single;
} /* end PrintCycle */
/* --------------------------------------------------------------------- */
main(int argc, char *argv[]) /* beginning of main program */

{
cycle[0][1]=0; /* initialization of months */
cycle[1][1]=31;
cycle[2][1]=28;
cycle[3][1]=31;
cycle[4][1]=30;
cycle[5][1]=31;
cycle[6][1]=30;
cycle[7][1]=31;
cycle[8][1]=31;
cycle[9][1]=30;
cycle[10][1]=31;
cycle[11][1]=30;
cycle[12][1]=31;

week[1][1]=SUNDAY; /* initializes which numbers goes with which days */
week[2][1]=MONDAY; 
week[3][1]=THURSDAY;
week[4][1]=SUNDAY;
week[5][1]=WEDNESDAY;
week[6][1]=FRIDAY;
week[7][1]=MONDAY;
week[8][1]=SATURDAY;
week[9][1]=TUESDAY;

year=365;
pprint=1;
kprint=1;
if(argc==2)
{
switch(*argv[1]) {
   case 'c': case 'C':
printf("Please enter your birthdate month|date|year: ");
scanf("%i%i%i", &birthmonth, &birthday, &birthyear);
birthpath=birthyear+birthmonth+birthday;
while((birthpath>9)&&(birthpath!=11)&&(birthpath!=22)&&(birthpath!=33))
   birthpath=SumDigits(birthpath);
   PrintChandPin();
   exit(0);
   case 'i': case 'I':
   pprint=0;
   break;
   case 'b': case 'B':
   PrintBib();
   exit(0);
   case 'l': case 'L':
printf("Please enter your birthdate month|date|year: ");
scanf("%i%i%i", &birthmonth, &birthday, &birthyear);
birthpath=birthyear+birthmonth+birthday;
while((birthpath>9)&&(birthpath!=11)&&(birthpath!=22)&&(birthpath!=33))
   birthpath=SumDigits(birthpath);
   PrintLife();
   exit(0);
   case 'h': case 'H':
   PrintHelp();
   exit(0);
   case 'n': case 'N':
   PrintName();
   kprint=0;
   break;
   default:
printf("Usage: Numcycle c (prints challenge and pinnacles)\n");
printf("       Numcycle i (prints no interpretations)\n");
printf("       Numcycle l (prints the life cycles)\n");
printf("       Numcycle h (prints the help file)\n");
printf("       Numcycle n (prints out name cycles too)\n");
printf("       Numcycle b (prints out the bibliography and copyright).\n");
exit(0);
} /* end switch */
}
printf("Please enter your birthdate month|date|year: ");
scanf("%i%i%i", &birthmonth, &birthday, &birthyear);
birthpath=birthyear+birthmonth+birthday;
while((birthpath>9)&&(birthpath!=11)&&(birthpath!=22)&&(birthpath!=33))
   birthpath=SumDigits(birthpath);

printf("Please enter present month|day|year: ");
scanf("%i%i%i", &presmonth, &presday, &presyear);

/* printchaldeancycle should always be called first since it initializes
   totb and totp that are used in other functions */
printf("\n");
PrintChaldeanCycle();
PrintFourMonthsCycle();
PrintAgedigit();
PrintChange();
if(kprint==0)
   PrintKarma();
PrintCycle();
} /* end main */
/* ---------------------------------------------------------------------- */
void PrintChaldeanCycle()
{
int 
 temp, /* is used at temporary number counter */
 chaldean, /* the chaldean day */
 tempyear, /* the number of days in your year of birth */
 tempcycle[12][1]; /* the number of days in the year of your birth */

for(temp=12; temp!=0; --temp)
tempcycle[temp][1]=cycle[temp][1];
if(presyear%4==0) /* checks to see if it is a leap year */
   {cycle[2][1]=29; /* corrections made for leap year */
    year=366;}
totb=0;
totp=0;
tempyear=365;
if(birthyear%4==0)
   {
   tempcycle[2][1]=29;
   tempyear=366;}
for(temp=(birthmonth-1); temp!=0; --temp)
   totb=totb+tempcycle[temp][1];
   
totb=totb+birthday; /* total number of days in year you were born */

if(birthmonth==12) /*don't ask me why I put this year...weird error */
   totb=totb-tempyear; /* occurs if I don't ei...born month 12 */

for(temp=(presmonth-1);temp!=0;--temp)
   totp=totp+cycle[temp][1];
totp=totp+presday; /*total number of days (this year so far) total */

/* these next lines are here for convenience, but are not necessary for the
   procedure chaldean */

/*if(presmonth==12)
   totp=totp-year;*/

yrdiff=(presyear-(presyear/28)*28);    /* used to help calculate next line */
dayofweek=((yrdiff+(yrdiff/4)+5+totp)%7); /* day of the week */
temp = totb;
if((tempyear==366)&&(birthmonth>2))
temp = totb-1;
degree=(temp+10)%30+1;
if((birthmonth>6))
   degree=(temp+5)%30+1;
if((birthmonth==6)&&(birthday>21))
{ switch(birthday) {
   case 22:
      degree=2;
      break;
   case 23: case 24:
      degree=3;
      break;
   case 25: case 26:
      degree=4;
      break;
   case 27: case 28:
      degree=5;
      break;
   case 29:
      degree=6;
      break;
   case 30:
      degree=7;
      break;
   default:
      printf("Error...in degree calculation.\n");} /* end switch */
}
if(totp<totb)
   totp=totp+year;

chaldean=((totp-totb)/52 +1);
if(chaldean>7)
   chaldean=7;
printf("Your current chaldean cycle is %i\n", chaldean);
if(pprint==1)
{
switch(chaldean)   {
         case 1 : 
printf("* (Reputation Period) \n");
printf("* Seek favors from persons in high positions, promotions,\n");
printf("  loans, and career advancements.\n");
printf("* Good for advancing personal self-interests and for\n");
printf("  building up your personal credit.\n");
printf("* Good for dealing with government and public officials.\n");
printf("* Good for promoting your name and personal reputation.\n");
printf("* Your vitality is generally at its best. Health that's below\n");
printf("  normal quickly returns.\n");
printf("* Good period to plan an operation.\n");
printf("* An especially good period for deep breathing, walking, and\n");
printf("  other outdoor activities.\n");
printf("* Avoid straining the eyes.\n");
         
         break;
         case 2: 
printf("* (Journey Period)\n");
printf("* Good for journey by train and water.\n");
printf("* Good for moving into a new home or new location.\n");
printf("* Not a good time to borrow money.\n");
printf("* Long-term contracts should not be started or completed\n");
printf("  in this period.\n");
printf("* Tendency toward rapid changes in the health.\n");
printf("* Problems develop with the stomach, bowels, bloodstream,\n");
printf("  nerves, aches, and pains.\n");
printf("* Keep a careful and contented attitude of mind.\n");
         
         break;
         case 3: 
printf("* (Energy Period)\n");
printf("* Good period for physical energy, effort, endurance, and\n");
printf(" determination.\n");
printf("* Good period to deal with rivals and competitors.\n");
printf("* Good for salespersons and speakers who must use \n");
printf("  persuasion.\n");
printf("* Bad time to argue, especially over contracts, docu-,\n");
printf("  ments, or other legal matters.\n");
printf("* Period of accidents and sudden operations.\n");
printf("* Injury through fires, sharp instruments, falls, and sudden\n");
printf("  blows.\n");
printf("* Watch your blood pressure; avoid strain and overwork.\n");
         
         break;
         case 4: 
printf("* (Mental Period)\n");
printf("* Good period for writing, creative thoughts, new ideas,\n");
printf("  and the study of special interests.\n");
printf("* Good for following impulses, hunches, intuition, and\n");
printf("  inspiration.\n");
printf("* Good for literary matters, artists, bookkeepers,\n");
printf("  and the like.\n");
printf("* Greatest period to beware of fraud and deception by others.\n");
printf("* Time of restlessness, uneasiness, and stress on the nervous\n");
printf(" system.\n");
printf("* Avoid excessive reading, planning or overworking the mind.\n");
printf("* Rest and sleep is needed more during this period than at\n");
printf("  any other time.\n");
      
         break;
         case 5: 
printf("* (Success Period)\n");
printf("* Good period for the successful termination of things.\n");
printf("* Good time to expand, prosper, and grow in personal\n");
printf("  and intimate affairs.\n");
printf("* Good time to collect, speculate, and borrow money.\n");
printf("* Tendency to overindulge in things of the flesh.\n");
printf("* Good period for recovery from fevers, chronic conditions,\n");
printf("  or other afflictions.\n");
printf("* Stay alert, since mental suggestions from others, as well\n");
printf("  as your surroundings, affect the mind during this time.\n");
         
         break;
         case 6: 
printf("* (Vacation Period)\n");
printf("* Good for pleasure, amusement, entertainment, and other\n");
printf("  fun things.\n");
printf("* Good for long or short visits of a relaxing nature.\n");
printf("* Good for renewing friendships, and for men dealing\n");
printf("  with women.\n");
printf("* Not good for long travels by water.\n");
printf("* Skin, throat, the reproductive system, and kidneys may\n");
printf("  be affected.\n");
printf("* Avoid mental strain, overwork, or too much pleasure of\n");
printf("  a physical nature.\n");
printf("* Drink plenty of fresh water and take part in lots of\n");
printf("  outdoor activities.\n");
         
         break;
         case 7: 
printf("* (Critical Period)\n");
printf("* Good time for dealing with the elderly.\n");
printf("* Good for dealing with read estate, mines, and things of\n");
printf("  of the Earth.\n");
printf("* Good for finishing or ending things.\n");
printf("* Sudden travels, long or short, especially by sea or\n");
printf("  overland should be avoided.\n");
printf("* Physical and mental vitality is generally at its lowest.\n");
printf("* Not a good time for taking medicine or having an operation.\n");
printf("* Try to avoid lingering colds or flare-ups of chronic\n");
printf("  conditions.\n");

         
         break;
         default:
         printf("Error in cycle.....\n");
         }  /* end switch(cabala) */ } /* end if pprint */
printf("\n");

}
/* ----------------------------------------------------------------------- */
void PrintChange()

{
int
  temp, /* obvious */
  tp; /* another temp variable */

tp=birthday;
while(tp>9)
   tp=SumDigits(tp);
temp=age;
if(temp>9)
temp=SumDigits(temp);
if(temp==tp)
   printf("This is a time of personal change due to your age\n");

temp=presyear;
while(temp>9)
   temp=SumDigits(temp);
if(temp==tp)
   printf("This is a personal change year due to the present year.\n");
switch(birthmonth) {
   case 1: case 10:
   if(age==28)
   goto lbl1;
   break;
   case 2: case 11:
   if((age==11)||(age==20))
   goto lbl1;
   break;
   case 3: case 12:
   if((age==21)||(age==24))
   goto lbl1;
   break;
   case 4:
   if((age==19)||(age==22)||(age==28))
   goto lbl1;
   break;
   case 5:
   if((age==14)||(age==23))
   goto lbl1;
   break;
   case 6:
   if((age==21)||(age==24)||(age==28))
   goto lbl1;
   break;
   case 7:
   if((age==16)||(age==25))
   goto lbl1;
   break;
   case 8:
   if((age==17)||(age==26)||(31<=age>=33))
   goto lbl1;
   break;
   case 9:
   if((age==18)||(age==27))
   goto lbl1;
   break;
lbl1: printf("# This could be an important age (life cycles: option -l)\n");
      printf("  See the first cycle.\n");
   default:
   break;
} /* end switch */
switch(birthday) {
   case 1: case 10: case 19: case 28:
   if((age==28)||(age==31)||(age==56))
   goto lbl2;
   break;
   case 2: case 11: case 20: case 29:
   if((age==29)||(age==56))
   goto lbl2;
   break;
   case 3: case 12: case 21: case 30:
   if((age==30)||(age==57))
   goto lbl2;
   break;
   case 4: case 13: case 22: case 31:
   if(age==31)
   goto lbl2;
   break;
   case 5: case 14: case 23:
   if(age==32)
   goto lbl2;
   break;
   case 6: case 15: case 24:
   if((age==24)||(age==33))
   goto lbl2;
   break;
   case 7: case 16: case 25:
   if(age==25)
   goto lbl2;
   break;
   case 8: case 17: case 26:
   if((age==35)||(age==58))
   goto lbl2;
   break;
   case 9: case 18: case 27:
   if(age==27)
   goto lbl2;
   break;
lbl2: printf("# This could be an important age (life cycles: option -l)\n");
      printf("  See the second cycle.\n");
   default:
   break;
} /* end switch */

temp=birthyear;
while(temp>9)
   temp=SumDigits(temp);
switch(temp) {
   case 1:
   if(age==55)
   goto lbl3;
   break;
   case 2:
   if(age==56)
   goto lbl3;
   break;
   case 3:
   if(age==57);
   goto lbl3;
   break;
   case 6:
   if(age==51)
   goto lbl3;
   break;
   case 8:
   if(age==53)
   goto lbl3;
   break;
   case 9:
   if(age==54)
   goto lbl3;
   break;
lbl3: printf("# This could be an important age (life cycles: option -l)\n");
      printf("  See the third cycle.\n");
   default:
   break;
} /* end switch */
printf("\n");
}


/* ----------------------------------------------------------------------- */
void PrintCycle()
{
int uniyear, /* the calculated universal year...changes yearly */
 unimonth, /* the calculated universal month */
 uniweek, /* the calculated universal week */
 uniday, /* the calculated universal day */
 yryear, /* your personal calculated year */
 yrmonth, /* your personal calculated month */
 yrweek, /* your personal calculated week */
 yrday, /* your personal calculated day */
 weirdday, /* day of week in which something weird might happen */
 whichweek; /* which week it is...values can range from 1 to 5 */

uniyear=presyear;
whichweek=((presday-1)/7 + 1);
while((uniyear>9)&&(uniyear!=11)&&(uniyear!=22)&&(uniyear!=33))
{
uniyear=SumDigits(uniyear);
}
printf("# The universal year is: %d #\n", uniyear);
if(pprint==1)
{
switch(uniyear) {
   case 1: {
   printf("A year of new events of achievements, especially in engineer-\n");
   printf("ing, aviation, or invention.  There will be much creative\n");
   printf("activity.  A pioneering spirit and progressive plans will be\n");
   printf("much in evidence.  A change is indicated.\n");}
   break;
   case 2: {
   printf("A year of peace and tranquility.  Group work will be predomi-\n");
   printf("nant.  This is  a year when tact and diplomacy are required.\n");
   printf("Agreements will be signed, and many statistics collected.\n");
   printf("Governmental work and politics will be in the foreground.\n");}
   break;
   case 3: {
   printf("A year when social life is uppermost in the minds of most in-\n");
   printf("dividuals.  There will be expansion in theaters and places of\n");
   printf("entertainment.  A restlessness and recklessness will be no-\n");
   printf("ticeable.  There may be a tendency for you to scatter your\n");
   printf("talents.\n");}
   break;
   case 4: {
   printf("A year to settle down to hard work.  Thrift and economy must\n");
   printf("be practiced after living high last year.  Building a good\n");
   printf("foundation is necessary.  Jobs will be scarce, but progress\n");
   printf("will be made in manufacturing and education.\n");}
   break;
   case 5: {
   printf("A year of expansion, new interests, curiosity, change, versa-\n");
   printf("tility, and activity.  Interest may lean toward metaphysics,\n");
   printf("psychology, or the occult sciences.  A rejuvenation will be\n");
   printf("felt with better working conditions than in a four year\n");
   printf("period.  Numerology and Astrology will flourish.\n");}
   break;
   case 6: {
   printf("An increase in marriages will take place.  A year which is\n");
   printf("devoted to love and interest in the home and family circle.\n");
   printf("An advance in education and health conditions will be noti-\n");
   printf("ceable.  Many club houses, schools, and new homes are built.\n");
   }
   break;
   case 7: {
   printf("This is a vibration of perfection and analysis instead of\n");
   printf("expansion.  It usually is a good financial year, especially\n");
   printf("for those engaged in agriculture and mining pursuits.  A\n");
   printf("spiritual wave will be felt, and many will meditate and turn\n");
   printf("inward for solace.\n");}
   break;
   case 8: {
   printf("A year of big business expansion, progress, and prosperity.\n");
   printf("Engineering projects should boom.  Relationships with foreign\n");
   printf("countries should be profitable.  Thinking should be done on\n");
   printf("a large scale.\n");}
   break;
   case 9: {
   printf("A vibration of love for mankind, in which selfless service\n");
   printf("should be paramount.  This is an excellent year to give your\n");
   printf("business a general house-cleaning, and finish up odds and\n");
   printf("ends.  You must learn to let go of the olod and cultivate\n");
   printf("tolerance, understanding, and love.\n");}
   break;
   case 11: {
   printf("A master year governed by idealism and inspiration. Religious\n");
   printf("interests will boom, and people will be interested in Occult-\n");
   printf("ism, spiritualism, and evangelism.  Revival meetings will be\n");
   printf("crowded.  Psychology will be a major subject of discussion.\n");
   printf("This is a good year for promotional affairs, although \n");
   printf("business may not be paramounts in the minds of individuals.\n");}
   break;
   case 22: {
   printf("A master year, with wordly impetus.  It will be both ideal-\n");
   printf("istic and materialistic.  This year will bring greatness in\n");
   printf("business expansion, and a strong humanitarian force.  There\n");
   printf("will be an aim for betterment than just community progress.\n");
   }
   break;
   default:
   printf("This year is not listed due to error or if it is a 33.\n");

} /* end switch */ } /* end if pprint */


unimonth=presyear+presmonth;
while((unimonth>9)&&(unimonth!=11)&&(unimonth!=22)&&(unimonth!=33))
{
unimonth=SumDigits(unimonth);
}
printf("# The universal month is: %d #\n", unimonth);
if(pprint==1)
{
switch(unimonth) {
   case 1:
   printf("Leadership, new ideas, progress originality.\n");
   break;
   case 2:
   printf("Peace, cooperation, collection, politics, details.\n");
   break;
   case 3:
   printf("Entertainment, creation, joy, activity.\n");
   break;
   case 4:
   printf("Self-discipline, schedule, hard work, building a foundation.\n");
   break;
   case 5:
   printf("Travel, sales, advertising, sports, speculation, enthusiasm.\n");
   break;
   case 6:
   printf("Community affairs, weddings, health, beauty, food, home.\n");
   break;
   case 7:
   printf("Intuition, analysis, improved finances, quietude, invention.\n");
   break;
   case 8:
   printf("Organization, business expansion, corporations, enterprises.\n");
   break;
   case 9:
   printf("Completion, elimination, progress, understanding.\n");
   break;
   case 11:
   printf("Spirituality, electricity, aviation, evangelism.\n");
   break;
   case 22:
   printf("National and international projects, improvements, politics.\n");
   break;
   default:
   printf("Month number in error or is number 33...\n");
} /* end switch */ } /* end if pprint */

uniweek=presyear+presmonth+(((presday-1)/7 + 1));
while((uniweek>9)&&(uniweek!=11)&&(uniweek!=22)&&(uniweek!=33))
{
uniweek=SumDigits(uniweek);
}
printf("# The universal week is: %d #\n", uniweek);
if(pprint==1)
{
uniweek=SumDigits(uniweek);
if(week[uniweek][1]<dayofweek)
{
  weirdday=presday-(dayofweek-week[uniweek][1]);
   if((((weirdday-1)/7+1)<whichweek)||(weirdday<1))
   weirdday=presday-(dayofweek-week[uniweek][1])+7;
}
else
{
  weirdday=presday+(week[uniweek][1]-dayofweek);
   if(((weirdday-1)/7+1)>whichweek)
   weirdday=presday+(week[uniweek][1]-dayofweek-7);
}

/* weirdday=day of week of strange event, presday is the presentday */
/* week[uniweek][1] is the day of week that the weirdday =1 to 7 */
/* dayofweek is the day of week it is =1 to 7 */

if(weirdday> cycle[presmonth][1])
   printf("There is no special day for the rest of the month.\n");
else
{
printf("Something universally weird might happen on day: ");
switch(uniweek) {
   case 1:
   printf("Sunday");
   break;
   case 2:
   printf("Monday");
   break;
   case 3:
   printf("Thursday");
   break;
   case 4:
   printf("Sunday");
   break;
   case 5:
   printf("Wednesday");
   break;
   case 6:
   printf("Friday");
   break;
   case 7:
   printf("Monday");
   break;
   case 8:  
   printf("Saturday");
   break;
   case 9:
   printf("Tuesday");
   break;
   default:
   printf("noday");
} /* end switch */

printf(" %d", weirdday);
printf(" of this week.\n");}
} /* end if pprint */

uniday=presyear+presmonth+presday;
while((uniday>9)&&(uniday!=11)&&(uniday!=22)&&(uniday!=33))
{
uniday=SumDigits(uniday);
}
printf("# The universal day is: %d #\n", uniday);
if(pprint==1)
{
   switch(uniday) {
      case 1:
      printf("Aggression is the keynote.  Action, determination, and\n");
      printf("strikes may be promoted.  See yourself or your idea.\n");
      printf("Make a change by starting something new.\n");
      break;
      case 2:
      printf("Cooperation is the keynote.  Be quiet and collect\n");
      printf("material.  Use diplomacy and tact.  There will be an\n");
      printf("increase in deaths.\n");
      break;
      case 3:
      printf("Self-expression is the keynote.  This is a sociable day\n");
      printf("-good for entertainment.  Visit beauty parlors. the\n");
      printf("theatre, or a dance hall.  Activity and nervous energy\n");
      printf("will be paramount.\n");
      break;
      case 4:
      printf("Hard work is the keynote.  This is a day to devote to\n");
      printf("routine, details, thrift, and scheduling of your affairs.\n");
      printf("Markets will be steady.  Illnesses and strikes may occur.\n");
      break;
      case 5:
      printf("Enthusiasm is the keynote.  This is a day of freedom,\n");
      printf("change, and curiousity.  Push sales, speculate, travel,\n");
      printf("and be active.\n");
      break;
      case 6:
      printf("Domesticity is the keynote.  Eat at home instead of in\n");
      printf("public restaurants.  Avoid arguments.  Watch your health\n");
      printf("and education.  Start to build a new home, or sign a\n");
      printf("lease.\n");
      break;
      case 7:
      printf("Perfection is the keynote.  Spend a quite day at home or\n");
      printf("in the country.  Mining stocks may climb.  This is an\n");
      printf("excellent day to draw up a will.\n");
      break;
      case 8:
      printf("Organization is the keynote.  Sign big contracts, invest\n");
      printf("in stocks, and hold directors' meetings.  This is a day\n");
      printf("where business and executive ability will shine.\n");
      printf("Cooperate with others.\n");
      break;
      case 9:
      printf("Good will is the keynote.  Arrange to give a speech today.\n");
      printf("National advertising will be effective.  Selflessness,\n");
      printf("tolerance, brotherly love, and achievement are on the\n");
      printf("agenda.  Business can be conducted as advantageously by\n");
      printf("telephone or telegraph as by personal contact.\n");
      break;
      case 11:
      printf("Promotion is the keynote.  Be in the limelight.  This is a\n");
      printf("day of illumination, inspiration, and vision.  It has the\n");
      printf("qualities of two, but with more leadership.  Promote\n");
      printf("engineering, television, aviation, and electricity today.\n");
      printf("Eleven is a spiritual day.\n");
      break;
      case 22:
      printf("Internationalism is the keynote.  This is a good day for\n");
      printf("those in politics or government work such as ambassadors.\n");
      printf("International and antional projects will be in the fore-\n");
      printf("ground.  International improvements will be noticeable.\n");
      printf("Twenty-two has the qualities of four, but it has far\n");
      printf("greater effects.  While this is a material day, inpira-/n");
      printf("tion is required to put over big deals.\n");
      break;
      default:
      printf("Error in daily cycle...\n");
      } /* end switch */ } /* end if pprint */
      
yryear=uniyear+birthmonth+birthday;
while((yryear>9)&&(yryear!=11)&&(yryear!=22)&&(yryear!=33))
{
yryear=SumDigits(yryear);
}
printf("# Your personal year is: %d #\n", yryear);
if(pprint==1)
   {
   switch(yryear) {
   case 1:
   printf("You are entering a new cycle, which will last for the next.\n");
   printf("nine years.  A one year is excellent to start something new\n");
   printf("or to make the change about which you have been undecided.  Be\n");
   printf("individual, and do not be afraid to specialize or promote new\n");
   printf("ideas.  You must learn to stand on your own feet, for success\n");
   printf("will come only through your individual efforts.  Resolve to be\n");
   printf("leader and a pioneer.  If you are contemplating a change in\n");
   printf("position, now is the time to apply for the new job.  This year\n");
   printf("requires work, organization, and clear thinking, not resting.\n");
   break;
   case 2:
   printf("You will gain more this year by staying in the backround.\n");
   printf("Patience, diplomacy, and tact will be necessary when dealing\n");
   printf("with others.  You should collect and assort for future use,\n");
   printf("but do not push ahead as this may cause more delays.  Plans of\n");
   printf("last year must have time to mature.  Knowledge gained this\n");
   printf("year will help you next year, when you will have time to\n");
   printf("express yourself.  Be unselfish and willing to share with\n");
   printf("others.\n");
   break;
   case 3:
   printf("Creativity, inspiration, and imagination are waiting to\n");
   printf("express themselves.  Lecturing and writing will prove\n");
   printf("beneficial for you.  You must learn to exert considerable\n");
   printf("effort to put your ideas into reality.  Since this is a\n");
   printf("social year, you may be inclined to drift along and merely\n");
   printf("enjoy yourself.  Be selective in chosing companions.  A\n");
   printf("A good sense of humor will bring friendships and happiness in\n");
   printf("return for your efforts in wise self-expression.  You man\n");
   printf("travel for pleasure, and also accumulate money.\n");
   break;
   case 4:
   printf("This is the year to be practical.  Details, system, and order\n");
   printf("are paramount this year.  You may have to attend to your\n");
   printf("or that of someone else you know.  You must face other respon-\n");
   printf("sibilities such as handling property, being thrifty, and\n");
   printf("dealing in merchandising.  All success comes through being\n");
   printf("economical and practical rather than depending on luck to\n");
   printf("progress materially.\n");
   break;
   case 5:
   printf("You will now feel a restlessness which may lead you to make\n");
   printf("some definate changes.  Replacing the old with new ideas is\n");
   printf("good, but hastiness often causes future regrets.  Freedom is\n");
   printf("uppermost in your mind.  This is a favorable year for \n");
   printf("traveling, moving, or doing something different.  Be sure to\n");
   printf("advertise your product.  This can be an exciting year filled\n");
   printf("variety, change, and progress.\n");
   break;
   case 6:
   printf("This is a year centered around home and responsibility.  You\n");
   printf("will face domestic responsibilities and duties.  Love and\n");
   printf("service will be your paramount interest.  If you give love\n");
   printf("and sympathy, you will receive them.  This is a good year to\n");
   printf("build or buy a home, marry, or engage in a community project.\n");
   printf("You may even accumulate money, especially if you gladly\n");
   printf("accept obligations, and not be resentful or consider them\n");
   printf("a burden.\n");
   break;
   case 7:
   printf("You may be inclined to specialize, study, and follow intel-\n");
   printf("lectual pursuits, for this is a period for a mental house-\n");
   printf("cleaning.  You may want to be alone to meditate and aim for\n");
   printf("spiritual advancement.  This is not a year for business\n");
   printf("expansion or for starting new things, but put the finishing\n");
   printf("touches to what was begun earlier.  This may be a good year\n");
   printf("financially, if you do not rush out after money.  Intuition\n");
   printf("plays an important part in your life, and this should help\n");
   printf("you understand yourself and others better.  It can even bring\n");
   printf("recognition to you if you reason things out and deal fairly\n");
   printf("with all.\n");
   break;
   case 8:
   printf("Now is the time to reap the harvest sown in a one year.  Big\n");
   printf("opportunities for advancement are yours if you work hard and\n");
   printf("push matters to a conclusion.  Good judgment and efficiency in\n");
   printf("business will also be necessary.  You may have to exert consi-\n");
   printf("derable effort and strain.  Organization, planning,\n");
   printf("efficiency, and a businesslike attitude are essential.\n");
   printf("Remember this is a year of action.  Avoid letting your\n");
   printf("emotions or sentiment gain an upper hand in your dealings, but\n");
   printf("face facts.  You may have to let go of some things, but this\n");
   printf("may be good in the long run.\n");
   break;
   case 9:
   printf("You should finish up odds and ends and be willing to let go\n");
   printf("of old things.  You are closing the nine year cycle, and are\n");
   printf("getting ready for new experiences.  You may encounter losses\n");
   printf("in business and friendships unless you live impersonally.\n");
   printf("You must be tolerant, compassionate and forgiving.  Then you\n");
   printf("will reap the reward of love, understanding, and wisdom.\n");
   printf("Watch your health this year.\n");
   break;
   case 11:
   printf("This is a master year.  Unless you live up to its fullest re-\n");
   printf("quirements, it reverts to a two, which may tie you up with\n");
   printf("details.  This is a year of inspiration and psychic illumina-\n");
   printf("tion.  It could put you in the limelight, and even bring fame,\n");
   printf("if you follow your intuition and act on your hunches or ideas.\n");
   break;
   case 22:
   printf("The twenty-two mater year brings universal appeal rather than\n");
   printf("anything personal.  If not lived up to its possibilities, it\n");
   printf("reverts to a four, bringing hard work and limitations.  The\n");
   printf("sky is the limit in a twenty-two year.  It's a time to com-\n");
   printf("bine the inspirational and practical, and do big things for\n");
   printf("the benefit of humanity or the world, not merely for yourself\n");
   printf("or your community.\n");
   break;
   default:
   printf("Error in personal year cycle.\n");
   
} /* end switch */
} /* end if pprint */
yrmonth=yryear+presmonth;
while((yrmonth>9)&&(yrmonth!=11)&&(yrmonth!=22)&&(yrmonth!=33))
{
yrmonth=SumDigits(yrmonth);
}
printf("# Your personal month is: %d #\n", yrmonth);
if(pprint==1)
{
   switch(yrmonth) {
   case 1:
   printf("Action, creation, originality.\n");
   break;
   case 2:
   printf("Harmony, quietude, passivity.\n");
   break;
   case 3:
   printf("Entertainment, self-expression.\n");
   break;
   case 4:
   printf("Practicality, building a foundation, work.\n");
   break;
   case 5:
   printf("Change, freedom, new interests.\n");
   break;
   case 6:
   printf("Responsibilities, service, health, family love.\n");
   break;
   case 7:
   printf("Perfection, analysis, spiritual outlook.\n");
   break;
   case 8:
   printf("Vision, power, good judgment, business expansion.\n");
   break;
   case 9:
   printf("Philanthropy, selflessness, service.\n");
   break;
   case 11:
   printf("Illumination, idealism, religion, limelight.\n");
   break;
   case 22:
   printf("Materialism and idealism combined, wordly projects.\n");
   break;
   default:
   printf("Error in personal month cycle.\n");
} /* end switch */
} /* end if pprint */

yrweek=yrmonth+(((presday-1)/7)+1);
while((yrweek>9)&&(yrweek!=11)&&(yrweek!=22)&&(yrweek!=33))
{
yrweek=SumDigits(yrweek);
}
printf("# Your personal week is: %d #\n", yrweek);
if(pprint==1)
{
yrweek=SumDigits(yrweek);

if(week[yrweek][1]<dayofweek)
{
  weirdday=presday-(dayofweek-week[yrweek][1]);
   if((((weirdday-1)/7+1)<whichweek)||(weirdday<1))
   weirdday=presday-(dayofweek-week[yrweek][1])+7;
}
else
{
  weirdday=presday+(week[yrweek][1]-dayofweek);
   if(((weirdday-1)/7+1)>whichweek)
   weirdday=presday+(week[yrweek][1]-dayofweek-7);
}

/* weirdday=day of week of strange event, presday is the presentday */
/* week[yrweek][1] is the day of week that the weirdday =1 to 7 */
/* dayofweek is the day of week it is =1 to 7 */


if(weirdday> cycle[presmonth][1])
   printf("There is no special day for the rest of the month.\n");
else
{
printf("Something personally weird might happen on day: ");
switch(yrweek) {
   case 1:
   printf("Sunday");
   break;
   case 2:
   printf("Monday");
   break;
   case 3:
   printf("Thursday");
   break;
   case 4:
   printf("Sunday");
   break;
   case 5:
   printf("Wednesday");
   break;
   case 6:
   printf("Friday");
   break;
   case 7:
   printf("Monday");
   break;
   case 8:  
   printf("Saturday");
   break;
   case 9:
   printf("Tuesday");
   break;
   default:
   printf("noday");
} /* end switch */

printf(" %d", weirdday);
printf(" of this week.\n");}
} /* end if pprint */
yrday=yryear+presmonth+presday;
while((yrday>9)&&(yrday!=11)&&(yrday!=22)&&(yrday!=33))
{
yrday=SumDigits(yrday);
}
printf("# Your personal day is: %d #\n", yrday);
if(pprint==1)
{
   switch(yrday) {
   case 1:
printf("Promote original ideas, sell self, be aggressive, do new things.\n");
   break;
   case 2:
printf("Be cooperative, peaceful, receptive, collect and analyze details.\n");
   break;
   case 3:
printf("Entertain, be gay, express yourself creatively, mingle in\n");
printf("society.\n");
   break;
   case 4:  
printf("Be thrifty, organize and systematize work, work hard,\n");
printf("concentrate.\n");
   break;
   case 5:
printf("Be enthusiastic, travel, buy or sell, promote new ideas, act.\n");
   break;
   case 6:
printf("Assume responsibilities in home and community, serve, avoid\n");
printf("arguments.\n");
   break;
   case 7:
printf("Follow hunch, rest, perfect what you started, concentrate.\n");
   break;
   case 8:
printf("Sign big contracts, use tact and good judgement, invest in\n");
printf("in securities.\n");
   break;
   case 9:
printf("Be selfless, express talents, promote love and brotherhood.\n");
   break;
   case 11:
printf("Be a leader, promoter, shine in public, follow hunch, advertise.\n");
   break;
   case 22:
printf("Be masterful and cooperative in big business, promote\n");
printf("international projects.\n");
   break;
   default:
printf("Error in personal day cycle or is number 33.\n");
} /* end switch */
} /* end if pprint */

}

/* ------------------------------------------------------------------------ */
void PrintAgedigit()
{
int agedigit;

if(cycle[1][1]&&(birthday==1))
   agedigit=presyear-birthyear;
else
   agedigit=((presyear-birthyear)*2 - 1);
while((agedigit>9)&&(agedigit!=11)&&(agedigit!=22))
{
agedigit=SumDigits(agedigit);
}
if(agedigit<-1)
   printf("Error, check input years.\n");
else
   {
   
   printf("# Age digit %d ", agedigit);
if(pprint==1)
{
   switch(agedigit) {
      case -1: case 0:
          printf("year of no challenges or all challenges.\n");
          break;
      case 1:
          printf("always show new interests, new ideas, new occupations.\n");
          break;
      case 2:
          printf("A trick vibration which can be limiting or \n");
          printf("inspirational.  It usually indicates a change of \n");
          printf("residence, business, or partnership.\n");
          break;
      case 3:
          printf("Social or artistic beginning in a new field, the type\n");
          printf("of which is indicated by the dominant influence\n");
          printf("(personal year).  Avoid emotional confusion.\n");
          break;
      case 4:
          printf("Indicates routine rather than action.  Put affairs\n");
          printf("in order.  Shows change in business or domestic\n");
          printf("routine over which you have no control.\n");
          break;
      case 5:
          printf("Points to social or artistic change.  Good for \n");
          printf("selling or short trips.\n");
          break;
      case 6:
          printf("Changes in the home, often leading to separation.\n");
         printf("Advise careful though before acting.  Shows domesticity.\n");
          break;
      case 7:
          printf("Marriage vibration for a female ... finances for a\n");
          printf("male.  Good time for occult study, meditation, \n");
          printf("introspection.  Watch health and finances.\n");
          break;
      case 8:
          printf("Executive and business deals will be closed satisfact-\n");
          printf("orily.  Good time to buy or sell property.  Many\n");
          printf("delays will be experienced.\n");
          break;
      case 9:
          printf("This marks a close of one period and an impending\n");
          printf("beginning in a new line, depending on dominant\n");
          printf("influence.  Watch health.  Loss possible.\n");
          break;
      case 11:
          printf("Vibration of inspiration and peace.\n");
          printf("A trick vibration which can be limiting or \n");
          printf("inspirational.  It usually indicates a change of \n");
          printf("residence, business, or partnership.\n");
          break;
      case 22:
          printf("Indicates mastery.  May travel across water.  This\n");
          printf("number does not occur in an age digit.\n");
          break;
      default:
          printf("Error in calculation or input of agedigit.\n");
} /* end switch */ } /* end if pprint */
}
} /* end PrintAgedigit */
/* ---------------------------------------------------------------------- */

void PrintInter(int temp)

{
   if(pprint==1)
   {
   switch(temp) {
   case 1:
printf("A number that can either mean loss or honor.  If a loss,\n");
printf("then usually it is personal.\n");
   break;
   case 2:
printf("This indicates partnerships opportunities, choice, or\n");
printf("possibly an amalgamation of your business with other firms.\n");
printf("In women's chart, it can mean adultry or many 'partners'\n");
   break;
   case 3:
printf("Indicates gain, pleasure, and success.  A three also calls\n");
printf("silence in plans and ideas which could be advantageous.\n");
printf("It could mean establishing of a home and having children.\n");
printf("It also denotes a sense of humor, society, and friends.\n");
   break;
   case 4:
printf("This number indicates the public through work.  You have\n");
printf("something to do with mass production.  Also indicates a delay,\n");
printf("where patience and tact are necessary.  Shows opposition.\n");
   break;
   case 5:
printf("Five shows movement of a sudden and quick nature.  Indicates\n");
printf("restlessness, indecision, and many changes.  Don't make too\n");
printf("many promises.  Five shows love of travel, adventure, and\n");
printf("gambling.\n");
   break;
   case 6:
printf("Six shows responsibilities, domestic relations, love affairs,\n");
printf("and servants.  It usually augurs peace and harmony.\n");
   break;
   case 7:
printf("Good time to expand into the spiritual realm.  It also shows\n");
printf("mysterious forces in the foreground.  If you live up to your\n");
printf("highest ideals, you will not suffer.  Strange contacts,\n");
printf("intuitive, psychic, or weird dreams may occur.  Seven may\n");
printf("indicate responsibilities that are self imposed.  May bring\n");
printf("overseas travel.  Good time to study, meditate, cater to\n");
printf("influential women, and too be alone.\n");
   break;
   case 8:
printf("Affects material or physical side.  Indicates health, death,\n");
printf("legacies, delays, disappointments, and obstacles.  You will\n");
printf("not gain by pushing others or yourself.  Justice is the key.\n");
   break;
   case 9:
printf("Nine shows development of affairs on a large scale, and a big\n");
printf("money making span.  Much energy will be expended, and emotional\n");
printf("experiences will be encountered.  Be alert for underhanded\n");
printf("dealings which may involve competition, intrigue, and treachery\n");
printf("by those aiming to destroy you.  Suggests great responsibilities.\n");
printf("Guard against fires, explosions, and accidents.  Use caution\n");
printf("in speech in order to avoid a law suit.  Not a good time to make\n");
printf("enemies.\n");
   case 10:
printf("A power number, know as the 'wheel of fortune'.  Can be\n");
printf("fortunate or unfortunate.  This will be a time of extremes.\n");
printf("To avoid tragedy, use power for only good purposes.  Use\n");
printf("action, be independent, and aggressive.\n");
   break;
   case 11:
printf("The number known as strength.  A difficult number as there are\n");
printf("trials, hidden dangers, and treachery from other people.  Time\n");
printf("of publicity, partnerships, and groups.\n");
   break;
   case 12:
printf("A time for sacrifice, in order to achieve ends.  Beware of\n");
printf("flattery or empty promises.  Needs may not be always obtain-\n");
printf("under this number.  Time for contemplation, and submission.\n");
   break;
   case 13:
printf("A warning number.  Indicates change of plans or place.  Is the\n");
printf("number of death, but if lived through is like a rebirth or new\n");
printf("start.  Does not occur often.\n");
   break;
   case 14:
printf("Good for dealing with money, speculating, or changes in business,\n");
printf("but some risk is involved.  Sometimes indicates unwise divorce.\n");
printf("Is monotonous and plodding period.  Usually working out of\n");
printf("social and family obligations.\n");
   break;
   case 15:
printf("Is the personal number.  Brings love, joy, and sorrow.  Indicates\n");
printf("births, love affairs, and in combination with 18, death or\n");
printf("divorce.  Is monotonous and plodding period.  Good for getting\n");
printf("money or favors from others.\n");
   break;
   case 16:
printf("The unexpected.  Symbolizes accidents, trouble, but sometime\n");
printf("brings unexpected opportunities.  Not a good time to take a\n");
printf("trip or sign papers without seeking expert advice.\n");
   break;
   case 17:
printf("Good financial vibration.  Use knowledge gained from past\n");
printf("experiences to deal with present situation.  Star of hope or\n");
printf("Magi, which means it is a fortunate number.\n");
   break;
   case 18:
printf("Indicates calamity, quarrels, wars, revolutions, and enemies.\n");
printf("Worst vibration possible.  Papers should be signed carefully or\n");
printf("not at all.  Must guard against deception in business and\n");
printf("personal affairs.  No time to travel or start anything new.\n");
   break;
   case 19:
printf("Fortunate number.  Promises success, happiness, and honor.\n");
printf("Nineteen is a connubial number.  While 15 applies to one person,\n");
printf("19, a love vibration, applies to two.  A peaceful vibration.\n");
   break;
   case 20:
printf("A good change but not necessarily of location or environment.\n");
printf("One of the best numbers...new activities, interests, and a\n");
printf("happy busy period.  Good for planning for next year.  Many\n");
printf("old people die during this number.  Seventeen, twenty-one, and\n");
printf("twenty are the best vibrations.\n");
   break;
   case 21:
printf("Period of assured success.  A time to carry out plans, take\n");
printf("journeys, and make investments.  It's fortunate for future\n");
printf("events.  You can accomplish what you desire under a twenty-one.\n");
   break;
   case 22:
printf("It is best not to act, but if you do, be sure to consult some-\n");
printf("who is well informed.  Be careful.  Time for false judgement.\n");
printf("May be a time of many decisions or one.  Can't trust own judge-\n");
printf("ment.  Affairs will be in a pivotal state and about to break.\n");
   break;
   case 23:
printf("Brings many changes, sometimes legal proceedings and settling\n");
printf("of estates.  Often extensive traveling.  Peculiar vibration,\n");
printf("with nervous and high tension.  Often needs a doctor.   New\n");
printf("contacts.  Middle-aged women who let twenty-three rule are in\n");
printf("danger of losing their minds.  It can mean success.\n");
   break;
   case 24:
printf("Family love vibration.  Always a family affair.  May bring\n");
printf("illness in the home.  Gain through love and the opposite sex.\n");
printf("Favorable for future plans.\n");
   break;
   case 25:
printf("Path of trial, petty annoyances, annoying health conditions.\n");
printf("Sometimes brings illness or death of elderly people.\n");
   break;
   case 26:
printf("Splendid financial number, but if good judgment is not used,\n");
printf("can throw away all you've accumulated.  Many people die of a\n");
printf("stroke in a twenty-six period.  Watch partnerships, investments,\n");
printf("and bad speculation.  Warning to be careful.\n");
   break;
   case 27: 
printf("Same as 18.  Period of troubles and calamities.  Not a\n");
printf("favorable time to start anything.\n");
printf("Numbers do not go beyond this one usually....\n");
   break;
   case 28:
printf("Contradictions, loss through trust in others, opposition and\n");
printf("competition.  Can be either fortunate or unfortunate.\n");
   break;
   case 29:
printf("Unexpected danger.  Warning for future.  Uncertainties,\n");
printf("deception, treachery.\n");
   break;
   case 30: 
printf("Neither fortunate nor unfortunate.  Thoughtful deduction,\n");
printf("retrospection, and mental superiority over others.  Can be\n");
printf("powerful.\n");
   break;
   case 31:
printf("Much like thirty, except even more self-contained, lonely, and\n");
printf("isolated from friends.  Not fortunate from worldly standing.\n");
printf("Wavering.\n");
   break;
   case 32:
printf("Magical power like five, fourteen, or twenty-three.  For-\n");
printf("tunate if held to own judgment.  Favorable for future.\n");
   break;
   case 33:
printf("The ability to attract money and love are great.  Partnerships\n");
printf("with the opposite sex bring added fortune.  Must be careful\n");
printf("not to be lazy, take things for granted, or feel superior.  It\n");
printf("is important to maintain a sense of humor and humility.\n");
   break;
   case 34:
printf("A life full of secrets and mysteries.  Native is intuitive,\n");
printf("gentle, and may have interest in the occult.  Similar to 25\n");
printf("Could be path of petty trial, annoyances, etc.\n");
   break;
   case 35:
printf("Often inherits money and can live comfortably.  Native enjoys\n");
printf("travel.  Must be careful not to let the ease of their lives\n");
printf("make them cruel or tyrannical.  Success and advancement comes\n");
printf("easily.\n");
   break;
   case 36:
printf("This number brings authority, power, and success if the talents\n");
printf("are used well.  The native is usually kind and sympathetic, is\n");
printf("easily upset, and has many ups and downs in life.\n");
   break;
   case 37:
printf("Good and fortunate in friendships, love, partnerships.\n");
printf("Usually unconventional in matters of sex or love.  Success\n");
printf("and happiness comes most easily in partnerships.\n");
   break;
   case 38:
printf("Number that can mean quarrels, misunderstandings, separations,\n");
printf("etc.  Powerful number, what harmony will be found will be great,\n");
printf("although deceit, lies, etc. will be found with disharmony.\n");
   break;
   case 39:
printf("This number brings good health, longevity, friendship, and\n");
printf("love.  People can live best in southwest.  This number can be\n");
printf("good or bad--cruelty and suffering, or great heights.\n");
   break;
   case 40:
printf("Native is usually careful with money and methodical, similar to\n");
printf("number 31.  Native (that is, the person being interpreted), makes\n");
printf("a good investor, can achieve success in business or in a\n");
printf("literary position.\n");
   break;
   case 41:
printf("Similar to 32.  Native usually gets what they desire, and can\n");
printf("keep harm away.  They are in control of their passions.\n");
   break;
   case 42:
printf("Native may be strongly religious.  They can help others\n");
printf("immensely.  They can be artistic.  There may be baseness and\n");
printf("treachery.  In the extreme, a violent death may occur.\n");
   break;
   case 43:
printf("Unfortunate number. Revolution, failure, not good.  Usually\n");
printf("connected with military activity.  Victory can only be obtained\n");
printf("through positive action.\n");
   break;
   case 44:
printf("Number brings success and bravery in practical undertakings.\n");
printf("In political and military pursuits, native will find glory.\n");
printf("There may be loss if desire for fame is too great.  Too much\n");
printf("hoarding and acquiring may also lead to loss.  Native must\n");
printf("know when to excercise self-control and when to stop.\n");
   break;
   case 45:
printf("This number brings power in public places, independence in\n");
printf("thought and action.  The intellect is creative, and there\n");
printf("is a love of peace, justice, beauty, and art.  Native may be\n");
printf("intolerant or bigoted.  Creativity and productive labor pays\n");
printf("off with this number.  Native should follow own plan instead\n");
printf("of others, even with opposition and contrary opinions.\n");
   default:
printf("Number not accounted for yet...\n");

} /* end switch */
} /* end if pprint */
} /* end void procedure */


/* ---------------------------------------------------------------------- */
void PrintFourMonthsCycle()
{
int
   overtone, /* the overtone for the year */
   firstfour, /* the number of the first four months */
   secfour, /* the number for the second four months */
   thfour, /* the number for the third four months */
   key, /* used to calculate the variable thfour (see above) */
   thisyear, /* the year according to your birthday....not the presyear */
   tp, /* temp value used for calculation of key */
   whichfour; /* determines which four months it is */


if((presmonth<birthmonth)||((presmonth==birthmonth)&&(presday<birthday)))
   thisyear=presyear-1;
   else
   thisyear=presyear;

overtone=thisyear+birthyear;
   while((overtone>9)||(overtone==11)||(overtone==22))
   overtone=SumDigits(overtone);
printf("overtone: %d\n", overtone);
PrintInter(overtone);
key=55-(birthmonth*2)-birthday;
if(key<14)
   {tp=birthday;
   tp=SumDigits(tp);
   
   }
else
   {
tp=SumDigits(key);
if((key-52)>0)
   key=key-52;
   else
if((key-39)>0)
   key=key-39;
   else
if((key-26)>0)
   key=key-26;
   else
   key=key-13; }

key=abs(key-tp);
key=key+degree;
while(key>13)
key=SumDigits(key);
if((birthmonth==12)&&(birthday==31))
   key=4;
printf("key: %d\n", key);
if(pprint==1)
{
   switch(key) {
      case 1:
printf("Are dominant and headstrong, usually insisting on ruling.\n");
      break;
      case 2:
printf("Are doormats, peacemakers, diplomats, and martyrs to family.\n");
      break;
      case 3:
printf("Find it hard to make decisions.  See too many sides to an issue.\n");
      break;
      case 4:
printf("Seek to be satisfied with existing conditions which kills\n");
printf("ambition.\n");
      break;
      case 5:
printf("Restless people needing change.  Often sex is strong.  Travel\n");
printf("much.\n");
      break;
      case 6:
printf("Stubborn and argumentative, set.  Interested in civic affairs\n");
printf("and home.\n");
      break;
      case 7:
printf("Tragic key.  Struggles and obstacles, but psychic perception.\n");
      break;
      case 8:
printf("Power to draw what needs.  Financial security in old age.\n");
      break;
      case 9:
printf("Disappointments, unhappy love affairs, and a pioneering spirit.\n");
      break;
      case 10:
printf("Success, dominance, leadership, and a pioneering spirit.\n");
      break;
      case 11:
printf("Inspirational and spiritual.  Negative traveler.  Often\n");
printf("vacilating.\n");
      break;
      case 12:
printf("Feminine power to sway.  Get own way through arousing sympathy.\n");
printf("and tact.\n");
      break;
      case 13:
printf("Positive dominant force.  Can't be ruled or managed.  Take\n");
printf("what you want.\n");
      break;
      default:
printf("Error in key.\n");
} /* end switch */ } /* end if pprint */
age=presyear-birthyear;
if((presmonth<birthmonth)||((presmonth==birthmonth)&&(presday<birthday)))
   --age;
whichfour=presmonth-birthmonth;
if(whichfour==0)
   {if(presday<birthday)
      whichfour=3;
   else
      whichfour=1;}
else
{if(whichfour<0)
   whichfour=whichfour+12;
   if((whichfour==4)&&(presday<birthday))
      whichfour=1;
   else
   if((whichfour==8)&&(presday<birthday))
      whichfour=2;
   else
   whichfour=(whichfour/4)+1;}
   if(whichfour==1)
{firstfour=age+thisyear;
firstfour=SumDigits(firstfour);
while(firstfour>45)
   firstfour=firstfour-9;
printf("firstfour: %d\n", firstfour);
PrintInter(firstfour);}
else if(whichfour==2)
{
secfour=birthpath+thisyear;
secfour=SumDigits(secfour);
while(secfour>45)
   secfour=secfour-9;
printf("secfour: %d\n", secfour);
PrintInter(secfour);}
else
{
thfour=key+thisyear;
thfour=SumDigits(thfour);
while(thfour>45)
   thfour=thfour-9;
printf("thfour: %d\n", thfour);
PrintInter(thfour);}
printf("\n");
}
/* -------------------------------------------------------------------- */
void PrintChall(int chal)
{
if(pprint==1)
   {
   switch(chal) {
   case 0:
printf("You must either face all challenges, or no challenges.\n");
printf("You have a choice in your decision, and are expected to choose\n");
printf("wisely, as you have the knowledge and talents within you of all\n");
printf("the numbers.  Or, everything will be an obstacle to hinder\n");
printf("your path to progress, and you will have constant obstacles\n");
printf("to overcome.  An old soul is indicated.\n");
   break;
   case 1:
printf("You must learn to develop a strong willpower, strength of\n");
printf("character, and courage, or you will be subjected to being bossed\n");
printf("and held down by others, especially your relatives.  You will\n");
printf("meet with many interferences, but you should not blame others,\n");
printf("be resentful, or belligerent.  You may find yourself vacillat-\n");
printf("ing and turning in every direction to please others, but you\n");
printf("will accomplish nothing, until you become determined to learn\n");
printf("to command the respect of others.  You have creative and \n");
printf("original ideas, but you must put them to use.  First ascertain\n");
printf("if you are right, and then forge ahead, not with a chip on your\n");
printf("shoulder, but firmly.\n");
   break;
   case 2:
printf("You must develop confidence in yourself or you will become\n");
printf("too self-conscious.  You are very sensitive and easily hurt.\n");
printf("You will find it hard to forgive and forget.  Be careful lest\n");
printf("you develop an inferiority complex and become a doormat to\n");
printf("others.  You should stop being hurt at the slightest provocation.\n");
printf("You must cultivate a broader viewpoint, and stop referring\n");
printf("everything to yourself.  Don't copy others, but use your own\n");
printf("talents.  You like peace, but don't be insincere or avoid the\n");
printf("truth just because you want harmony, or be nice just to make an\n");
printf("impression.  You have considerable psychic power, but you should\n");
printf("use it only for personal satisfaction and not for financial gain.\n");
   break;
   case 3:
printf("You must avoid scattering your talents, for you have a tendency\n");
printf("to do too many things at once.  You have a fine imagination and\n");
printf("a gift for words, but you often find it hard to express yourself\n");
printf("effectively.  You dislike criticism, and often become a recluse\n");
printf("when you should mingle in society and cultivate friends.  You\n");
printf("should write or lecture, for you are creative.  Take an interest\n");
printf("in dancing, singing, acting, or speaking so that you are a\n");
printf("welcome addition to a group.  You must learn not to be extra-\n");
printf("gant, or to waste time, money, or words.  You should not gossip\n");
printf("or succumb to moodiness.  Instead of burying your talents, you\n");
printf("should bring them out so that they will multiply and bring\n");
printf("joy to others.\n");
   break;
   case 4:
printf("In a four challenge, you should discipline yourself to be orderly\n");
printf("punctual, and systematic, for you have a good sense of values\n");
printf("are undeveloped.  You are inclined to be lazy, careless, \n");
printf("stubborn, and opinionated, as well as being negligent about \n");
printf("details and appointments.  You dislike work and thriftiness, and\n");
printf("are often a procrastinator.  Also, you are prone to worry need-\n");
printf("lessly.  You can succeed if you will develop the practical side\n");
printf("of your nature.  Constant change or restless ness will not be an\n");
printf("incentive to doing the hard work that is still required of you.\n");
   break;
   case 5:
printf("A five challenge means that you want freedom at any price.\n");
printf("You are curious about sex and the senses.  This is a difficult\n");
printf("challenge to handle, for it may make you too impulsive.  You\n");
printf("may want to try everything at least once, and thus cause you\n");
printf("lack of stability.  Another essential freedom of the five\n");
printf("challenge is to learn to let go of people and things.  You must\n");
printf("discern when and what to discard, for that brings progress.\n");
printf("Be careful lest you merely want change to satisfy your carnal\n");
printf("desires.  Desire for freedom may also be due to wanting to\n");
printf("escape from responsibilities.  A number five challenge is\n");
printf("excellent at dealing with the public in work such as promotion,\n");
printf("advertising, travel, or publicity.  You should learn to control\n");
printf("your impulses.\n");
   break;
   case 6:
printf("A six challenge means you are idealistic, but you may also be\n");
printf("domineering and meddlesome.  You may want everyone to conform\n");
printf("to your principles or way of thinking.  You may be too positive\n");
printf(" about what you consider right and wrong.  You will quarrel with\n");
printf("anyone who disagrees with the rules you have made.  This often\n");
printf("causes a rift with your marriage partner, as you believe every-\n");
printf("one makes mistakes but yourself.  You would succeed better if\n");
printf("you harnessed yourself to your ideals and tried to make them\n");
printf("materialize, rather than cling to people and try to remake them.\n");
printf("You will never be completely happy, or find love or appreciation,\n");
printf("until you learn that others have a right to their own ideas and\n");
printf("standards.\n");
   break;
   case 7:
printf("A seven challenge means you will find yourself rebelling against\n");
printf("prevailing conditions, but unfortunately you will make no effort\n");
printf("to alter or better them, or work for the promotion of something\n");
printf("new.  This is a tragic and difficult challenge to bear, but\n");
printf("luckily very few people have the seven challenge to face.  It\n");
printf("usually brings a big test or repression.  Too much false pride,\n");
printf("aloofness, and reserve, keep the real feelings hidden below the\n");
printf("surface.  You need a good education, so that you can develop keen\n");
printf("analysis and technical skills.  You should avoid fits of melan-\n");
printf("cholia, and refrain from resorting to drinking.  You have much\n");
printf("time to dwelling on your limitations.  Consequently, you attract\n");
printf("fear instead of faith.  If you study and perfect your skills, you\n");
printf("can attract the best in life.\n");
   break;
   case 8:
printf("An eight challenge means you have an excellent chance for rec\n");
printf("ognition and promotion if your motives are above reproach.\n");
printf("Usually you strain after money and power.  Personal freedom based\n");
printf("on material possessions is your chief aim.  You have a false\n");
printf("sense of values, for you fear lack, loss, or limitations and so\n");
printf("invite this condition.  You must learn that money belongs to\n");
printf("everyone and not just to yourself.  The eight challenge usually\n");
printf("appears with a cipher, which governs either the first thirty-five\n");
printf("years or the latter part of your life.  If 0 appears as a first\n");
printf("sub-challenge, it indicates you can be a self-made man.  The\n");
printf("eight challenge causes much strain.  You should develop a\n");
printf("philosophical frame of mind in order to see both sides of a\n");
printf("situation.  You can succeed by standing squarely on your own\n");
printf("feet, and seeking a balance of realities.\n");
   break;
   default:
printf("Error in challenge cycle.\n");

} /* end switch */
} /* end if pprint */
} /* end PrintChall */

/* -------------------------------------------------------------------- */

void PrintPin(int pin)
{
   if(pprint==1)
   {
   switch(pin) {
   case 1:
printf("The one pinnacle gives you the opportunity to be a leader, for\n");
printf("you have executive ability, are individualistic in thought and\n");
printf("action, independent, and original.  This and a ten pinnacle often\n");
printf("force you to stand on your own feet, and rely only upon yourself\n");
printf("and not others for success.  If this occurs as a first pinnacle,\n");
printf("it may be a difficult period for you, for a young person is not\n");
printf("always prepared to be courageous and independent, and so you will\n");
printf("often lose the great opportunity provided to use original ideas.\n");
printf("It might even make you obstinate and domineering.  As a latter\n");
printf("pinnacle, it will give you the chance to do outstanding work.  It\n");
printf("is always an active period filled with changes.\n");
   break;
   case 2:
printf("A two pinnacle demands cooperation and diplomacy.  It often\n");
printf("entails partnerships, as it is better for you to work with or for\n");
printf("others than in an individual capacity.  Patience is also being\n");
printf("tested, or haste makes waste under a two.  This is not a period to\n");
printf("be independent, for harmony with, and the ability to get along\n");
printf("with others, is important.  You may feel sensitive during this\n");
printf("period, but should be careful not to show your feelings.  You\n");
printf("work well in detail, collecting, or sharing with others.\n");
printf("Difficulties in partnerships (even marriage) may crop up.  if\n");
printf("an eleven occurs as your pinnacle, a dissolution of a partner-\n");
printf("ship may take place, which may cause you to seek solace in\n");
printf("religion or spiritual studies.\n");
   break;
   case 3:
printf("This is a good period to develop your creative or artistic\n");
printf("ability, as you are inspirational and have good ideas.  It is\n");
printf("not a physical, but mental period.  You may have the opportun-\n");
printf("ity to write, speak, or design, and stage or movie entertain-\n");
printf("ment.  Your imagination and will be on top.  This is also an\n");
printf("excellent period to attract money.  As a first pinnacle, the\n");
printf("advantage of three can be ignored, for few young individuals are\n");
printf("serious-minded enough to put forth the effort necessary to\n");
printf("channel their talent in a definite artistic or creative field.\n");
printf("The emotions should be curbed at all times and kept under\n");
printf("control.\n");
   break;
   case 4:
printf("A four pinnacle means that it is time to lay a foundation, but\n");
printf("hard work will be required of you.  This is a practical period\n");
printf("which may not be easy to face, as it demands constant service\n");
printf("and effort.  This is an excellent time to save and accumulate\n");
printf("a bank account for future needs.  If a four occurs as a first\n");
printf("pinnacle, it means that your childhood will be a serious and\n");
printf("demanding one.  You may be forced to go to work early to earn\n");
printf("a living.  This pinnacle is one of maintaining order, and of sys-\n");
printf("temitizing, detailing, and building by placing ideas and facts\n");
printf("in definite order.  Your family may be a huge responsibility or\n");
printf("duty.  Practicing economy will be a requirement.  It can be a\n");
printf("welcome period, for you have a chance to put your ideas into\n");
printf("practical form.\n");
   break;
   case 5:
printf("While this is a period of freedom for you, you must be willing\n");
printf("to let go of the old, and accept changes.  You will experience\n");
printf("restlessness, change, and uncertainty, as this is not a time to\n");
printf("to stay home and relax.  A five pinnacle demands versatility,\n");
printf("activity, and progress.  Money will be fluctuating, sometimes\n");
printf("plentiful and other times scarce.  You will have an opportunity\n");
printf("for civic interests, advertising, selling, and a new phase in\n");
printf("life.  You may be forced to adapt to new friends and environ-\n");
printf("ment.  but you should not try to act impulsively.  This is an\n");
printf("active period and not one of retirement.\n");
   break;
   case 6:
printf("A six pinnacle means many duties and responsibilities, especially\n");
printf("in the home, for you may have the care of children, relatives,\n");
printf("or of property.  It gives you a chance to be useful, cultivate\n");
printf("love, and serve willingly.  You may go beyond the home and serve\n");
printf("humanity.  You can make money, but this requires much work and\n");
printf("settling down.  This is not a pinnacle for personal interests\n");
printf("solely.  Happiness results from giving and helping others as well\n");
printf("as your own family circle.  The six pinnacle as it may bring\n");
printf("reward for your efforts, financial success, and happiness.  You\n");
printf("may marry during this pinnacle if you are single, for you will\n");
printf("have the opportunity to do so now.  It will be good.\n");
   break;
   case 7:
printf("A seven pinnacle means that you should be interested in educa-\n");
printf("tional and scientific pursuits.  You should specialize, as\n");
printf("perfection is demanded.  This is a good period to study meta-\n");
printf("physics and the hidden forces of nature.  You will be interested\n");
printf("in spiritual progress, and not material success during this\n");
printf("period.  You may become aloof, introspective, feel repressed, and\n");
printf("be moody, which may cause trouble in your family.  You may feel\n");
printf("you lack money, but if you study, train your mind, learn, and\n");
printf("develop a good understanding of the meaning of life, your\n");
printf("knowledge and skill will bring success in the long run.  You must\n");
printf("be patient, honest, and understanding, otherwise you may have\n");
printf("difficulty in marriage or in any partnership.\n");
   break;
   case 8:
printf("This is an excellent period for you financially.  You can obtain\n");
printf("a position of authority and fame through exercising good\n");
printf("judgement.  While this is an excellent pinnacle for material\n");
printf("gain, it is not an easy one, as it demands strength, courage,\n");
printf("ambition, and constant effort.  Laziness and lack of ambition are\n");
printf("not tolerated under this influence.  You may go into business\n");
printf("early in life.  A large expenditure of money may be necessary\n");
printf("to maintain an undertaking under this pinnacle.  You may\n");
printf("experience many problems due to trusting the wrong people, or\n");
printf("relying on luck.  Good judgment, and a thorough understanding of\n");
printf("others based on sound principles rather than feeling, is\n");
printf("essential.  You can be an outstanding person if you work\n");
printf("unceasingly.\n");
   break;
   case 9:
printf("This is a pinnacle of completion.  If you have learned to be\n");
printf("impersonal, selfless, and universal in your outlook, not aiming\n");
printf("for personal love or friendships, then this will be a rewarding\n");
printf("pinnacle.  This period can bring you beauty, art, and philan-\n");
printf("thropy.  Much compassion, tolerance, and living for others is\n");
printf("expected of you.  This is a difficult pinnacle, as few have\n");
printf("learned to love and give without expecting any return.  If you\n");
printf("are resentful or selfish, then this will be an unhappy time.\n");
printf("If nine is the first pinnacle, a divorce or unhappy love affair/n");
printf("may occur, but this often ends up a blessing.  This is an\n");
printf("excellent period to attract money and success, if you have aimed\n");
printf("high enough to work for the good of mankind and not for yourself.\n");
printf("Money can be lost, but will be gained again.  As a number nine,\n");
printf("you will be tested constantly for your compassion and love of\n");
printf("others.  If it occurs as a second or third pinnacle, many\n");
printf("emotional experiences will crop up.\n");
   break;
   case 11:
printf("The eleven pinnacle gives you the opportunity of being in the\n");
printf("limelight and appearing before the public.  This is a good\n");
printf("period for spiritual expansion.  You may be living under much\n");
printf("nervous tension as much is expected of you, and your ideals\n");
printf("should be above average.  This is a good period for fame,\n");
printf("illumination, and inspiration.  You may be led to uncover\n");
printf("inventive ability or religious tendencies.\n");
   break;
   case 22:
printf("This is a period where materialism and idealism are combined.\n");
printf("It covers a wide field of endeavor, and may bring you greatness.\n");
printf("Under the twenty-two master pinnacle, which is the highest\n");
printf("obtainable, you may be interested in promoting national or\n");
printf("international affairs, for you will be able to see over large\n");
printf("fields of expansion.  Very few individuals are privileged to\n");
printf("experience this pinnacle, for few have evolved to the extent to\n");
printf("meet its demands.  You must think big and for the benefit of the\n");
printf("world while living under this powerful pinnacle.\n");
   break;
   default:
printf("Error in pinnacle experience ...\n");




} /* end switch */
} /* end if pprint */
} /* end procedure */

/* -------------------------------------------------------------------- */
void PrintChandPin()

{
int
   firstcha, /* first challenge */
   seccha, /* second challenge */
   thcha, /* third and main challenge */
   fourcha, /* 4th (additional) challenge */
   firstpin, /* first pinnacle */
   secpin, /* second pinnacle */
   thpin, /* third pinnacle */
   fourpin, /* fourth pinnacle */
   duration; /* used to figure the duration of pinnacles */

while(birthyear>9)
   birthyear=SumDigits(birthyear);
while(birthmonth>9)
   birthmonth=SumDigits(birthmonth);
while(birthday>9)
   birthday=SumDigits(birthday);

firstcha=abs(birthday-birthmonth);
printf("# The first challenge is: %d #\n", firstcha);
PrintChall(firstcha);
seccha=abs(birthyear-birthday);
printf("# The second challenge is: %d #\n", seccha);
if(firstcha==seccha)
   printf("See above for info...\n");
else
   PrintChall(seccha);
thcha=abs(seccha-firstcha);
printf("# The third and main challenge is: %d #\n", thcha);
if((thcha==seccha)||(thcha==firstcha))
   printf("See above for info...\n");
else
   PrintChall(thcha);
fourcha=birthyear-birthmonth;
printf("# The fourth and additional challenge is:  %d #\n", fourcha);
if((fourcha==thcha)||(fourcha==seccha)||(fourcha==firstcha))
   printf("See above for info...\n");
else
   PrintChall(fourcha);
firstpin=birthmonth+birthday;
while((firstpin>9)&&(firstpin!=11)&&(firstpin!=22))
   firstpin=SumDigits(firstpin);
printf("# The first pinnacle is: %d #\n", firstpin);
duration=36-birthpath; /* the duration for the first pinnacle */
printf("The duration of which is from birth to %d years\n", duration);
PrintPin(firstpin);
secpin=birthday+birthyear;
while((secpin>9)&&(secpin!=11)&&(secpin!=22))
   secpin=SumDigits(secpin);
printf("# The second pinnacle is: %d #\n", secpin);
printf("The duration of which is from %d to %d\n", duration,(duration+9));
if(secpin==firstpin)
   printf("See above for info...\n");
else
PrintPin(secpin);
thpin=firstpin+secpin;
while((thpin>9)&&(thpin!=11)&&(thpin!=22))
   thpin=SumDigits(thpin);
printf("# The third pinnacle is: %d #\n", thpin);
printf("The duration of which is from %d to %d\n",(duration+9),(duration+18));
if((thpin==secpin)||(thpin==firstpin))
   printf("See above for info...\n");
else
PrintPin(thpin);
fourpin=birthmonth+birthyear;
while((fourpin>9)&&(fourpin!=11)&&(fourpin!=22))
   fourpin=SumDigits(fourpin);
printf("# The fourth pinnacle is: %d #\n", fourpin);
printf("The duration of which is from %d until death\n", (duration+18));
if((fourpin==thpin)||(fourpin==secpin)||(fourpin==firstpin))
   printf("See above for info...\n");
else
PrintPin(fourpin);

}
/* ------------------------------------------------------------------- */

void PrintLife()
{
int
   tempyear; /* birthyear reduced */

printf("* The first cycle (based on your birth month) *\n");
switch(birthmonth) {
   case 1: case 10:
printf("The number one cycle governs those born in January and October.\n");
printf("This period of your life deals with family, childhood experi-.\n");
printf("ences, and social and environmental influences.  Until your 28th\n");
printf("birthday, this period of your life should be one of self-\n");
printf("reliance, activity, changes, new beginnings and new directions.\n");
printf("Almost always, this first stage of your life will force you to\n");
printf("stand on your own, make decisions, and assume early responsi-\n");
printf("bility.  Those born in January may encounter more difficulties\n");
printf("and misunderstandings than those born in October.\n");
   break;
   case 2: case 11:
printf("The number 2 in the first cycle governs those born in February\n");
printf("and November.  As this stage of life relates to the personal\n");
printf("self, those of you born in February may be inclined to be more\n");
printf("sensitive and emotional, and more influenced by females in the\n");
printf("family.  The ages of 11 and or 20 should prove important to you\n");
printf("in some way.  They could be of a transitory nature, such as\n");
printf("moving from one location to another.  Those of you born in\n");
printf("February are more likely to be misunderstood during this stage\n");
printf("than your November counterparts.  Those born in November seem\n");
printf("to have a better chance of early success.\n");
   break;
   case 3: case 12:
printf("The number 3 in the first cycle governs those of you born in\n");
printf("March and December.  You're likely to be influenced by a third\n");
printf("party other than a family member, during this early stage of your\n");
printf("of your life.  Your 21st and 24th years should prove important\n");
printf("in some way.  There will be a pronounced need to express the\n");
printf("self through words, music, and art.  This usually occurs at an\n");
printf("early age.  If December is your birth month, you're likely to\n");
printf("have a better chance at getting started in life than those born\n");
printf("in March.  If your birthday is in March, you're likely to be\n");
printf("affected by emotions in the beginning.\n");
   break;
   case 4:
printf("The number 4 in the first cycle governs those of you born in\n");
printf("April.  Since this cycle rules early childhood, family, and\n");
printf("environmental stages, there may have been limitations or\n");
printf("severe restrictions in this regard.  Hard work, misunderstand-\n");
printf("ings, and circumstances out of your control will be more\n");
printf("pronounced.  The ages 19, 22, as well as 28, are likely to be\n");
printf("important in some way.  A practical approach to life will be\n");
printf("the theme of things.\n");
   break;
   case 5:
printf("The number 5 in the first cycle governs those of you born in May.\n");
printf("During this first stage, you're likely to experience a number\n");
printf("of changes, travels, relocations, and involvements with people\n");
printf("and public activity.  Generally, a packed suitcase is the theme\n");
printf("during this cycle, allowing you to move at a moment's notice.\n");
printf("Ages 14 and 23 should proved important in some way.  Since the\n");
printf("number 5 represents mental qualities, a good education is of\n");
printf("utmost importance at this stage in your cycles.\n");
   break;
   case 6:
printf("The number 6 in the first cycle governs those of you born in\n");
printf("the month of June.  Since 6 also governs love, family, duty,\n");
printf("and commitments, this islikely to be the theme of your life until\n");
printf("your 28th birthday.  Chances are strong that you'll be popular\n");
printf("in your peer group.  Because this cycle represents your\n");
printf("formative, growing, and emotional years, there may be a tendency\n");
printf("to put the people and things you love up on a pedestal.\n");
printf("Establish a balance if you can.  Women ruled by 6 in this period\n");
printf("usually experience an early or late marriage.  A good education\n");
printf("is of utmost importance.  Your 21st and 24th year of life should\n");
printf("prove to be eventful in some way.\n");
   break;
   case 7:
printf("The number 7 in the first cycle governs those born in July.\n");
printf("As 7 is an inward number, there may be periods in this stage\n");
printf("of life where emotions are held inside instead of expressed in\n");
printf("the normal way.  The tendency is to be alone-to study, to search\n");
printf("for truth, and to understand the mysteries of life.  During\n");
printf("this cycle, your 16th and 25th birthdays should prove important\n");
printf("or at least eventful.  The pattern is for you to be more of a\n");
printf("spectator than a participator.\n");
   break;
   case 8:
printf("The number 8 in the first cycle governs those of you born in the\n");
printf("month of August.  This beginning stage of your life gives you a\n");
printf("chance to assume authority over others at an early age.  Things\n");
printf("of material and tangible nature will come under this influence as\n");
printf("well.  Your 17th and 26th birthdays will prove important in some\n");
printf("way.  At this early stage of life, you're mentally mature far\n");
printf("beyond your biological years, which draws older people into your\n");
printf("life.  You may be a victim of circumstances and misunderstanding\n");
printf("until the ages of 31, at the earliest, or age 33 at the latest.\n");
   break;
   case 9:
printf("The number 9 in the first cycle governs your life if you were\n");
printf("born in the month of September.  Because the 9 is a broad and\n");
printf("impersonal number, this may be some cause for concern, since\n");
printf("this stage of life governs your formative, impressionable, and\n");
printf("emotional years.  Your 18th and 27th birthdays should prove\n");
printf("important.  Your life at this point will very likely be influ-\n");
printf("enced by distant travels and meeting outstanding personalities,\n");
printf("as well as a broad range of contracts.\n");
   break;
   default:
printf("Error in first cycle.\n");
} /* end switch */

printf("* Your second cycle (based on your birth day) *\n");

   switch(birthday) {
      case 1: case 10: case 19: case 28:
printf("As you enter your 28th birthday, this period for your life\n");
printf("becomes more productive.  By the 31st year of your life, you\n");
printf("should begin to assume some position of leadership or authority\n");
printf("over others, if you haven't done so already.  Your desire to lead,");
printf("take charge, command, and direct is strong during this phase of\n");
printf("your life.  This period, between your 28th and 56th birthday\n");
printf("attracts those born in the months of February, April, and August,\n");
printf("as well as those born on dates adding up to the numbers 1, 2, 4,\n");
printf("and 7.\n");
      break;
      case 2: case 11: case 20: case 29:
printf("An important turn of events for the better should come your way\n");
printf("beginning with your 29th birthday up to 56.  During this time,\n");
printf("choose your friends and surroundings with care.  You'll find the\n");
printf("fields of poetry, computers, and electronics, among others, are\n");
printf("your doors to success.  This cycle of your life will draw those\n");
printf("born in May, July, and October more than any other; this also\n");
printf("includes those whose birth dates add up to 2, 7, 1, or 4.\n");
      break;
      case 3:  case 12: case 21: case 30:
printf("Under this cycle, pride, ambition, independence, and a desire not\n");
printf("be restrained by anyone will dominate your attitude.   Bye your\n");
printf("30th birthday, lasting until age 57, you're likely to pursue\n");
printf("careers closely related to the arts, religion, or government.\n");
printf("This productive cycle will draw people into your life who were\n");
printf("born in the months of March and December, followed by April and\n");
printf("and November.  This also includes those born on dates adding\n");
printf("up to 3, 6, or 9.\n");
      break;
      case 4: case 13: case 22: case 31:
printf("Generally, the first 31 years of your life may be your most\n");
printf("difficult.  But around your 31st birthday or just afterward,\n");
printf("circumstances and events should come under your control.  You\n");
printf("are cautious and deliberate by nature and inclined to view most\n");
printf("things contrary to how others see them.  Occupations, careers,\n");
printf("friends, and associates that are considered odd and unusual will\n");
printf("be attractive during this cycle.  You'll find those born in the\n");
printf("months of February, June, and August drawn to you; also those\n");
printf("born on dates adding up to 1, 2, 5, and 7.\n");
      break;
      case 5: case 14: case 23:
printf("By age 32, you will experience some degree of freedom, change,\n");
printf("variety, and travel among other things.  Since this cycle stage\n");
printf("affects your carrer, occupations related to business, science,\n");
printf("and the literary field would be excellent to pursue.  At this\n");
printf("stage in your life, you'll draw to those born in the months of\n");
printf("May, June, September, and October.  This also includes those\n");
printf("born on dates adding up to 5 and 6.\n");
      break;
      case 6: case 15: case 24:
printf("The rays of the 6 in your productive cycle should commence about\n");
printf("your 24th birthday and reach full steam by age 33.  You'll\n");
printf("exhibit a distinct love for all things beautiful and aesthetic,\n");
printf("such as an artistic home, rich colors and decor, music, and art.\n");
printf("You have a deep love and respect for education and learning.\n");
printf("Careers that offer comfort, council, and advice to others, such\n");
printf("as nursing, teaching, law, and coaching, to name a few, should\n");
printf("bring you a lot of personal satisfaction.  During this stage of\n");
printf("your life, your friends, acquaintances, and others will tend to\n");
printf("be born in the months of March, May, July, October, and December.\n");
printf("The same is true for those born on dates adding up to 6, 3, and");
printf("2\n");
      break;
      case 7: case 16: case 25:
printf("Beginning around age 25, you should begin to develop an in-\n");
printf("dependent nature, originality, and above all, a strongly marked\n");
printf("individuality.  You'll have a desire to travel to faraway places,\n");
printf("and to learn all you can about inner truth and wisdom.  Careers\n");
printf("related to writing, music, analysis, research, technology, and\n");
printf("mysticism will be dominant.  Those born in March, May, July, and\n");
printf("August will be drawn to you; also those born on dates adding up\n");
printf("to 1, 2, 4, 6, or 7.\n");
      break;
      case 8: case 17: case 26:
printf("According to this cycle stage, you may not feel in control of\n");
printf("your affairs until about your 35th birthday.  During this time\n");
printf("in your life, you're likely to develop a deep, intense person-\n");
printf("ality, having a mind of your own.  A strong concentration of\n");
printf("purpose as well as a philosophical approach to life should be\n");
printf("the dominant theme until about your 58th birthday.  Anything\n");
printf("connected with the public, banking, real estate, or working for\n");
printf("the government could easily lead to financial success.  Persons\n");
printf("born in January, May, and October will be drawn to you, as well\n");
printf("as those born on dates adding up to 8, 6, or 3.\n");
      break;
      case 9: case 18: case 27:
printf("As you enter your 27th birthday, opportunities should begin to\n");
printf("open up for you.  You will begin to experience a strong desire\n");
printf("to be in control of your affairs, to become the captain of your\n");
printf("ship.  Your will and determination are the basic ingredients of\n");
printf("your success.  Careers in law, the military, medicine, art, and\n");
printf("religion generally open your door to success.  Persons born in\n");
printf("April, August, and November are often drawn to you, and the same\n");
printf("holds true for those with a birth date adding up to 9, 3, or 1.\n");
      break;
} /* end switch */

printf("* Your third cycle (based on your birth year *\n");

tempyear=birthyear;
while(tempyear>9)
   tempyear=SumDigits(tempyear);
   switch(tempyear) {
      case 1:
printf("This phase in your life begins about your 55th birthday.  It's a\n");
printf("period of your life that could find you in a position of\n");
printf("authority over others.  On the other hand, this final stage of\n");
printf("life may force you to stand on your own two feet, not depending\n");
printf("on anyone or anything.  You have to rely more on your own\n");
printf("resources, hopefully saved and accumulated from past years.  In\n");
printf("this period of life, guard against high blood circulation;\n");
printf("there may be problems with the lungs as well as with the eyes.\n");
      break;
      case 2:
printf("As you enter this final cycle of your life about your 56th year,\n");
printf("love, relationships, and companionship will be important to you.\n");
printf("There may be times when you seem uncertain and unsettled about\n");
printf("what you really want at this point in your life.  As a result,\n");
printf("carefully pick and choose your associates, living conditions, and\n");
printf("physical surroundings.  As for your health, guard against stomach\n");
printf("and digestive orders of all kinds, watch out for hemorrhoids,\n");
printf("diabetes, tumors, ulcers, ptomaine poisoning, and the like.\n");
      break;
      case 3:
printf("As you enter your 57th birthday, this final stage should prove to\n");
printf("sociable, entertaining, and enjoyable, especially if you've\n");
printf("played your cards right during your previous cycle.  On the\n");
printf("positive side, you can end your days with a good reputation,\n");
printf("prestige, and money.  On the reverse, you could end up living for\n");
printf("moment, drinking to excess, and being extremely boastful.  Guard\n");
printf("the health against overstrained nerves, low blood pressure,\n");
printf("neuritis, and skin and foot problems of all kinds.\n");
      break;
      case 4:
printf("This stage of your life should be carefully set, since the 4 is\n");
printf("associated with hard work, ups and downs, the unexpected, and\n");
printf("misunderstandings.  As a result, financial security should be\n");
printf("arranged during your second cycle.  Structure your life and\n");
printf("follow a plan as much as possible during this harvest cycle.\n");
printf("If you prepare carefully, you may have on final chance to build\n");
printf("lasting things.  Your health  may be affected through moodiness,\n");
printf("periods of depression, or mental disorders, as well as sudden\n");
printf("and mysterious illnesses and accidents.\n");
      break;
      case 5:
printf("Since this cycle represents the final stage of things, you can\n");
printf("expect a full, active life as a result.  Public involvement of\n");
printf("some sort should be pronounced, if not dominant.  In this case,\n");
printf("there's no need to get out of your wheelchair-you don't have time\n");
printf("Be on guard, however, against overstraining the nervous system,\n");
printf("mental breakdowns, nervous tension, paralysis, and insomnia.\n");
      break;
      case 6:
printf("This final stage of your life may find a late marriage or romance\n");
printf("starting to blossom around your 51st birthday.  Depending on the\n");
printf("progress of your second cycle, you should be able to establish a\n");
printf("comfortable home for yourself and your loved ones.  Guard against\n");
printf("irregular blood circulation, overweight, heart disease, sinus\n");
printf("problems, and all conditions generally affecting the nose\n");
printf("throat, or upper part of the lungs.\n");
      break;
      case 7:
printf("At this final stage of life, there's likely to be a strong desire\n");
printf("to get away from stress and noise, away from the hustle and\n");
printf("bustle of life.  Religious and spiritual interests are usually\n");
printf("heightened when in this stage of your life.  Avoid becoming a\n");
printf("recluse or withdrawn.  As far as your health is concerned, watch\n");
printf("out for excessive worry, annoyance, and mental aggravation,\n");
printf("digestive disorders, and night sweats; try not to imagine the\n");
printf("worst.\n");
      break;
      case 8:
printf("Beginning around age 53 and lasting until the end of your life,\n");
printf("your attitude may be a philosophical acceptance of your fate and\n");
printf("your role on life's stage.  Rest from labor, or some form of\n");
printf("retirement, will be the theme.  There's is an even stronger\n");
printf("possibility of material things gained through effort, hard work,\n");
printf("and determination.  As for health, guard against headaches,\n");
printf("depression, feelings of intense loneliness, constipation, and\n");
printf("blood poisoning, as well as problems with the knees, teeth, and\n");
printf("bones.\n");
      break;
      case 9:
printf("The rays of this influence on your life should begin to be felt\n");
printf("by your 54th birthday.  This last stage of your life should be\n");
printf("filled with constant activity, meeting outstanding celebrities\n");
printf("and personalities, as well as traveling the globe.  At this stage\n");
printf("of your life, guard against bumps and bruises, arguments, cuts,\n");
printf("burns, auto accidents, dangers from machinery and firearms,\n");
printf("fevers, and high temperatures.\n");
      break;
      default:
printf("Error in third cycle of life.\n");
} /* end switch */


} /* end procedure */
/* -------------------------------------------------------------------- */
void PrintHelp()
{
printf("Usage: Numcycle c (prints challenge and pinnacles)\n");
printf("       Numcycle i (prints no interpretations)\n");
printf("       Numcycle l (prints the life cycles)\n");
printf("       Numcycle h (prints the help file)\n");
printf("       Numcycle n (prints out name cycles)\n");
printf("       Numcycle b (prints out the bibliography and copyright).\n\n");
printf("The cycles that are categorized in this program are:\n");
printf("   Chaldean\n");
printf("   Four months\n");
printf("   Agedigits\n");
printf("   Challenges and Pinnacles.\n");
printf("   Life cycles\n");
printf("   Universal and Personal years, months, weeks, and days\n");
printf("   misc. ages that might be of importance\n");
printf("   Name cycles\n\n");
printf("The following paragraphs will explain in detail what the\n");
printf("cycles represent.\n\n");
printf("* Chaldean Cycle\n");
printf("The chaldean cycle occurs every 52 days (roughly speaking)\n");
printf("of the year starting from your birthday...as a result...\n");
printf("there are 7 cycles, in a year in which you go through.\n");
printf("Depending on the cycle, it may be a good time to travel,\n");
printf("invest, rest, etc....  The cycle also determines the state\n");
printf("of your mind and health (excepting the biorythm cycle or\n");
printf("other cycles that may contradict the chaldean cycle).\n\n");
printf("* Four months Cycle\n");
printf("The four months cycle occurs every four months (obviously)\n");
printf("starting from your date of birth.  The overtone is an\n");
printf("influence that changes every year on your birthday...\n");
printf("Although I did not include an interpretive table...the\n");
printf("The combination of overtone and the four months cycle\n");
printf("number may mean that a specific even may happen.  For\n");
printf("example, 15 overtone with 18 four months cycle number\n");
printf("usually means divorce or separation.  Also included is the\n");
printf("key.  Although it never changes in your lifetime...I included\n");
printf("it because it was difficult to calculate and is usually\n");
printf("not mentioned in other numerology books.\n\n");
printf("* Agedigit Cycle\n");
printf("The agedigit is simple to get, just add up the ages you\n");
printf("will be in the current year, and reduce.  As usual, each\n");
printf("number that you get after reducing means something.\n\n");
printf("* Challenges and Pinnacles\n");
printf("These cycles occur rarely...and so you must use the c option\n");
printf("to obtain them.  They should be viewed at least once.\n");
printf("The challenges are obstacles you must overcome to pass\n");
printf("(for what purpose, I don't know).  I do not know the duration\n");
printf("for these cycles (if there is one), since neither books told\n");
printf("me so.  The third challenge number is the main challenge\n");
printf("that you must overcome in your life.\n\n");
printf("* Life Cycles\n");
printf("These cycles also change rarely and must be viewed with\n");
printf("the l option.  There are a total of 3 cycles that you must go\n");
printf("through if you are to lead a full life.  (And assuming that\n");
printf("human life spans don't change radically, the ages should be\n");
printf("correct).  The first cycle is governed by your birth month\n");
printf("and encompasses the earliest third of your life.  The\n");
printf("second cycle is based upon your birth day (not birthday)\n");
printf("and rules the second third of your life.  The third cycle\n");
printf("is ruled by your birth year (reduced)... and, of course,\n");
printf("rules the last third of your life.\n\n");
printf("* Universal and Personal cycles\n");
printf("These cycles change every year, week, month, or day, depending\n");
printf("on your birth date and the current date.  Each is self\n");
printf("explanatory (ei. the personal year and universal year changes\n");
printf("every year for those of you who don't know).  The personal\n");
printf("week helps determines which day something stressful or weird\n");
printf("might happen...  Whatever it is... it will be eventful.\n\n");
printf("* Misc ages and years of importance\n");
printf("This is more of a time keeper, or notifier, just in case this\n");
printf("year or if your age might indicate that something eventful\n");
printf("might happen.  Eventful experiences can be marriages, car\n");
printf("accidents, finishing college, etc. \n\n");
printf("* Name and cycles based on name\n");
printf("This option tells you what your compound number based on\n");
printf("your name is.  It also tells what your souls' urge number\n");
printf("is, and what your personality number is. It also tells you\n");
printf("what number of the name you inputed you are in now.  For\n");
printf("example...y equals 1 (if you choose chaldean as your cycle)\n");
printf("so if your name begins with y, then you will be feeling the\n");
printf("affects of that number for your first year.  Also given, is\n");
printf("what numbers you are difficient in, as well as if you have\n");
printf("karma numbers that you must live by.  It also tells you if\n");
printf("you are in you're lucky decade because of your name,\n");
printf("birthpath, or power number by comparing it with the present\n");
printf("decade.  Since the cycles based on your name change very slowly\n");
printf("(at least the ones that I know of) (they change once every\n");
printf("year or once every several years), you do not need to do the\n");
printf("-n option very often.  There is also another point about the\n");
printf("letter y, if you want to treat 'y' as a vowel, then put '^'\n");
printf("in it's place.  So for Yvonne, you would put ^vonne\n");
}

/* --------------------------------------------------------------------- */
void PrintBib()
{
printf("This product may not be sold, or used in any way for profit,\n");
printf("except to defray the cost of distributing such material.\n");
printf("This program is not responsible for any actions taken by\n");
printf("anyone who uses, or takes the advices of this program.\n"); 
printf("This program may be distributed freely as long as this notice\n");
printf("is included.\n\n");
printf("Strayhorn, Lloyd.  \"Numbers and You\", Yama Publishing,\n");
printf("     New York, 1980.\n");
printf("Hitchcock, Helyn.  \"Helping Yourself with Numerology\",\n");
printf("     Parker Pub., West Nyack, 1972.\n");
printf("Coates, Austin.  \"Numerology\", Carol Publishing,\n");
printf("     New York, 1974.\n");
printf("Kehoe, Thomas David.  (Stuff he sent me through e-mail.)\n");
}

/* -------------------------------------------------------------------- */
int WordTrans(char tmp[lnofstr], int i)
{
int temp;
		switch(tmp[i])	{
			case 'a': case 'A': case '1':
				temp = 1;
                                tempsoul += temp;
				break;
			case 'b': case 'B':case '2':
				temp = 2;
                                tempcharac += temp;
				break;
			case 'c': case 'C': case '3':
				temp = 3;
                                tempcharac +=temp;
				break;
			case 'd': case 'D': case '4':
				temp = 4;
                                tempcharac +=temp;
				break;
			case 'e': case 'E':case '5':
				temp = 5;
                                tempsoul += temp;
				break;
			case 'f': case 'F':
				if(cabala[0]=='n')
                                temp = 6;
                                else temp = 8;
                                tempcharac +=temp;
				break;
			case 'g': case 'G':
				if(cabala[0]=='n')
                                temp = 7;
                                else temp = 3;
                                tempcharac +=temp;
				break;
			case 'h': case 'H':
				if(cabala[0]=='n')
                                temp = 8;
                                else temp = 5;
                                tempcharac +=temp;
				break;
			case 'i': case 'I':
				if(cabala[0]=='n')
                                temp = 9;
                                else temp = 1;
                                tempsoul += temp;
				break;
			case 'j': case 'J':
				temp = 1;
                                tempcharac +=temp;
				break;
			case 'k': case 'K':
				temp = 2;
                                tempcharac +=temp;
				break;
			case 'l': case 'L':
				temp = 3;
                                tempcharac +=temp;
				break;
			case 'm': case 'M':
				temp = 4;
                                tempcharac +=temp;
				break;
			case 'n': case 'N':
				temp = 5;
                                tempcharac +=temp;
				break;
			case 'o': case 'O':
				 if(cabala[0]=='n')
                                temp = 6;
                                else temp = 7;
                                tempsoul +=temp;
				break;
			case 'p': case 'P':
				if(cabala[0]=='n')
                                temp = 7;
                                else temp = 8;
                                tempcharac +=temp;
				break;
			case 'q': case 'Q':
				if(cabala[0]=='n')
                                temp = 8;
                                else temp = 1;
                                tempcharac +=temp;
				break;
			case 'r': case 'R':
				if(cabala[0]=='n')
                                temp = 9;
                                else temp = 2;
                                tempcharac +=temp;
				break;
			case 's': case 'S':
				if(cabala[0]=='n')
                                temp = 1;
                                else temp = 3;
                                tempcharac +=temp;
				break;
			case 't': case 'T':
				if(cabala[0]=='n')
                                temp = 2;
                                else temp = 4;
                                tempcharac +=temp;
				break;
			case 'u': case 'U':
				if(cabala[0]=='n')
                                temp = 3;
                                else temp = 6;
                                tempsoul +=temp;
				break;
			case 'v': case 'V':
				if(cabala[0]=='n')
                                temp = 4;
                                else temp = 6;
                                tempcharac +=temp;
				break;
			case 'w': case 'W':
				if(cabala[0]=='n')
                                temp = 5;
                                else temp = 6;
                                tempcharac +=temp;
				break;
			case 'x': case 'X':
				if(cabala[0]=='n')
                                temp = 6;
                                else temp = 5;
                                tempcharac +=temp;
				break;
			case 'y': case 'Y':
				if(cabala[0]=='n')
                                temp = 7;
                                else temp = 1;
                                tempcharac +=temp;
				break;
			case '^': /* used if y is treated as vowel */
				if(cabala[0]=='n')
                                temp = 7;
                                else temp = 1;
                                tempsoul +=temp;
				break;
			case 'z': case 'Z':
				if(cabala[0]=='n')
                                temp = 8;
                        case '9': case '&':
                                temp = 9;
                                break;
                        case '6':
                                temp=6;
                                break;
                        case '7':
                                temp=7;
                                break;
                        case '8':
                                temp=8;
                                break;
                        case '0':
                                temp = 0;
                                break;

			default: 
				temp = 0;
				

		}	/* end switch */
   return temp;
}
/* -------------------------------------------------------------- */
void PrintName()
{
int
 temp, /* used to initialize the karmas */
 tempn, /* temp variable used to calculate the name */
 compound; /* the reduced number of the name */

crittime1=0;
crittime2=0;
stln=0;
name = 0;
	printf("Please enter normal or cabala to indicate type: ");
scanf("%s", cabala);
printf("Please enter your name.\n");
if(cabala[0]=='N')
   cabala[0]='n';
c[stln]=getchar();
for(temp=0;temp!=9;temp++)
   karma[temp]=0;
compound=0;
stln++;
c[stln]= getchar();
tempsoul=0;
soul=0;
tempcharac=0;
charac=0;
while( c[stln] !=  10)	{
	
	while( (c[stln] != ' ') && (c[stln] != '\n') )	{
          tempn=WordTrans(c, stln);
                
 karma[tempn]++; /* keeps track of how many times a number occurs */

		name = name + tempn;
                stln++;
		c[stln] = getchar();
   if((c[stln]==' ')&&(crittime1==0))
      crittime1=stln;
   if(c[stln]==10)
      crittime2=stln;
			
	}	/* end ASCII-32 while loop */	
		while( (name > 9) && (name != 11) && (name != 22) )
			name=SumDigits(name);
	compound=compound+name;
		
		name = 0;
		if(c[stln] != '\n')
                     {
                        
			c[stln] = getchar();}
	
} /* end ASCII-10 while loop */
soul=tempsoul;
charac=tempcharac;	
if(compound > 9)
  printf("Your compound number is %d.\n", compound);
else
  printf("Your name does not have a compound number.\n");
name=compound;
while( compound > 9)
	compound=SumDigits(compound);

printf("Your single number is %d.\n", compound);
compound=soul;
while((compound >9) && (compound!=11) && (compound!=22))
   compound=SumDigits(compound);
printf("Your souls urge is %d.\n", compound);
compound=charac;
while((compound >9) && (compound!=11) && (compound!=22))
   compound=SumDigits(compound);
printf("Your personality number is %d.\n", compound);
printf("\n");
}

/* ------------------------------------------------------------------- */
void KarmaInter(int temp)
{
   switch(temp)   {
      case 13:
printf("The symbol of death.  You fear death mainly because you\n");
printf("fear the unknown of the afterlife.  The meaning may not\n");
printf("necessarily mean death literally, but may mean change,\n");
printf("motion, or transformation.  It is rebirth, renewal, and an\n");
printf("inspirational beginning.  It is a period of regeneration.\n");
printf("The keyword is work on the material plane.  The warning\n");
printf("is to not be lazy, negative, or inefficient.  It also may\n");
printf("mean the opposite:  too much work is not good for you.\n");
printf("Trials and tests of proficiency and discipline will be\n");
printf("given to you.  It warns against being indifferent,\n");
printf("discontented, and ill-mannered.\n");
   break;
      case 14:
printf("Arcanum 14 represents physical possessions.  It warns of loss\n");
printf("of property and failure in business.  It is hard for a 14 to\n");
printf("learn his lesson, because he often tries to gain freedom by\n");
printf("destructive methods or at the expense of others.  This brings\n");
printf("loss, sickness and death.  You are too interested in the\n");
printf("physical senses.  Fourteen has been called the number of\n");
printf("experience.  The basic message of fourteen is lack of\n");
printf("understanding.  Through understanding we develop humility,\n");
printf("compassion, and overflowing love.  We should avoid going\n");
printf("to extremes.  Be temperate.\n");
   break;
      case 16:
printf("Tarot card number 16 depicts ruin.  The falling tower indicates\n");
printf("the crushing of human pride and vanity.  The structure was\n");
printf("built of ignorance and wrong doing, through self-will and a\n");
printf("self-centered life.  Not until we understand the true nature\n");
printf("of willpower do we destroy false ideas, and learn what is right.\n");
printf("Sixteen warns of strange calamity, defeat of plans, disgrace,\n");
printf("accidents, deception, and adversity.  It indicates the karma of\n");
printf("former illegitimate love affairs.  It tests optimism and faith.\n");
printf("You must not cling to the material.\n");
   break;
      case 19:
printf("The number 19 symbolizes the \"Sun\" or \"Reunion.\"  It is not\n");
printf("inanimate, but a living force.  Nineteen is the equalizer,\n");
printf("or collector.  It demands an \"eye for an eye.\"  We get out of\n");
printf("life what we put into it.  It warns you to not be domineering,\n");
printf("but exercise tolerance.  You formerly took something, and now\n");
printf("you must pay it back.  It is a test of endurance.\n");
   break;
} /* end switch */
}

/* ------------------------------------------------------------------- */
void PrintKarma()
{
   int
      temp, /* temp variable used to see numbers are missing */
      sum; /* used to reduce numbers */

numage=age;
temp=1;
sum=WordTrans(c, temp);
while((numage-sum)>0)
{
numage-=sum;
temp++;
if(temp>(stln-1))
   temp=1;
sum=WordTrans(c, temp);
}
printf("# You are in your %c (%d) cycle.\n", c[temp], sum);
switch(c[temp]) {
   case 'a': case 'A':
printf("A is aggressive and will not be detoured from its goal.\n");
   break;
   case 'j': case 'J':
printf("J is mental, but may be inclined to put things off.\n");
   break;
   case 's': case 'S':
printf("S is emotional, which might cloud your clear thinking.\n");
   break;
   case 'b': case 'B':
printf("B is shy, emotional, and needs affection and mothering.\n");
   break;
   case 'k': case 'K':
printf("K is intuitive, and follows hunches.  It is receptive.\n");
   break;
   case 't': case 'T':
printf("T is nervous and eager for spiritual development.\n");
   break;
   case 'c': case 'C':
printf("C has psychic ability but is not cognizant of its gift.\n");
   break;
   case 'l': case 'L':
printf("L is mental and uses reasoning power.\n");
   break;
   case 'u': case 'U':
printf("U  suffers because of its dual nature.\n");
   break;
   case 'd': case 'D':
printf("D is efficient, a hard worker, and usually is not emotional.\n");
   break;
   case 'm': case 'M':
printf("M is thorough, but is repressed and unfeeling toward others.\n");
   break;
   case 'v': case 'V':
printf("V is inspirational and intuitive and listens to his small\n");
printf("voice within.\n");
   break;
   case 'e': case 'E':
printf("E,  while physical, can reach the realm of inspiration.\n");
   break;
   case 'n': case 'N':
printf("N is imaginative and wavering in decisions, though he uses\n");
printf("mental power in his interpretations.\n");
   break;
   case 'w': case 'W':
printf("W is physical, and while desiring higher aspirations, is\n");
printf("often remorseful because he cannot reach them.\n");
   break;
   case 'f': case 'F':
printf("F is intuitional but has a dual nature.  Cross bearer.\n");
   break;
   case 'o': case 'O':
printf("O is inspirational but inclined to draw power to himself.  He\n");
printf("gives out very little due to his conservative nature.\n");
   break;
   case 'x': case 'X':
printf("X entails scrifice.  It is a karmic letter.\n");
   break;
   case 'g': case 'G':
printf("G is mental but aloof, and needs understanding to keep it\n");
printf("from experiencing tragedy.\n");
   break;
   case 'p': case 'P':
printf("P is mental.  I is inexpressive and unsure of itself.\n");
   break;
   case 'y': case 'Y':
printf("Y is dual in nature.  It has fine psychic gifts, but being\n");
printf("dual it has difficulty choosing which way to go.\n");
   break;
   case 'h': case 'H':
printf("H is advancing from the material to the mental plane,\n");
printf("but it is vacillating in decisions.\n");
   break;
   case 'q': case 'Q':
printf("Q functions in two worlds, and so can be a dangerous\n");
printf("power if lacking guidance.\n");
   break;
   case 'z': case 'Z':
printf("Z is inspirational and understands human emotions, being able\n");
printf("to balance and control emotional crises.\n");
   break;
   case 'i': case 'I':
printf("I is the light bearer.  He may guide or be destructive.\n");
   break;
   case 'r': case 'R':
printf("R is selfless and understanding.  He is tolerant of others,\n");
printf("but is often the goat, for others will take advantage of him.\n");
   break;
   default: break;
} /* end switch */

if(crittime1==(temp+1))
   printf("#This could be a critical time due to your first name letter.\n");
if(crittime2==(temp+1))
   printf("#This could be a critical time due to your last name letter.\n");
sum=birthpath;
while(sum>9)
sum=SumDigits(sum);
temp=(presyear%100-presyear%10)/10;
if(temp==sum)
   printf("This is a lucky decade due to your birthpath.\n");
sum=name;
while(sum>9)
sum=SumDigits(sum);
if(temp==sum)
   printf("This is a lucky decade due to your name.\n");
sum=name+birthpath;
while(sum>9)
sum=SumDigits(sum);
if(temp==sum)
   printf("This is a lucky decade due to your power number.\n");
sum=soul; /* find if karma results from the soul number */
while((sum>9)&&(sum!=13)&&(sum!=14)&&(sum!=16)&&(sum!=19))
   sum=SumDigits(sum);
if((sum==13)||(sum==14)||(sum==16)||(sum==19))
      KarmaInter(sum);
if(sum==14)
   printf("You may experience many emotional upsets and delays.\n");
if(sum==16)
   printf("You may experience false friends and broken dreams.\n");
if(sum==19) {
   printf("You'll have to face all of life's secrets which may have\n");
   printf("may have been hidden and are now dragged out.\n");}

sum=name; /* find if karma results from the destiny number. */
while((sum>9)&&(sum!=13)&&(sum!=14)&&(sum!=16)&&(sum!=19))
   sum=SumDigits(sum);
if((sum==13)||(sum==14)||(sum==16)||(sum==19))
      KarmaInter(sum);
if(sum==14)
   printf("Many disappointments and losses will be encountered.\n");
if(sum==16)
   printf("Loss of name, position, fortune, and power may occur.\n");
if(sum==19) {
   printf("You may find that you have lost everything at the end\n");
   printf("of your life.\n");}

sum=birthpath; /* find if karma results from your birthday */
while((sum>9)&&(sum!=13)&&(sum!=14)&&(sum!=16)&&(sum!=19))
   sum=SumDigits(sum);
if((sum==13)||(sum==14)||(sum==16)||(sum==19))
      KarmaInter(sum);
if(sum==14)
   printf("You must learn the lesson of detachment.  You must let go.\n");
if(sum==16)
   printf("All tragedies must be learned-love to lose, rise to fall\n");

sum=birthpath+name; /* find if karma results from power number */
while((sum>9)&&(sum!=13)&&(sum!=14)&&(sum!=16)&&(sum!=19))
   sum=SumDigits(sum);
if((sum==13)||(sum==14)||(sum==16)||(sum==19))
      KarmaInter(sum);

for(temp=1;temp!=10;temp++)
   {
   if(karma[temp]==0)
      printf("Deficient in number %d\n", temp);
   }
   
printf("\n");
}