home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-LA1.LBR / LAHELP.IQC / LAHELP.INC
Text File  |  2000-06-30  |  12KB  |  251 lines
  1. {LAHELP.INC - help file include for LoanAmort}
  2. PROCEDURE LaHelp1 (Hline : string80);
  3.     var
  4.         Select : char;
  5.     Begin
  6.         Select := UpCase(Copy(Hline,3,1));
  7.         Case Select of
  8.             'P' : Begin
  9.                       WriteLn(
  10. '     P - Option P allows for changing the PRINCIPAL amount of the loan.  You');
  11.                       WriteLn(
  12. '         may wish to see payment differences for the same loan when the');
  13.                       WriteLn(
  14. '         amount borrowed changes, or you may wish to amortize several loans');
  15.                       WriteLn(
  16. '         without exiting the program and restarting.');
  17.                   end; (* Begin 'P' *)
  18.             'I' : Begin
  19.                       WriteLn(
  20. '     I - Option I allows for changing the INTEREST RATE of the loan.  This');
  21.                       WriteLn(
  22. '         is treated as a FIXED rate for the term of the loan, or the first');
  23.                       WriteLn(
  24. '         rate when VARYING RATE loans are examined (see second menu "V").');
  25.                   end; (* Begin 'I' *)
  26.             'T' : Begin
  27.                       WriteLn(
  28. '     T - Option T is for setting the TERM of the loan.  This is to be the');
  29.                       WriteLn(
  30. '         number of payments assuming the loan is to go to full maturity.');
  31.                       WriteLn(
  32. '         Unless changed via options on menu 2, this will also be in months');
  33.                       WriteLn(
  34. '         and the interest will be compounded each term.');
  35.                   end; (* Begin 'T' *)
  36.             'F' : Begin
  37.                       WriteLn(
  38. '     F - Option F is for setting the date of the FIRST PAYMENT to be made');
  39.                       WriteLn(
  40. '         on the loan.  Unless changed on menu 2, this assumes one full term');
  41.                       WriteLn(
  42. '         (and only one) passes before this date');
  43.                   end; (* Begin 'F' *)
  44.             'N' : Begin
  45.                       WriteLn(
  46. '     N - Option N is useful for adding NON EQUITY amounts to the total pay-');
  47.                       WriteLn(
  48. '         ment of the loan.  Such items may be property taxes paid with the');
  49.                       WriteLn(
  50. '         loan payment, insurance, etc.');
  51.                   end; (* Begin 'N' *)
  52.             'E' : Begin
  53.                       WriteLn(
  54. '     E - Option E is for adding EQUITY PAYMENTS to the total payment of the');
  55.                       WriteLn(
  56. '         loan.  Extra payment amounts will reduce the balance of the loan');
  57.                       WriteLn(
  58. '         faster, pay the loan off earlier, and reduce the total interest');
  59.                       WriteLn(
  60. '         over the life of the loan.  Unless you set a different date, the');
  61.                       WriteLn(
  62. '         extra payment will begin with the first payment date.  Use menu 2');
  63.                       WriteLn(
  64. '         to allow for changing this during the life of the loan.');
  65.                   end; (* Begin 'E' *)
  66.             'S' : Begin
  67.                       WriteLn(
  68. '     S - Option S is used in conjunction with E.  It is used when you are');
  69.                       WriteLn(
  70. '         going to START EXTRA PAYMENTS at a date other than the first pay-');
  71.                       WriteLn(
  72. '         ment.  Menu 2 must be used to stop extra payments.');
  73.                   end; (* Begin 'S' *)
  74.             'D' : Begin
  75.                       WriteLn(
  76. '     D - Option D is used in conjunction with B.  It may be used to change');
  77.                       WriteLn(
  78. '         the date a balloon payoff is DUE.  You need not use this option');
  79.                       WriteLn(
  80. '         unless you have entered a date under option B which you wish to');
  81.                       WriteLn(
  82. '         change.');
  83.                   end; (* Begin 'D' *)
  84.             'B' : Begin
  85.                       WriteLn(
  86. '     B - Option B is used to change to/from BALLOON PAYOFF type of loans.');
  87.                       WriteLn(
  88. '         When this option is chosen, you must enter a date for the balloon');
  89.                       WriteLn(
  90. '         to take place.  The program will pay off the loan at this time,');
  91.                       WriteLn(
  92. '         showing the final payment amount (including any NON EQUITY payment)');
  93.                       WriteLn(
  94. '         on the last screen of the display.');
  95.                   end; (* Begin 'B' *)
  96.             'X' : Begin
  97.                       WriteLn(
  98. '     X - Option X is used to enter the EXTENDED FUNCTIONS menu, menu 2.');
  99.                       WriteLn(
  100. '         Help on menu 2 options is available only while looking at menu 2.');
  101.                       WriteLn;
  102.                       WriteLn;
  103.                       WriteLn(
  104. ' NOTE - Menu 2 is not implemented in this version of the program.  V2.0');
  105.                       WriteLn(
  106. '        (expected soon) will contain the extended options. (LLS)');
  107.                   end; (* Begin 'X' *)
  108.             'R' : Begin
  109.                       WriteLn(
  110. '     R - Option R begins the amortization RECALCULATION, using the figures');
  111.                       WriteLn(
  112. '         you have most recently entered.  Each recalculation will begin by');
  113.                       WriteLn(
  114. '         offering the option of output going to the screen or printer.');
  115.                   end; (* Begin 'R' *)
  116.             'Q' : Begin
  117.                       WriteLn(
  118. '     Q - Option Q is used to QUIT the program.  Other than turning the com-');
  119.                       WriteLn(
  120. '         puter off or entering invalid numbers, it is the only way to leave');
  121.                       WriteLn(
  122. '         the LA program and re-enter the operating system.');
  123.                   end; (* Begin 'Q' *)
  124.         end; (* Case *)
  125.         GotoXY(22,24);
  126.         Write('[DEPRESS ENTER KEY TO RETURN TO MENU]');
  127.         Read(InKey);
  128.     end; (* LaHelp1 *)
  129.  
  130. PROCEDURE LaHelp2 (Hline : string80);
  131.     var
  132.         Select : char;
  133.     Begin
  134.         Select := UpCase(Copy(Hline,3,1));
  135.         Case Select of
  136.             'B' : Begin
  137.                       WriteLn(
  138. '     B - Option B allows you to set a date for the BEGINNING of the loan.');
  139.                       WriteLn(
  140. '         Setting this date is critical if more than one interest period is');
  141.                       WriteLn(
  142. '         to pass before the first payment is to be made.');
  143.                   end; (* Begin 'B' *)
  144.             'C' : Begin
  145.                       WriteLn(
  146. '     C - Option C enables you to change the COMPOUNDING period.  You will');
  147.                       WriteLn(
  148. '         Be given an option menu of DAILY (360 days/year), WEEKLY, BI-MONTHLY,');
  149.                       WriteLn(
  150. '         MONTHLY, QUARTERLY, or YEARLY.');
  151.                   end; (* Begin 'C' *)
  152.             'P' : Begin
  153.                       WriteLn(
  154. '     P - Option P allows the setting of the PAYMENT term.  This is needed');
  155.                       WriteLn(
  156. '         whenever the default of MONTHLY is not appropriate.  An option');
  157.                       WriteLn(
  158. '         of WEEKLY, BI-MONTHLY, MONTHLY, QUARTERLY, or YEARLY is presented');
  159.                       WriteLn(
  160. '         and one of these must be selected.');
  161.                   end; (* Begin 'P' *)
  162.             'E' : Begin
  163.                       WriteLn(
  164. '     E - Option E permits you to enter up to 40 new EXTRA EQUITY payments');
  165.                       WriteLn(
  166. '         and dates.  Zero can be used to stop an EXTRA EQUITY payment at');
  167.                       WriteLn(
  168. '         a specific date.');
  169.                   end; (* Begin 'E' *)
  170.             'V' : Begin
  171.                       WriteLn(
  172. '     V - Option V allows for a method of attempting to handle VARIABLE RATE');
  173.                       WriteLn(
  174. '         loans.  It will allow you to enter a fixed number of payments between');
  175.                       WriteLn(
  176. '         rate changes and a fixed increment/decrement of the rate.  The prog-');
  177.                       WriteLn(
  178. '         ram will stop at each interval, increase or decrease the current');
  179.                       WriteLn(
  180. '         rate by the fixed amount, recalculate the remaider of the loan and');
  181.                       WriteLn(
  182. '         begin to amortize with the new interest rate and payment.  As an');
  183.                       WriteLn(
  184. '         alternative to this method, you may select to enter (up to 40)');
  185.                       WriteLn(
  186. '         specific dates with the new interest rate to be effective at that');
  187.                       WriteLn(
  188. '         date.  The recalculations will now take place at the dates you have');
  189.                       WriteLn(
  190. '         specified with the new rates you have entered.');
  191.                   end; (* Begin 'V' *)
  192.             'M' : WriteLn('     M - Option M is used to return to menu 1.');
  193.             'R' : WriteLn('     R - Option R is used to start RECALCULATION.');
  194.             'Q' : WriteLn('     Q - Option Q is used to QUIT the LA program.');
  195.         end; (* Case *)
  196.         GotoXY(22,24);
  197.         Write('[DEPRESS ENTER KEY TO RETURN TO MENU]');
  198.         Read(InKey);
  199.     end; (* LaHelp2 *)
  200.  
  201. PROCEDURE LaHelp (Hline : string80);
  202.     Begin
  203.         ClrScr;
  204.         GotoXY(29,01);Write(Sign_OnA);
  205.         GotoXY(24,02);Write(Sign_OnB);
  206.         GotoXY(01,04);
  207.         If Length(Hline) < 3 then
  208.             Begin
  209.                 WriteLn(
  210. '     This program is designed to allow flexible loan amortization of common');
  211.                 WriteLn(
  212. ' loans.  It assumes defaults of:  FIXED rate, MONTHLY payments, MONTHLY com-');
  213.                 WriteLn(
  214. ' pounding of interest and CALENDAR YEAR interest totals.  This is done due');
  215.                 WriteLn(
  216. ' to my personal greatest use for loan amortization.');
  217.                 WriteLn;
  218.                 WriteLn(
  219. '     However, I recognize the need of expanded functions and have included');
  220.                 WriteLn(
  221. ' the ability to create BALLOON payment dates, have YEARLY/QUARTERLY/MONTHLY/');
  222.                 WriteLn(
  223. ' BI-MONTHLY/WEEKLY payment periods, compound at YEARLY/QUARTERLY/MONTHLY/');
  224.                 WriteLn(
  225. ' BI-MONTHLY/WEEKLY/DAILY periods, and start and stop EXTRA EQUITY payments.');
  226.                 WriteLn;
  227.                 WriteLn(
  228. '     Two menus are used to set/reset these features.  The first is the menu');
  229.                 WriteLn(
  230. ' from which you chose  "H"  to see this screen.  The second may be viewed');
  231.                 WriteLn(
  232. ' by seclecting  "X"  from the first menu.  You may return to the first menu');
  233.                 WriteLn(
  234. ' by chosing  "M"  while on the second menu, or you will automatically return');
  235.                 WriteLn(
  236. ' after each  "R"  recalculation.');
  237.                 WriteLn;
  238.                 WriteLn(
  239. '     To obtain more details about each feature, enter  "H  *"  at the OPTION');
  240.                 WriteLn(
  241. ' input area, where "*" is the letter of the OPTION you wish to have explained');
  242.                 GotoXY(22,24);
  243.                 Write('[PRESS ENTER KEY TO RETURN TO MENU]');
  244.                 Read(InKey);
  245.             end   (* Begin *)
  246.         Else
  247.             If Menu1 then
  248.                 LaHelp1(Hline)
  249.             Else
  250.                 LaHelp2(Hline);
  251.     end; (* LaHelp *)