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