home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MISC / FINANCE / INVEST.LBR / CSHRPMOD.BZS / CSHRPMOD.BAS
BASIC Source File  |  2000-06-30  |  1KB  |  31 lines
  1. 10 REM EQUITY VALUATION: AN INFLATION, EARNINGS AND BETA MODEL
  2. 20 REM  FROM AN ARTICLE WRITTEN BY ROBERT M. SHARP
  3. 30 REM  IN THE MARCH 1983 ISSUE OF THE AAII JOURNAL
  4. 40 PRINT CHR$(26)
  5. 50 PRINT: PRINT: PRINT:PRINT
  6. 60 PRINT "ENTER THE ESTIMATED EARNINGS PER SHARE ";
  7. 70 INPUT E
  8. 80 PRINT:PRINT "ENTER THE CURRENT INFLATION RATE (%)";
  9. 90 INPUT I
  10. 100 PRINT:PRINT "ENTER THE STOCK'S BETA FACTOR ";
  11. 110 INPUT B
  12. 120 PRINT:PRINT "ENTER THE CURRENT STOCK PRICE ";
  13. 130 INPUT SP
  14. 140 PE = 100/(3.77 + .85*(I))
  15. 150 V = E*B*PE
  16. 160 PV = SP/V
  17. 170 PE = INT(PE*100+.5)/100
  18. 180 V = INT(V*100+.5)/100
  19. 190 PV = INT(PV*100+.5)/100
  20. 200 PRINT:PRINT
  21. 210 PRINT:PRINT "ESTIMATED EARNINGS PER SHARE = ";E;"  INFLATION RATE = ";I
  22. 220 PRINT "STOCK BETA FACTOR = ";B;" CURRENT STOCK PRICE = ";SP
  23. 230 PRINT:PRINT
  24. 240 PRINT:PRINT "ESTIMATED PRICE/EARNINGS MULTIPLE = ";PE
  25. 250 PRINT:PRINT "MODEL VALUATION ESTIMATE = $";V
  26. 260 PRINT:PRINT "PRICE/VALUE RELATIONSHIP =";PV
  27. 270 PRINT:PRINT "DO YOU WISH TO RUN THIS PROGRAM AGAIN? (Y OR N)";
  28. 280 INPUT A$
  29. 290 IF A$ = "Y" OR A$ = "y" THEN GOTO 10
  30. 320 END
  31. INT:PRINT "DO YOU WISH TO RUN THIS PROGRAM AGAIN? (Y OR N