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