home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / invstmnt.lbr / COMMSN.BQS / COMMSN.BAS
Encoding:
BASIC Source File  |  1985-02-10  |  2.9 KB  |  68 lines
  1. 1 REM "COMMISSION.BAS" by Robert S. Blacher (August, 1983)
  2. 2 REM Program compares commissions charged by Merrill Lynch and
  3.   Charles Schwab
  4. 5 CLEAR
  5. 7 INPUT "(B)UY, (S)ELL, OR (Q)UIT";Q$: IF Q$ ="Q" THEN PRINT "GOODBYE!": GOTO 600
  6. 10 INPUT "HOW MANY SHARES";N
  7. 20 INPUT "PRICE PER SHARE";P
  8. 30 D=N*P
  9. 100 REM MERRILL LYNCH
  10. 105 IF D<300 THEN C=D*.1: GOTO 180
  11. 110 IF N>=101 THEN GOTO 200
  12. 140 IF D <801 THEN C=8.43+(D*.02696): GOTO 180
  13. 145 IF D < 2501 THEN C=16.85+(N*.0315)+(D*.01685):GOTO 180
  14. 150 IF D< 5001 THEN C=29.21 +(N*.0315)+ (D*.01236):GOTO 170
  15. 155 IF D < 20001 THEN C=31.46 +(N*.0315) + (D*.01236): GOTO 175
  16. 160 IF D>=20001 THEN C=92
  17. 161 GOTO 180
  18. 170 IF C>87 THEN X=87 ELSE X=C
  19. 171 GOTO 300
  20. 175 IF C>92 THEN X=92 ELSE X=C
  21. 176 GOTO 300
  22. 180 X=C:GOTO 300
  23. 200 IF D <801 THEN C=8.43+(N*.0785)+(D*.02696): IF C>D*.1 THEN C=D*.1:GOTO 270
  24. 205 IF D < 2501 THEN C=18.95+(N*.0893)+(D*.01685): GOTO 270
  25. 210 IF D< 5001 THEN C=31.31 +(N*.0893)+ (D*.01236):GOTO 270
  26. 215 IF D < 20001 THEN C=33.56 +(N*.0945) + (D*.01236):GOTO 270
  27. 220 IF D< 30001 THEN C=114.45 +(N*.0945) + (D*.00843): GOTO 270
  28. 225 IF D < 300001! THEN C= 199.84 +(N*.0945) +(D*.00562): GOTO 270
  29. 230 IF D>= 300001! THEN C= 1209.86 + (N*.0945) +(D*.00225)
  30. 270 IF D<=5000 THEN X=N*.87 ELSE X=N*.92
  31. 300 IF D>300 THEN M=30 ELSE M=0
  32. 310 PRINT "****** MERRILL LYNCH ******"
  33. 320 IF C<M THEN C=M
  34. 330 IF C>X THEN C=X
  35. 335 PRINT "COMMISSION = $";:PRINT USING "######.##";CDBL(C)
  36. 340 PRINT "AMOUNT = $";:PRINT USING "######.##";CDBL(D)
  37. 350 IF Q$="S" THEN T = D - C ELSE T=D + C
  38. 360 NETP=T/N
  39. 370 PRINT "NET AMOUNT = $";:PRINT USING "######.##";CDBL(T)
  40. 380 PRINT "NET PRICE PER SHARE = $";NETP
  41. 390 PRINT "COMMISSION PER SHARE = $";:PRINT USING "######.###";C/N
  42. 395 ML=C
  43. 400 REM SCHWAB COMMISSION
  44. 440 IF D <3001 THEN C=18+(D*.012): GOTO 470
  45. 450 IF D < 7001 THEN C=36+(D*.006): GOTO 470
  46. 460 IF D>= 7001 THEN C= 57 + (D*.003)
  47. 470 IF N<=600 THEN M=N*.08 ELSE M=48 + (N-600)*.04
  48. 480 IF N>=100 THEN X=N*.45 ELSE X=C
  49. 485 PRINT "****** SCHWAB ******":
  50. 490 IF C<M THEN C=M
  51. 495 IF C>X THEN C=X
  52. 500 PRINT "COMMISSION = $";: PRINT USING "######.##";CDBL(C)
  53. 505 PRINT "AMOUNT = $";:PRINT USING "######.##";CDBL(D)
  54. 510 IF D>56000! THEN PRINT "AMOUNT OVER $56,000. CALL SCHWAB FOR QUOTE.":GOTO 5 
  55. 520 IF Q$="S" THEN T=D-C ELSE T=D+C
  56. 525 NETP=T/N
  57. 530 PRINT "NET AMOUNT = $";:PRINT USING "######.##";CDBL(T)
  58. 535 PRINT "NET PRICE PER SHARE = $";NETP
  59. 538 PRINT "COMMISSION PER SHARE = $";:PRINT USING "######.###";C/N
  60. 539 IF ML>C THEN DIF=ML-C ELSE DIF=C-ML
  61. 540 PRINT "***********": PRINT "DIFFERENCE = $";DIF;,"PER SHARE = $";DIF/N
  62. 545 PRINT "***********"
  63. 547 IF ML>C THEN PRINT "SCHWAB WINS" ELSE PRINT "MERRILL LYNCH WINS"
  64. 548 IF ML>C THEN W=100*DIF/C:PRINT "MERRILL LYNCH COMMISSION IS GREATER BY";W;"PER CENT"  ELSE W=100*DIF/ML: PRINT "SCHWAB COMMISSION IS GREATER BY";W;"PER CENT"
  65. 549 PRINT "***********"
  66. 550 GOTO 5
  67. 600 END
  68.  CENT"  ELSE W=100*DIF/ML