home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 31 / iracalc.bas < prev    next >
BASIC Source File  |  1983-03-21  |  3KB  |  105 lines
  1. 10 KEY OFF:CLS
  2. 20 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  3. 30 PRINT"░┌───────────────────────────────────┐░"
  4. 40 PRINT"░│                                   │░"
  5. 50 PRINT"░│            6012-A.BAS             │░"
  6. 60 PRINT"░│          IRA CALCULATOR           │░"
  7. 70 PRINT"░│                                   │░"
  8. 80 PRINT"░│                                   │░"
  9. 90 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  10. 100 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  11. 110 PRINT"░│        █   █   █ █     █   █      │░"
  12. 120 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  13. 130 PRINT"░│        █   █     █     █   █      │░"
  14. 140 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  15. 150 PRINT"░│                                   │░"
  16. 160 PRINT"░│      International PC Owners      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░└───────────────────────────────────┘░"
  21. 210 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  22. 220 PRINT
  23. 230 PRINT "       PRESS ANY KEY TO CONTINUE
  24. 240 A$=INKEY$: IF A$="" THEN 240
  25. 250 CLS
  26. 1000 KEY OFF
  27. 1010 CLS
  28. 1020 LOCATE 2,15
  29. 1030 PRINT "Individual Retirement Account Calculation Program"
  30. 1040 PRINT
  31. 1050 REM INPUT
  32. 1060 INPUT "Beginning date as MM,DD,YYYY";A1,B1,C1
  33. 1070 PRINT
  34. 1080 INPUT "Initial deposit ";G1
  35. 1090 PRINT
  36. 1100 INPUT "Annual deposit after initial deposit";X
  37. 1110 PRINT
  38. 1120 INPUT "Rate ";H
  39. 1130 H=H/100
  40. 1140 PRINT
  41. 1150 INPUT "Number of years (maximum of 60)";I
  42. 1160 PRINT
  43. 1170 REM SET COUNTERS AND DIMENSION
  44. 1180 DIM U(I,5),G(I)
  45. 1190 A=A1: B=B1: C=C1
  46. 1200 T=0
  47. 1210 G=G1
  48. 1220 PRINT TAB(10) "INTEREST";TAB(25) "CURRENT VALUE"
  49. 1230 PRINT TAB(10) "========";TAB(25) "============="
  50. 1240 REM BEGIN NESTED LOOP
  51. 1250 FOR K=1 TO I
  52. 1260 FOR L=1 TO 4
  53. 1270 REM CALCULATE NEXT PAYMENT DATE
  54. 1280 IF A<=9 THEN D=A+3:E=B:F=C
  55. 1290 IF A=10 THEN D=1:E=B:F=C+1
  56. 1300 IF A=11 THEN D=2:E=B:F=C+1
  57. 1310 IF A=12 THEN D=3:E=B:F=C+1
  58. 1320 REM CALCULATE NUMBER OF DAYS IN PERIOD
  59. 1330 O=(C*365)+(31*(A-1))+B
  60. 1340 P=(F*365)+(31*(D-1))+E
  61. 1350 IF A<=2,GOTO 1360;ELSE GOTO 1380
  62. 1360 R=FIX((C-1)/4)+O
  63. 1370 GOTO 1390
  64. 1380 R=FIX(C/4)-FIX ((.4*A)+2.3)+O
  65. 1390 IF D<=2,GOTO 1400;ELSE GOTO 1420
  66. 1400 S=FIX((F-1)/4)+P
  67. 1410 GOTO 1430
  68. 1420 S=FIX(F/4)-FIX((.4*D)+2.3)+P
  69. 1430 T=S-R
  70. 1440 V=V+T
  71. 1450 REM CALCULATE INTEREST
  72. 1460 U(I,L)=(G*H*T)/360
  73. 1470 U(I,5)=INT(U(I,1)+U(I,2)+U(I,3)+U(I,4))
  74. 1480 REM RESET COUNTERS
  75. 1490 A=D:B=E:C=F
  76. 1500 T=0
  77. 1510 G=G+U(I,L)
  78. 1520 REM END NESTED LOOP
  79. 1530 NEXT L
  80. 1540 G(I)=INT(G)
  81. 1550 PRINT "YEAR";K;TAB(10) U(I,5);TAB(25) G(I)
  82. 1560 G=G+X
  83. 1570 NEXT K
  84. 1580 H=H*100
  85. 1590 J=G1+(X)*(I-1)
  86. 1600 W=G(I)-J
  87. 1610 REM OUTPUT
  88. 1620 PRINT
  89. 1630 PRINT "Initial deposit $"G1;TAB(28)"Starting date ";A1;B1;C1
  90. 1640 PRINT
  91. 1650 PRINT "Interest rate ";H;"%";TAB(28)"Number of days ";V
  92. 1660 PRINT
  93. 1670 PRINT "Compounded quarterly";TAB(28)"Annual deposit $";X
  94. 1680 PRINT
  95. 1690 PRINT "Total deposits $";J;TAB(28)"Total interest earned $";W
  96. 1700 PRINT
  97. 1710 ERASE U,G
  98. 1720 INPUT "Do you want to do another I.R.A. calculation (Y or N)";A$
  99. 1730 IF A$= "Y" THEN GOTO 1010
  100. 1740 IF A$= "y" THEN GOTO 1010
  101. 1750 PRINT
  102. 1760 PRINT "Good luck with your I.R.A.!"
  103. 1770 PRINT
  104. 0 IF A$= "Y" THEN GOTO 1010
  105. 1740 IF A$= "y" THEN GOTO