home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / ira.lbr / IRA.BQS / IRA.BAS
BASIC Source File  |  1987-01-27  |  768b  |  22 lines
  1. 100 LET A$="$#########,.##"
  2. 120 CLS$ =CHR$(&H1A)
  3. 140 PRINT CLS$
  4. 160 FOR I=0 TO 8:PRINT:NEXT I
  5. 180 PRINT "                             IRA CALCULATOR"
  6. 200 PRINT "                                  by Dave Huntoon 2/86"
  7. 220 PRINT:PRINT:PRINT:INPUT"    Enter INITIAL Investment ==>> ";A#
  8. 240 INPUT"    Enter Interest rate (%)  ==>> ";B#
  9. 260 LET H#=B#/100:LET K#=B#
  10. 280 LET B#=(B#/100)+1
  11. 300 INPUT"    Enter Yearly investment amount ==>> ";C#
  12. 320 INPUT"    Number of Years until Retirement ==>> ";D
  13. 340 LET Y# = A# * B#^ D
  14. 360 FOR I=1 TO D
  15. 380 LET Z#=B#^I*C#
  16. 400 LET Y#=Y#+Z#
  17. 420 NEXT I
  18. 440 PRINT:PRINT"    Amount saved  ==>> ";:PRINT USING A$;Y#
  19. 460 PRINT:PRINT: INPUT "Again (Y/N) ==>> ";G$
  20. 480 IF G$="Y" OR G$="y" THEN GOTO 140
  21. 500 END
  22. ved  ==>> ";