home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / midas.ba < prev    next >
Text File  |  2006-10-19  |  796b  |  23 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS'MIDAS' from PICO MAG. APRIL 1985    p.54
  3. 10 PRINT@120,"'MIDAS' Calculates worth of investments."
  4. 20 PRINTSTRING$(40,"$"):BEEP
  5. 30 GOSUB500
  6. 40 CLS:PRINT@40,;:INPUT"  How much to invest";INVEST
  7. 50 INPUT"  Annual interest % ";RATE
  8. 60 INPUT"  Term in years     ";YEARS
  9. 70 YIELD=1+(RATE/100)
  10. 75 CLS:PRINT
  11. 80 FOR TERM = 1 TO YEARS
  12. 90 INVEST=INVEST*YIELD
  13. 100 PRINT" Worth year "TERM;:PRINTUSING":$######.##";INVEST
  14. 105 IF TERM=5 OR TERM=10 OR TERM=15 THEN GOSUB500:CLS:PRINT
  15. 110 NEXT TERM
  16. 120 GOSUB 500:BEEP:CLS
  17. 130 PRINT@124,"DO AGAIN? Y / N"
  18. 140 Z$=INKEY$
  19. 150 IF Z$="Y"OR Z$="y"THEN RUN
  20. 155 IF Z$="N"OR Z$="n"THEN MENU
  21. 160 GOTO140
  22. 500 PRINT@294,"> > ENTER < <";:IF INKEY$=""THEN 500 ELSE RETURN
  23.