home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / games / 65 / pascal / reali.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-10-16  |  10.6 KB  |  322 lines
  1.  {  $E+,$M+ }
  2. PROGRAM REALI ( INPUT, OUTPUT);
  3. CONST
  4.         TITLES = 70;
  5. VAR
  6.         r1, r2, r3, r4, r5   : char;
  7.         r6, r7, r8, r9, r10  : char;
  8.         t1 : String[titles];
  9. (***********************************************************)
  10. Procedure wri( title : string );
  11.         Begin
  12.                 Writeln(title);
  13.         end;
  14. (***********************************************************)
  15. Procedure wr;
  16.         Begin
  17.                 Writeln;
  18.         end;
  19. (***********************************************************)
  20. Procedure char_out(device,dout:integer);
  21.         BIOS(3);
  22. (***********************************************************)
  23. Procedure clear_screen;
  24.         Begin
  25.                 char_out(2,$1b);
  26.                 Char_out(2,ord('E'));
  27.         End;
  28. (**********************************************************)
  29. Procedure rvon;
  30.         Begin
  31.                 char_out(2,$1b);
  32.                 char_out(2,ord('p'));
  33.         End;
  34. (**********************************************************)
  35. Procedure rvoff;
  36.         Begin
  37.                 char_out(2,$1b);
  38.                 char_out(2,ord('q'));
  39.         End;
  40. (**********************************************************)
  41. Procedure ONE;
  42. BEGIN
  43.  wri('                         HOME MORTGAGE');
  44.  wr;
  45.  wr;
  46.  wr;
  47.  wr;
  48.  wr;
  49.  wr;
  50.  wri('                        *-*-* DEMO *-*-*');
  51.  wr;
  52.  wr;
  53.  wr;
  54.  wri('Future version will have a menu with alot of options to select');
  55.  wri('from.  This version ONLY explains briefly the different types of');
  56.  wri('mortgages for those interested in buying a house');
  57.  wr;
  58.  wr;
  59.  wr;
  60.  wr;
  61.  wr;
  62.  wri('Portions of this product are Copyright (c) 1986, OSS and CCD.');
  63.  wri('                     Used by Permission of OSS');
  64.  wr;
  65.  wri('                       Copyright (c) DCS 1986');
  66.  RVON;
  67.  wri('Hit any key to continue');
  68.  RVOFF;
  69.  read(r1);
  70.  CLEAR_SCREEN;
  71. end;
  72. Procedure TWO;
  73. begin
  74.  wr;
  75.  wr;
  76.  wri('                 MORTGAGE  INFORMATION');
  77.  wr;
  78.  wri('In this section, we will discuss the various type of MORTGAGES');
  79.  wri('that are available.  We will discuss the FIXED RATE, BUYDOWN, ');
  80.  wri('GPM (Graduated Payment Mortgage), GEM (Growing Equity Mortgage');
  81.  wri('and various government mortgages such as VA and FHA.         ');
  82.  wr;
  83.  wr;
  84.  wr;
  85.  wr;
  86.  wr;
  87.  wr;
  88.  wr;
  89.  wr;
  90.  wr;
  91.  wr;
  92.  wr;
  93.  wr;
  94.  wr;
  95.  wr;
  96.  wr;
  97.  RVON;
  98.  wri('Hit any key to continue');
  99.  RVOFF;
  100.  read(r2);
  101.  CLEAR_SCREEN;
  102. end;
  103. Procedure THREE;
  104. begin
  105.  wri('                       FIXED RATE MORTGAGES                   ');
  106.  wr;
  107.  wri('A fixed rate mortgage is one where the interest rate, and     ');
  108.  wri('consequently the monthly payment, remain the same for the     ');
  109.  wri('life of the loan.  Generally, the only time the monthly  pay- ');
  110.  wri('ment will change is if your taxes or insurance change.  Those ');
  111.  wri('payments are usually made out of a non-interest bearing account');
  112.  wri('and are included (1/12 of the years estimate) in your payment.');
  113.  wr;
  114.  wri('Some lenders will let you be responsible for the tax and      ');
  115.  wri('insurance payments, although some will require the escrow     ');
  116.  wri('account.');
  117.  wr;
  118.  wri('Fixed rate mortgages are best for buyers on fixed incomes, those');
  119.  wri('that do not anticipate an increase in salary, and those who want');
  120.  wri('to know that their interest rate will never change.');
  121.  wr;
  122.  wri('A dis-advantage to the fixed rate mortgage is that if interest');
  123.  wri('rates drop, you cannot take advantage of the drop without the');
  124.  wri('expense of re-financing your loan (which can be quite expensive).');
  125.  wr;
  126.  wr;
  127.  wr;
  128.  RVON;
  129.  wri('Hit any key to continue');
  130.  RVOFF;
  131.  read(r3);
  132.  CLEAR_SCREEN;
  133. end;
  134. Procedure FOUR;
  135. begin
  136.  wri('                   BUYDOWN MORTGAGES');
  137.  wr;
  138.  wri('The buydown mortgage is one where (usually) the seller or builder');
  139.  wri('subsides the mortgage by paying the lender a charge to "buydown"');
  140.  wri('the interest rate of the mortgage.  Usually, the rate is bought ');
  141.  wri('down over a period from 1 to 5 years after which you then pay ');
  142.  wri('the original rate.  As an example, suppose the bank has a fixed');
  143.  wri('rate mortgage for 12%.  It can be bought down to 9% in year 1, ');
  144.  wri('10% in year 2, 11% in years 3 & 4, and after that you pay the ');
  145.  wri('rate of 12%.  The rate was always 12%, it was just bought down');
  146.  wri('for a couple of years.  There are specific guidelines used in the');
  147.  wri('buydown mortgage.  It cannot be bought down more than 3% in any ');
  148.  wri('given year, etc.  ');
  149.  wr;
  150.  wri('The advantage is that you qualify under the bought down rate, ');
  151.  wri('which means you can afford more of a house.  The Dis-advantage');
  152.  wri('is that at the end of the subsidy (buydown period), your payments');
  153.  wri('are higher than at the beginning of the loan.  This type of loan');
  154.  wri('is suitable for those with rising incomes or those planning on');
  155.  wri('moving before the subsidy ends.');
  156.  wr;
  157.  wr;
  158.  wr;
  159.  RVON;
  160.  wri('Hit any key to continue');
  161.  RVOFF;
  162.  read(r4);
  163.  CLEAR_SCREEN;
  164. end;
  165. Procedure FIVE;
  166. begin
  167.  wri('                     Graduated Payment Mortgage (GPM)');
  168.  wr;
  169.  wri('The GPM mortgage payments start at a low amount and then increase');
  170.  wri('at a set amount for a period of years (usually 5 to 7).  You  ');
  171.  wri('qualify at the lower interest rate.  However, you usually accrue');
  172.  wri('NEGATIVE equity, which means at the end of year 1 you owe more ');
  173.  wri('than you originally borrowed.  The reason for that is, say your');
  174.  wri('note rate is 12%.  You  start paying at a figure based on 10% as');
  175.  wri('an example.  That leaves a negative 2% that you didn''t pay which');
  176.  wri('is ADDED to your loan.  Eventually, due to the increase in pay-');
  177.  wri('ments you make each year, you will start decreasing the loan ');
  178.  wri('amount (usually around year 5). ');
  179.  wr;
  180.  wri('The advantage is that you can afford more of a house, the dis-');
  181.  wri('advantage is that it will be awhile before you make  progress');
  182.  wri('on decreasing the loan amount');
  183.  wr;
  184.  wr;
  185.  wr;
  186.  wr;
  187.  wr;
  188.  wr;
  189.  wr;
  190.  RVON;
  191.  wri('Hit any key to continue');
  192.  RVOFF;
  193.  read(r5);
  194.  CLEAR_SCREEN;
  195. end;
  196. Procedure SIX;
  197. begin
  198.  wri('                   ADJUSTABLE RATE MORTGAGE (ARM)');
  199.  wr;
  200.  wri('ARM''s are mortgages where the interest rate changes on a periodic');
  201.  wri('basis, generally once a year.  Due to abuses in the past by ');
  202.  wri('lenders, most now carry safety guards such as "CAPS".  The CAP');
  203.  wri('is the maximum change in interest rate that can be changed  per');
  204.  wri('adjustment period.  Usually, most caps state that the rate cannot');
  205.  wri('change more than 2% in any given period (usually each year) and');
  206.  wri('a total of 5% over the life of the loan.  BE SURE TO FIND OUT');
  207.  wri('what caps are on the loan!  And, these ARM''s base their rate');
  208.  wri('on some type of index (such as the 90 day Treasury bond rate, or');
  209.  wri('COST OF FUNDS index) and they tack on a MARGIN amount (which is');
  210.  wri('their profit) on top  of that rate.  Therefore, if the base ');
  211.  wri('is a Treasury index of 9% and margin is 3%, you will pay 12%.');
  212.  wr;
  213.  wri('The advantage to this type of loan is that as rates FALL, you');
  214.  wri('take advantage of the drop (where a fixed rate does not).  The');
  215.  wri('DIS-advantage is that as rates RISE, so does your payment.');
  216.  wr;
  217.  wr;
  218.  wr;
  219.  wr;
  220.  wr;
  221.  RVON;
  222.  wri('Hit any key to continue');
  223.  RVOFF;
  224.  read(r6);
  225.  CLEAR_SCREEN;
  226. end;
  227. Procedure SEVEN;
  228. begin
  229.  wri('                   GROWING EQUITY MORTGAGE');
  230.  wr;
  231.  wri('The GEM mortgage is a mortgage with a fixed rate of interest but');
  232.  wri('the payments increase usually 5 to 7 percent a year.  This ');
  233.  wri('increase is applied to the principle therefore you pay off the');
  234.  wri('loan in a shorter period (usually 12 to 20 years) rather than');
  235.  wri('paying for the typical 30 years.  This results in a tremendous');
  236.  wri('amount of savings in interest.  ');
  237.  wr;
  238.  wri('Those with rising incomes find this type of mortgage attractive');
  239.  wri('because you can own your home in half the time.  The dis-');
  240.  wri('advantage is you have less each year to write off for taxes.');
  241.  wr;
  242.  wr;
  243.  wr;
  244.  wr;
  245.  wr;
  246.  wr;
  247.  wr;
  248.  wr;
  249.  wr;
  250.  wr;
  251.  wr;
  252.  RVON;
  253.  wri('Hit any key to continue');
  254.  RVOFF;
  255.  read(r7);
  256.  CLEAR_SCREEN;
  257. end;
  258. Procedure EIGHT;
  259. begin
  260.  wri('                   GOVERNMENT MORTGAGES (FHA/VA)');
  261.  wr;
  262.  wri('FHA/VA mortgages are generally alittle easier to get because the');
  263.  wri('lender is insured for part of the loss (should you be foreclosed');
  264.  wri('on).  The qualification process is different also.  Under most ');
  265.  wri('conventional programs, your loan amount CANNOT exceed 28% (some');
  266.  wri('go alittle higher). Under the Gov''t programs, they usually figure');
  267.  wri('your house payment using the RESIDUAL INCOME method.  What they');
  268.  wri('do is take your GROSS income and subtract Federal Taxes/ State');
  269.  wri('taxes, a certain amount for maintenance and usually $300 for the');
  270.  wri('1st adult and $150 for each other dependant.  Whatever is left ');
  271.  wri('over (after subtracting monthly payments such as your car payment)');
  272.  wri('is available for a house payment.  Therefore, you can allocate ');
  273.  wri('35%, 38%, 40%, or higher for the house.  ');
  274.  wr;
  275.  wri('A big advantage is that all government loans are assumable. With');
  276.  wri('VA loans you typically do NOT need a down payment.  With FHA you');
  277.  wri('must put down at least 5% of the first $25,000 and 3% of the rest');
  278.  wri('up to the maxminum loan amount.  With VA loans, the SELLER  pays');
  279.  wri('the loan points.  With FHA either the BUYER or SELLER can pay ');
  280.  wri('the points or they can split the points any way they desire.');
  281.  wr;
  282.  wr;
  283.  RVON;
  284.  wri('Hit any key to continue');
  285.  RVOFF;
  286.  read(r8);
  287.  CLEAR_SCREEN;
  288. end;
  289. Procedure  NINE;
  290. begin
  291.  wr;
  292.  wr;
  293.  wr;
  294.  wri('This ends our discussion of the various typical loan types that');
  295.  wri('are available.  ');
  296.  wr;
  297.  wri('One last thing, it is YOUR hard earned money that you are spending');
  298.  wri('for that "DREAM HOUSE".  Shop around for the best deal.  Do not ');
  299.  wri('be afraid of the lenders.  They want your business.  That is one');
  300.  wri('avenue that they use to make money.  They advertise for loans ');
  301.  wri('because they want to make them.  However, they have auditors and');
  302.  wri('stockholders, etc so they will try not to make bad loans!');
  303.  wr;
  304.  wri('Be truthful and honest with them.  If you had some bad times, ');
  305.  wri('explain it to them BEFORE the credit report is ordered. Be ');
  306.  wri('UPFRONT with them.  Some do understand.');
  307.  wr;
  308.  wr;
  309.  wr;
  310.  wr;
  311.  wr;
  312.  wr;
  313.  wr;
  314.  RVON;
  315.  wri('Hit any key to return to END! ');
  316.  RVOFF;
  317.  read(r9);
  318.  CLEAR_SCREEN;
  319. end;
  320. BEGIN
  321. END.
  322. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə