bwBASIC/BP100/EPSEST.BAS

10 CLS
20 PRINT"THIS PROGRAM WILL ESTIMATE EXPECTED EARNINGS PER SHARE FOR
30 PRINT"A COMPANY BASED UPON VARIOUS CURRENT AND EXPECTED PARAMETERS.
40 PRINT
1000 REM INPUT DATA
1010 INPUT"HOW MANY YEARS INTO FUTURE SHOULD ESTIMATE BE";N
1020 INPUT"CURRENT SALES                                ";S
1030 PRINT"EXPECTED SALES IN ";N;" YEARS";:INPUT"                  ";SN
1040 INPUT"CURRENT PROFIT MARGIN                        ";PI
1050 PRINT"EXPECTED PROFIT MARGIN IN ";N;" YEARS";:INPUT"          "; PN
1060 INPUT"CURRENT TURNOVER                             ";T
1070 PRINT"EXPECTED TURNOVER IN ";N;" YEARS";:INPUT"               ";TN
1080 INPUT"CURRENT LEVERAGE                             ";L
1090 PRINT"EXPECTED LEVERAGE IN ";N;" YEARS";:INPUT"               ";LN
1100 INPUT"CURRENT PROFIT ON NET WORTH                  ";PC
1110 PRINT"EXPECTED PROFIT ON NET WORTH IN";N;"YEARS      ";:INPUT PE
1129 INPUT"CURRENT DIVIDEND PAY-OUT RATIO               ";DC
1140 PRINT"EXPECTED DIVIDEND PAY-OUT RATIO IN";N;"YEARS   ";:INPUT DE
1150 INPUT"ENTER BOOK/MARKET RATIO                      ";BM
1160 INPUT"CURRENT EARNINGS PER SHARE                   ";EP
1200 REM COMPUTING EXPECTED EPS
1210 X1=SN*PN/(S*PI):X2=SN*T*L/(S*TN*LN)
1220 X3=(1 + .5*(PC+PE)*(1-.5*(DC+DE))):X4=BM+1
1230 X5=EP*X1/((X2-X3[N)*BM+1)
1240 PRINT:PRINT "EXPECTED EARNINGS PER SHARE IN ";N;"YEARS = ";INT(X5*100+.5)/100
1250 PRINT:INPUT"PRESS ENTER TO CONTINUE";Z9
1255 IF Z9 = -1 THEN END
1260 CLS:GOTO 1000