home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dba1186.zip
/
LOANAMRT.PRG
< prev
next >
Wrap
Text File
|
1986-10-06
|
1KB
|
50 lines
* -- PROGRAM NAME: .......... LOANAMRT.PRG
* -- PROGRAM TITLE: ......... Loan Amortization Program
* -- AUTHOR: ................ Venkat Penugonde
* Irvine Micro arts, Irvine, CA
* -- SYSTEM ................. dBASE III & III +
* -- DATE FIRST CREATED: ........... 08/02/1986
* -- DATE MOST RECENTLY MODIFIED: .. 08/21/1986
SET TALK OFF
DO WHILE .t.
CLEAR
mchoice = 0
SET COLOR TO w+
@ 6, 20 SAY '* ----- LOAN AMORTIZATION PROGRAM ----- *'
SET COLOR TO w
@ 8, 20 SAY '========================================='
@ 10, 20 SAY 'LOAN REPAYMENT ........................ 1'
@ 11, 20 SAY 'PRINCIPAL OR PRESENT VALUE ............ 2'
@ 12, 20 SAY 'INTEREST RATE ......................... 3'
@ 13, 20 SAY 'NUMBER OF PERIODS ..................... 4'
@ 15, 20 SAY 'EXIT TO DBASE ......................... 0'
@ 17, 20 SAY '========================================='
@ 18, 20 SAY 'ENTER A SELECTION: '
@ 18, 39 GET mchoice PICTURE '9' RANGE 0,4
READ
* -- Process Selection
DO CASE
CASE mchoice = 0
CANCEL
CASE mchoice = 1
DO la_pmt
CASE mchoice = 2
DO la_prval
CASE mchoice = 3
SET PROCEDURE TO la_int
DO la_int
CLOSE PROCEDURE
CASE mchoice = 4
DO la_prd
ENDCASE
ENDDO WHILE .t.
RETURN
* -- EOF LOANAMRT