home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DBA1186.ZIP / LOANAMRT.PRG < prev    next >
Encoding:
Text File  |  1986-10-06  |  1.4 KB  |  50 lines
  1. * -- PROGRAM NAME: .......... LOANAMRT.PRG
  2. * -- PROGRAM TITLE: ......... Loan Amortization Program
  3. * -- AUTHOR: ................ Venkat Penugonde
  4. *                             Irvine Micro arts, Irvine, CA
  5.  
  6. * -- SYSTEM ................. dBASE III & III +
  7.  
  8. * -- DATE FIRST CREATED: ...........  08/02/1986
  9. * -- DATE MOST RECENTLY MODIFIED: ..  08/21/1986
  10.  
  11.  
  12. SET TALK OFF
  13. DO WHILE .t.
  14.   CLEAR
  15.   mchoice = 0
  16.   SET COLOR TO w+
  17.   @   6, 20 SAY   '* ----- LOAN AMORTIZATION PROGRAM ----- *'
  18.   SET COLOR TO w
  19.   @   8, 20 SAY   '========================================='
  20.   @  10, 20 SAY   'LOAN REPAYMENT ........................ 1'
  21.   @  11, 20 SAY   'PRINCIPAL OR PRESENT VALUE ............ 2'
  22.   @  12, 20 SAY   'INTEREST RATE ......................... 3'
  23.   @  13, 20 SAY   'NUMBER OF PERIODS ..................... 4'
  24.   @  15, 20 SAY   'EXIT TO DBASE ......................... 0'
  25.   @  17, 20 SAY   '========================================='
  26.   @  18, 20 SAY   'ENTER A SELECTION: '
  27.   @  18, 39 GET  mchoice   PICTURE  '9'  RANGE 0,4
  28.  
  29.   READ
  30.   * -- Process Selection
  31.   DO CASE
  32.     CASE mchoice = 0
  33.       CANCEL
  34.     CASE mchoice = 1
  35.       DO  la_pmt
  36.     CASE mchoice = 2
  37.       DO  la_prval
  38.     CASE mchoice = 3
  39.       SET PROCEDURE TO la_int
  40.       DO la_int
  41.       CLOSE PROCEDURE
  42.     CASE mchoice = 4
  43.       DO la_prd
  44.   ENDCASE
  45.  
  46. ENDDO WHILE .t.
  47. RETURN
  48. * -- EOF LOANAMRT
  49.  
  50.