home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / d2stock (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  122 lines
  1. 10 open4,4:cmd4:printchr$(27)"e"chr$(27)"g"
  2. 20 print"print menu options"chr$(27)"f"chr$(27)"h"chr$(13)chr$(15)
  3. 25 print"1 - print all          the first print m";
  4. 30 print"enu  option will format a  listing of all ";
  5. 35 print"the stocks listed in the market you are currently"
  6. 40 print"                     entered in.   the re";
  7. 45 print"cords displayed contain the following  in";
  8. 50 print"formation:  full name, symbol, high, low, and all"
  9. 55 print"                     the quotes  (display";
  10. 60 print"ed form new to old).   when the printing ";
  11. 65 print"is completed, the program will returne you to the"
  12. 70 print"                     main menu.":print
  13. 75 print"2 - print selective    this option will ";
  14. 80 print"allow you to pick out a single  stock at ";
  15. 85 print"a time,  and print the same information  discribed"
  16. 90 print"                     above.  when printi";
  17. 95 print"ng is complete, you will have the option of ";
  18. 100 print"returning to the main menu, or printing another"
  19. 105 print"                     record.":print
  20. 110 print"3 - list               option 3 creates ";
  21. 115 print"an  alphabetical listing of all stocks in";
  22. 120 print" the market currently runing.   this list contains"
  23. 125 print"                     the following data: ";
  24. 130 print"  stock name, stock symbol, the number o";
  25. 135 print"f individual  records on file, and the time of the"
  26. 140 print"                     last update.  upon ";
  27. 145 print"completion, option 3 will return you to the main menu.":print
  28. 150 print"4 - graph              this is the routi";
  29. 155 print"ne you will find most usefull.   after de";
  30. 160 print"pressing "chr$(34)"4"chr$(34)"  you will be asked to return a stocks"
  31. 165 print"                     name (you may index ";
  32. 170 print"the stock by a partial name or symbol, a";
  33. 175 print"s described earler). a self-adjusting graph of the"
  34. 180 print"                     stocks progress will ";
  35. 185 print"be formatted to your printer.   self-adju";
  36. 190 print"sting in that the top of the page  is always the"
  37. 195 print"                     high quote,   and the b";
  38. 200 print"ottom is the low.   therefore all points ";
  39. 205 print"in between  are in their proper  relationship."
  40. 210 print"                     after the  graph is complete";
  41. 215 print"d  you have the option of  graphing anothe";
  42. 220 print"r stock,  or returning to the main menu.":print
  43. 225 print"5 - main menu          option 5 allows y";
  44. 230 print"ou to exit back to the main menu.":print:print
  45. 235 printchr$(27)"e"chr$(27)"g";"control options"chr$(27)"f"chr$(27)"h":print
  46. 240 printchr$(15)"  there are three very usefull options t";
  47. 245 print"hat are not listed on either menu,  these";
  48. 250 print" are the control options.  each of wich may be set"
  49. 255 print"off from  within the print menu  or the ma";
  50. 260 print"in menu.  to activate,  hold down the con";
  51. 265 print"trol key (marked "chr$(34)"ctrl"chr$(34)") and press the first key"
  52. 270 print"of the option name as described below.":print
  53. 280 print"auto-input         control/a   will allow ";
  54. 285 print" you to enter  updates of stock records w";
  55. 290 print"ithout keying in the stock name.   all stocks on"
  56. 295 print"                 file will be alphabetic";
  57. 300 print"ly displayed, one at a time.  you will b";
  58. 305 print"e prompted to return a quotation update.  if you do"
  59. 310 print"                 not have anything to ad";
  60. 315 print"d,  then press return  and the display wil";
  61. 320 print"l scroll to the next record.   if you wish add an"
  62. 325 print"                 update then return it a";
  63. 330 print"nd you will be asked if you wish to add ";
  64. 335 print"another or return to the file scroll.   if you wish"
  65. 340 print"                 to end the auto-input s";
  66. 345 print"croll depress the run/stop key when prompted "chr$(34);
  67. 350 print"r-return or n-next"chr$(34)".":print
  68. 355 print"backup             this sub-program is y";
  69. 360 print"our built in software  insurance.  depres";
  70. 365 print"sing the "chr$(34)"control"chr$(34)"  and "chr$(34)"b"chr$(34)" keys";
  71. 370 print" will get you into"
  72. 375 print"                 the market backup optio";
  73. 380 print"n.  to complete the backup  insert any pr";
  74. 385 print"e-formatted disk in your drive and depress return."
  75. 390 print"                 if you do not wish to c";
  76. 395 print"ontinue with the market backup, press the run/stop key":print
  77. 400 print"worksheet print    control/w  will print";
  78. 405 print" an alphabetical  worksheet so that you m";
  79. 410 print"ay record a number of stock quotes on paper before"
  80. 415 print"                 you enter them into the";
  81. 420 print" computer.   this worksheet works great w";
  82. 425 print"hen filled, and used in conjunction with the auto/"
  83. 430 print"                 input option.  your printer must be attached ";
  84. 435 print"and ready to work.":print:print
  85. 444 printchr$(27)"e"chr$(27)"g";"error messages"chr$(27)"f"chr$(27)"h":print
  86. 445 printchr$(15)"  file error          an attempt was made ";
  87. 450 print"to load one of the four market data file";
  88. 455 print" types,  on a non initialized diskette.   action:"
  89. 460 print"                    perform the initialize";
  90. 465 print" sub program on the floppy disk in quest";
  91. 470 print"ion. consult the section titled "chr$(34)"getting started"chr$(34)
  92. 475 print"                    for detailes."
  93. 480 print"  file empty error    this error  message i";
  94. 485 print"s displayed  when you try to delete the  l";
  95. 490 print"ast record on file for the market that you are"
  96. 495 print"                    accessing.   action:  ei";
  97. 500 print"ther create a second record,  or initiali";
  98. 505 print"ze the disk  (initializing will also erase the"
  99. 510 print"                    files of other markets on that disk."
  100. 515 print"  file full error     you have tried to ad";
  101. 520 print"d a new stock,  but the allotted disk  spac";
  102. 525 print"e per market is filled.  action:  initialize a"
  103. 530 print"                    pre-formatted disk to ";
  104. 535 print"be used as a file disk.  see the first s";
  105. 540 print"ection for initialize procedure."
  106. 545 print"  input error         an error was made wh";
  107. 550 print"ile inputing the records of a new stock ";
  108. 555 print"(example - a 52 week low that was higher then the"
  109. 560 print"                    52 week low).  action:";
  110. 565 print"  check figures and and correct entry."
  111. 570 print"  record not found    the stock name or sy";
  112. 575 print"mbol you entered during a  display, add (";
  113. 580 print"existing), purge, print selective, or graph  was"
  114. 585 print"                    not found.  action:  enter different name."
  115. 590 print"  repeat error        the stock name and s";
  116. 595 print"ymbol,  during an add (new),  match up exa";
  117. 600 print"ctly with one already on file.  action:  change"
  118. 605 print"                    either the name or symbol of the stock";
  119. 610 print" you are adding."
  120. 5554 print#4:close4:stop
  121. 5555 open15,8,15:print#15,"s0:d2stock":close15:save"d2stock",8
  122.