home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / STOCK.PC < prev    next >
Text File  |  1989-09-27  |  3KB  |  179 lines
  1. >a1:" STOCK PORTFOLIO EVALUATOR
  2. >a1:\wc23
  3. >c1:\wc10
  4. >f1:\wc11
  5. >h1:\wc7
  6. >i1:\wc9
  7. >o1:\wc12
  8. >p1:\wc10
  9. >a2:"Copyright, 1982, Perfect Software, Inc.
  10. >a3:"-----------------------------------------------------------------------
  11. >a4:"  We recommend using the manual recalculation MODE when entering 
  12. >a5:"   data on this spreadsheet (CTRL--X m {select 'm' for manual option}).
  13. >a6:"-----------------------------------------------------------------------
  14. >b7:"Exchange
  15. >c7:"  Number
  16. >d7:" Current
  17. >e7:"Purchase 
  18. >g7:" Dividend
  19. >i7:"  Date of  
  20. >j7:"  Current
  21. >k7:"   Yearly
  22. >l7:"   Yearly
  23. >m7:"  Current
  24. >n7:"  Purchase
  25. >o7:"e  Capital
  26. >p7:" Percentage
  27. >a8:"  Corporation
  28. >b8:" Symbol
  29. >c8:" of Shares
  30. >d8:"  Price
  31. >e8:"  Price
  32. >f8:"Commission
  33. >g8:" per share
  34. >h8:"e Yield
  35. >i8:"  Purchase
  36. >j8:"e   Date
  37. >k8:"    Hi
  38. >l8:"    Low
  39. >m8:"    Value
  40. >n8:"   Price
  41. >o8:"   Gain/Loss
  42. >p8:" Gain/Loss
  43. >c9:0
  44. >d9:0
  45. >e9:0
  46. >f9:0
  47. >g9:0
  48. >h9:=d9/g9@
  49. >k9:0
  50. >l9:0
  51. >m9:=c9*d9@
  52. >n9:=(c9*e9)+f9@
  53. >o9:=m9-n9@
  54. >p9:=o9/n9@
  55. >c10:0
  56. >d10:0
  57. >e10:0
  58. >f10:0
  59. >g10:0
  60. >h10:=d10/g10@
  61. >k10:0
  62. >l10:0
  63. >m10:=c10*d10@
  64. >n10:=(c10*e10)+f10@
  65. >o10:=m10-n10@
  66. >p10:=o10/n10@
  67. >c11:0
  68. >d11:0
  69. >e11:0
  70. >f11:0
  71. >g11:0
  72. >h11:=d11/g11@
  73. >k11:0
  74. >l11:0
  75. >m11:=c11*d11@
  76. >n11:=(c11*e11)+f11@
  77. >o11:=m11-n11@
  78. >p11:=o11/n11@
  79. >c12:0
  80. >d12:0
  81. >e12:0
  82. >f12:0
  83. >g12:0
  84. >h12:=d12/g12@
  85. >k12:0
  86. >l12:0
  87. >m12:=c12*d12@
  88. >n12:=(c12*e12)+f12@
  89. >o12:=m12-n12@
  90. >p12:=o12/n12@
  91. >c13:0
  92. >d13:0
  93. >e13:0
  94. >f13:0
  95. >g13:0
  96. >h13:=d13/g13@
  97. >k13:0
  98. >l13:0
  99. >m13:=c13*d13@
  100. >n13:=(c13*e13)+f13@
  101. >o13:=m13-n13@
  102. >p13:=o13/n13@
  103. >c14:0
  104. >d14:0
  105. >e14:0
  106. >f14:0
  107. >g14:0
  108. >h14:=d14/g14@
  109. >k14:0
  110. >l14:0
  111. >m14:=c14*d14@
  112. >n14:=(c14*e14)+f14@
  113. >o14:=m14-n14@
  114. >p14:=o14/n14@
  115. >c15:0
  116. >d15:0
  117. >e15:0
  118. >f15:0
  119. >g15:0
  120. >h15:=d15/g15@
  121. >k15:0
  122. >l15:0
  123. >m15:=c15*d15@
  124. >n15:=(c15*e15)+f15@
  125. >o15:=m15-n15@
  126. >p15:=o15/n15@
  127. >c16:0
  128. >d16:0
  129. >e16:0
  130. >f16:0
  131. >g16:0
  132. >h16:=d16/g16@
  133. >k16:0
  134. >l16:0
  135. >m16:=c16*d16@
  136. >n16:=(c16*e16)+f16@
  137. >o16:=m16-n16@
  138. >p16:=o16/n16@
  139. >c17:0
  140. >d17:0
  141. >e17:0
  142. >f17:0
  143. >g17:0
  144. >h17:=d17/g17@
  145. >k17:0
  146. >l17:0
  147. >m17:=c17*d17@
  148. >n17:=(c17*e17)+f17@
  149. >o17:=m17-n17@
  150. >p17:=o17/n17@
  151. >c18:0
  152. >d18:0
  153. >e18:0
  154. >f18:0
  155. >g18:0
  156. >h18:=d18/g18@
  157. >k18:0
  158. >l18:0
  159. >m18:=c18*d18@
  160. >n18:=(c18*e18)+f18@
  161. >o18:=m18-n18@
  162. >p18:=o18/n18@
  163. >f19:" ----------
  164. >h19:" ------
  165. >m19:" --------
  166. >n19:"  -------
  167. >o19:"    --------
  168. >a20:"       TOTALS
  169. >c20:=sum(c9:c18)@
  170. >f20:=sum(f9:f18)@
  171. >h20:=avg(h9:h18)@
  172. >m20:=sum(m9:m18)@
  173. >n20:=sum(n9:n18)@
  174. >o20:=sum(o9:o18)@
  175. >p20:=o20/n20@
  176. >a22:"      CURRENT EQUITY =
  177. >b22:=M20@
  178. >a1
  179.