home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / security (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  3.2 KB  |  99 lines
  1. 1 enddata&
  2. 2 end0data
  3.  
  4. 3 enddata
  5.  
  6. 4 enddata
  7. 5 enddata
  8. 6 enddata
  9. 7 enddata
  10.  
  11. 8 endinput#
  12.  
  13. 9 enddata
  14. 10 enddata
  15. 11 enddata
  16.  
  17. 12 enddata
  18. 13 enddata
  19. 14 enddata
  20.  
  21. 15 enddata
  22.  
  23. 16 enddata
  24. 17 enddata
  25. 18 enddata
  26. 19 enddata
  27.  
  28. 20 endinput#
  29.  
  30. 21 enddata
  31. 22 enddata
  32. 23 enddata
  33.  
  34. 24 enddata
  35. 25 enddata
  36. 26 enddata
  37.  
  38. 27 enddata
  39.  
  40. 28 enddata
  41. 29 enddata
  42. 30 enddata
  43. 31 enddata
  44.  
  45. 32 endinput#
  46.  
  47. 33 enddata
  48. 34 enddata
  49. 35 enddata
  50.  
  51. 36 enddata
  52. 37 enddata
  53. 38 enddata
  54.  
  55. 513 on---------------------------------------
  56. 769 >   "[211][197][195][213][210][201][212][217]"  can maintain complete
  57. 1025 >records for each of your securities.
  58. 1281 onvalnter the name of each investment
  59. 1284 on  lenatn(NULL)left$    /
  60. 1285 onstr$right$(NULL)right$
  61. 1286 onstr$val(NULL)str$(NULL)     /
  62. 1288 on     (NULL)peek(NULL)    /
  63. 1289 on    len(NULL)(NULL)   /
  64. 1290 on(NULL)val(NULL)(NULL)    /
  65. 1291 on      len(NULL)(NULL)(NULL)   /
  66. 1292 onval(NULL)(NULL)       /
  67. 1537 on(stock,bond,mutual fund etc) in col 2;
  68. 1538 >(NULL)vallen(NULL)(NULL)right$(NULL)(NULL)
  69. 1539 onlen(NULL)(NULL)(NULL)
  70. 1540 on str$val(NULL)(NULL)(NULL)right$(NULL)valstr$
  71. 1541 on lenatn(NULL)left$ (NULL)val
  72. 1542 onright$(NULL)(NULL)val(NULL)(NULL)valstr$
  73. 1543 on right$(NULL)(NULL)val(NULL)(NULL)valstr$
  74. 1544 on   (NULL)left$atn(NULL)val(NULL)     /
  75. 1545 on (NULL)(NULL)right$lenval
  76. 1546 on  str$right$(NULL)
  77. 1547 on. (NULL)atn(NULL)(NULL)val   /
  78. 1548 on (NULL)right$val(NULL)str$
  79. 1550 on (NULL)vallen(NULL)(NULL)right$(NULL)(NULL)
  80. 1793 >the cost in col 3 and subsequent cash
  81. 1794 >------------
  82. 1795 on----------
  83. 1796 on--------
  84. 1797 on--------
  85. 1798 on--------
  86. 1799 on----------
  87. 1800 on----------
  88. 1801 on-------
  89. 1802 on--------
  90. 1803 on-----------
  91. 1804 on------
  92. 1805 on---
  93. 1806 on----------
  94. 2049 ondeposits in col 4.  str$ividends received
  95. 2305 >are entered in cols 5 & 6.  (NULL)he total
  96. 2306 >atn(NULL)val(NULL) (NULL)val(NULL)
  97. 2307 gosub(NULL)peekrem
  98. 2308 
  99.