home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DBA1186.ZIP / LA_PRVAL.PRG < prev    next >
Encoding:
Text File  |  1986-10-06  |  2.8 KB  |  97 lines
  1. * -- PROGRAM NAME: .......... LA_PRVAL.PRG
  2. * -- PROGRAM TITLE: ......... Loan amortization, Present value or
  3. * --                           Principal
  4. * -- AUTHOR: ................ Venkat Penugonde
  5. *                             Irvine Micro Arts, Irvine, CA
  6.  
  7. * -- SYSTEM ................. dBASE III or III +
  8.  
  9. * -- DATE FIRST CREATED .............. 08/02/86
  10. * -- DATE MOST RECENTLY MODIFIED ..... 08/21/86
  11. *
  12. *  This program calculates the present value or principal of a laon
  13. *  amortized over a given period.
  14. *
  15. *  Inputs required .........  1) Equal Periodic Payment Amount.
  16. *                             2) Total Number of Payment Periods.
  17. *                             3) Annual Interest Rate.
  18. *                             4) Number of Payment Periods per Year.
  19. *
  20. * Outputs Generated .......   1) Present Value or Principal.
  21. *
  22.  
  23. pok = 'N'
  24. DO WHILE .t.
  25.   CLEAR
  26.   payment   = 0.00
  27.   ann_rate  = 0.000
  28.   t_period  = 0
  29.   y_period  = 0
  30.   *
  31.   @   2, 27   SAY  '* -- LOAN AMORTIZATION -- *'
  32.   @   3, 27   SAY  ' Computation of Principal'
  33.   @   6, 11   SAY  'Enter Periodic Payment [0 to exit] ......... $'
  34.   @   6, 58   GET  payment PICTURE '99,999,999.99'
  35.   READ
  36.   IF payment <= 0
  37.     EXIT
  38.   ENDIF
  39.   @   7, 11   SAY  'Enter Annual Interest Rate [%] .............. '
  40.   @   7, 66   GET  ann_rate   PICTURE '99.999'
  41.   @   8, 11   SAY  'Enter Number of Payment Periods ............. '
  42.   @   8, 65   GET  t_period   PICTURE '999'
  43.   @   9, 11   SAY  'Enter Number of Payment Periods/Year ........ '
  44.   @   9, 66   GET  y_period   PICTURE '99'
  45.   READ
  46.  
  47.   IF ann_rate <= 0 .OR. t_period <= 0 .OR. y_period  <= 0
  48.     LOOP
  49.   ENDIF
  50.  
  51.   * -- Calucualte interest rate per period
  52.   int_prd =  ann_rate/(y_period * 100)
  53.  
  54.   * -- Calculate present value or principal
  55.   numerator    =   payment * (1 - (1 + int_prd)**(-t_period))
  56.   principal    =   numerator/int_prd
  57.  
  58.   pok = 'Y'
  59.   @  12, 11   SAY  'Output to Printer? [Y/N] ' GET pok  PICTURE '!'
  60.   READ
  61.   IF pok = 'Y'
  62.     ready = ' '
  63.     @  13, 11  SAY 'Turn printer on & hit any key to continue ';
  64.      GET  ready
  65.     READ
  66.     SET PRINT ON
  67.   ENDIF
  68.  
  69.   CLEAR
  70.   ?
  71.   ?
  72.   ? SPACE(27) + '* -- LOAN AMORTIZATION -- *'
  73.   ? SPACE(27) + ' Computation of Principal'
  74.   ?
  75.   ? SPACE(19) + 'PAYMENT/PERIOD            =  ' + STR(payment,13,2)
  76.   ? SPACE(19) + 'ANNUAL INTEREST RATE [%]  =  ' ;
  77.    + SPACE(8)+STR(ann_rate,6,3)
  78.   ? SPACE(19) + 'NUMBER OF PERIODS         =  ' ;
  79.    + SPACE(7)+STR(t_period,3)
  80.   ? SPACE(19) + 'NUMBER OF PERIODS/YEAR    =  ' ;
  81.    + SPACE(8)+STR(y_period,2)
  82.   ?
  83.   ? SPACE(19) + 'PRINCIPAL                 =  ' + STR(principal,13,2)
  84.   ?
  85.  
  86.   ready = ' '
  87.   WAIT  'Press Space Bar To Continue ................. ' TO ready
  88.   IF pok = 'Y'
  89.    SET PRINT OFF
  90.   ENDIF
  91. ENDDO WHILE .t.
  92. IF pok = 'Y'
  93.  SET PRINT OFF
  94. ENDIF
  95. RETURN
  96. * -- EOF LA_PRVAL
  97.