Compucolor.org – Virtual Media

Listing of file='INVANN.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'

9 PLOT 12
10 PRINT  TAB( 15)"REGULAR WITHDRAWALS FROM AN INVESTMENT"
20 PRINT :PRINT
21 PRINT "YOU INVEST $X AND PLAN TO WITHDRAW AN EQUAL AMOUNT ON A"
22 PRINT "REGULAR BASIS TILL FUNDS ARE GONE. THIS PROGRAM WILL GIVE"
23 PRINT "YOU THE MAXIMUM PERIODIC AMOUNT YOU CAN EXPECT........."
25 PRINT :PRINT
28 PLOT 6,3,14
30 INPUT "INITIAL AMOUNT INVESTED   $";P
50 INPUT "NOMINAL INTEREST RATE   ";I
70 INPUT "NUMBER OF WITHDRAWALS PER YEAR   ";N
90 INPUT "NUMBER OF YEARS   ";Y
110 I= I/ N/ 100
120 R= P* (I/ ((1+ I)^ (N* Y)- 1)+ I)
125 PLOT 6,1
126 PRINT :PRINT :PRINT
130 PRINT "AMOUNT WITHDRAWN EACH PERIOD = $"; INT (R* 100+ .5)/ 100
140 PRINT :PRINT :PRINT
145 PLOT 6,2,15
150 PRINT "A DIFFERENT INVESTED AMOUNT WILL CHANGE YOUR WITHDRAWAL AMOUNT."
151 INPUT "LIKE TO TRY ANOTHER AMOUNT   TYPE 1, IF NOT 0.  ";X
160 IF  X= 1 THEN 09
170 PLOT 1