home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / COMPOUND.ZIP / COMPOUND.PRG next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  53 lines
  1. * PROGRAM   ---  COMPOUND.PRG
  2. * THIS PROGRAM IS THE MAIN MENU FOR CALCULATING THE FOLLOWING:
  3. *        FUTURE VALUE
  4. *        PRINCIPAL REQUIRED
  5. *         INTEREST RATE
  6. *        NUMBER OF PERIODS
  7.  
  8. *    PROGRAMS TAKEN FROM AUGUST 1986 DATABASE ADVISOR
  9. *              MODIFIED TO RUN WITH DBASE II, III, OR III PLUS
  10. *                   BY MITCH LUCHT (932-5555)
  11. *                   CLEVELAND HTS. OH.
  12. *       SEND MESSAGES TO PC OHIO BBS (381-3320)
  13.  
  14. SET TALK OFF
  15. SET BELL OFF
  16. STORE 'Y' TO MAINLOOP
  17. DO WHILE MAINLOOP = 'Y'
  18.    IF FILE('DBASEOVR.COM')
  19.       ERASE
  20.    ELSE
  21.       CLEAR
  22.    ENDIF
  23.    @ 2,30 SAY 'COMPOUND INTEREST '
  24.    @ 4,30 SAY '    MAIN MENU'
  25.    @  8,25 SAY 'A  ...  FUTURE VALUE'
  26.    @ 10,25 SAY 'B  ...  PRINCIPAL REQUIRED'
  27.    @ 12,25 SAY 'C  ...  INTEREST RATE'
  28.    @ 14,25 SAY 'D  ...  NUMBER OF PERIODS'
  29.    @ 16,25 SAY 'X  ...  EXIT '
  30.    STORE ' ' TO MCHOICE
  31.    DO WHILE .NOT. MCHOICE$'ABCDX'
  32.       @ 20,10 SAY 'PLEASE ENTER CHOICE ' GET MCHOICE PICTURE '!'
  33.       READ
  34.       IF .NOT. MCHOICE$'ABCDX'
  35.          ?? CHR(7)
  36.          LOOP
  37.       ENDIF
  38.    ENDDO
  39.    DO CASE
  40.    CASE MCHOICE = 'A'
  41.       DO FUTURE
  42.    CASE MCHOICE = 'B'
  43.       DO PRESENT
  44.    CASE MCHOICE = 'C'
  45.       DO INTEREST
  46.    CASE MCHOICE = 'D'
  47.       DO PERIODS
  48.    CASE MCHOICE = 'X'
  49.       STORE 'N' TO MAINLOOP
  50.    ENDCASE
  51. ENDDO
  52. QUIT
  53.