_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DSTOCK

FILE INFORMATION

FILENAME(S): DSTOCK

FILE TYPE(S): PRG

FILE SIZE: 5.5K

FIRST SEEN: 2025-11-30 18:12:20

APPEARS ON: 2 disk(s)

FILE HASH

26a552f3a713837b9b5699e261ea00e950963499e18d0f5970a6b54806700b2a

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 23 S 1 DSTOCK PRG Sailor, Ganheden 31 4 DOWNLOAD FILE
LOADSTAR 23 S 1 DSTOCK PRG Curtcool, Frank 31 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 16 08 0A 00 9F 34  2C 34 3A 9D 34 3A 8F 47  |.......4,4:.4:.G|
00000010: 4F 54 4F 31 38 35 00 4B  08 14 00 99 3A 99 3A 99  |OTO185.K....:.:.|
00000020: C7 28 31 34 29 C7 28 32  37 29 22 47 22 3B 22 20  |.(14).(27)"G";" |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 53 54 4F 43  |            STOC|
00000040: 4B 20 41 4E 41 4C 59 5A  45 52 22 00 7D 08 16 00  |K ANALYZER".}...|
00000050: 99 C7 28 31 34 29 22 20  20 20 20 20 20 20 20 20  |..(14)"         |
00000060: 20 20 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |  --------------|
00000070: 2D 2D 2D 2D 22 C7 28 32  37 29 22 48 22 00 B7 08  |----".(27)"H"...|
00000080: 19 00 99 22 20 20 20 20  20 20 20 20 20 20 20 20  |..."            |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000A0: 54 48 45 20 50 45 52 46  45 43 54 20 49 4E 56 45  |THE PERFECT INVE|
000000B0: 53 54 4D 45 4E 54 22 00  BF 08 1D 00 99 3A 99 00  |STMENT"......:..|
000000C0: F2 08 23 00 99 22 20 20  53 54 4F 43 4B 20 20 41  |..#.."  STOCK  A|
000000D0: 4E 41 4C 59 5A 45 52 20  20 49 53 20 44 45 53 49  |NALYZER  IS DESI|
000000E0: 47 4E 45 44 20 54 4F 20  54 52 41 43 4B 20 20 4F  |GNED TO TRACK  O|
000000F0: 22 3B 00 1E 09 28 00 99  22 56 45 52 20 4F 4E 45  |";...(.."VER ONE|
00000100: 20 48 55 4E 44 52 45 44  20 53 54 4F 43 4B 53 20  | HUNDRED STOCKS |
00000110: 20 4F 46 20 54 48 45 20  55 53 45 52 53 22 00 4F  | OF THE USERS".O|
00000120: 09 32 00 99 22 43 48 4F  49 43 45 2C 20 49 4E 20  |.2.."CHOICE, IN |
00000130: 46 4F 55 52 20 44 49 46  46 45 52 45 4E 54 20 4D  |FOUR DIFFERENT M|
00000140: 41 52 4B 45 54 53 20 28  50 45 52 20 44 22 3B 00  |ARKETS (PER D";.|
00000150: 7D 09 37 00 99 22 49 53  4B 29 2E 20 20 53 54 4F  |}.7.."ISK).  STO|
00000160: 43 4B 20 52 45 43 4F 52  44 53 20 4D 41 59 20 44  |CK RECORDS MAY D|
00000170: 41 54 45 20 42 41 43 4B  20 4F 4E 45 22 00 AF 09  |ATE BACK ONE"...|
00000180: 3C 00 99 22 59 45 41 52  20 41 54 20 20 44 41 49  |<.."YEAR AT  DAI|
00000190: 4C 59 20 49 4E 43 52 45  4D 45 4E 54 53 2E 20 20  |LY INCREMENTS.  |
000001A0: 54 48 49 53 20 41 4C 4C  4F 57 53 20 54 22 3B 00  |THIS ALLOWS T";.|
000001B0: DC 09 41 00 99 22 48 45  20 55 53 45 52 20 20 53  |..A.."HE USER  S|
000001C0: 55 46 46 49 43 49 45 4E  54 20 44 41 54 41 20 54  |UFFICIENT DATA T|
000001D0: 4F 20 45 58 41 4D 49 4E  45 20 41 22 00 0D 0A 46  |O EXAMINE A"...F|
000001E0: 00 99 22 53 54 4F 43 4B  53 20 57 45 45 4B 4C 59  |.."STOCKS WEEKLY|
000001F0: 20 41 4E 44 20 4D 4F 4E  54 48 4C 59 20 50 41 54  | AND MONTHLY PAT|
00000200: 54 45 52 53 20 54 4F 20  48 49 53 22 3B 00 47 0A  |TERS TO HIS";.G.|
00000210: 4B 00 99 22 20 4F 52 20  48 45 52 20 46 49 4E 41  |K.." OR HER FINA|
00000220: 4E 43 49 41 4C 20 41 44  56 41 4E 54 41 47 45 2E  |NCIAL ADVANTAGE.|
00000230: 22 3A 99 3A 99 3A 99 C7  28 32 37 29 22 47 22 C7  |":.:.:..(27)"G".|
00000240: 28 32 37 29 22 45 22 00  75 0A 50 00 99 22 47 45  |(27)"E".u.P.."GE|
00000250: 54 54 49 4E 47 20 53 54  41 52 54 45 44 22 3A 99  |TTING STARTED":.|
00000260: C7 28 32 37 29 22 46 22  C7 28 32 37 29 22 48 22  |.(27)"F".(27)"H"|
00000270: C7 28 31 35 29 00 B7 0A  55 00 99 22 20 20 54 4F  |.(15)...U.."  TO|
00000280: 20 53 54 41 52 54 20 20  53 54 4F 43 4B 20 41 4E  | START  STOCK AN|
00000290: 41 4C 59 5A 45 52 20 54  59 50 45 20 54 48 45 20  |ALYZER TYPE THE |
000002A0: 46 4F 4C 4C 4F 57 49 4E  47 3A 20 20 20 20 20 20  |FOLLOWING:      |
000002B0: 20 20 20 20 20 22 3B 00  E4 0A 5A 00 99 22 4C 4F  |     ";...Z.."LO|
000002C0: 41 44 22 C7 28 33 34 29  22 53 54 4F 43 4B 22 C7  |AD".(34)"STOCK".|
000002D0: 28 33 34 29 22 2C 38 2C  31 20 20 28 52 45 54 55  |(34)",8,1  (RETU|
000002E0: 52 4E 29 22 00 0B 0B 5F  00 99 A6 35 37 29 22 52  |RN)"..._...57)"R|
000002F0: 55 4E 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |UN              |
00000300: 28 52 45 54 55 52 4E 29  22 3A 99 00 47 0B 64 00  |(RETURN)":..G.d.|
00000310: 99 22 20 20 54 48 45 20  4D 45 4E 55 20 4E 4F 57  |."  THE MENU NOW|
00000320: 20 20 44 49 53 50 4C 41  59 45 44 20 49 53 20 43  |  DISPLAYED IS C|
00000330: 41 4C 4C 45 44 20 20 54  48 45 20 4D 41 52 4B 45  |ALLED  THE MARKE|
00000340: 54 20 43 48 4F 22 3B 00  7C 0B 69 00 99 22 49 43  |T CHO";.|.i.."IC|
00000350: 45 20 4D 45 4E 55 2E 20  20 20 59 4F 55 20 53 49  |E MENU.   YOU SI|
00000360: 4D 50 4C 59 20 44 45 50  52 45 53 53 20 54 48 45  |MPLY DEPRESS THE|
00000370: 20 20 4E 55 4D 42 45 52  20 30 22 3B 00 A6 0B 6E  |  NUMBER 0";...n|
00000380: 00 99 22 46 20 54 48 45  20 4D 41 52 4B 45 54 20  |.."F THE MARKET |
00000390: 59 4F 55 20 57 49 53 48  20 4C 4F 41 44 45 44 2E  |YOU WISH LOADED.|
000003A0: 20 20 20 49 46 22 00 CF  0B 6F 00 99 22 54 48 49  |   IF"...o.."THI|
000003B0: 53 20 49 53 20 59 4F 55  52 20 46 49 52 53 54 20  |S IS YOUR FIRST |
000003C0: 54 49 4D 45 20 54 48 52  4F 55 47 48 20 22 3B 00  |TIME THROUGH ";.|
000003D0: 14 0C 73 00 99 22 54 48  45 20 50 52 4F 47 52 41  |..s.."THE PROGRA|
000003E0: 4D 2C 20 20 4F 4E 20 54  48 49 53 20 50 41 52 54  |M,  ON THIS PART|
000003F0: 49 43 55 4C 41 52 20 44  49 53 4B 2C 20 54 48 45  |ICULAR DISK, THE|
00000400: 20 4D 41 52 4B 45 54 20  44 41 54 41 20 46 49 4C  | MARKET DATA FIL|
00000410: 45 53 22 3B 00 41 0C 78  00 99 22 20 4E 45 45 44  |ES";.A.x.." NEED|
00000420: 20 54 4F 20 42 45 20 43  52 45 41 54 45 44 20 42  | TO BE CREATED B|
00000430: 45 46 4F 52 45 20 59 4F  55 20 47 4F 20 41 4E 59  |EFORE YOU GO ANY|
00000440: 22 00 80 0C 7E 00 99 22  46 55 52 54 48 45 52 2E  |"...~.."FURTHER.|
00000450: 20 20 20 54 4F 20 44 4F  20 54 48 49 53 2C 20 20  |   TO DO THIS,  |
00000460: 48 4F 4C 44 20 44 4F 57  4E 20 54 48 45 20 22 C7  |HOLD DOWN THE ".|
00000470: 28 33 34 29 22 43 54 52  4C 22 C7 28 33 34 29 3B  |(34)"CTRL".(34);|
00000480: 00 AC 0C 82 00 99 22 20  4B 45 59 20 41 4E 44 20  |......" KEY AND |
00000490: 50 52 45 53 53 20 22 C7  28 33 34 29 22 49 22 C7  |PRESS ".(34)"I".|
000004A0: 28 33 34 29 22 2E 20 20  20 54 22 3B 00 F2 0C 87  |(34)".   T";....|
000004B0: 00 99 22 48 49 53 20 57  49 4C 4C 20 53 45 54 20  |.."HIS WILL SET |
000004C0: 4F 46 46 20 54 48 45 20  49 4E 49 54 49 41 4C 49  |OFF THE INITIALI|
000004D0: 5A 45 20 20 53 55 42 50  52 4F 47 52 41 4D 2E 20  |ZE  SUBPROGRAM. |
000004E0: 20 54 48 45 20 50 52 4F  47 52 41 4D 20 54 48 45  | THE PROGRAM THE|
000004F0: 4E 22 00 1F 0D 8C 00 99  22 41 53 4B 45 53 20 59  |N"......"ASKES Y|
00000500: 4F 55 20 54 4F 20 54 4F  55 43 48 20 54 48 45 20  |OU TO TOUCH THE |
00000510: 22 C7 28 33 34 29 22 5E  22 C7 28 33 34 29 3B 00  |".(34)"^".(34);.|
00000520: 51 0D 91 00 99 22 20 4B  45 59 2C 20 20 54 4F 20  |Q...." KEY,  TO |
00000530: 42 45 47 49 4E 20 44 41  54 41 20 46 49 4C 45 20  |BEGIN DATA FILE |
00000540: 49 4E 49 54 49 41 4C 49  5A 41 54 49 4F 4E 2E 22  |INITIALIZATION."|
00000550: 3B 00 97 0D 96 00 99 22  20 20 20 49 46 20 59 4F  |;......"   IF YO|
00000560: 55 20 44 4F 20 4E 4F 54  20 57 49 53 48 20 54 4F  |U DO NOT WISH TO|
00000570: 20 53 54 41 52 54 20 49  4E 49 54 49 41 4C 49 5A  | START INITIALIZ|
00000580: 41 54 49 4F 4E 2C 20 20  54 48 45 4E 20 50 52 45  |ATION,  THEN PRE|
00000590: 53 53 20 41 4E 59 22 00  A9 0D 9B 00 99 22 4F 54  |SS ANY"......"OT|
000005A0: 48 45 52 20 4B 45 59 2E  22 00 DA 0D A0 00 99 22  |HER KEY."......"|
000005B0: 20 20 20 20 20 20 20 20  2A 2A 2A 20 57 41 52 4E  |        *** WARN|
000005C0: 49 4E 47 20 2D 20 54 48  49 53 20 53 55 42 50 52  |ING - THIS SUBPR|
000005D0: 4F 47 52 41 4D 20 53 48  22 3B 00 1F 0E AA 00 99  |OGRAM SH";......|
000005E0: 22 4F 55 4C 44 20 42 45  20 52 55 4E 20 4F 4E 43  |"OULD BE RUN ONC|
000005F0: 45 20 50 45 52 20 44 41  54 41 20 44 49 53 4B 2C  |E PER DATA DISK,|
00000600: 20 41 4E 44 20 57 49 4C  4C 20 44 45 53 54 52 4F  | AND WILL DESTRO|
00000610: 59 20 50 52 45 56 49 4F  55 53 4C 59 20 22 3B 00  |Y PREVIOUSLY ";.|
00000620: 4B 0E AF 00 99 22 53 41  56 45 44 20 4D 41 52 4B  |K...."SAVED MARK|
00000630: 45 54 20 52 45 43 4F 52  44 53 2E 20 2A 2A 2A 22  |ET RECORDS. ***"|
00000640: 3A 99 3A 99 3A 99 C7 28  31 38 29 00 87 0E B9 00  |:.:.:..(18).....|
00000650: 99 C7 28 32 37 29 22 45  22 C7 28 32 37 29 22 47  |..(27)"E".(27)"G|
00000660: 22 3B 22 4D 41 49 4E 20  4D 45 4E 55 20 4F 50 54  |";"MAIN MENU OPT|
00000670: 49 4F 4E 53 22 3A 99 C7  28 32 37 29 22 48 22 C7  |IONS":..(27)"H".|
00000680: 28 32 37 29 22 46 22 00  C0 0E BE 00 99 C7 28 31  |(27)"F".......(1|
00000690: 35 29 22 31 20 2D 20 41  44 44 20 28 4E 45 57 29  |5)"1 - ADD (NEW)|
000006A0: 20 20 20 20 20 20 20 20  20 41 4C 4C 4F 57 53 20  |         ALLOWS |
000006B0: 45 4E 54 52 59 20 4F 46  20 53 54 4F 43 4B 22 3B  |ENTRY OF STOCK";|
000006C0: 00 F2 0E C3 00 99 22 20  4E 41 4D 45 2C 20 53 59  |......" NAME, SY|
000006D0: 4D 42 4F 4C 2C 20 20 35  32 20 57 45 45 4B 20 48  |MBOL,  52 WEEK H|
000006E0: 49 47 48 2F 4C 4F 57 2C  20 41 4E 44 20 54 48 45  |IGH/LOW, AND THE|
000006F0: 22 3B 00 2A 0F C8 00 99  22 20 4C 41 53 54 20 43  |";.*...." LAST C|
00000700: 4C 4F 53 49 4E 47 20 51  55 4F 54 45 2E 20 20 20  |LOSING QUOTE.   |
00000710: 54 48 45 20 53 54 4F 43  4B 20 4E 41 4D 45 2C 20  |THE STOCK NAME, |
00000720: 55 50 20 54 4F 20 31 39  20 22 00 5F 0F CD 00 99  |UP TO 19 "._....|
00000730: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000740: 20 20 20 20 20 43 48 41  52 41 43 54 45 52 53 2C  |     CHARACTERS,|
00000750: 20 20 43 41 4E 20 4E 4F  54 20 43 4F 4E 22 3B 00  |  CAN NOT CON";.|
00000760: 91 0F D2 00 99 22 54 41  49 4E 20 41 4E 59 20 50  |....."TAIN ANY P|
00000770: 55 4E 43 54 55 41 54 49  4F 4E 20 20 41 4E 44 20  |UNCTUATION  AND |
00000780: 54 48 45 20 46 49 52 53  54 20 43 48 41 52 41 22  |THE FIRST CHARA"|
00000790: 3B 00 C7 0F D7 00 99 22  43 54 45 52 20 43 41 4E  |;......"CTER CAN|
000007A0: 20 4E 4F 54 20 42 45 20  41 20 53 50 41 43 45 2E  | NOT BE A SPACE.|
000007B0: 20 20 20 54 48 45 20 53  54 4F 43 4B 20 53 59 4D  |   THE STOCK SYM|
000007C0: 42 4F 4C 2C 20 31 22 00  01 10 DC 00 99 22 20 20  |BOL, 1"......"  |
000007D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007E0: 20 20 54 4F 20 34 20 43  48 41 52 41 43 54 45 52  |  TO 4 CHARACTER|
000007F0: 53 2C 20 20 49 53 20 41  4E 20 41 42 52 45 56 22  |S,  IS AN ABREV"|
00000800: 3B 00 33 10 E1 00 99 22  49 41 54 49 4F 4E 20 4F  |;.3...."IATION O|
00000810: 46 20 54 48 45 20 53 54  4F 43 4B 20 4E 41 4D 45  |F THE STOCK NAME|
00000820: 20 20 28 46 49 52 53 54  20 43 48 41 52 41 43 54  |  (FIRST CHARACT|
00000830: 45 22 3B 00 65 10 E6 00  99 22 52 20 4D 55 53 54  |E";.e...."R MUST|
00000840: 20 41 4C 53 4F 20 42 45  20 4E 4F 4E 2D 42 4C 41  | ALSO BE NON-BLA|
00000850: 4E 4B 29 2E 20 20 20 20  59 4F 55 20 4D 41 59 20  |NK).    YOU MAY |
00000860: 55 53 45 20 22 00 B2 10  F0 00 99 22 20 20 20 20  |USE "......"    |
00000870: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000880: 45 49 54 48 45 52 20 54  48 45 20 41 43 54 55 41  |EITHER THE ACTUA|
00000890: 4C 20 4D 41 52 4B 45 54  20 53 59 4D 42 4F 4C 2C  |L MARKET SYMBOL,|
000008A0: 20 20 4F 52 20 41 4E 20  41 42 52 45 56 49 41 54  |  OR AN ABREVIAT|
000008B0: 22 3B 00 EF 10 F5 00 99  22 49 4F 4E 20 59 4F 55  |";......"ION YOU|
000008C0: 20 46 49 4E 44 20 45 41  53 59 20 54 4F 20 52 45  | FIND EASY TO RE|
000008D0: 43 41 4C 4C 2E 20 20 20  54 48 45 20 4C 41 53 54  |CALL.   THE LAST|
000008E0: 20 50 52 49 43 45 20 51  55 4F 54 45 20 22 3B 00  | PRICE QUOTE ";.|
000008F0: 02 11 FA 00 99 22 49 53  20 54 48 45 20 4F 4E 4C  |....."IS THE ONL|
00000900: 59 22 00 4D 11 FF 00 99  22 20 20 20 20 20 20 20  |Y".M...."       |
00000910: 20 20 20 20 20 20 20 20  20 20 20 20 20 4F 4E 45  |             ONE|
00000920: 20 54 48 49 53 20 52 4F  55 54 49 4E 45 20 57 49  | THIS ROUTINE WI|
00000930: 4C 4C 20 41 4C 4C 4F 57  20 59 4F 55 20 54 4F 20  |LL ALLOW YOU TO |
00000940: 45 4E 54 45 52 20 28 53  45 45 20 22 3B 00 83 11  |ENTER (SEE ";...|
00000950: 04 01 99 22 41 44 44 20  45 58 49 53 54 49 4E 47  |..."ADD EXISTING|
00000960: 20 54 4F 20 41 44 44 20  4D 4F 52 45 29 2E 20 20  | TO ADD MORE).  |
00000970: 41 46 54 45 52 20 41 4C  4C 20 54 48 45 20 49 4E  |AFTER ALL THE IN|
00000980: 46 22 3B 00 A0 11 09 01  99 22 4F 52 4D 41 54 49  |F";......"ORMATI|
00000990: 4F 4E 20 49 53 20 52 45  54 55 52 4E 45 44 2C 22  |ON IS RETURNED,"|
000009A0: 00 EC 11 0E 01 99 22 20  20 20 20 20 20 20 20 20  |......"         |
000009B0: 20 20 20 20 20 20 20 20  20 20 20 59 4F 55 20 48  |           YOU H|
000009C0: 41 56 45 20 54 48 45 20  4F 50 54 49 4F 4E 20 4F  |AVE THE OPTION O|
000009D0: 46 20 41 44 44 49 4E 47  20 41 4E 4F 54 48 45 52  |F ADDING ANOTHER|
000009E0: 20 4E 45 57 20 53 54 4F  43 4B 22 3B 00 15 12 13  | NEW STOCK";....|
000009F0: 01 99 22 20 4F 52 20 52  45 54 55 52 4E 49 4E 47  |.." OR RETURNING|
00000A00: 20 54 4F 20 54 48 45 20  4D 41 49 4E 20 4D 45 4E  | TO THE MAIN MEN|
00000A10: 55 2E 22 3A 99 00 46 12  18 01 99 22 32 20 2D 20  |U.":..F...."2 - |
00000A20: 41 44 44 20 28 45 58 49  53 54 49 4E 47 29 20 20  |ADD (EXISTING)  |
00000A30: 20 20 41 4C 4C 4F 57 53  20 59 4F 55 20 54 4F 20  |  ALLOWS YOU TO |
00000A40: 41 44 44 20 22 3B 00 77  12 1D 01 99 22 44 41 49  |ADD ";.w...."DAI|
00000A50: 4C 59 20 50 52 49 43 45  20 51 55 4F 54 45 53 20  |LY PRICE QUOTES |
00000A60: 54 4F 20 41 20 53 54 4F  43 4B 20 43 52 45 41 54  |TO A STOCK CREAT|
00000A70: 45 44 20 54 48 22 3B 00  B2 12 22 01 99 22 52 4F  |ED TH";...".."RO|
00000A80: 55 47 48 20 54 48 45 20  41 44 44 20 4E 45 57 20  |UGH THE ADD NEW |
00000A90: 46 55 4E 43 54 49 4F 4E  2E 20 20 20 46 49 52 53  |FUNCTION.   FIRS|
00000AA0: 54 20 59 4F 55 20 4D 55  53 54 20 52 45 54 55 52  |T YOU MUST RETUR|
00000AB0: 4E 22 00 E3 12 2C 01 99  22 20 20 20 20 20 20 20  |N"...,.."       |
00000AC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 54 48 45  |             THE|
00000AD0: 20 53 54 4F 43 4B 20 4E  41 4D 45 20 54 4F 20 42  | STOCK NAME TO B|
00000AE0: 45 22 3B 00 16 13 31 01  99 22 20 55 50 44 41 54  |E";...1.." UPDAT|
00000AF0: 45 44 2E 20 20 20 54 48  45 20 46 55 4C 4C 20 4E  |ED.   THE FULL N|
00000B00: 41 4D 45 20 4E 45 45 44  20 20 4E 4F 54 20 42 45  |AME NEED  NOT BE|
00000B10: 20 52 45 54 22 3B 00 4F  13 36 01 99 22 55 52 4E  | RET";.O.6.."URN|
00000B20: 45 44 2C 20 20 54 48 45  20 50 52 4F 47 52 41 4D  |ED,  THE PROGRAM|
00000B30: 20 57 49 4C 4C 20 42 52  49 4E 47 20 55 50 20 54  | WILL BRING UP T|
00000B40: 48 45 20 46 49 4C 45 20  4F 46 20 54 48 45 22 00  |HE FILE OF THE".|
00000B50: 97 13 3B 01 99 22 20 20  20 20 20 20 20 20 20 20  |..;.."          |
00000B60: 20 20 20 20 20 20 20 20  20 20 46 49 52 53 54 20  |          FIRST |
00000B70: 4D 41 54 43 48 20 49 54  20 45 4E 43 4F 55 4E 54  |MATCH IT ENCOUNT|
00000B80: 45 52 53 20 20 46 52 4F  4D 20 54 48 45 20 50 41  |ERS  FROM THE PA|
00000B90: 52 54 49 41 4C 22 3B 00  B5 13 40 01 99 22 20 4E  |RTIAL";...@.." N|
00000BA0: 41 4D 45 20 45 4E 54 45  52 45 44 20 28 54 48 49  |AME ENTERED (THI|
00000BB0: 53 20 48 22 3B 00 E7 13  45 01 99 22 4F 4C 44 53  |S H";...E.."OLDS|
00000BC0: 20 54 52 55 45 20 57 49  54 48 20 41 4E 59 20 53  | TRUE WITH ANY S|
00000BD0: 54 4F 43 4B 20 4E 41 4D  45 20 53 45 41 52 43 48  |TOCK NAME SEARCH|
00000BE0: 29 2E 20 20 20 22 3B 00  F5 13 4A 01 99 22 49 46  |).   ";...J.."IF|
00000BF0: 20 59 4F 55 22 00 42 14  4F 01 99 22 20 20 20 20  | YOU".B.O.."    |
00000C00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C10: 57 49 53 48 20 46 4F 52  20 54 48 45 20 50 52 4F  |WISH FOR THE PRO|
00000C20: 47 52 41 4D 20 20 54 4F  20 53 45 41 52 43 48 20  |GRAM  TO SEARCH |
00000C30: 46 4F 52 20 41 20 53 54  4F 43 4B 20 42 59 20 20  |FOR A STOCK BY  |
00000C40: 22 3B 00 89 14 51 01 99  22 49 54 27 53 20 53 59  |";...Q.."IT'S SY|
00000C50: 4D 42 4F 4C 20 41 4E 44  20 4E 4F 54 20 49 54 27  |MBOL AND NOT IT'|
00000C60: 53 20 4E 41 4D 45 20 20  54 48 45 4E 20 44 45 50  |S NAME  THEN DEP|
00000C70: 52 45 53 53 20 54 48 45  20 52 45 54 55 52 4E 20  |RESS THE RETURN |
00000C80: 4B 45 59 20 57 48 45 4E  22 00 CF 14 59 01 99 22  |KEY WHEN"...Y.."|
00000C90: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000CA0: 20 20 20 20 41 53 4B 45  44 20 46 4F 52 20 54 48  |    ASKED FOR TH|
00000CB0: 45 20 53 54 4F 43 4B 20  4E 41 4D 45 20 20 41 4E  |E STOCK NAME  AN|
00000CC0: 44 20 52 45 54 55 52 4E  20 54 48 45 20 22 3B 00  |D RETURN THE ";.|
00000CD0: F7 14 5E 01 99 22 46 55  4C 4C 20 46 4F 55 52 20  |..^.."FULL FOUR |
00000CE0: 20 43 48 41 52 41 43 54  45 52 20 53 59 4D 42 4F  | CHARACTER SYMBO|
00000CF0: 4C 2E 20 20 20 22 3B 00  26 15 63 01 99 22 41 46  |L.   ";.&.c.."AF|
00000D00: 54 45 52 20 41 20 52 45  43 4F 52 44 20 49 53 20  |TER A RECORD IS |
00000D10: 55 50 44 41 54 45 44 20  20 59 4F 55 20 48 41 56  |UPDATED  YOU HAV|
00000D20: 45 20 54 48 45 22 00 6C  15 68 01 99 22 20 20 20  |E THE".l.h.."   |
00000D30: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000D40: 20 4F 50 54 49 4F 4E 20  4F 46 20 41 44 44 49 4E  | OPTION OF ADDIN|
00000D50: 47 20 41 4E 4F 54 48 45  52 20 52 45 43 4F 52 44  |G ANOTHER RECORD|
00000D60: 20 54 4F 20 54 48 41 54  20 46 22 3B 00 99 15 6D  | TO THAT F";...m|
00000D70: 01 99 22 49 4C 45 2C 20  4F 52 20 52 45 54 55 52  |.."ILE, OR RETUR|
00000D80: 4E 49 4E 47 20 54 4F 20  54 48 45 20 4D 41 49 4E  |NING TO THE MAIN|
00000D90: 20 4D 45 4E 55 2E 22 3A  99 00 CC 15 72 01 99 22  | MENU.":....r.."|
00000DA0: 33 20 2D 20 44 49 53 50  4C 41 59 20 20 20 20 20  |3 - DISPLAY     |
00000DB0: 20 20 20 20 20 20 41 46  54 45 52 20 20 52 45 54  |      AFTER  RET|
00000DC0: 55 52 4E 49 4E 47 20 20  54 48 22 3B 00 00 16 77  |URNING  TH";...w|
00000DD0: 01 99 22 45 20 44 45 53  49 52 45 44 20 20 53 54  |.."E DESIRED  ST|
00000DE0: 4F 43 4B 53 20 4E 41 4D  45 20 4F 52 20 20 53 59  |OCKS NAME OR  SY|
00000DF0: 4D 42 4F 4C 2C 20 20 49  4E 20 54 48 45 20 22 3B  |MBOL,  IN THE ";|
00000E00: 00 37 16 7C 01 99 22 53  41 4D 45 20 46 4F 52 4D  |.7.|.."SAME FORM|
00000E10: 41 54 20 41 53 20 20 44  45 53 43 52 49 42 45 44  |AT AS  DESCRIBED|
00000E20: 20 49 4E 20 54 48 45 20  53 45 43 54 49 4F 4E 20  | IN THE SECTION |
00000E30: 41 42 4F 56 45 2C 22 00  68 16 81 01 99 22 20 20  |ABOVE,".h...."  |
00000E40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000E50: 20 20 4F 50 54 49 4F 4E  20 33 20 57 49 4C 4C 20  |  OPTION 3 WILL |
00000E60: 44 49 53 50 4C 41 22 3B  00 9B 16 86 01 99 22 59  |DISPLA";......"Y|
00000E70: 20 54 48 45 20 53 54 4F  43 4B 53 20 46 55 4C 4C  | THE STOCKS FULL|
00000E80: 20 4E 41 4D 45 2C 20 20  53 59 4D 42 4F 4C 2C 20  | NAME,  SYMBOL, |
00000E90: 20 48 49 47 48 2F 4C 4F  57 22 3B 00 D4 16 8B 01  | HIGH/LOW";.....|
00000EA0: 99 22 2C 20 4C 41 53 54  20 55 50 44 41 54 45 2C  |.", LAST UPDATE,|
00000EB0: 20 41 4E 44 20 54 48 45  20 33 30 20 4C 41 53 54  | AND THE 30 LAST|
00000EC0: 20 45 4E 54 52 49 45 53  2E 20 20 20 41 46 54 45  | ENTRIES.   AFTE|
00000ED0: 52 20 41 22 00 05 17 90  01 99 22 20 20 20 20 20  |R A"......"     |
00000EE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 52  |               R|
00000EF0: 45 43 4F 52 44 20 49 53  20 44 49 53 50 4C 41 59  |ECORD IS DISPLAY|
00000F00: 45 44 20 22 3B 00 36 17  95 01 99 22 59 4F 55 20  |ED ";.6...."YOU |
00000F10: 48 41 56 45 20 54 48 45  20 4F 50 54 49 4F 4E 20  |HAVE THE OPTION |
00000F20: 4F 46 20 44 49 53 50 4C  41 59 49 4E 47 20 41 4E  |OF DISPLAYING AN|
00000F30: 4F 54 48 45 22 3B 00 60  17 9A 01 99 22 52 20 4F  |OTHE";.`...."R O|
00000F40: 52 20 52 45 54 55 52 4E  49 4E 47 20 54 4F 20 54  |R RETURNING TO T|
00000F50: 48 45 20 4D 41 49 4E 20  4D 45 4E 55 2E 22 3A 99  |HE MAIN MENU.":.|
00000F60: 00 91 17 9F 01 99 22 34  20 2D 20 50 55 52 47 45  |......"4 - PURGE|
00000F70: 20 20 20 20 20 20 20 20  20 20 20 20 20 4F 50 54  |             OPT|
00000F80: 49 4F 4E 20 34 20 57 49  4C 4C 20 45 4C 49 4D 22  |ION 4 WILL ELIM"|
00000F90: 3B 00 C2 17 A4 01 99 22  49 4E 41 54 45 20 41 20  |;......"INATE A |
00000FA0: 53 50 45 43 49 46 49 43  20 53 54 4F 43 4B 20 52  |SPECIFIC STOCK R|
00000FB0: 45 43 4F 52 44 20 49 4E  20 4F 52 44 45 52 20 54  |ECORD IN ORDER T|
00000FC0: 22 3B 00 FD 17 A9 01 99  22 4F 20 4D 41 4B 45 20  |";......"O MAKE |
00000FD0: 52 4F 4F 4D 20 46 4F 52  20 4E 45 57 20 53 54 4F  |ROOM FOR NEW STO|
00000FE0: 43 4B 53 20 54 4F 20 42  45 20 46 4F 4C 4C 4F 57  |CKS TO BE FOLLOW|
00000FF0: 45 44 2E 20 20 20 52 45  54 55 52 4E 22 00 2E 18  |ED.   RETURN"...|
00001000: AE 01 99 22 20 20 20 20  20 20 20 20 20 20 20 20  |..."            |
00001010: 20 20 20 20 20 20 20 20  41 20 53 54 4F 43 4B 20  |        A STOCK |
00001020: 4E 41 4D 45 20 4F 52 20  53 59 4D 42 22 3B 00 60  |NAME OR SYMB";.`|
00001030: 18 B3 01 99 22 4F 4C 20  41 53 20 44 45 53 43 52  |...."OL AS DESCR|
00001040: 49 42 45 44 20 45 41 52  4C 45 52 2E 20 20 20 54  |IBED EARLER.   T|
00001050: 48 45 20 50 52 4F 47 52  41 4D 20 57 49 4C 22 3B  |HE PROGRAM WIL";|
00001060: 00 9A 18 B8 01 99 22 4C  20 54 48 45 4E 20 44 49  |......"L THEN DI|
00001070: 53 50 4C 41 59 20 54 48  45 20 45 4E 54 49 52 45  |SPLAY THE ENTIRE|
00001080: 20 4E 41 4D 45 20 20 41  4E 44 20 53 59 4D 42 4F  | NAME  AND SYMBO|
00001090: 4C 20 41 4E 44 20 41 53  4B 22 00 CB 18 BC 01 99  |L AND ASK"......|
000010A0: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
000010B0: 20 20 20 20 20 59 4F 55  20 49 46 20 49 54 20 49  |     YOU IF IT I|
000010C0: 53 20 54 48 45 20 43 4F  52 22 3B 00 FD 18 C0 01  |S THE COR";.....|
000010D0: 99 22 52 45 43 54 20 52  45 43 4F 52 44 20 54 4F  |."RECT RECORD TO|
000010E0: 20 42 45 20 45 52 41 53  45 44 2E 20 20 20 59 4F  | BE ERASED.   YO|
000010F0: 55 20 52 45 50 4C 59 20  42 59 20 22 3B 00 34 19  |U REPLY BY ";.4.|
00001100: C7 01 99 22 44 45 50 52  45 53 53 49 4E 47 20 22  |..."DEPRESSING "|
00001110: C7 28 33 34 29 22 59 22  C7 28 33 34 29 22 20 4F  |.(34)"Y".(34)" O|
00001120: 52 20 22 C7 28 33 34 29  22 4E 22 C7 28 33 34 29  |R ".(34)"N".(34)|
00001130: 22 2E 22 3B 00 58 19 CC  01 99 22 54 48 45 4E 2C  |".";.X...."THEN,|
00001140: 20 20 4C 49 4B 45 20 41  4C 57 41 59 53 2C 20 59  |  LIKE ALWAYS, Y|
00001150: 4F 55 20 48 41 56 45 22  00 97 19 CD 01 99 22 20  |OU HAVE"......" |
00001160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001170: 20 20 20 54 48 45 20 4F  50 54 49 4F 4E 20 4F 46  |   THE OPTION OF|
00001180: 20 52 45 54 55 52 4E 49  4E 47 20 4F 52 20 45 52  | RETURNING OR ER|
00001190: 41 53 49 4E 47 22 3B 00  B0 19 D1 01 99 22 20 41  |ASING";......" A|
000011A0: 4E 4F 54 48 45 52 20 53  54 4F 43 4B 2E 22 3A 99  |NOTHER STOCK.":.|
000011B0: 00 EC 19 D6 01 99 22 35  20 2D 20 50 52 49 4E 54  |......"5 - PRINT|
000011C0: 20 4D 45 4E 55 20 20 20  20 20 20 20 20 44 45 50  | MENU        DEP|
000011D0: 52 45 53 53 49 4E 47 20  54 48 45 20 20 22 C7 28  |RESSING THE  ".(|
000011E0: 33 34 29 22 35 22 C7 28  33 34 29 3B 00 21 1A DB  |34)"5".(34);.!..|
000011F0: 01 99 22 20 20 57 49 4C  4C 20 47 45 54 20 59 4F  |.."  WILL GET YO|
00001200: 55 20 49 4E 54 4F 20 54  48 45 20 4D 4F 53 54 20  |U INTO THE MOST |
00001210: 20 55 53 45 46 55 4C 4C  20 20 53 45 43 54 49 22  | USEFULL  SECTI"|
00001220: 3B 00 57 1A E0 01 99 22  4F 4E 20 4F 46 20 54 48  |;.W...."ON OF TH|
00001230: 45 20 50 52 4F 47 52 41  4D 2C 20 20 54 48 45 20  |E PROGRAM,  THE |
00001240: 50 52 49 4E 54 49 4E 47  20 20 41 4E 44 20 47 52  |PRINTING  AND GR|
00001250: 41 50 48 49 4E 47 22 00  94 1A E5 01 99 22 20 20  |APHING"......"  |
00001260: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001270: 20 20 46 55 4E 43 54 49  4F 4E 53 2E 20 20 59 4F  |  FUNCTIONS.  YO|
00001280: 55 20 4D 55 53 54 20 48  41 56 45 20 41 20 50 52  |U MUST HAVE A PR|
00001290: 49 4E 22 3B 00 C6 1A EA  01 99 22 54 45 52 2C 20  |IN";......"TER, |
000012A0: 20 41 4E 59 20 41 54 54  41 43 48 41 42 4C 45 20  | ANY ATTACHABLE |
000012B0: 50 52 49 4E 54 45 52 20  57 49 4C 4C 20 57 4F 52  |PRINTER WILL WOR|
000012C0: 4B 2C 20 4F 22 3B 00 F4  1A EF 01 99 22 4E 20 41  |K, O";......"N A|
000012D0: 4E 44 20 52 45 41 44 59  20 49 4E 20 4F 52 44 45  |ND READY IN ORDE|
000012E0: 52 20 54 4F 20 50 52 45  46 4F 52 4D 20 41 4E 59  |R TO PREFORM ANY|
000012F0: 20 4F 46 22 00 39 1B F4  01 99 22 20 20 20 20 20  | OF".9...."     |
00001300: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 54  |               T|
00001310: 48 45 20 4F 50 54 49 4F  4E 53 20 46 52 4F 4D 20  |HE OPTIONS FROM |
00001320: 54 48 49 53 20 4D 45 4E  55 2E 20 20 54 48 45 20  |THIS MENU.  THE |
00001330: 45 4E 54 49 52 45 20 22  3B 00 7B 1B F5 01 99 22  |ENTIRE ";.{...."|
00001340: 50 52 49 4E 54 20 53 55  42 50 52 4F 47 52 41 4D  |PRINT SUBPROGRAM|
00001350: 20 57 49 4C 4C 20 42 45  20 44 49 53 43 55 53 53  | WILL BE DISCUSS|
00001360: 45 44 20 49 4E 20 44 45  54 41 49 4C 20 46 55 52  |ED IN DETAIL FUR|
00001370: 54 48 45 52 20 4F 4E 2E  22 3A 99 00 AD 1B F9 01  |THER ON.":......|
00001380: 99 22 36 20 2D 20 51 55  49 54 20 20 20 20 20 20  |."6 - QUIT      |
00001390: 20 20 20 20 20 20 20 20  50 52 4F 47 52 41 4D 20  |        PROGRAM |
000013A0: 20 45 58 45 43 55 54 49  4F 4E 20 22 3B 00 E1 1B  | EXECUTION ";...|
000013B0: FE 01 99 22 4D 41 59 20  42 45 20 20 54 45 52 4D  |..."MAY BE  TERM|
000013C0: 49 4E 41 54 45 44 20 42  59 20 20 50 55 53 48 49  |INATED BY  PUSHI|
000013D0: 4E 47 20 36 20 20 28 44  45 50 52 45 53 53 49 22  |NG 6  (DEPRESSI"|
000013E0: 3B 00 19 1C 03 02 99 22  4E 47 20 54 48 45 20 20  |;......"NG THE  |
000013F0: 52 55 4E 2F 53 54 4F 50  20 4B 45 59 20 57 49 4C  |RUN/STOP KEY WIL|
00001400: 4C 20 48 41 56 45 20 54  48 45 20 53 41 4D 45 20  |L HAVE THE SAME |
00001410: 45 46 46 45 43 54 29 2E  22 00 4A 1C 08 02 99 22  |EFFECT).".J...."|
00001420: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001430: 20 20 20 20 49 46 20 4E  4F 20 43 48 41 4E 47 45  |    IF NO CHANGE|
00001440: 53 20 48 41 56 45 20 42  22 3B 00 7B 1C 0D 02 99  |S HAVE B";.{....|
00001450: 22 45 45 4E 20 4D 41 44  45 2C 20 54 48 52 4F 55  |"EEN MADE, THROU|
00001460: 47 48 20 4F 50 54 49 4F  4E 53 20 31 20 41 4E 44  |GH OPTIONS 1 AND|
00001470: 20 32 2C 20 54 48 45 4E  20 22 3B 00 B6 1C 12 02  | 2, THEN ";.....|
00001480: 99 22 54 48 45 20 50 52  4F 47 52 41 4D 20 57 49  |."THE PROGRAM WI|
00001490: 4C 4C 20 45 4E 44 20 49  4D 4D 45 44 49 41 54 45  |LL END IMMEDIATE|
000014A0: 4C 59 2E 20 20 20 49 46  20 43 48 41 4E 47 45 53  |LY.   IF CHANGES|
000014B0: 20 48 41 56 45 22 00 E7  1C 17 02 99 22 20 20 20  | HAVE"......"   |
000014C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014D0: 20 42 45 45 4E 20 4D 41  44 45 2C 20 54 48 45 4E  | BEEN MADE, THEN|
000014E0: 20 54 48 45 20 22 3B 00  18 1D 1C 02 99 22 50 52  | THE ";......"PR|
000014F0: 4F 47 52 41 4D 20 57 49  4C 4C 20 41 53 4B 20 59  |OGRAM WILL ASK Y|
00001500: 4F 55 20 49 46 20 59 4F  55 20 57 41 4E 54 20 54  |OU IF YOU WANT T|
00001510: 48 45 20 43 48 41 22 3B  00 53 1D 21 02 99 22 4E  |HE CHA";.S.!.."N|
00001520: 47 45 53 20 52 45 43 4F  52 44 45 44 2E 20 20 59  |GES RECORDED.  Y|
00001530: 4F 55 52 20 52 45 50 4C  59 20 57 49 4C 4C 20 42  |OUR REPLY WILL B|
00001540: 45 2C 20 59 3D 59 45 53  2C 20 4E 3D 4E 4F 2C 20  |E, Y=YES, N=NO, |
00001550: 4F 52 22 00 84 1D 26 02  99 22 20 20 20 20 20 20  |OR"...&.."      |
00001560: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 52 3D  |              R=|
00001570: 52 45 54 55 52 4E 20 54  4F 20 54 48 45 20 4D 45  |RETURN TO THE ME|
00001580: 4E 55 22 3B 00 B5 1D 2B  02 99 22 20 28 4A 55 53  |NU";...+.." (JUS|
00001590: 54 20 49 4E 20 43 41 53  45 20 53 54 4F 50 20 57  |T IN CASE STOP W|
000015A0: 41 53 20 4D 49 53 54 41  4B 45 4E 4C 59 20 50 52  |AS MISTAKENLY PR|
000015B0: 45 53 53 22 3B 00 C1 1D  30 02 99 22 45 44 29 2E  |ESS";...0.."ED).|
000015C0: 22 00 CD 1D B2 15 98 34  3A A0 34 3A 90 00 FA 1D  |"......4:.4:....|
000015D0: B3 15 9F 31 35 2C 38 2C  31 35 3A 98 31 35 2C 22  |...15,8,15:.15,"|
000015E0: 53 30 3A 44 53 54 4F 43  4B 22 3A A0 31 35 3A 94  |S0:DSTOCK":.15:.|
000015F0: 22 44 53 54 4F 43 4B 22  2C 38 00 00 00           |"DSTOCK",8...   |
.......4,4:.4:.GOTO185.K....:.:.G(14)G(2
7)"G";"             STOCK ANALYZER".}...
.G(14)"           ------------------"G(2
7)"H"......"                            
THE PERFECT INVESTMENT"......:....#.."  
STOCK  ANALYZER  IS DESIGNED TO TRACK  O
";...(.."VER ONE HUNDRED STOCKS  OF THE 
USERS".O.2.."CHOICE, IN FOUR DIFFERENT M
ARKETS (PER D";.}.7.."ISK).  STOCK RECOR
DS MAY DATE BACK ONE"...<.."YEAR AT  DAI
LY INCREMENTS.  THIS ALLOWS T";...A.."HE
 USER  SUFFICIENT DATA TO EXAMINE A"...F
.."STOCKS WEEKLY AND MONTHLY PATTERS TO 
HIS";.G.K.." OR HER FINANCIAL ADVANTAGE.
":.:.:.G(27)"G"G(27)"E".U.P.."GETTING ST
ARTED":.G(27)"F"G(27)"H"G(15)...U.."  TO
 START  STOCK ANALYZER TYPE THE FOLLOWIN
G:           ";...Z.."LOAD"G(34)"STOCK"G
(34)",8,1  (RETURN)"..._...57)"RUN      
        (RETURN)":..G.D.."  THE MENU NOW
  DISPLAYED IS CALLED  THE MARKET CHO";.
|.I.."ICE MENU.   YOU SIMPLY DEPRESS THE
  NUMBER 0";...N.."F THE MARKET YOU WISH
 LOADED.   IF".O.O.."THIS IS YOUR FIRST 
TIME THROUGH ";...S.."THE PROGRAM,  ON T
HIS PARTICULAR DISK, THE MARKET DATA FIL
ES";.A.X.." NEED TO BE CREATED BEFORE YO
U GO ANY"...~.."FURTHER.   TO DO THIS,  
HOLD DOWN THE "G(34)"CTRL"G(34);......" 
KEY AND PRESS "G(34)"I"G(34)".   T";....
.."HIS WILL SET OFF THE INITIALIZE  SUBP
ROGRAM.  THE PROGRAM THEN"......"ASKES Y
OU TO TOUCH THE "G(34)"^"G(34);.Q...." K
EY,  TO BEGIN DATA FILE INITIALIZATION."
;......"   IF YOU DO NOT WISH TO START I
NITIALIZATION,  THEN PRESS ANY"......"OT
HER KEY.".Z. .."        *** WARNING - TH
IS SUBPROGRAM SH";......"OULD BE RUN ONC
E PER DATA DISK, AND WILL DESTROY PREVIO
USLY ";.K...."SAVED MARKET RECORDS. ***"
:.:.:.G(18)......G(27)"E"G(27)"G";"MAIN 
MENU OPTIONS":.G(27)"H"G(27)"F"......G(1
5)"1 - ADD (NEW)         ALLOWS ENTRY OF
 STOCK";...C.." NAME, SYMBOL,  52 WEEK H
IGH/LOW, AND THE";.*.H.." LAST CLOSING Q
UOTE.   THE STOCK NAME, UP TO 19 "._.M..
"                    CHARACTERS,  CAN NO
T CON";...R.."TAIN ANY PUNCTUATION  AND 
THE FIRST CHARA";.G.W.."CTER CAN NOT BE 
A SPACE.   THE STOCK SYMBOL, 1"......"  
                  TO 4 CHARACTERS,  IS A
N ABREV";.3...."IATION OF THE STOCK NAME
  (FIRST CHARACTE";.E...."R MUST ALSO BE
 NON-BLANK).    YOU MAY USE "......"    
                EITHER THE ACTUAL MARKET
 SYMBOL,  OR AN ABREVIAT";......"ION YOU
 FIND EASY TO RECALL.   THE LAST PRICE Q
UOTE ";......"IS THE ONLY".M...."       
             ONE THIS ROUTINE WILL ALLOW
 YOU TO ENTER (SEE ";......"ADD EXISTING
 TO ADD MORE).  AFTER ALL THE INF";. ...
."ORMATION IS RETURNED,"......"         
           YOU HAVE THE OPTION OF ADDING
 ANOTHER NEW STOCK";......" OR RETURNING
 TO THE MAIN MENU.":..F...."2 - ADD (EXI
STING)    ALLOWS YOU TO ADD ";.W...."DAI
LY PRICE QUOTES TO A STOCK CREATED TH";.
..".."ROUGH THE ADD NEW FUNCTION.   FIRS
T YOU MUST RETURN"...,.."               
     THE STOCK NAME TO BE";...1.." UPDAT
ED.   THE FULL NAME NEED  NOT BE RET";.O
.6.."URNED,  THE PROGRAM WILL BRING UP T
HE FILE OF THE"...;.."                  
  FIRST MATCH IT ENCOUNTERS  FROM THE PA
RTIAL";...@.." NAME ENTERED (THIS H";...
E.."OLDS TRUE WITH ANY STOCK NAME SEARCH
).   ";...J.."IF YOU".B.O.."            
        WISH FOR THE PROGRAM  TO SEARCH 
FOR A STOCK BY  ";...Q.."IT'S SYMBOL AND
 NOT IT'S NAME  THEN DEPRESS THE RETURN 
KEY WHEN".O.Y.."                    ASKE
D FOR THE STOCK NAME  AND RETURN THE ";.
..^.."FULL FOUR  CHARACTER SYMBOL.   ";.
&.C.."AFTER A RECORD IS UPDATED  YOU HAV
E THE".L.H.."                    OPTION 
OF ADDING ANOTHER RECORD TO THAT F";...M
.."ILE, OR RETURNING TO THE MAIN MENU.":
..L.R.."3 - DISPLAY           AFTER  RET
URNING  TH";...W.."E DESIRED  STOCKS NAM
E OR  SYMBOL,  IN THE ";.7.|.."SAME FORM
AT AS  DESCRIBED IN THE SECTION ABOVE,".
H...."                    OPTION 3 WILL 
DISPLA";......"Y THE STOCKS FULL NAME,  
SYMBOL,  HIGH/LOW";.T....", LAST UPDATE,
 AND THE 30 LAST ENTRIES.   AFTER A"....
.."                    RECORD IS DISPLAY
ED ";.6...."YOU HAVE THE OPTION OF DISPL
AYING ANOTHE";.`...."R OR RETURNING TO T
HE MAIN MENU.":......."4 - PURGE        
     OPTION 4 WILL ELIM";.B...."INATE A 
SPECIFIC STOCK RECORD IN ORDER T";......
"O MAKE ROOM FOR NEW STOCKS TO BE FOLLOW
ED.   RETURN"......"                    
A STOCK NAME OR SYMB";.`...."OL AS DESCR
IBED EARLER.   THE PROGRAM WIL";......"L
 THEN DISPLAY THE ENTIRE NAME  AND SYMBO
L AND ASK".K...."                    YOU
 IF IT IS THE COR";......"RECT RECORD TO
 BE ERASED.   YOU REPLY BY ";.4.G.."DEPR
ESSING "G(34)"Y"G(34)" OR "G(34)"N"G(34)
".";.X.L.."THEN,  LIKE ALWAYS, YOU HAVE"
...M.."                    THE OPTION OF
 RETURNING OR ERASING";...Q.." ANOTHER S
TOCK.":....V.."5 - PRINT MENU        DEP
RESSING THE  "G(34)"5"G(34);.!...."  WIL
L GET YOU INTO THE MOST  USEFULL  SECTI"
;.W...."ON OF THE PROGRAM,  THE PRINTING
  AND GRAPHING"......"                  
  FUNCTIONS.  YOU MUST HAVE A PRIN";.F..
.."TER,  ANY ATTACHABLE PRINTER WILL WOR
K, O";......"N AND READY IN ORDER TO PRE
FORM ANY OF".9...."                    T
HE OPTIONS FROM THIS MENU.  THE ENTIRE "
;.{...."PRINT SUBPROGRAM WILL BE DISCUSS
ED IN DETAIL FURTHER ON.":......."6 - QU
IT              PROGRAM  EXECUTION ";...
..."MAY BE  TERMINATED BY  PUSHING 6  (D
EPRESSI";......"NG THE  RUN/STOP KEY WIL
L HAVE THE SAME EFFECT).".J...."        
            IF NO CHANGES HAVE B";.{....
"EEN MADE, THROUGH OPTIONS 1 AND 2, THEN
 ";......"THE PROGRAM WILL END IMMEDIATE
LY.   IF CHANGES HAVE"......"           
         BEEN MADE, THEN THE ";......"PR
OGRAM WILL ASK YOU IF YOU WANT THE CHA";
.S.!.."NGES RECORDED.  YOUR REPLY WILL B
E, Y=YES, N=NO, OR"...&.."              
      R=RETURN TO THE MENU";...+.." (JUS
T IN CASE STOP WAS MISTAKENLY PRESS";.A.
0.."ED).".M....4: 4:.......15,8,15:.15,"
S0:DSTOCK": 15:."DSTOCK",8...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL