ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: v3.00
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'v3.00'
${ noResults }
bwBASIC/BP100/RTVAL.BAS

42 lines
2.0 KiB
Raw Permalink Blame History 

  1. 1 REM RTVAL

  2. 5 CLEAR 1000

  3. 10 CLS:PRINT TAB(10); "VALUE OF A RIGHT":PRINT

  4. 20 PRINT"THE PRIVILEGE OF A STOCKHOLDER TO SUBSCRIBE AT A STATED PRICE

  5. 25 PRINT"TO NEW ISSUES OF COMMON STOCKS IN PROPORTION TO HIS PRESENT

  6. 30 PRINT"HOLDINGS IS A RIGHT OR STOCK RIGHT. THIS PRIVILEGE IS 

  7. 35 PRINT"GENERALLY OFFERED FOR A VERY LIMITED PERIOD. DURING THIS

  8. 40 PRINT"PERIOD MAY EXERCISE HIS OFFER OR HE MAY SELL THE RIGHT TO

  9. 45 PRINT"ANOTHER INVESTOR. WHEN THE RIGHTS OFFERING IS ANNOUNCED THE

  10. 50 PRINT"BOARD OF DIRECTORS ESTABLISHES A CUTOFF DATE. ANYONE WHO

  11. 55 PRINT"PURCHASES THE STOCK BEFORE THAT DATE RECEIVES RIGHTS FOR THE

  12. 60 PRINT"NEW ISSUE. THE STOCK IS THEN SAID TO SELL RIGHTS-ON. AFTER

  13. 65 PRINT"THE CUTOFF DATE NEW PURCHASERS OF THE STOCK DO NOT GET THE 

  14. 70 PRINT"RIGHT AND THE STOCK IS TRADED EX-RIGHTS.

  15. 75 PRINT:GOSUB 10100: CLS

  16. 80 PRINT"GIVEN THE MARKET VALUE OF 1 SHARE OF STOCK SELLING RIGHTS-ON,

  17. 85 PRINT"THE SUBSCRIPTION PRICE PER SHARE, AND THE NUMBER OF RIGHTS 

  18. 90 PRINT"REQUIRED TO PURCHASE ONE SHARE OF STOCK THIS PROGRAM WILL

  19. 95 PRINT"COMPUTE THE MARKET VALUE OF 1 RIGHT WHEN THE STOCK IS SELLING

  20. 100 PRINT"RIGHTS-ON, THE THEORETICAL VALUE OF ONE SHARE OF STOCK WHEN 

  21. 105 PRINT"IT GOES EX-RIGHTS, AND THE THEORETICAL VALUE OF 1 RIGHT

  22. 110 PRINT"WITH THE STOCK SELLING EX-RIGHTS.

  23. 120 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$

  24. 200 CLS

  25. 210 INPUT"ENTER MARKET VALUE OF 1 SHARE RIGHTS-ON";P0

  26. 220 INPUT"ENTER SUBSCRIPTION PRICE PER SHARE     ";S

  27. 230 INPUT"ENTER # RIGHTS NEEDED TO BUY 1 SHARE   ";N

  28. 300 R0=(P0-S)/(N+1):REM MARKET VALUE OF 1 RIGHT - RIGHTS-ON

  29. 310 PX=(P0*N+S)/(N+1):REM VALUE 1 SHARE EX-RIGHTS

  30. 320 RX=(PX - S)/N:REM VALUE 1 RIGHT - EX RIGHTS

  31. 400 REM PRINT

  32. 410 PRINT:PRINT

  33. 420 PRINT"MARKET VALUE OF 1 RIGHT - RIGHTS-ON       ";R0

  34. 430 PRINT"THEORETICAL VALUE OF 1 SHARE EX-RIGHTS    ";PX

  35. 440 PRINT"THEORETICAL VALUE OF 1 RIGHT EX-RIGHTS    ";RX

  36. 450 PRINT

  37. 460 INPUT"PRESS ENTER FOR MORE COMPUTATION";Z9$

  38. 465 IF Z9$ = "-1" THEN END

  39. 470 GOTO 200

  40. 10000 PRINT"INPUT ERROR! TRY AGAIN!":FOR Z=1TO300:NEXT:RETURN

  41. 10100 INPUT"PRESS ENTER TO CONTINUE";Z9$:RETURN