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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL