home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
compound
/
compound.prg
next >
Wrap
Text File
|
1979-12-31
|
1KB
|
53 lines
* PROGRAM --- COMPOUND.PRG
* THIS PROGRAM IS THE MAIN MENU FOR CALCULATING THE FOLLOWING:
* FUTURE VALUE
* PRINCIPAL REQUIRED
* INTEREST RATE
* NUMBER OF PERIODS
* PROGRAMS TAKEN FROM AUGUST 1986 DATABASE ADVISOR
* MODIFIED TO RUN WITH DBASE II, III, OR III PLUS
* BY MITCH LUCHT (932-5555)
* CLEVELAND HTS. OH.
* SEND MESSAGES TO PC OHIO BBS (381-3320)
SET TALK OFF
SET BELL OFF
STORE 'Y' TO MAINLOOP
DO WHILE MAINLOOP = 'Y'
IF FILE('DBASEOVR.COM')
ERASE
ELSE
CLEAR
ENDIF
@ 2,30 SAY 'COMPOUND INTEREST '
@ 4,30 SAY ' MAIN MENU'
@ 8,25 SAY 'A ... FUTURE VALUE'
@ 10,25 SAY 'B ... PRINCIPAL REQUIRED'
@ 12,25 SAY 'C ... INTEREST RATE'
@ 14,25 SAY 'D ... NUMBER OF PERIODS'
@ 16,25 SAY 'X ... EXIT '
STORE ' ' TO MCHOICE
DO WHILE .NOT. MCHOICE$'ABCDX'
@ 20,10 SAY 'PLEASE ENTER CHOICE ' GET MCHOICE PICTURE '!'
READ
IF .NOT. MCHOICE$'ABCDX'
?? CHR(7)
LOOP
ENDIF
ENDDO
DO CASE
CASE MCHOICE = 'A'
DO FUTURE
CASE MCHOICE = 'B'
DO PRESENT
CASE MCHOICE = 'C'
DO INTEREST
CASE MCHOICE = 'D'
DO PERIODS
CASE MCHOICE = 'X'
STORE 'N' TO MAINLOOP
ENDCASE
ENDDO
QUIT