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