10 REM EQUITY VALUATION: AN INFLATION, EARNINGS AND BETA MODEL
20 REM  FROM AN ARTICLE WRITTEN BY ROBERT M. SHARP
30 REM  IN THE MARCH 1983 ISSUE OF THE AAII JOURNAL
40 PRINT CHR$(26)
50 PRINT: PRINT: PRINT:PRINT
60 PRINT "ENTER THE ESTIMATED EARNINGS PER SHARE ";
70 INPUT E
80 PRINT:PRINT "ENTER THE CURRENT INFLATION RATE (%)";
90 INPUT I
100 PRINT:PRINT "ENTER THE STOCK'S BETA FACTOR ";
110 INPUT B
120 PRINT:PRINT "ENTER THE CURRENT STOCK PRICE ";
130 INPUT SP
140 PE = 100/(3.77 + .85*(I))
150 V = E*B*PE
160 PV = SP/V
170 PE = INT(PE*100+.5)/100
180 V = INT(V*100+.5)/100
190 PV = INT(PV*100+.5)/100
200 PRINT:PRINT
210 PRINT:PRINT "ESTIMATED EARNINGS PER SHARE = ";E;"  INFLATION RATE = ";I
220 PRINT "STOCK BETA FACTOR = ";B;" CURRENT STOCK PRICE = ";SP
230 PRINT:PRINT
240 PRINT:PRINT "ESTIMATED PRICE/EARNINGS MULTIPLE = ";PE
250 PRINT:PRINT "MODEL VALUATION ESTIMATE = $";V
260 PRINT:PRINT "PRICE/VALUE RELATIONSHIP =";PV
270 PRINT:PRINT "DO YOU WISH TO RUN THIS PROGRAM AGAIN? (Y OR N)";
280 INPUT A$
290 IF A$ = "Y" OR A$ = "y" THEN GOTO 10
320 END