Radio Shack TRS-80 - Page 210

10 REM
*
FROM
FORBES 6/1/77,
P.
90.
ARTICLE BY BROWN
*
20 P."
***PRQJECTS TARGET
DOW-JONES
INDUSTRIAL
AVERAGE AS
A"
30 P.
"
FUNCTION OF
YEARS DJI
EARNINGS
AND
INFLATION RATE***
"
40
P.
50 REM
*
K
=
COST OF MONEY.
ASSUME 3*
*
60 K=.03
70
REM
*
P
=
RISK
PREMIUM OF STOCKS
OVER
BONDS.
ASSUME 1*
*
80
P=,01
85 Y=I
86
N=0
90
P, "DO YOU
KNOW
YEARS PROJECTED
EARNINGS OF
30 DJI ( Y/N
)
"
[
102
INPUT
A
110 IF A
=
1 THEN 270
120 P.
130
P." THIS METHOD
WILL
GIVE AN
EARNINGS
APPROXIMATION USING"
140
P." THE NEWSPAPER PRICES
AND P/E RATIOS.
BETTER
FORECASTS"
14S P
.
" OF EACH
COMPANY'S
EARNINGS
MAY
GIVE
AN IMPROVED"
150 P." OVERALL FORECAST."
160 P.
170 D=0
175 FOR N
=
1 TO 30
180 READ
At
Zee P.
"
WHAT IS
THE CURRENT
PRICE OF
>-->
"
;A*
;
"
<
—<"
;
210 INPUT P
220 P."
THE
CURRENT P/E
RATIO"
[
230 INPUT
R
240
E=P/R
£50 D=E+D
260
N.N
265 P.
208
266 G.310
270 P." WHAT IS THE TOTAL
PROJECTED
EARNINGS
FOR
1
SHARE OF"
|
280
P
.
"
EACH
"
;
285 INPUT D
290 REM
*
I
=
ESTIMATED INFLATION RATE
*
310 P."
WHAT PERCENTAGE IS THE
INFLATION
RATE"
[
320 INPUT I
330
T
=
D/IK+P+I* .01
)
340
R=T/D
350
P,
360
P
,
"
I NFL . RATE
"
,
"
DJI
EARN .
"
,
"
PRO
J
D
J
AVG
"
,
"
AVG/EARN
RATIO
"
370 P.
380 P.
I
,D,T,R
390 D.
ALLIED CHEM,
ALCOA,
AMER
BRANDS, AMER CAN,
A.T.&T
400 O,
BETH STEEL,
CHRYSLER,
DUPONT,
E.
KODAK
,
ESMARK,
EXXON
410 D.G.E..
GEN FOODS,
GEN
MOTORS,
GOODYEAR, INCO
420 D.INT. HARV.,
INT. PAPER,
JOHNS-MAN, MINN MM,
OWENS-ILLS
430
D.PROCTER t G.,
SEARS, STD OIL
CAL
,
TEXACO, UNION CARBIDE
440 D.U.S. STEEL, UNITED
TECHNOL.
,
WEST I
NGHOU5E
,
WOOL WORTH
On
A Snowy
Evening
.
. .
by
Robert Frost
Who
says
computers only
make stuffy
mathematical
calculations and are not for
folks
who
appreciate the
better
things. If this
one
doesn't
grab you, nothing will.
40
CLS
50
P,AT7," ON A
SNOWY
EVENING ..
55
F.N=1TO2000:N.N
68 F
.Z=1TO300
.BY ROBERT
FROST"