5 CLS
10 PRINT"     VALUE OF A SHARE OF STOCK"
20 PRINT
30 PRINT"wHEN AN INVESTOR BUYS A STOCK HE HOPES FOR SOME FUTURE
40 PRINT"RETURN, EITHER THROUGH DIVIDENDS OR CAPITAL GAINS.
50 PRINT"HOWEVER STOCKHOLDERS IN GENERAL,OVER THE LONG HAUL,
60 PRINT"ONLY GET CASH DIVIDENDS OUT OF THE STOCK. MANY WHO SUBSCRIBE
65 PRINT"TO THE PRECEDIMG BELIEVE THAT ANY STOCK VALUATION MODEL
70 PRINT"SHOULD CONSIDER ONLY DIVIDENDS.SUCH IS THE MODEL OF THIS
80 PRINT"PROGRAM. WE SHALL ASSUME THAT WE KNOW THE PRICE OF A SHARE
85 PRINT"OF A CERTAIN STOCK,THE PRESENT ANNUAL CASH DIVIDEND, AND
90 PRINT"AN EXPECTED GROWTH RATE FOR DIVIDENDS WHICH WE ASSUME WILL
93 PRINT"LAST INDEFINITELY. FROM THIS DATA WE GET OUR EXPECTED
95 PRINT"RATE OF RETURN ON INVESTMENT FOR THE STOCK. 
98 INPUT "PRESS ENTER TO BEGIN";Z9
100 CLS
110 INPUT"THE PRESENT PRICE OF 1 SHARE OF THE STOCK = ";P
120 INPUT"THE PRESENT ANNUAL CASH DIVIDEND          = ";D0
130 INPUT"EXPECTED RATE OF DIVIDEND GROWTH(IN %)    = ";G
140 G=G/100
150 R= D0*(1+G)/P+G
160  PRINT
170 PRINT "EXPECTED LONG RUN RATE OF RETURN = ";100*R;"%"
180 PRINT
190 INPUT "PRESS ENTER FOR MORE STOCKS";Z9
192 IF Z9 = -1 THEN END
195 GOTO 100
