INVESTOR
FILE INFORMATION
FILENAME(S): INVESTOR
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-11-30 18:12:04
APPEARS ON: 1 disk(s)
FILE HASH
3ad4eaeb9b2569dd4b9b06243a3b8bc451bb8486f486fe488004fe408f2d298c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 28 S 2 | INVESTOR | PRG | Sailor, Ganheden | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 00 00 8F 20 4F 50 45 4E 33 2C 38 2C |....... OPEN3,8,|
00000010: 33 2C 22 46 49 4C 45 53 22 00 3E 08 01 00 8F 20 |3,"FILES".>.... |
00000020: 47 45 54 23 33 2C 41 24 3A 49 46 53 54 3C 3E 2E |GET#3,A$:IFST<>.|
00000030: 54 48 45 4E 43 4C 4F 53 45 33 3A 45 4E 44 00 53 |THENCLOSE3:END.S|
00000040: 08 02 00 8F 20 50 52 49 4E 54 41 24 3B 3A 47 4F |.... PRINTA$;:GO|
00000050: 54 4F 31 00 78 08 04 00 8D 36 30 31 30 30 3A 9C |TO1.x....60100:.|
00000060: 3A 42 4B 24 B2 22 A4 22 3A 99 C7 28 31 34 32 29 |:BK$.".":..(142)|
00000070: 3A 86 47 24 28 32 30 29 00 97 08 05 00 97 35 33 |:.G$(20)......53|
00000080: 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 3A 52 |280,1:.53281,1:R|
00000090: 24 B2 C7 28 31 33 29 00 DB 08 0A 00 86 41 24 28 |$..(13)......A$(|
000000A0: 34 30 29 2C 42 24 28 34 30 29 2C 43 28 34 30 29 |40),B$(40),C(40)|
000000B0: 2C 43 43 28 34 30 29 2C 44 28 34 30 29 2C 45 28 |,CC(40),D(40),E(|
000000C0: 34 30 29 2C 46 28 34 30 29 2C 47 28 34 30 29 2C |40),F(40),G(40),|
000000D0: 48 28 34 30 29 2C 50 28 34 30 29 00 EE 08 0F 00 |H(40),P(40).....|
000000E0: 86 43 47 28 34 30 29 2C 47 47 28 34 30 29 00 10 |.CG(40),GG(40)..|
000000F0: 09 11 00 99 22 93 90 20 20 20 20 20 20 20 20 20 |....".. |
00000100: 20 20 12 54 48 45 20 49 4E 56 45 53 54 4F 52 22 | .THE INVESTOR"|
00000110: 00 3C 09 14 00 99 22 90 13 11 11 11 54 4F 44 41 |.<....".....TODA|
00000120: 59 27 53 20 44 41 54 45 20 49 53 20 4D 4D 2F 44 |Y'S DATE IS MM/D|
00000130: 44 2F 59 59 3A 1C 22 3B 42 4B 24 3B 00 53 09 16 |D/YY:.";BK$;.S..|
00000140: 00 4E 43 B2 38 3A 4D 4F B2 31 33 30 3A 8D 36 30 |.NC.8:MO.130:.60|
00000150: 35 30 30 00 61 09 17 00 8B 41 24 B2 22 22 A7 32 |500.a....A$."".2|
00000160: 30 00 6C 09 18 00 54 44 24 B2 41 24 00 74 09 19 |0.l...TD$.A$.t..|
00000170: 00 58 B2 31 00 95 09 1E 00 99 22 93 90 22 3B A6 |.X.1......"..";.|
00000180: 31 34 29 22 12 54 48 45 20 49 4E 56 45 53 54 4F |14)".THE INVESTO|
00000190: 52 92 11 11 22 00 B3 09 23 00 99 A6 34 29 22 28 |R..."...#...4)"(|
000001A0: 31 29 20 55 50 44 41 54 45 20 4F 4C 44 20 46 49 |1) UPDATE OLD FI|
000001B0: 4C 45 22 00 D1 09 28 00 99 A6 34 29 22 28 32 29 |LE"...(...4)"(2)|
000001C0: 20 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 | CREATE NEW FILE|
000001D0: 22 00 D7 09 2C 00 99 00 F8 09 2D 00 99 A6 34 29 |"...,.....-...4)|
000001E0: 22 28 33 29 20 52 45 54 55 52 4E 20 54 4F 20 4C |"(3) RETURN TO L|
000001F0: 4F 41 44 53 54 41 52 22 00 18 0A 32 00 99 22 11 |OADSTAR"...2..".|
00000200: 11 20 20 20 20 43 48 4F 4F 53 45 20 31 2C 20 32 |. CHOOSE 1, 2|
00000210: 2C 20 4F 52 20 33 3A 22 00 3A 0A 37 00 97 31 39 |, OR 3:".:.7..19|
00000220: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 5A 24 3A 8B |8,0:.198,1:.Z$:.|
00000230: 5A 24 B2 22 31 22 A7 31 32 35 00 49 0A 3C 00 8B |Z$."1".125.I.<..|
00000240: 5A 24 B2 22 32 22 A7 36 35 00 5B 0A 3D 00 8B 5A |Z$."2".65.[.=..Z|
00000250: 24 B2 22 33 22 A7 36 30 30 30 30 00 63 0A 3F 00 |$."3".60000.c.?.|
00000260: 89 35 35 00 82 0A 41 00 99 22 93 22 3B A6 31 34 |.55...A..".";.14|
00000270: 29 22 12 43 52 45 41 54 45 20 46 49 4C 45 92 11 |)".CREATE FILE..|
00000280: 11 22 00 8A 0A 46 00 49 B2 31 00 97 0A 4B 00 8B |."...F.I.1...K..|
00000290: 49 B2 31 A7 89 38 35 00 B8 0A 50 00 99 22 93 12 |I.1..85...P.."..|
000002A0: 50 52 45 56 49 4F 55 53 3D 22 3B 41 24 28 49 AB |PREVIOUS=";A$(I.|
000002B0: 31 29 3A 99 22 92 11 22 00 F8 0A 55 00 99 22 13 |1):.".."...U..".|
000002C0: 11 11 4E 41 4D 45 20 4F 46 20 49 4E 56 45 53 54 |..NAME OF INVEST|
000002D0: 4D 45 4E 54 3A 22 3B 42 4B 24 3B 3A 4D 4F B2 31 |MENT:";BK$;:MO.1|
000002E0: 34 36 3A 4E 43 B2 32 30 3A 8D 36 30 35 30 30 3A |46:NC.20:.60500:|
000002F0: 41 24 28 49 29 B2 41 24 00 06 0B 56 00 8B 41 24 |A$(I).A$...V..A$|
00000300: B2 22 22 A7 38 35 00 49 0B 5A 00 99 22 13 11 11 |."".85.I.Z.."...|
00000310: 11 11 44 41 54 45 20 42 4F 55 47 48 54 20 4D 4D |..DATE BOUGHT MM|
00000320: 2F 44 44 2F 59 59 3A 22 3B 42 4B 24 3B 3A 4D 4F |/DD/YY:";BK$;:MO|
00000330: B2 31 33 30 3A 4E 43 B2 38 3A 8D 36 30 35 30 30 |.130:NC.8:.60500|
00000340: 3A 42 24 28 49 29 B2 41 24 00 57 0B 5D 00 8B 41 |:B$(I).A$.W.]..A|
00000350: 24 B2 22 22 A7 39 30 00 90 0B 5F 00 99 22 13 11 |$."".90..._.."..|
00000360: 11 11 11 11 11 23 20 53 48 41 52 45 53 3A 22 3B |.....# SHARES:";|
00000370: 42 4B 24 3B 3A 4E 43 B2 38 3A 4D 4F B2 32 3A 8D |BK$;:NC.8:MO.2:.|
00000380: 36 30 35 30 30 3A 44 28 49 29 B2 C5 28 41 24 29 |60500:D(I)..(A$)|
00000390: 00 9E 0B 61 00 8B 41 24 B2 22 22 A7 39 35 00 E3 |...a..A$."".95..|
000003A0: 0B 64 00 99 22 13 11 11 11 11 11 11 11 11 50 52 |.d..".........PR|
000003B0: 49 43 45 20 50 45 52 20 53 48 41 52 45 3A 24 22 |ICE PER SHARE:$"|
000003C0: 3B 42 4B 24 3B 3A 4E 43 B2 39 3A 4D 4F B2 31 33 |;BK$;:NC.9:MO.13|
000003D0: 30 3A 8D 36 30 35 30 30 3A 50 28 49 29 B2 C5 28 |0:.60500:P(I)..(|
000003E0: 41 24 29 00 F2 0B 67 00 8B 41 24 B2 22 22 A7 31 |A$)...g..A$."".1|
000003F0: 30 30 00 05 0C 69 00 43 28 49 29 B2 44 28 49 29 |00...i.C(I).D(I)|
00000400: AC 50 28 49 29 00 43 0C 6E 00 99 22 13 11 11 11 |.P(I).C.n.."....|
00000410: 11 11 11 11 11 11 11 43 4F 4D 4D 49 53 53 49 4F |.......COMMISSIO|
00000420: 4E 20 43 48 41 52 47 45 3A 24 22 3B 42 4B 24 3B |N CHARGE:$";BK$;|
00000430: 3A 4E 43 B2 39 3A 4D 4F B2 31 33 30 3A 8D 36 30 |:NC.9:MO.130:.60|
00000440: 35 30 30 00 53 0C 6F 00 43 43 28 49 29 B2 C5 28 |500.S.o.CC(I)..(|
00000450: 41 24 29 00 62 0C 71 00 8B 41 24 B2 22 22 A7 31 |A$).b.q..A$."".1|
00000460: 31 30 00 9E 0C 73 00 99 22 4D 4F 52 45 3F 20 59 |10...s.."MORE? Y|
00000470: 2F 4E 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C |/N":.198,0:.198,|
00000480: 31 3A A1 5A 24 3A 8B 5A 24 B2 22 59 22 B0 5A 24 |1:.Z$:.Z$."Y".Z$|
00000490: B2 22 D9 22 A7 49 B2 49 AA 31 3A 89 38 30 00 BE |.".".I.I.1:.80..|
000004A0: 0C 75 00 8B 5A 24 B3 B1 22 4E 22 AF 5A 24 B3 B1 |.u..Z$.."N".Z$..|
000004B0: 22 CE 22 A7 99 22 91 22 3B 3A 89 31 31 35 00 CD |"."..".";:.115..|
000004C0: 0C 78 00 49 B2 49 AA 31 3A 89 33 38 35 00 E7 0C |.x.I.I.1:.385...|
000004D0: 7D 00 99 22 93 22 3B A6 31 37 29 22 12 55 50 44 |}..".";.17)".UPD|
000004E0: 41 54 45 92 11 11 22 00 18 0D 80 00 99 22 46 49 |ATE..."......"FI|
000004F0: 4C 45 20 4E 41 4D 45 3D 22 3B 42 4B 24 3B 3A 4E |LE NAME=";BK$;:N|
00000500: 43 B2 31 36 3A 4D 4F B2 31 34 36 3A 8D 36 30 35 |C.16:MO.146:.605|
00000510: 30 30 3A 4E 24 B2 41 24 00 44 0D 82 00 99 22 93 |00:N$.A$.D....".|
00000520: 22 3A 99 A6 37 29 22 4C 4F 41 44 20 46 52 4F 4D |":..7)"LOAD FROM|
00000530: 20 12 54 92 41 50 45 20 4F 52 20 12 44 92 49 53 | .T.APE OR .D.IS|
00000540: 4B 92 3F 22 00 6D 0D 87 00 97 31 39 38 2C 30 3A |K.?".m....198,0:|
00000550: 92 31 39 38 2C 31 3A A1 5A 24 3A 8B 5A 24 B2 22 |.198,1:.Z$:.Z$."|
00000560: 54 22 B0 5A 24 B2 22 D4 22 A7 31 37 30 00 86 0D |T".Z$.".".170...|
00000570: 88 00 8B 5A 24 B3 B1 22 44 22 AF 5A 24 B3 B1 22 |...Z$.."D".Z$.."|
00000580: C4 22 A7 31 33 30 00 AE 0D 89 00 9F 31 35 2C 38 |.".130......15,8|
00000590: 2C 31 35 2C 22 52 30 3A 22 AA 4E 24 AA 22 3D 22 |,15,"R0:".N$."="|
000005A0: AA 4E 24 3A 84 31 35 2C 45 52 3A A0 31 35 00 BD |.N$:.15,ER:.15..|
000005B0: 0D 8A 00 8B 45 52 B2 36 33 A7 31 34 30 00 E6 0D |....ER.63.140...|
000005C0: 8B 00 99 22 11 1C 46 49 4C 45 20 4E 4F 54 20 46 |..."..FILE NOT F|
000005D0: 4F 55 4E 44 2E 22 3A 81 41 B2 31 A4 31 30 30 30 |OUND.":.A.1.1000|
000005E0: 3A 82 3A 89 33 30 00 FC 0D 8C 00 9F 31 2C 38 2C |:.:.30......1,8,|
000005F0: 32 2C AA 4E 24 AA 22 2C 53 2C 52 22 00 04 0E 91 |2,.N$.",S,R"....|
00000600: 00 49 B2 31 00 27 0E 96 00 84 31 2C 41 24 28 49 |.I.1.'....1,A$(I|
00000610: 29 2C 42 24 28 49 29 2C 43 28 49 29 2C 43 43 28 |),B$(I),C(I),CC(|
00000620: 49 29 2C 44 28 49 29 00 31 0E 9B 00 49 B2 49 AA |I),D(I).1...I.I.|
00000630: 31 00 3F 0E A0 00 8B 53 54 B2 30 89 31 35 30 00 |1.?....ST.0.150.|
00000640: 63 0E A5 00 A0 31 3A 99 22 93 22 3B A6 31 34 29 |c....1:.".";.14)|
00000650: 22 46 49 4C 45 20 4C 4F 41 44 45 44 11 22 3A 89 |"FILE LOADED.":.|
00000660: 32 31 30 00 77 0E AA 00 99 A6 31 37 29 22 55 50 |210.w.....17)"UP|
00000670: 44 41 54 45 11 11 22 00 85 0E AF 00 9F 31 2C 31 |DATE.."......1,1|
00000680: 2C 30 2C 4E 24 00 8D 0E B4 00 49 B2 31 00 B0 0E |,0,N$.....I.1...|
00000690: B9 00 84 31 2C 41 24 28 49 29 2C 42 24 28 49 29 |...1,A$(I),B$(I)|
000006A0: 2C 43 28 49 29 2C 43 43 28 49 29 2C 44 28 49 29 |,C(I),CC(I),D(I)|
000006B0: 00 BA 0E BE 00 49 B2 49 AA 31 00 C8 0E C3 00 8B |.....I.I.1......|
000006C0: 53 54 B2 30 89 31 38 35 00 E8 0E C8 00 A0 31 3A |ST.0.185......1:|
000006D0: 99 22 93 22 3A 99 A6 31 34 29 22 46 49 4C 45 20 |.".":..14)"FILE |
000006E0: 4C 4F 41 44 45 44 11 22 00 08 0F CD 00 99 A6 31 |LOADED.".......1|
000006F0: 31 29 22 12 50 52 45 53 53 20 53 54 4F 50 20 4F |1)".PRESS STOP O|
00000700: 4E 20 54 41 50 45 92 22 00 2F 0F D2 00 99 A6 37 |N TAPE."./.....7|
00000710: 29 22 12 55 50 44 41 54 45 20 42 45 46 4F 52 45 |)".UPDATE BEFORE|
00000720: 20 50 52 49 4E 54 49 4E 47 20 4F 55 54 92 22 00 | PRINTING OUT.".|
00000730: 4F 0F D7 00 99 A6 38 29 22 11 11 31 3D 55 50 44 |O.....8)"..1=UPD|
00000740: 41 54 45 20 49 4E 56 45 53 54 4D 45 4E 54 22 00 |ATE INVESTMENT".|
00000750: 6D 0F DC 00 99 A6 38 29 22 32 3D 41 44 44 20 41 |m.....8)"2=ADD A|
00000760: 4E 20 49 4E 56 45 53 54 4D 45 4E 54 22 00 8E 0F |N INVESTMENT"...|
00000770: E1 00 99 A6 38 29 22 33 3D 44 45 4C 45 54 45 20 |....8)"3=DELETE |
00000780: 41 4E 20 49 4E 56 45 53 54 4D 45 4E 54 22 00 A8 |AN INVESTMENT"..|
00000790: 0F E6 00 99 A6 38 29 22 34 3D 46 49 4C 45 20 43 |.....8)"4=FILE C|
000007A0: 4F 4D 50 4C 45 54 45 22 00 C5 0F EB 00 99 A6 38 |OMPLETE".......8|
000007B0: 29 22 35 3D 45 52 52 4F 52 20 43 4F 52 52 45 43 |)"5=ERROR CORREC|
000007C0: 54 49 4F 4E 22 00 DC 0F F0 00 99 A6 38 29 22 36 |TION".......8)"6|
000007D0: 3D 53 54 4F 43 4B 20 53 4F 4C 44 22 00 F6 0F F5 |=STOCK SOLD"....|
000007E0: 00 99 A6 38 29 22 37 3D 43 41 50 20 47 41 49 4E |...8)"7=CAP GAIN|
000007F0: 20 44 41 54 41 22 00 15 10 F6 00 99 A6 38 29 22 | DATA".......8)"|
00000800: 38 3D 52 45 54 55 52 4E 20 54 4F 20 4C 4F 41 44 |8=RETURN TO LOAD|
00000810: 53 54 41 52 22 00 51 10 FA 00 99 22 11 20 20 20 |STAR".Q....". |
00000820: 20 20 20 20 20 43 48 4F 4F 53 45 20 31 2D 38 3A | CHOOSE 1-8:|
00000830: 20 9D 22 3B 42 4B 24 3B 3A 4E 43 B2 31 3A 4D 4F | .";BK$;:NC.1:MO|
00000840: B2 32 3A 8D 36 30 35 30 30 3A 5A B2 C5 28 41 24 |.2:.60500:Z..(A$|
00000850: 29 00 7A 10 FF 00 91 5A 89 32 36 30 2C 34 34 35 |).z....Z.260,445|
00000860: 2C 34 35 30 2C 33 38 35 2C 34 39 30 2C 37 37 30 |,450,385,490,770|
00000870: 2C 39 33 35 2C 36 30 30 30 30 00 89 10 01 01 99 |,935,60000......|
00000880: 22 91 22 3B 3A 89 32 35 30 00 96 10 04 01 81 58 |".";:.250......X|
00000890: B2 31 A4 49 AB 31 00 B5 10 09 01 45 28 58 29 B2 |.1.I.1.....E(X).|
000008A0: 28 28 43 28 58 29 AC 2E 31 29 AA 43 28 58 29 29 |((C(X)..1).C(X))|
000008B0: AD 44 28 58 29 00 CC 10 0E 01 45 31 B2 B5 28 45 |.D(X).....E1..(E|
000008C0: 28 58 29 AC 31 30 30 29 AD 31 30 30 00 EC 10 13 |(X).100).100....|
000008D0: 01 8B 45 28 58 29 B1 B2 45 31 AA 2E 30 30 35 A7 |..E(X)..E1..005.|
000008E0: 45 28 58 29 B2 45 31 AA 2E 30 30 31 00 07 11 18 |E(X).E1..001....|
000008F0: 01 8B 45 28 58 29 B3 B2 45 31 AA 2E 30 30 35 A7 |..E(X)..E1..005.|
00000900: 45 28 58 29 B2 45 31 00 26 11 1D 01 46 28 58 29 |E(X).E1.&...F(X)|
00000910: B2 28 28 43 28 58 29 AC 2E 32 29 AA 43 28 58 29 |.((C(X)..2).C(X)|
00000920: 29 AD 44 28 58 29 00 3D 11 22 01 46 31 B2 B5 28 |).D(X).=.".F1..(|
00000930: 46 28 58 29 AC 31 30 30 29 AD 31 30 30 00 5D 11 |F(X).100).100.].|
00000940: 27 01 8B 46 28 58 29 B1 B2 46 31 AA 2E 30 30 35 |'..F(X)..F1..005|
00000950: A7 46 28 58 29 B2 46 31 AA 2E 30 30 31 00 78 11 |.F(X).F1..001.x.|
00000960: 2C 01 8B 46 28 58 29 B3 B2 46 31 AA 2E 30 30 35 |,..F(X)..F1..005|
00000970: A7 46 28 58 29 B2 46 31 00 97 11 31 01 47 28 58 |.F(X).F1...1.G(X|
00000980: 29 B2 28 28 43 28 58 29 AC 2E 33 29 AA 43 28 58 |).((C(X)..3).C(X|
00000990: 29 29 AD 44 28 58 29 00 AE 11 36 01 47 31 B2 B5 |)).D(X)...6.G1..|
000009A0: 28 47 28 58 29 AC 31 30 30 29 AD 31 30 30 00 CE |(G(X).100).100..|
000009B0: 11 3B 01 8B 47 28 58 29 B1 B2 47 31 AA 2E 30 30 |.;..G(X)..G1..00|
000009C0: 35 A7 47 28 58 29 B2 47 31 AA 2E 30 30 31 00 E9 |5.G(X).G1..001..|
000009D0: 11 40 01 8B 47 28 58 29 B3 B2 47 31 AA 2E 30 30 |.@..G(X)..G1..00|
000009E0: 35 A7 47 28 58 29 B2 47 31 00 08 12 45 01 48 28 |5.G(X).G1...E.H(|
000009F0: 58 29 B2 28 28 43 28 58 29 AC 2E 34 29 AA 43 28 |X).((C(X)..4).C(|
00000A00: 58 29 29 AD 44 28 58 29 00 1F 12 4A 01 48 31 B2 |X)).D(X)...J.H1.|
00000A10: B5 28 48 28 58 29 AC 31 30 30 29 AD 31 30 30 00 |.(H(X).100).100.|
00000A20: 3F 12 4F 01 8B 48 28 58 29 B1 B2 48 31 AA 2E 30 |?.O..H(X)..H1..0|
00000A30: 30 35 A7 48 28 58 29 B2 48 31 AA 2E 30 30 31 00 |05.H(X).H1..001.|
00000A40: 5A 12 54 01 8B 48 28 58 29 B3 B2 48 31 AA 2E 30 |Z.T..H(X)..H1..0|
00000A50: 30 35 A7 48 28 58 29 B2 48 31 00 8F 12 59 01 99 |05.H(X).H1...Y..|
00000A60: 22 93 22 3B A6 35 29 22 43 4F 4D 50 55 54 49 4E |".";.5)"COMPUTIN|
00000A70: 47 20 43 41 50 49 54 41 4C 20 47 41 49 4E 20 28 |G CAPITAL GAIN (|
00000A80: 4C 4F 53 53 29 11 11 22 3A 99 41 24 28 58 29 00 |LOSS)..":.A$(X).|
00000A90: D3 12 5E 01 99 22 43 55 52 52 45 4E 54 20 50 52 |..^.."CURRENT PR|
00000AA0: 49 43 45 20 50 45 52 20 53 48 41 52 45 3D 22 3B |ICE PER SHARE=";|
00000AB0: 42 4B 24 3B 3A 4D 4F B2 31 33 30 3A 4E 43 B2 39 |BK$;:MO.130:NC.9|
00000AC0: 3A 8D 36 30 35 30 30 3A 43 50 28 58 29 B2 C5 28 |:.60500:CP(X)..(|
00000AD0: 41 24 29 00 EF 12 63 01 43 47 28 58 29 B2 28 43 |A$)...c.CG(X).(C|
00000AE0: 50 28 58 29 AC 44 28 58 29 29 AB 43 28 58 29 00 |P(X).D(X)).C(X).|
00000AF0: 13 13 68 01 50 47 28 58 29 B2 28 43 47 28 58 29 |..h.PG(X).(CG(X)|
00000B00: AD 43 28 58 29 29 AC 31 30 30 3A 58 54 B2 50 47 |.C(X)).100:XT.PG|
00000B10: 28 31 29 00 38 13 6A 01 50 47 28 58 29 B2 B5 28 |(1).8.j.PG(X)..(|
00000B20: 50 47 28 58 29 AD 2E 31 29 3A 50 47 28 58 29 B2 |PG(X)..1):PG(X).|
00000B30: 50 47 28 58 29 AC 2E 31 00 47 13 6D 01 54 43 B2 |PG(X)..1.G.m.TC.|
00000B40: 43 28 58 29 AA 54 43 00 57 13 72 01 50 52 B2 43 |C(X).TC.W.r.PR.C|
00000B50: 47 28 58 29 AA 50 52 00 5D 13 77 01 82 00 85 13 |G(X).PR.].w.....|
00000B60: 7C 01 54 47 B2 28 50 52 AD 54 43 29 AC 31 30 30 ||.TG.(PR.TC).100|
00000B70: 3A 54 47 B2 B5 28 54 47 AD 2E 31 29 3A 54 47 B2 |:TG..(TG..1):TG.|
00000B80: 54 47 AC 2E 31 00 BD 13 81 01 99 22 93 22 3A 99 |TG..1......".":.|
00000B90: A6 38 29 22 31 3D 50 52 49 4E 54 20 48 41 52 44 |.8)"1=PRINT HARD|
00000BA0: 20 43 4F 50 59 11 22 3A 99 A6 38 29 22 32 3D 53 | COPY.":..8)"2=S|
00000BB0: 41 56 45 20 54 4F 20 54 41 50 45 11 22 00 F1 13 |AVE TO TAPE."...|
00000BC0: 86 01 99 A6 38 29 22 33 3D 53 41 56 45 20 54 4F |....8)"3=SAVE TO|
00000BD0: 20 44 49 53 4B 11 22 3A 99 A6 38 29 22 34 3D 50 | DISK.":..8)"4=P|
00000BE0: 52 49 4E 54 20 54 4F 20 53 43 52 45 45 4E 11 22 |RINT TO SCREEN."|
00000BF0: 3A 00 26 14 8B 01 99 A6 38 29 22 35 3D 52 45 52 |:.&.....8)"5=RER|
00000C00: 55 4E 20 50 52 4F 47 52 41 4D 22 3A 99 A6 38 29 |UN PROGRAM":..8)|
00000C10: 22 11 36 3D 45 52 52 4F 52 20 43 4F 52 52 45 43 |".6=ERROR CORREC|
00000C20: 54 49 4F 4E 11 22 00 45 14 8C 01 99 A6 38 29 22 |TION.".E.....8)"|
00000C30: 37 3D 52 45 54 55 52 4E 20 54 4F 20 4C 4F 41 44 |7=RETURN TO LOAD|
00000C40: 53 54 41 52 22 00 82 14 8D 01 99 22 11 11 20 20 |STAR"......".. |
00000C50: 20 20 20 20 20 20 43 48 4F 4F 53 45 20 31 2D 37 | CHOOSE 1-7|
00000C60: 3A 20 9D 22 3B 42 4B 24 3B 3A 4D 4F B2 32 3A 4E |: .";BK$;:MO.2:N|
00000C70: 43 B2 31 3A 8D 36 30 35 30 30 3A 5A B2 C5 28 41 |C.1:.60500:Z..(A|
00000C80: 24 29 00 A7 14 90 01 91 5A 89 35 39 30 2C 34 30 |$)......Z.590,40|
00000C90: 35 2C 36 37 35 2C 37 31 30 2C 37 36 35 2C 34 39 |5,675,710,765,49|
00000CA0: 30 2C 36 30 30 30 30 00 B6 14 92 01 99 22 91 22 |0,60000......"."|
00000CB0: 3B 3A 89 33 39 36 00 D1 14 95 01 99 A6 39 29 22 |;:.396.......9)"|
00000CC0: 12 4C 4F 41 44 20 44 41 54 41 20 54 41 50 45 92 |.LOAD DATA TAPE.|
00000CD0: 22 00 02 15 9A 01 99 22 46 49 4C 45 20 4E 41 4D |"......"FILE NAM|
00000CE0: 45 3D 22 3B 42 4B 24 3B 3A 4E 43 B2 31 36 3A 4D |E=";BK$;:NC.16:M|
00000CF0: 4F B2 31 34 34 3A 8D 36 30 35 30 30 3A 4E 24 B2 |O.144:.60500:N$.|
00000D00: 41 24 00 10 15 9F 01 9F 31 2C 31 2C 32 2C 4E 24 |A$......1,1,2,N$|
00000D10: 00 1D 15 A4 01 81 59 B2 31 A4 49 AB 31 00 4C 15 |......Y.1.I.1.L.|
00000D20: A9 01 98 31 2C 41 24 28 59 29 3B 52 24 3B 42 24 |...1,A$(Y);R$;B$|
00000D30: 28 59 29 3B 52 24 3B 43 28 59 29 3B 52 24 3B 43 |(Y);R$;C(Y);R$;C|
00000D40: 43 28 59 29 3B 52 24 3B 44 28 59 29 00 53 15 AE |C(Y);R$;D(Y).S..|
00000D50: 01 82 59 00 6E 15 B3 01 99 A6 31 33 29 22 46 49 |..Y.n.....13)"FI|
00000D60: 4C 45 20 43 4F 4D 50 4C 45 54 45 11 11 22 00 7A |LE COMPLETE..".z|
00000D70: 15 B8 01 A0 31 3A 89 32 31 30 00 82 15 BD 01 89 |....1:.210......|
00000D80: 38 30 00 A4 15 C2 01 99 A6 31 35 29 22 93 44 45 |80.......15)".DE|
00000D90: 4C 45 54 45 20 41 4E 20 49 4E 56 45 53 54 4D 45 |LETE AN INVESTME|
00000DA0: 4E 54 11 22 00 C0 15 C7 01 81 58 B2 31 A4 49 AB |NT."......X.1.I.|
00000DB0: 31 3A 99 A6 31 30 29 58 3B 41 24 28 58 29 3A 82 |1:..10)X;A$(X):.|
00000DC0: 00 F8 15 CC 01 99 22 11 4E 55 4D 42 45 52 20 54 |......".NUMBER T|
00000DD0: 4F 20 44 45 4C 45 54 45 3A 22 3B 42 4B 24 3B 3A |O DELETE:";BK$;:|
00000DE0: 4E 43 B2 33 3A 4D 4F B2 32 3A 8D 36 30 35 30 30 |NC.3:MO.2:.60500|
00000DF0: 3A 5A B2 C5 28 41 24 29 00 03 16 D1 01 81 58 B2 |:Z..(A$)......X.|
00000E00: 5A A4 49 00 49 16 D6 01 41 24 28 58 29 B2 41 24 |Z.I.I...A$(X).A$|
00000E10: 28 58 AA 31 29 3A 42 24 28 58 29 B2 42 24 28 58 |(X.1):B$(X).B$(X|
00000E20: AA 31 29 3A 43 28 58 29 B2 43 28 58 AA 31 29 3A |.1):C(X).C(X.1):|
00000E30: 43 43 28 58 29 B2 43 43 28 58 AA 31 29 3A 44 28 |CC(X).CC(X.1):D(|
00000E40: 58 29 B2 44 28 58 AA 31 29 00 4F 16 DB 01 82 00 |X).D(X.1).O.....|
00000E50: 8F 16 E0 01 99 22 4D 4F 52 45 20 54 4F 20 44 45 |....."MORE TO DE|
00000E60: 4C 45 54 45 3F 20 59 2F 4E 22 3A 97 31 39 38 2C |LETE? Y/N":.198,|
00000E70: 30 3A 92 31 39 38 2C 31 3A A1 5A 24 3A 8B 5A 24 |0:.198,1:.Z$:.Z$|
00000E80: B2 22 59 22 B0 5A 24 B2 22 D9 22 A7 34 35 30 00 |."Y".Z$.".".450.|
00000E90: AF 16 E1 01 8B 5A 24 B3 B1 22 4E 22 AF 41 24 B3 |.....Z$.."N".A$.|
00000EA0: B1 22 CE 22 A7 99 22 91 22 3B 3A 89 34 38 30 00 |."."..".";:.480.|
00000EB0: B8 16 E5 01 89 39 31 35 00 D7 16 EA 01 99 A6 31 |.....915.......1|
00000EC0: 32 29 22 93 12 45 52 52 4F 52 20 43 4F 52 52 45 |2)"..ERROR CORRE|
00000ED0: 43 54 49 4F 4E 92 22 00 EF 16 EF 01 81 58 B2 31 |CTION."......X.1|
00000EE0: A4 49 AB 31 3A 99 58 3B 41 24 28 58 29 3A 82 00 |.I.1:.X;A$(X):..|
00000EF0: 29 17 F4 01 99 22 11 11 43 4F 52 52 45 43 54 20 |)...."..CORRECT |
00000F00: 57 48 49 43 48 3F 20 2D 3E 22 3B 42 4B 24 3B 3A |WHICH? ->";BK$;:|
00000F10: 4D 4F B2 32 3A 4E 43 B2 33 3A 8D 36 30 35 30 30 |MO.2:NC.3:.60500|
00000F20: 3A 4D 25 B2 C5 28 41 24 29 00 3C 17 F9 01 99 A6 |:M%..(A$).<.....|
00000F30: 38 29 22 12 31 92 20 4E 41 4D 45 22 00 56 17 FE |8)".1. NAME".V..|
00000F40: 01 99 A6 38 29 22 12 32 92 20 44 41 54 45 20 42 |...8)".2. DATE B|
00000F50: 4F 55 47 48 54 22 00 6D 17 03 02 99 A6 38 29 22 |OUGHT".m.....8)"|
00000F60: 12 33 92 20 23 20 53 48 41 52 45 53 22 00 81 17 |.3. # SHARES"...|
00000F70: 08 02 99 A6 38 29 22 12 34 92 20 50 52 49 43 45 |....8)".4. PRICE|
00000F80: 22 00 9A 17 0D 02 99 A6 38 29 22 12 35 92 20 43 |".......8)".5. C|
00000F90: 4F 4D 4D 49 53 53 49 4F 4E 22 00 B5 17 12 02 99 |OMMISSION"......|
00000FA0: 22 43 4F 52 52 45 43 54 49 4E 47 20 22 3B 41 24 |"CORRECTING ";A$|
00000FB0: 28 4D 25 29 3B 00 E6 17 15 02 99 22 43 48 4F 4F |(M%);......"CHOO|
00000FC0: 53 45 20 31 2D 35 3A 22 3B 42 4B 24 3B 3A 4E 43 |SE 1-5:";BK$;:NC|
00000FD0: B2 31 3A 4D 4F B2 32 3A 8D 36 30 35 30 30 3A 43 |.1:MO.2:.60500:C|
00000FE0: B2 C5 28 41 24 29 00 01 18 17 02 91 43 89 35 34 |..(A$)......C.54|
00000FF0: 30 2C 35 35 30 2C 35 36 30 2C 35 37 30 2C 35 38 |0,550,560,570,58|
00001000: 30 00 42 18 1C 02 99 41 24 28 4D 25 29 22 2D 43 |0.B....A$(M%)"-C|
00001010: 48 41 4E 47 45 20 4E 41 4D 45 20 54 4F 3A 22 3B |HANGE NAME TO:";|
00001020: 42 4B 24 3B 3A 4E 43 B2 32 30 3A 4D 4F B2 31 34 |BK$;:NC.20:MO.14|
00001030: 36 3A 8D 36 30 35 30 30 3A 41 24 28 4D 25 29 B2 |6:.60500:A$(M%).|
00001040: 41 24 00 4B 18 21 02 89 33 38 35 00 84 18 26 02 |A$.K.!..385...&.|
00001050: 99 41 24 28 4D 25 29 3A 99 22 2D 43 48 41 4E 47 |.A$(M%):."-CHANG|
00001060: 45 20 44 41 54 45 20 4D 4D 2F 44 44 2F 59 59 20 |E DATE MM/DD/YY |
00001070: 22 3B 42 24 28 4D 25 29 3B 22 20 54 4F 3A 22 3B |";B$(M%);" TO:";|
00001080: 42 4B 24 3B 00 A5 18 29 02 4D 4F B2 31 33 30 3A |BK$;...).MO.130:|
00001090: 4E 43 B2 38 3A 8D 36 30 35 30 30 3A 42 24 28 4D |NC.8:.60500:B$(M|
000010A0: 25 29 B2 41 24 00 AE 18 2B 02 89 33 38 35 00 E4 |%).A$...+..385..|
000010B0: 18 30 02 99 41 24 28 4D 25 29 3A 99 22 2D 43 48 |.0..A$(M%):."-CH|
000010C0: 41 4E 47 45 20 23 20 4F 46 20 53 48 41 52 45 53 |ANGE # OF SHARES|
000010D0: 20 22 3B 44 28 4D 25 29 3B 22 20 54 4F 3A 22 3B | ";D(M%);" TO:";|
000010E0: 42 4B 24 3B 00 05 19 33 02 4D 4F B2 32 3A 4E 43 |BK$;...3.MO.2:NC|
000010F0: B2 38 3A 8D 36 30 35 30 30 3A 44 28 4D 25 29 B2 |.8:.60500:D(M%).|
00001100: C5 28 41 24 29 00 0E 19 35 02 89 33 38 35 00 3E |.(A$)...5..385.>|
00001110: 19 3A 02 99 41 24 28 4D 25 29 3A 99 22 2D 43 48 |.:..A$(M%):."-CH|
00001120: 41 4E 47 45 20 50 52 49 43 45 20 24 22 50 28 4D |ANGE PRICE $"P(M|
00001130: 25 29 3B 22 20 54 4F 3A 22 3B 42 4B 24 3B 00 61 |%);" TO:";BK$;.a|
00001140: 19 3D 02 4D 4F B2 31 33 30 3A 4E 43 B2 39 3A 8D |.=.MO.130:NC.9:.|
00001150: 36 30 35 30 30 3A 50 28 4D 25 29 B2 C5 28 41 24 |60500:P(M%)..(A$|
00001160: 29 00 7E 19 3F 02 43 28 4D 25 29 B2 28 44 28 4D |).~.?.C(M%).(D(M|
00001170: 25 29 AC 50 28 4D 25 29 29 3A 89 33 38 35 00 B9 |%).P(M%)):.385..|
00001180: 19 44 02 99 41 24 28 4D 25 29 3A 99 22 2D 43 48 |.D..A$(M%):."-CH|
00001190: 41 4E 47 45 20 43 4F 4D 4D 49 53 53 49 4F 4E 20 |ANGE COMMISSION |
000011A0: 43 4F 53 54 20 24 22 43 43 28 4D 25 29 3B 22 20 |COST $"CC(M%);" |
000011B0: 54 4F 3A 22 3B 42 4B 24 3B 00 DD 19 47 02 4D 4F |TO:";BK$;...G.MO|
000011C0: B2 31 33 30 3A 4E 43 B2 39 3A 8D 36 30 35 30 30 |.130:NC.9:.60500|
000011D0: 3A 43 43 28 4D 25 29 B2 C5 28 41 24 29 00 E6 19 |:CC(M%)..(A$)...|
000011E0: 49 02 89 33 38 35 00 0A 1A 4E 02 99 22 93 22 3B |I..385...N..".";|
000011F0: A6 39 29 22 12 50 52 49 4E 54 49 4E 47 20 41 20 |.9)".PRINTING A |
00001200: 48 41 52 44 20 43 4F 50 59 22 00 25 1A 4F 02 9F |HARD COPY".%.O..|
00001210: 31 35 2C 34 2C 31 35 3A A0 31 35 3A 8B 53 54 B2 |15,4,15:.15:.ST.|
00001220: 30 A7 36 30 30 00 4A 1A 50 02 99 22 11 11 1C 59 |0.600.J.P.."...Y|
00001230: 4F 55 52 20 50 52 49 4E 54 45 52 20 49 53 4E 27 |OUR PRINTER ISN'|
00001240: 54 20 4F 4E 4C 49 4E 45 2E 22 00 6E 1A 51 02 99 |T ONLINE.".n.Q..|
00001250: 22 90 43 48 45 43 4B 20 49 54 20 4F 55 54 20 41 |".CHECK IT OUT A|
00001260: 4E 44 20 54 52 59 20 41 47 41 49 4E 2E 22 00 92 |ND TRY AGAIN."..|
00001270: 1A 52 02 99 22 11 50 52 45 53 53 20 5B 52 45 54 |.R..".PRESS [RET|
00001280: 55 52 4E 5D 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |URN] TO CONTINUE|
00001290: 2E 22 00 A9 1A 53 02 A1 41 24 3A 8B 41 24 B3 B1 |."...S..A$:.A$..|
000012A0: C7 28 31 33 29 A7 35 39 35 00 B2 1A 54 02 89 33 |.(13).595...T..3|
000012B0: 38 35 00 C5 1A 58 02 9F 34 2C 34 3A 9D 34 3A 99 |85...X..4,4:.4:.|
000012C0: 54 44 24 3A 99 00 D2 1A 5D 02 81 59 B2 31 A4 49 |TD$:....]..Y.1.I|
000012D0: AB 31 00 09 1B 62 02 98 34 2C 59 3B 41 24 28 59 |.1...b..4,Y;A$(Y|
000012E0: 29 3B 22 20 42 4F 55 47 48 54 20 4F 4E 20 22 3B |);" BOUGHT ON ";|
000012F0: 42 24 28 59 29 3B 22 20 40 20 24 22 3B 28 43 28 |B$(Y);" @ $";(C(|
00001300: 59 29 AD 44 28 59 29 29 3B 00 2B 1B 64 02 98 34 |Y).D(Y));.+.d..4|
00001310: 2C 22 2F 53 48 41 52 45 22 3B 22 20 20 23 53 48 |,"/SHARE";" #SH|
00001320: 41 52 45 53 3D 22 3B 44 28 59 29 00 69 1B 67 02 |ARES=";D(Y).i.g.|
00001330: 98 34 2C 22 43 55 52 52 45 4E 54 20 50 52 49 43 |.4,"CURRENT PRIC|
00001340: 45 3D 20 24 22 3B 43 50 28 59 29 3A 98 34 2C 22 |E= $";CP(Y):.4,"|
00001350: 43 4F 4D 4D 49 53 53 49 4F 4E 20 43 4F 53 54 3D |COMMISSION COST=|
00001360: 20 24 22 3B 43 43 28 59 29 00 9F 1B 6C 02 98 34 | $";CC(Y)...l..4|
00001370: 2C 22 31 30 25 20 50 52 4F 46 49 54 20 40 20 24 |,"10% PROFIT @ $|
00001380: 22 3B 45 28 59 29 3A 98 34 2C 22 32 30 25 20 50 |";E(Y):.4,"20% P|
00001390: 52 4F 46 49 54 20 40 20 24 22 3B 46 28 59 29 00 |ROFIT @ $";F(Y).|
000013A0: D5 1B 71 02 98 34 2C 22 33 30 25 A0 50 52 4F 46 |..q..4,"30%.PROF|
000013B0: 49 54 20 40 20 24 22 3B 47 28 59 29 3A 98 34 2C |IT @ $";G(Y):.4,|
000013C0: 22 34 30 25 20 50 52 4F 46 49 54 20 40 20 24 22 |"40% PROFIT @ $"|
000013D0: 3B 48 28 59 29 00 FC 1B 76 02 98 34 2C 22 43 55 |;H(Y)...v..4,"CU|
000013E0: 52 52 45 4E 54 20 43 41 50 49 54 41 4C 20 47 41 |RRENT CAPITAL GA|
000013F0: 49 4E 3D 20 24 22 3B 43 47 28 59 29 00 22 1C 7B |IN= $";CG(Y).".{|
00001400: 02 98 34 2C 22 41 4D 4F 55 4E 54 20 49 4E 56 45 |..4,"AMOUNT INVE|
00001410: 53 54 45 44 20 20 20 20 20 3D 20 24 22 3B 43 28 |STED = $";C(|
00001420: 59 29 00 50 1C 80 02 98 34 2C 22 43 55 52 52 45 |Y).P....4,"CURRE|
00001430: 4E 54 20 56 41 4C 55 45 20 20 20 20 20 20 20 3D |NT VALUE =|
00001440: 20 24 22 3B 28 43 28 59 29 AA 43 47 28 59 29 29 | $";(C(Y).CG(Y))|
00001450: 00 79 1C 85 02 98 34 2C 22 43 55 52 52 45 4E 54 |.y....4,"CURRENT|
00001460: 20 50 45 52 43 45 4E 54 20 47 41 49 4E 3D 22 3B | PERCENT GAIN=";|
00001470: 50 47 28 59 29 3B 22 25 22 00 82 1C 8A 02 98 34 |PG(Y);"%"......4|
00001480: 3A 82 00 AA 1C 8F 02 98 34 3A 98 34 2C 22 54 4F |:.......4:.4,"TO|
00001490: 54 41 4C 20 41 4D 4F 55 4E 54 20 49 4E 56 45 53 |TAL AMOUNT INVES|
000014A0: 54 45 44 20 3D 24 22 3B 54 43 00 CF 1C 94 02 98 |TED =$";TC......|
000014B0: 34 2C 22 54 4F 54 41 4C 20 43 41 50 49 54 41 4C |4,"TOTAL CAPITAL|
000014C0: 20 47 41 49 4E 20 20 20 20 3D 24 22 3B 50 52 00 | GAIN =$";PR.|
000014D0: F8 1C 99 02 98 34 2C 22 54 4F 54 41 4C 20 50 45 |.....4,"TOTAL PE|
000014E0: 52 43 45 4E 54 20 47 41 49 4E 20 20 20 20 3D 22 |RCENT GAIN ="|
000014F0: 54 47 3B 22 25 22 3A 99 00 15 1D 9E 02 98 34 2C |TG;"%":.......4,|
00001500: C7 28 31 32 29 3A 98 34 3A A0 34 3A 99 22 93 22 |.(12):.4:.4:."."|
00001510: 3A 89 32 31 30 00 45 1D A3 02 99 22 93 22 3B A6 |:.210.E....".";.|
00001520: 35 29 22 12 57 52 49 54 49 4E 47 20 49 4E 56 45 |5)".WRITING INVE|
00001530: 53 54 4D 45 4E 54 20 44 41 54 41 20 54 4F 20 44 |STMENT DATA TO D|
00001540: 49 53 4B 92 22 00 76 1D A8 02 99 22 46 49 4C 45 |ISK.".v...."FILE|
00001550: 20 4E 41 4D 45 3D 22 3B 42 4B 24 3B 3A 4D 4F B2 | NAME=";BK$;:MO.|
00001560: 31 34 36 3A 4E 43 B2 31 36 3A 8D 36 30 35 30 30 |146:NC.16:.60500|
00001570: 3A 4E 24 B2 41 24 00 91 1D AD 02 9F 31 2C 38 2C |:N$.A$......1,8,|
00001580: 32 2C 22 40 30 3A 22 AA 4E 24 AA 22 2C 53 2C 57 |2,"@0:".N$.",S,W|
00001590: 22 00 9E 1D B2 02 81 59 B2 31 A4 49 AB 31 00 CD |"......Y.1.I.1..|
000015A0: 1D B7 02 98 31 2C 41 24 28 59 29 3B 52 24 3B 42 |....1,A$(Y);R$;B|
000015B0: 24 28 59 29 3B 52 24 3B 43 28 59 29 3B 52 24 3B |$(Y);R$;C(Y);R$;|
000015C0: 43 43 28 59 29 3B 52 24 3B 44 28 59 29 00 D3 1D |CC(Y);R$;D(Y)...|
000015D0: BC 02 82 00 E4 1D C1 02 A0 31 3A 99 22 93 22 3A |.........1:.".":|
000015E0: 89 32 31 30 00 11 1E C6 02 99 22 93 48 41 56 45 |.210......".HAVE|
000015F0: 20 59 4F 55 20 55 50 44 41 54 45 44 3F 20 20 59 | YOU UPDATED? Y|
00001600: 2F 4E 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C |/N":.198,0:.198,|
00001610: 31 00 25 1E C8 02 A1 5A 24 3A 8B 5A 24 B2 22 4E |1.%....Z$:.Z$."N|
00001620: 22 A7 32 36 30 00 4E 1E CB 02 99 22 93 22 3B A6 |".260.N....".";.|
00001630: 38 29 22 12 43 4F 50 59 20 49 4E 20 59 4F 55 52 |8)".COPY IN YOUR|
00001640: 20 52 45 43 4F 52 44 20 42 4F 4F 4B 92 22 00 5B | RECORD BOOK.".[|
00001650: 1E D0 02 81 59 B2 31 A4 49 AB 31 00 6F 1E D2 02 |....Y.1.I.1.o...|
00001660: 8B 41 24 28 59 29 B2 22 30 20 22 A7 37 35 35 00 |.A$(Y)."0 ".755.|
00001670: B0 1E D5 02 99 22 11 22 3B 59 3B 41 24 28 59 29 |.....".";Y;A$(Y)|
00001680: 3A 99 22 42 4F 55 47 48 54 20 4F 4E 20 22 3B 42 |:."BOUGHT ON ";B|
00001690: 24 28 59 29 3B 22 20 40 20 24 22 3B 28 43 28 59 |$(Y);" @ $";(C(Y|
000016A0: 29 AD 44 28 59 29 29 3B 22 2F 53 48 41 52 45 22 |).D(Y));"/SHARE"|
000016B0: 00 D9 1E DA 02 99 22 20 20 23 53 48 41 52 45 53 |......" #SHARES|
000016C0: 3D 22 3B 44 28 59 29 3A 99 22 50 52 49 43 45 3D |=";D(Y):."PRICE=|
000016D0: 20 24 22 3B 43 50 28 59 29 00 F9 1E DC 02 99 22 | $";CP(Y)......"|
000016E0: 43 4F 4D 4D 49 53 53 49 4F 4E 20 43 4F 53 54 3D |COMMISSION COST=|
000016F0: 20 24 22 3B 43 43 28 59 29 00 2B 1F DF 02 99 22 | $";CC(Y).+...."|
00001700: 31 30 25 20 50 52 4F 46 49 54 20 40 20 24 22 3B |10% PROFIT @ $";|
00001710: 45 28 59 29 3A 99 22 32 30 25 20 50 52 4F 46 49 |E(Y):."20% PROFI|
00001720: 54 20 40 20 24 22 3B 46 28 59 29 00 5D 1F E4 02 |T @ $";F(Y).]...|
00001730: 99 22 33 30 25 20 50 52 4F 46 49 54 20 40 20 24 |."30% PROFIT @ $|
00001740: 22 3B 47 28 59 29 3A 99 22 34 30 25 20 50 52 4F |";G(Y):."40% PRO|
00001750: 46 49 54 20 40 20 24 22 3B 48 28 59 29 00 7D 1F |FIT @ $";H(Y).}.|
00001760: E9 02 99 22 50 52 45 53 53 20 52 45 54 55 52 4E |..."PRESS RETURN|
00001770: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 94 1F | TO CONTINUE"...|
00001780: EE 02 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 |...A$:.A$...(13)|
00001790: A7 37 35 30 00 9A 1F F3 02 82 00 A8 1F F8 02 99 |.750............|
000017A0: 22 93 22 3A 89 32 31 30 00 AE 1F FD 02 8A 00 F1 |".":.210........|
000017B0: 1F 02 03 99 22 93 48 41 56 45 20 59 4F 55 20 43 |....".HAVE YOU C|
000017C0: 52 45 41 54 45 44 20 41 20 43 41 50 49 54 41 4C |REATED A CAPITAL|
000017D0: 20 47 41 49 4E 20 46 49 4C 45 20 46 4F 52 20 54 | GAIN FILE FOR T|
000017E0: 48 49 53 20 59 45 41 52 3F 20 20 59 2F 4E 11 11 |HIS YEAR? Y/N..|
000017F0: 22 00 1A 20 07 03 97 31 39 38 2C 30 3A 92 31 39 |".. ...198,0:.19|
00001800: 38 2C 31 3A A1 5A 24 3A 8B 5A 24 B2 22 59 22 B0 |8,1:.Z$:.Z$."Y".|
00001810: 5A 24 B2 22 D9 22 A7 39 33 35 00 33 20 0A 03 8B |Z$.".".935.3 ...|
00001820: 5A 24 B3 B1 22 4E 22 AF 41 24 B3 B1 22 CE 22 A7 |Z$.."N".A$..".".|
00001830: 37 37 35 00 58 20 0C 03 81 58 B2 31 A4 49 AB 31 |775.X ...X.1.I.1|
00001840: 3A 99 58 2C C8 28 41 24 28 58 29 2C 38 29 2C 3A |:.X,.(A$(X),8),:|
00001850: 82 3A 99 C7 28 31 33 29 00 85 20 11 03 99 22 11 |.:..(13).. ...".|
00001860: 57 48 49 43 48 20 49 4E 56 45 53 54 4D 45 4E 54 |WHICH INVESTMENT|
00001870: 20 48 41 53 20 42 45 45 4E 20 53 4F 4C 44 3A 22 | HAS BEEN SOLD:"|
00001880: 3B 42 4B 24 3B 00 A2 20 13 03 4D 4F B2 32 3A 4E |;BK$;.. ..MO.2:N|
00001890: 43 B2 33 3A 8D 36 30 35 30 30 3A 5A B2 C5 28 41 |C.3:.60500:Z..(A|
000018A0: 24 29 00 AC 20 16 03 4E B2 4E AA 31 00 E0 20 1B |$).. ..N.N.1.. .|
000018B0: 03 41 47 24 28 4E 29 B2 41 24 28 5A 29 3A 42 47 |.AG$(N).A$(Z):BG|
000018C0: 24 28 4E 29 B2 42 24 28 5A 29 3A 43 44 28 4E 29 |$(N).B$(Z):CD(N)|
000018D0: B2 43 28 5A 29 3A 44 47 28 4E 29 B2 44 28 5A 29 |.C(Z):DG(N).D(Z)|
000018E0: 00 FC 20 1D 03 43 41 28 4E 29 B2 43 47 28 5A 29 |.. ..CA(N).CG(Z)|
000018F0: 3A 47 47 28 4E 29 B2 43 43 28 5A 29 00 30 21 20 |:GG(N).CC(Z).0! |
00001900: 03 99 22 53 4F 4C 44 20 40 3A 24 22 3B 42 4B 24 |.."SOLD @:$";BK$|
00001910: 3B 3A 4D 4F B2 31 33 30 3A 4E 43 B2 39 3A 8D 36 |;:MO.130:NC.9:.6|
00001920: 30 35 30 30 3A 53 41 28 4E 29 B2 C5 28 41 24 29 |0500:SA(N)..(A$)|
00001930: 00 5A 21 25 03 47 43 28 4E 29 B2 28 53 41 28 4E |.Z!%.GC(N).(SA(N|
00001940: 29 AC 44 47 28 4E 29 29 AB 43 44 28 4E 29 3A 41 |).DG(N)).CD(N):A|
00001950: 47 B2 41 47 AA 47 43 28 4E 29 00 97 21 2A 03 99 |G.AG.GC(N)..!*..|
00001960: 22 44 41 54 45 20 53 4F 4C 44 20 4D 4D 2F 44 44 |"DATE SOLD MM/DD|
00001970: 2F 59 59 3A 22 3B 42 4B 24 3B 3A 4D 4F B2 31 33 |/YY:";BK$;:MO.13|
00001980: 30 3A 4E 43 B2 38 3A 8D 36 30 35 30 30 3A 53 44 |0:NC.8:.60500:SD|
00001990: 24 28 4E 29 B2 41 24 00 BC 21 2F 03 99 A6 37 29 |$(N).A$..!/...7)|
000019A0: 22 43 41 50 49 54 41 4C 20 47 41 49 4E 20 44 41 |"CAPITAL GAIN DA|
000019B0: 54 41 20 46 4F 52 20 59 45 41 52 22 00 ED 21 34 |TA FOR YEAR"..!4|
000019C0: 03 99 22 46 49 4C 45 20 4E 41 4D 45 3D 22 3B 42 |.."FILE NAME=";B|
000019D0: 4B 24 3B 3A 4D 4F B2 31 34 36 3A 4E 43 B2 31 36 |K$;:MO.146:NC.16|
000019E0: 3A 8D 36 30 35 30 30 3A 4E 24 B2 41 24 00 12 22 |:.60500:N$.A$.."|
000019F0: 39 03 99 A6 31 30 29 22 93 53 41 56 45 20 54 4F |9...10)".SAVE TO|
00001A00: 20 12 54 92 41 50 45 20 4F 52 20 12 44 92 49 53 | .T.APE OR .D.IS|
00001A10: 4B 22 00 3B 22 3E 03 97 31 39 38 2C 30 3A 92 31 |K".;">..198,0:.1|
00001A20: 39 38 2C 31 3A A1 5A 24 3A 8B 5A 24 B2 22 44 22 |98,1:.Z$:.Z$."D"|
00001A30: B0 5A 24 B2 22 C4 22 A7 38 37 35 00 54 22 40 03 |.Z$.".".875.T"@.|
00001A40: 8B 5A 24 B3 B1 22 54 22 B0 5A 24 B3 B1 22 D4 22 |.Z$.."T".Z$.."."|
00001A50: A7 38 33 30 00 62 22 43 03 9F 32 2C 31 2C 33 2C |.830.b"C..2,1,3,|
00001A60: 4E 24 00 6D 22 48 03 81 58 B2 31 A4 4E 00 B2 22 |N$.m"H..X.1.N.."|
00001A70: 4D 03 98 32 2C 41 47 24 28 58 29 3B 52 24 3B 42 |M..2,AG$(X);R$;B|
00001A80: 47 24 28 58 29 3B 52 24 3B 43 44 28 58 29 3B 52 |G$(X);R$;CD(X);R|
00001A90: 24 3B 44 47 28 58 29 3B 52 24 3B 43 41 28 58 29 |$;DG(X);R$;CA(X)|
00001AA0: 3B 52 24 3B 53 41 28 58 29 3B 52 24 3B 47 47 28 |;R$;SA(X);R$;GG(|
00001AB0: 58 29 00 C6 22 52 03 98 32 2C 53 44 24 28 58 29 |X).."R..2,SD$(X)|
00001AC0: 3B 52 24 3B 41 47 00 D1 22 57 03 81 59 B2 5A A4 |;R$;AG.."W..Y.Z.|
00001AD0: 49 00 17 23 5C 03 41 24 28 59 29 B2 41 24 28 59 |I..#\.A$(Y).A$(Y|
00001AE0: AA 31 29 3A 42 24 28 59 29 B2 42 24 28 59 AA 31 |.1):B$(Y).B$(Y.1|
00001AF0: 29 3A 43 28 59 29 B2 43 28 59 AA 31 29 3A 43 43 |):C(Y).C(Y.1):CC|
00001B00: 28 59 29 B2 43 43 28 59 AA 31 29 3A 44 28 59 29 |(Y).CC(Y.1):D(Y)|
00001B10: B2 44 28 59 AA 31 29 00 2D 23 61 03 45 28 59 29 |.D(Y.1).-#a.E(Y)|
00001B20: B2 45 28 59 AA 31 29 3A 82 59 3A 82 58 00 39 23 |.E(Y.1):.Y:.X.9#|
00001B30: 66 03 A0 32 3A 89 39 31 35 00 53 23 6B 03 9F 32 |f..2:.915.S#k..2|
00001B40: 2C 38 2C 33 2C 22 40 30 3A 22 AA 4E 24 AA 22 53 |,8,3,"@0:".N$."S|
00001B50: 2C 57 22 00 5E 23 70 03 81 58 B2 31 A4 4E 00 A3 |,W".^#p..X.1.N..|
00001B60: 23 75 03 98 32 2C 41 47 24 28 58 29 3B 52 24 3B |#u..2,AG$(X);R$;|
00001B70: 42 47 24 28 58 29 3B 52 24 3B 43 44 28 58 29 3B |BG$(X);R$;CD(X);|
00001B80: 52 24 3B 44 47 28 58 29 3B 52 24 3B 43 41 28 58 |R$;DG(X);R$;CA(X|
00001B90: 29 3B 52 24 3B 53 41 28 58 29 3B 52 24 3B 47 47 |);R$;SA(X);R$;GG|
00001BA0: 28 58 29 00 B7 23 7A 03 98 32 2C 53 44 24 28 58 |(X)..#z..2,SD$(X|
00001BB0: 29 3B 52 24 3B 41 47 00 C2 23 7F 03 81 59 B2 5A |);R$;AG..#...Y.Z|
00001BC0: A4 49 00 08 24 84 03 41 24 28 59 29 B2 41 24 28 |.I..$..A$(Y).A$(|
00001BD0: 59 AA 31 29 3A 42 24 28 59 29 B2 42 24 28 59 AA |Y.1):B$(Y).B$(Y.|
00001BE0: 31 29 3A 43 28 59 29 B2 43 28 59 AA 31 29 3A 43 |1):C(Y).C(Y.1):C|
00001BF0: 43 28 59 29 B2 43 43 28 59 AA 31 29 3A 44 28 59 |C(Y).CC(Y.1):D(Y|
00001C00: 29 B2 44 28 59 AA 31 29 00 1E 24 89 03 45 28 59 |).D(Y.1)..$..E(Y|
00001C10: 29 B2 45 28 59 AA 31 29 3A 82 59 3A 82 58 00 25 |).E(Y.1):.Y:.X.%|
00001C20: 24 8E 03 A0 32 00 57 24 93 03 99 A6 33 29 22 93 |$...2.W$....3)".|
00001C30: 11 20 20 20 20 53 41 56 45 20 54 48 49 53 20 52 |. SAVE THIS R|
00001C40: 45 56 49 53 45 44 20 49 4E 56 45 53 54 4D 45 4E |EVISED INVESTMEN|
00001C50: 54 20 44 41 54 41 22 00 7C 24 98 03 99 A6 31 30 |T DATA".|$....10|
00001C60: 29 22 53 41 56 45 20 54 4F 20 12 54 92 41 50 45 |)"SAVE TO .T.APE|
00001C70: 20 4F 52 20 12 44 92 49 53 4B 3F 22 00 AC 24 9D | OR .D.ISK?"..$.|
00001C80: 03 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.|
00001C90: 5A 24 3A 8B 5A 24 B2 22 54 22 B0 5A 24 B2 22 D4 |Z$:.Z$."T".Z$.".|
00001CA0: 22 A7 49 B2 49 AB 31 3A 89 34 30 35 00 C5 24 9F |".I.I.1:.405..$.|
00001CB0: 03 8B 5A 24 B3 B1 22 44 22 AF 5A 24 B3 B1 22 C4 |..Z$.."D".Z$..".|
00001CC0: 22 A7 39 32 35 00 D4 24 A2 03 49 B2 49 AB 31 3A |".925..$..I.I.1:|
00001CD0: 89 36 37 35 00 FE 24 A7 03 99 22 93 43 41 50 49 |.675..$...".CAPI|
00001CE0: 54 41 4C 20 47 41 49 4E 20 44 41 54 41 20 46 4F |TAL GAIN DATA FO|
00001CF0: 52 20 54 48 49 53 20 59 45 41 52 22 3A 99 00 2F |R THIS YEAR":../|
00001D00: 25 AC 03 99 22 46 49 4C 45 20 4E 41 4D 45 3D 22 |%..."FILE NAME="|
00001D10: 3B 42 4B 24 3B 3A 4D 4F B2 31 34 36 3A 4E 43 B2 |;BK$;:MO.146:NC.|
00001D20: 31 36 3A 8D 36 30 35 30 30 3A 4E 24 B2 41 24 00 |16:.60500:N$.A$.|
00001D30: 6A 25 B1 03 99 22 93 22 3B A6 31 33 29 22 53 41 |j%...".";.13)"SA|
00001D40: 56 45 20 54 4F 20 12 54 92 41 50 45 20 4F 52 20 |VE TO .T.APE OR |
00001D50: 12 44 92 49 53 4B 3F 22 3A 97 31 39 38 2C 30 3A |.D.ISK?":.198,0:|
00001D60: 92 31 39 38 2C 31 3A A1 5A 24 00 85 25 B6 03 8B |.198,1:.Z$..%...|
00001D70: 5A 24 B2 22 54 22 A7 9F 32 2C 31 2C 30 2C 4E 24 |Z$."T"..2,1,0,N$|
00001D80: 3A 89 39 36 30 00 9A 25 BB 03 9F 32 2C 38 2C 33 |:.960..%...2,8,3|
00001D90: 2C AA 4E 24 AA 22 53 2C 52 22 00 A2 25 C0 03 52 |,.N$."S,R"..%..R|
00001DA0: B2 31 00 DF 25 C5 03 84 32 2C 41 47 24 28 52 29 |.1..%...2,AG$(R)|
00001DB0: 2C 42 47 24 28 52 29 2C 43 44 28 52 29 2C 44 47 |,BG$(R),CD(R),DG|
00001DC0: 28 52 29 2C 43 41 28 52 29 2C 53 41 28 52 29 2C |(R),CA(R),SA(R),|
00001DD0: 47 47 28 52 29 2C 53 44 24 28 52 29 2C 41 47 00 |GG(R),SD$(R),AG.|
00001DE0: E9 25 CA 03 52 B2 52 AA 31 00 F7 25 CF 03 8B 53 |.%..R.R.1..%...S|
00001DF0: 54 B2 30 A7 39 36 35 00 FE 25 D4 03 A0 32 00 39 |T.0.965..%...2.9|
00001E00: 26 D9 03 99 22 93 22 3B A6 35 29 22 41 44 44 20 |&...".";.5)"ADD |
00001E10: 4D 4F 52 45 20 49 4E 56 45 53 54 4D 45 4E 54 53 |MORE INVESTMENTS|
00001E20: 20 53 4F 4C 44 20 20 59 2F 4E 22 3A 97 31 39 38 | SOLD Y/N":.198|
00001E30: 2C 30 3A 92 31 39 38 2C 31 00 59 26 DE 03 A1 5A |,0:.198,1.Y&...Z|
00001E40: 24 3A 8B 5A 24 B2 22 59 22 A7 99 22 93 22 3A 4E |$:.Z$."Y"..".":N|
00001E50: B2 52 AB 31 3A 89 37 38 30 00 91 26 E3 03 99 22 |.R.1:.780..&..."|
00001E60: 50 52 49 4E 54 20 54 4F 20 12 53 92 43 52 45 45 |PRINT TO .S.CREE|
00001E70: 4E 20 4F 52 20 12 50 92 52 49 4E 54 45 52 22 3A |N OR .P.RINTER":|
00001E80: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 5A |.198,0:.198,1:.Z|
00001E90: 24 00 A2 26 E8 03 8B 5A 24 B2 22 53 22 A7 31 30 |$..&...Z$."S".10|
00001EA0: 35 35 00 BE 26 E9 03 9F 31 35 2C 34 2C 31 35 3A |55..&...15,4,15:|
00001EB0: A0 31 35 3A 8B 53 54 B2 30 A7 31 30 30 35 00 DA |.15:.ST.0.1005..|
00001EC0: 26 EA 03 99 22 1C 50 52 49 4E 54 45 52 20 4E 4F |&...".PRINTER NO|
00001ED0: 54 20 4F 4E 4C 49 4E 45 21 22 00 EF 26 EB 03 81 |T ONLINE!"..&...|
00001EE0: 41 B2 31 A4 32 30 30 30 3A 82 3A 89 39 39 35 00 |A.1.2000:.:.995.|
00001EF0: FB 26 ED 03 9F 34 2C 34 3A 9D 34 00 25 27 F2 03 |.&...4,4:.4.%'..|
00001F00: 98 34 2C 22 41 4E 4E 55 41 4C 20 43 41 50 2E 20 |.4,"ANNUAL CAP. |
00001F10: 47 41 49 4E 20 44 41 54 41 20 41 53 20 4F 46 20 |GAIN DATA AS OF |
00001F20: 22 3B 54 44 24 00 43 27 F4 03 98 34 2C 22 53 41 |";TD$.C'...4,"SA|
00001F30: 56 45 20 46 4F 52 20 54 41 58 20 52 45 43 4F 52 |VE FOR TAX RECOR|
00001F40: 44 53 22 00 53 27 F7 03 81 58 B2 31 A4 52 AB 31 |DS".S'...X.1.R.1|
00001F50: 3A 98 34 00 89 27 FC 03 98 34 2C 41 47 24 28 58 |:.4..'...4,AG$(X|
00001F60: 29 3B 22 20 42 47 48 54 20 4F 4E 20 22 3B 42 47 |);" BGHT ON ";BG|
00001F70: 24 28 58 29 3B 22 20 40 24 22 3B 28 43 44 28 58 |$(X);" @$";(CD(X|
00001F80: 29 AD 44 47 28 58 29 29 3B 00 A6 27 FE 03 98 34 |).DG(X));..'...4|
00001F90: 2C 22 2F 53 48 52 22 3B 22 20 23 53 48 52 3D 22 |,"/SHR";" #SHR="|
00001FA0: 3B 44 47 28 58 29 00 CB 27 01 04 98 34 2C 22 53 |;DG(X)..'...4,"S|
00001FB0: 4F 4C 44 20 40 24 22 3B 53 41 28 58 29 3B 22 20 |OLD @$";SA(X);" |
00001FC0: 4F 4E 20 22 3B 53 44 24 28 58 29 00 EC 27 03 04 |ON ";SD$(X)..'..|
00001FD0: 98 34 2C 22 43 4F 4D 4D 49 53 53 49 4F 4E 20 43 |.4,"COMMISSION C|
00001FE0: 4F 53 54 3D 24 22 3B 47 47 28 58 29 00 2A 28 06 |OST=$";GG(X).*(.|
00001FF0: 04 98 34 2C 22 43 41 50 49 54 41 4C 20 47 41 49 |..4,"CAPITAL GAI|
00002000: 4E 20 46 4F 52 20 22 3B 41 47 24 28 58 29 3B 22 |N FOR ";AG$(X);"|
00002010: 3D 24 22 3B 28 53 41 28 58 29 AC 44 47 28 58 29 |=$";(SA(X).DG(X)|
00002020: 29 AB 43 44 28 58 29 3A 98 34 00 30 28 0B 04 82 |).CD(X):.4.0(...|
00002030: 00 54 28 10 04 98 34 2C 22 41 4E 4E 55 41 4C 20 |.T(...4,"ANNUAL |
00002040: 43 41 50 49 54 41 4C 20 47 41 49 4E 20 20 3D 24 |CAPITAL GAIN =$|
00002050: 22 3B 41 47 00 64 28 15 04 98 34 2C C7 28 31 32 |";AG.d(...4,.(12|
00002060: 29 3A A0 34 00 72 28 1A 04 99 22 93 22 3A 89 32 |):.4.r(...".":.2|
00002070: 31 30 00 9B 28 1F 04 99 22 93 41 4E 4E 55 41 4C |10..(...".ANNUAL|
00002080: 20 43 41 50 2E 20 47 41 49 4E 20 44 41 54 41 20 | CAP. GAIN DATA |
00002090: 41 53 20 4F 46 20 22 3B 54 44 24 00 BB 28 21 04 |AS OF ";TD$..(!.|
000020A0: 99 22 43 4F 50 59 20 49 4E 20 59 4F 55 52 20 52 |."COPY IN YOUR R|
000020B0: 45 43 4F 52 44 20 42 4F 4F 4B 22 00 CA 28 24 04 |ECORD BOOK"..($.|
000020C0: 81 58 B2 31 A4 52 AB 31 3A 99 00 F1 28 29 04 8B |.X.1.R.1:...()..|
000020D0: 58 B1 33 A7 99 3A 99 22 50 52 45 53 53 20 52 45 |X.3..:."PRESS RE|
000020E0: 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |TURN TO CONTINUE|
000020F0: 22 00 07 29 2B 04 97 31 39 38 2C 30 3A 92 31 39 |"..)+..198,0:.19|
00002100: 38 2C 31 3A A1 5A 24 00 42 29 2E 04 99 41 47 24 |8,1:.Z$.B)...AG$|
00002110: 28 58 29 3B 22 20 42 47 48 54 20 4F 4E 20 22 3B |(X);" BGHT ON ";|
00002120: 42 47 24 28 58 29 3A 99 22 40 24 22 3B 28 43 44 |BG$(X):."@$";(CD|
00002130: 28 58 29 AD 44 47 28 58 29 29 3B 22 2F 53 48 52 |(X).DG(X));"/SHR|
00002140: 22 3B 00 57 29 33 04 99 22 20 20 23 53 48 52 3D |";.W)3.." #SHR=|
00002150: 22 3B 44 47 28 58 29 00 95 29 38 04 99 22 53 4F |";DG(X)..)8.."SO|
00002160: 4C 44 20 40 24 22 3B 53 41 28 58 29 3B 22 20 4F |LD @$";SA(X);" O|
00002170: 4E 20 22 3B 53 44 24 28 58 29 3A 99 22 43 4F 4D |N ";SD$(X):."COM|
00002180: 4D 49 53 53 49 4F 4E 20 43 4F 53 54 3D 24 22 3B |MISSION COST=$";|
00002190: 47 47 28 58 29 00 D0 29 3D 04 99 22 43 41 50 49 |GG(X)..)=.."CAPI|
000021A0: 54 41 4C 20 47 41 49 4E 20 46 4F 52 20 22 3B 41 |TAL GAIN FOR ";A|
000021B0: 47 24 28 58 29 3B 22 3D 24 22 3B 28 53 41 28 58 |G$(X);"=$";(SA(X|
000021C0: 29 AC 44 47 28 58 29 29 AB 43 44 28 58 29 3A 82 |).DG(X)).CD(X):.|
000021D0: 00 F3 29 42 04 99 3A 99 22 41 4E 4E 55 41 4C 20 |..)B..:."ANNUAL |
000021E0: 43 41 50 49 54 41 4C 20 47 41 49 4E 20 3D 24 22 |CAPITAL GAIN =$"|
000021F0: 3B 41 47 00 15 2A 47 04 99 3A 99 22 50 52 45 53 |;AG..*G..:."PRES|
00002200: 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 |S RETURN TO CONT|
00002210: 49 4E 55 45 22 00 35 2A 4C 04 97 31 39 38 2C 30 |INUE".5*L..198,0|
00002220: 3A 92 31 39 38 2C 31 3A A1 5A 24 3A 99 22 93 22 |:.198,1:.Z$:."."|
00002230: 3A 89 32 31 30 00 63 2A 60 EA 9F 31 35 2C 38 2C |:.210.c*`..15,8,|
00002240: 31 35 2C 22 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E |15,"R0:HELLO CON|
00002250: 4E 45 43 54 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 |NECT=HELLO CONNE|
00002260: 43 54 22 00 7C 2A 65 EA 84 31 35 2C 45 52 3A A0 |CT".|*e..15,ER:.|
00002270: 31 35 3A 8B 45 52 B3 B1 36 33 A7 80 00 99 2A 6A |15:.ER..63....*j|
00002280: EA 99 22 93 22 3B 3A 93 22 48 45 4C 4C 4F 20 43 |..".";:."HELLO C|
00002290: 4F 4E 4E 45 43 54 22 2C 38 00 CA 2A C4 EA 50 4E |ONNECT",8..*..PN|
000022A0: 24 B2 22 D4 C8 C5 20 C9 CE D6 C5 D3 D4 CF D2 22 |$."... ........"|
000022B0: 3A 41 4E 24 B2 22 C2 D9 3A 20 20 D3 C1 CE C6 CF |:AN$."..: .....|
000022C0: D2 C4 20 CD CF D2 D2 C9 D3 22 00 E9 2A CE EA 97 |.. ......"..*...|
000022D0: 35 33 32 38 30 2C 2E 3A 97 35 33 32 38 31 2C 2E |53280,.:.53281,.|
000022E0: 3A 99 22 93 08 0E 11 22 3B 00 F3 2A E2 EA 43 4C |:."....";..*..CL|
000022F0: B2 31 34 00 23 2B EC EA 99 22 99 20 20 12 A4 A4 |.14.#+...". ...|
00002300: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002310: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002320: A4 A4 22 00 53 2B F6 EA 99 22 9E 20 20 12 A5 20 |..".S+...". .. |
00002330: 20 CC CF C1 C4 D3 D4 C1 D2 20 C9 D3 20 CE CF D4 | ........ .. ...|
00002340: 20 D0 D5 C2 CC C9 C3 20 C4 CF CD C1 C9 CE 21 20 | ...... ......! |
00002350: 20 A7 22 00 82 2B 00 EB 99 22 20 20 12 A5 D0 4C | ."..+..." ...L|
00002360: 45 41 53 45 20 52 45 53 50 45 43 54 20 54 48 45 |EASE RESPECT THE|
00002370: 20 41 55 54 48 4F 52 27 53 20 52 49 47 48 54 53 | AUTHOR'S RIGHTS|
00002380: A7 22 00 B2 2B 0A EB 99 22 99 20 20 12 A3 A3 A3 |."..+...". ....|
00002390: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000023A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000023B0: A3 22 00 CF 2B 14 EB 99 22 11 11 11 81 22 A3 32 |."..+..."....".2|
000023C0: 30 AB C3 28 50 4E 24 29 AD 32 29 3B 50 4E 24 00 |0..(PN$).2);PN$.|
000023D0: EC 2B 1E EB 99 22 11 11 11 9A 22 A3 32 30 AB C3 |.+..."....".20..|
000023E0: 28 41 4E 24 29 AD 32 29 3B 41 4E 24 00 0C 2C 28 |(AN$).2);AN$..,(|
000023F0: EB 99 22 11 11 11 22 A3 31 33 29 22 9F C3 CF D0 |.."...".13)"....|
00002400: D9 D2 C9 C7 C8 D4 20 31 39 38 36 22 00 2D 2C 32 |...... 1986".-,2|
00002410: EB 99 A3 39 29 22 C3 CF CD CD CF C4 CF D2 C5 20 |...9)"......... |
00002420: D0 D5 C2 CC C9 C3 C1 D4 C9 CF CE D3 22 00 60 2C |............".`,|
00002430: 3C EB 99 22 11 11 11 99 20 20 12 A4 A4 A4 A4 A4 |<..".... ......|
00002440: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002450: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 |..............."|
00002460: 00 90 2C 46 EB 99 22 20 20 12 9E A5 20 20 20 20 |..,F.." ... |
00002470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 22 | ."|
00002490: 00 D1 2C 50 EB 99 22 99 20 20 12 A3 A3 A3 A3 A3 |..,P..". ......|
000024A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000024B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 13 |................|
000024C0: 22 3A 4C 45 B2 31 30 34 34 3A 52 49 B2 31 30 34 |":LE.1044:RI.104|
000024D0: 33 00 F3 2C 5A EB 97 4C 45 2C 39 38 3A 97 52 49 |3..,Z..LE,98:.RI|
000024E0: 2C 39 38 3A 4C 45 B2 4C 45 AB 31 3A 52 49 B2 52 |,98:LE.LE.1:RI.R|
000024F0: 49 AA 31 00 14 2D 64 EB 43 4F B2 35 34 32 37 32 |I.1..-d.CO.54272|
00002500: 3A 97 52 49 AA 43 4F 2C 43 4C 3A 97 4C 45 AA 43 |:.RI.CO,CL:.LE.C|
00002510: 4F 2C 43 4C 00 27 2D 6E EB 8B 4C 45 B2 31 30 32 |O,CL.'-n..LE.102|
00002520: 35 A7 36 30 32 39 30 00 32 2D 78 EB 89 36 30 32 |5.60290.2-x..602|
00002530: 35 30 00 5A 2D 82 EB 97 4C 45 2C 31 30 38 3A 97 |50.Z-...LE,108:.|
00002540: 52 49 2C 31 32 33 3A 97 4C 45 AA 43 4F 2C 43 4C |RI,123:.LE.CO,CL|
00002550: 3A 97 52 49 AA 43 4F 2C 43 4C 00 7F 2D 8C EB 4C |:.RI.CO,CL..-..L|
00002560: 45 B2 4C 45 AA 34 30 3A 52 49 B2 52 49 AA 34 30 |E.LE.40:RI.RI.40|
00002570: 3A 8B 4C 45 B2 31 39 38 35 A7 36 30 33 33 30 00 |:.LE.1985.60330.|
00002580: A6 2D 96 EB 97 4C 45 2C 32 32 35 3A 97 52 49 2C |.-...LE,225:.RI,|
00002590: 39 37 3A 97 4C 45 AA 43 4F 2C 43 4C 3A 97 52 49 |97:.LE.CO,CL:.RI|
000025A0: AA 43 4F 2C 43 4C 00 B1 2D A0 EB 89 36 30 33 30 |.CO,CL..-...6030|
000025B0: 30 00 D9 2D AA EB 97 4C 45 2C 31 32 34 3A 97 52 |0..-...LE,124:.R|
000025C0: 49 2C 31 32 36 3A 97 4C 45 AA 43 4F 2C 43 4C 3A |I,126:.LE.CO,CL:|
000025D0: 97 52 49 AA 43 4F 2C 43 4C 00 04 2E B4 EB 4C 45 |.RI.CO,CL.....LE|
000025E0: B2 4C 45 AA 31 3A 52 49 B2 52 49 AB 31 3A 8B 4C |.LE.1:RI.RI.1:.L|
000025F0: 45 B2 32 30 30 34 A7 97 31 39 38 2C 2E 3A 89 36 |E.2004..198,.:.6|
00002600: 30 33 36 30 00 33 2E BE EB 97 4C 45 2C 32 32 36 |0360.3....LE,226|
00002610: 3A 97 52 49 2C 32 32 36 3A 97 4C 45 AA 43 4F 2C |:.RI,226:.LE.CO,|
00002620: 43 4C 3A 97 52 49 AA 43 4F 2C 43 4C 3A 89 36 30 |CL:.RI.CO,CL:.60|
00002630: 33 34 30 00 68 2E C8 EB 99 22 13 11 11 11 11 11 |340.h...."......|
00002640: 1D 1D 9A B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00002650: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00002660: B7 B7 B7 B7 B7 B7 B7 22 00 A4 2E C9 EB 99 22 11 |......."......".|
00002670: 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D AF |................|
00002680: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00002690: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000026A0: AF AF AF 22 00 C6 2E CD EB 99 22 13 11 11 11 11 |..."......".....|
000026B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000026C0: 11 11 1D 1D 22 3B 00 F4 2E D2 EB 99 22 9E 12 A5 |....";......"...|
000026D0: D0 52 45 53 53 20 54 48 45 20 5B D3 D0 C1 C3 C5 |.RESS THE [.....|
000026E0: 20 C2 C1 D2 5D 20 54 4F 20 43 4F 4E 54 49 4E 55 | ...] TO CONTINU|
000026F0: 45 2E A7 22 00 01 2F DC EB 81 41 B2 31 A4 31 30 |E.."../...A.1.10|
00002700: 30 00 1A 2F E6 EB A1 41 24 3A 8B 41 24 B2 22 20 |0../...A$:.A$." |
00002710: 22 B0 41 24 B2 22 A0 22 A7 8E 00 20 2F F0 EB 82 |".A$."."... /...|
00002720: 00 42 2F FA EB 99 22 13 11 11 11 11 11 11 11 11 |.B/...".........|
00002730: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |................|
00002740: 22 3B 00 6F 2F 04 EC 99 22 12 A5 20 20 20 20 20 |";.o/...".. |
00002750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002760: 20 20 20 20 20 20 20 20 20 20 20 20 20 A7 22 00 | .".|
00002770: 7C 2F 0E EC 81 41 B2 31 A4 31 30 30 00 95 2F 18 ||/...A.1.100../.|
00002780: EC A1 41 24 3A 8B 41 24 B2 22 20 22 B0 41 24 B2 |..A$:.A$." ".A$.|
00002790: 22 A0 22 A7 8E 00 9B 2F 22 EC 82 00 A6 2F 2C EC |"."..../"..../,.|
000027A0: 89 36 30 33 36 35 00 B3 2F 54 EC 81 5A 38 B2 31 |.60365../T..Z8.1|
000027B0: A4 4E 43 00 C8 2F 56 EC A1 41 24 3A 8B 41 24 B2 |.NC../V..A$:.A$.|
000027C0: 22 22 A7 36 30 35 30 32 00 04 30 57 EC 8B 41 24 |"".60502..0W..A$|
000027D0: B2 22 93 22 B0 41 24 B2 22 13 22 B0 41 24 B2 22 |.".".A$.".".A$."|
000027E0: 94 22 B0 41 24 B2 22 91 22 B0 41 24 B2 22 9D 22 |.".A$.".".A$."."|
000027F0: B0 41 24 B2 22 11 22 B0 41 24 B2 22 1D 22 A7 36 |.A$.".".A$.".".6|
00002800: 30 35 30 32 00 29 30 58 EC 8B 41 24 B2 C7 28 31 |0502.)0X..A$..(1|
00002810: 33 29 B0 41 24 B2 C7 28 31 34 31 29 A7 99 22 9D |3).A$..(141)..".|
00002820: 20 22 3A 89 36 30 35 34 34 00 42 30 5A EC 8B 41 | ":.60544.B0Z..A|
00002830: 24 B2 22 20 22 B0 41 24 B2 22 A0 22 A7 36 30 35 |$." ".A$.".".605|
00002840: 34 30 00 5B 30 5C EC 8B 41 24 B2 C7 28 32 30 29 |40.[0\..A$..(20)|
00002850: AF 5A 38 B2 31 A7 36 30 35 30 32 00 87 30 5E EC |.Z8.1.60502..0^.|
00002860: 8B 41 24 B2 C7 28 32 30 29 A7 5A 38 B2 5A 38 AB |.A$..(20).Z8.Z8.|
00002870: 31 3A 99 22 9D 9D 20 20 9D 9D 22 3B 42 4B 24 3B |1:.".. ..";BK$;|
00002880: 3A 89 36 30 35 30 32 00 BD 30 68 EC 8B 41 24 B1 |:.60502..0h..A$.|
00002890: 22 2F 22 AF 41 24 B3 22 3A 22 AF 28 4D 4F AF 32 |"/".A$.":".(MO.2|
000028A0: 29 A7 36 30 35 34 30 3A 20 20 20 20 20 20 20 20 |).60540: |
000028B0: 20 20 20 20 20 20 4E 55 4D 42 45 52 53 00 F8 30 | NUMBERS..0|
000028C0: 6A EC 8B 41 24 B1 22 20 22 AF 41 24 B3 22 2A 22 |j..A$." ".A$."*"|
000028D0: AF 28 4D 4F AF 34 29 A7 36 30 35 34 30 3A 20 20 |.(MO.4).60540: |
000028E0: 20 20 20 20 20 20 20 20 20 20 20 20 53 48 8B 54 | SH.T|
000028F0: 20 4E 55 4D 42 45 52 53 00 3B 31 6C EC 8B 41 24 | NUMBERS.;1l..A$|
00002900: B1 22 C0 22 AF 41 24 B3 22 DB 22 AF 28 4D 4F AF |.".".A$.".".(MO.|
00002910: 38 29 A7 36 30 35 34 30 3A 20 20 20 20 20 20 20 |8).60540: |
00002920: 20 20 20 20 20 20 20 55 50 50 45 52 43 41 53 45 | UPPERCASE|
00002930: 20 43 48 41 52 41 43 54 45 52 53 00 7E 31 6E EC | CHARACTERS.~1n.|
00002940: 8B 41 24 B1 22 40 22 AF 41 24 B3 22 5B 22 AF 28 |.A$."@".A$."[".(|
00002950: 4D 4F AF 31 36 29 A7 36 30 35 34 30 3A 20 20 20 |MO.16).60540: |
00002960: 20 20 20 20 20 20 20 20 20 20 4C 4F 57 45 52 43 | LOWERC|
00002970: 41 53 45 20 43 48 41 52 41 43 54 45 52 53 00 BA |ASE CHARACTERS..|
00002980: 31 70 EC 8B 41 24 B1 C7 28 31 36 30 29 AF 41 24 |1p..A$..(160).A$|
00002990: B3 C7 28 31 39 32 29 AF 28 4D 4F AF 33 32 29 A7 |..(192).(MO.32).|
000029A0: 36 30 35 34 30 3A 20 43 4F 4D 4D 4F 44 B0 45 20 |60540: COMMOD.E |
000029B0: 43 48 41 52 41 43 54 45 52 53 00 F5 31 72 EC 8B |CHARACTERS..1r..|
000029C0: 41 24 B1 B2 C7 28 30 29 AF 41 24 B3 22 1D 22 AF |A$...(0).A$.".".|
000029D0: 28 4D 4F AF 36 34 29 A7 36 30 35 34 30 3A 20 20 |(MO.64).60540: |
000029E0: 20 20 20 20 20 20 43 54 52 4C 20 43 48 41 52 41 | CTRL CHARA|
000029F0: 43 54 45 52 53 00 36 32 74 EC 8B 41 24 B1 22 29 |CTERS.62t..A$.")|
00002A00: 22 AF 41 24 B3 22 30 22 AF 28 4D 4F AF 31 32 38 |".A$."0".(MO.128|
00002A10: 29 A7 36 30 35 34 30 3A 20 20 20 20 20 20 20 4D |).60540: M|
00002A20: 49 53 43 20 43 48 41 52 41 43 54 45 52 53 20 47 |ISC CHARACTERS G|
00002A30: 52 4F 55 50 20 31 00 77 32 76 EC 8B 41 24 B1 22 |ROUP 1.w2v..A$."|
00002A40: 39 22 AF 41 24 B3 22 41 22 AF 28 4D 4F AF 31 32 |9".A$."A".(MO.12|
00002A50: 38 29 A7 36 30 35 34 30 3A 20 20 20 20 20 20 20 |8).60540: |
00002A60: 4D 49 53 43 20 43 48 41 52 41 43 54 45 52 53 20 |MISC CHARACTERS |
00002A70: 47 52 4F 55 50 20 32 00 B8 32 78 EC 8B 41 24 B1 |GROUP 2..2x..A$.|
00002A80: 22 5A 22 AF 41 24 B3 22 81 22 AF 28 4D 4F AF 31 |"Z".A$.".".(MO.1|
00002A90: 32 38 29 A7 36 30 35 34 30 3A 20 20 20 20 20 20 |28).60540: |
00002AA0: 20 4D 49 53 43 20 43 48 41 52 41 43 54 45 52 53 | MISC CHARACTERS|
00002AB0: 20 47 52 4F 55 50 20 33 00 C3 32 7A EC 89 36 30 | GROUP 3..2z..60|
00002AC0: 35 30 32 00 DD 32 7C EC 99 22 9D 22 3B 41 24 3B |502..2|..".";A$;|
00002AD0: 3A 97 32 31 32 2C 2E 3A 99 42 4B 24 3B 00 EE 32 |:.212,.:.BK$;..2|
00002AE0: 7E EC 5A 38 24 28 5A 38 29 B2 41 24 3A 82 00 F9 |~.Z8$(Z8).A$:...|
00002AF0: 32 80 EC 99 22 9D 92 20 22 00 28 33 82 EC 41 24 |2...".. ".(3..A$|
00002B00: B2 22 22 3A 81 41 B2 31 A4 5A 38 AB 31 3A 41 24 |."":.A.1.Z8.1:A$|
00002B10: B2 41 24 AA 5A 38 24 28 41 29 3A 82 3A 8B 5A 38 |.A$.Z8$(A):.:.Z8|
00002B20: B2 31 A7 41 24 B2 22 22 00 2E 33 84 EC 8E 00 00 |.1.A$.""..3.....|
00002B30: 00 |. |
....... OPEN3,8,3,"FILES".>.... GET#3,A$
:IFST<>.THENCLOSE3:END.S.... PRINTA$;:GO
TO1.X....60100:.:BK$.".":.G(142):.G$(20)
......53280,1:.53281,1:R$.G(13)......A$(
40),B$(40),C(40),CC(40),D(40),E(40),F(40
),G(40),H(40),P(40)......CG(40),GG(40)..
....".. .THE INVESTOR".<....".
....TODAY'S DATE IS MM/DD/YY:.";BK$;.S..
.NC.8:MO.130:.60500.A....A$."".20.L...TD
$.A$.T...X.1......"..";.14)".THE INVESTO
R..."...#...4)"(1) UPDATE OLD FILE".Q.(.
..4)"(2) CREATE NEW FILE".W.,.....-...4)
"(3) RETURN TO LOADSTAR"...2..".. CHO
OSE 1, 2, OR 3:".:.7..198,0:.198,1:.Z$:.
Z$."1".125.I.<..Z$."2".65.[.=..Z$."3".60
000.C.?..55...A..".";.14)".CREATE FILE..
."...F.I.1...K..I.1..85...P.."..PREVIOUS
=";A$(I.1):.".."...U.."...NAME OF INVEST
MENT:";BK$;:MO.146:NC.20:.60500:A$(I).A$
...V..A$."".85.I.Z..".....DATE BOUGHT MM
/DD/YY:";BK$;:MO.130:NC.8:.60500:B$(I).A
$.W.]..A$."".90..._..".......# SHARES:";
BK$;:NC.8:MO.2:.60500:D(I).E(A$)...A..A$
."".95...D..".........PRICE PER SHARE:$"
;BK$;:NC.9:MO.130:.60500:P(I).E(A$)...G.
.A$."".100...I.C(I).D(I).P(I).C.N.."....
.......COMMISSION CHARGE:$";BK$;:NC.9:MO
.130:.60500.S.O.CC(I).E(A$).B.Q..A$."".1
10...S.."MORE? Y/N":.198,0:.198,1:.Z$:.Z
$."Y".Z$."Y".I.I.1:.80...U..Z$.."N".Z$..
"N"..".";:.115.M.X.I.I.1:.385...}..".";.
17)".UPDATE..."......"FILE NAME=";BK$;:N
C.16:MO.146:.60500:N$.A$.D....".":..7)"L
OAD FROM .T.APE OR .D.ISK.?".M....198,0:
.198,1:.Z$:.Z$."T".Z$."T".170......Z$.."
D".Z$.."D".130......15,8,15,"R0:".N$."="
.N$:.15,ER: 15......ER.63.140......"..FI
LE NOT FOUND.":.A.1.1000:.:.30......1,8,
2,.N$.",S,R".....I.1.'....1,A$(I),B$(I),
C(I),CC(I),D(I).1...I.I.1.?. ..ST.0.150.
C... 1:.".";.14)"FILE LOADED.":.210.W...
..17)"UPDATE.."......1,1,0,N$.....I.1...
...1,A$(I),B$(I),C(I),CC(I),D(I).....I.I
.1.H.C..ST.0.185...H. 1:.".":..14)"FILE
LOADED."...M...11)".PRESS STOP ON TAPE."
./.R...7)".UPDATE BEFORE PRINTING OUT.".
O.W...8)"..1=UPDATE INVESTMENT".M.....8)
"2=ADD AN INVESTMENT".......8)"3=DELETE
AN INVESTMENT".......8)"4=FILE COMPLETE"
.E.....8)"5=ERROR CORRECTION".......8)"6
=STOCK SOLD".......8)"7=CAP GAIN DATA"..
.....8)"8=RETURN TO LOADSTAR".Q....".
CHOOSE 1-8: .";BK$;:NC.1:MO.2:.6050
0:Z.E(A$).Z....Z.260,445,450,385,490,770
,935,60000......".";:.250......X.1.I.1..
...E(X).((C(X)..1).C(X)).D(X).L...E1..(E
(X).100).100......E(X)..E1..005.E(X).E1.
.001......E(X)..E1..005.E(X).E1.&...F(X)
.((C(X)..2).C(X)).D(X).=.".F1..(F(X).100
).100.].'..F(X)..F1..005.F(X).F1..001.X.
,..F(X)..F1..005.F(X).F1...1.G(X).((C(X)
..3).C(X)).D(X)...6.G1..(G(X).100).100.N
.;..G(X)..G1..005.G(X).G1..001...@..G(X)
..G1..005.G(X).G1...E.H(X).((C(X)..4).C(
X)).D(X)...J.H1..(H(X).100).100.?.O..H(X
)..H1..005.H(X).H1..001.Z.T..H(X)..H1..0
05.H(X).H1...Y..".";.5)"COMPUTING CAPITA
L GAIN (LOSS)..":.A$(X).S.^.."CURRENT PR
ICE PER SHARE=";BK$;:MO.130:NC.9:.60500:
CP(X).E(A$)...C.CG(X).(CP(X).D(X)).C(X).
..H.PG(X).(CG(X).C(X)).100:XT.PG(1).8.J.
PG(X)..(PG(X)..1):PG(X).PG(X)..1.G.M.TC.
C(X).TC.W.R.PR.CG(X).PR.].W.....|.TG.(PR
.TC).100:TG..(TG..1):TG.TG..1......".":.
.8)"1=PRINT HARD COPY.":..8)"2=SAVE TO T
APE.".......8)"3=SAVE TO DISK.":..8)"4=P
RINT TO SCREEN.":.&.....8)"5=RERUN PROGR
AM":..8)".6=ERROR CORRECTION.".E.....8)"
7=RETURN TO LOADSTAR"......".. CH
OOSE 1-7: .";BK$;:MO.2:NC.1:.60500:Z.E(A
$)......Z.590,405,675,710,765,490,60000.
.....".";:.396.Q.....9)".LOAD DATA TAPE.
"......"FILE NAME=";BK$;:NC.16:MO.144:.6
0500:N$.A$......1,1,2,N$......Y.1.I.1.L.
...1,A$(Y);R$;B$(Y);R$;C(Y);R$;CC(Y);R$;
D(Y).S....Y.N.....13)"FILE COMPLETE..".Z
... 1:.210......80...B...15)".DELETE AN
INVESTMENT."...G..X.1.I.1:..10)X;A$(X):.
...L..".NUMBER TO DELETE:";BK$;:NC.3:MO.
2:.60500:Z.E(A$)...Q..X.Z.I.I.V.A$(X).A$
(X.1):B$(X).B$(X.1):C(X).C(X.1):CC(X).CC
(X.1):D(X).D(X.1).O.........."MORE TO DE
LETE? Y/N":.198,0:.198,1:.Z$:.Z$."Y".Z$.
"Y".450......Z$.."N".A$.."N"..".";:.480.
.....915.W.....12)"..ERROR CORRECTION.".
.....X.1.I.1:.X;A$(X):..)...."..CORRECT
WHICH? ->";BK$;:MO.2:NC.3:.60500:M%.E(A$
).<.....8)".1. NAME".V.....8)".2. DATE B
OUGHT".M.....8)".3. # SHARES".......8)".
4. PRICE".......8)".5. COMMISSION"......
"CORRECTING ";A$(M%);......"CHOOSE 1-5:"
;BK$;:NC.1:MO.2:.60500:C.E(A$)......C.54
0,550,560,570,580.B....A$(M%)"-CHANGE NA
ME TO:";BK$;:NC.20:MO.146:.60500:A$(M%).
A$.K.!..385...&..A$(M%):."-CHANGE DATE M
M/DD/YY ";B$(M%);" TO:";BK$;...).MO.130:
NC.8:.60500:B$(M%).A$...+..385...0..A$(M
%):."-CHANGE # OF SHARES ";D(M%);" TO:";
BK$;...3.MO.2:NC.8:.60500:D(M%).E(A$)...
5..385.>.:..A$(M%):."-CHANGE PRICE $"P(M
%);" TO:";BK$;.A.=.MO.130:NC.9:.60500:P(
M%).E(A$).~.?.C(M%).(D(M%).P(M%)):.385..
.D..A$(M%):."-CHANGE COMMISSION COST $"C
C(M%);" TO:";BK$;...G.MO.130:NC.9:.60500
:CC(M%).E(A$)...I..385...N..".";.9)".PRI
NTING A HARD COPY".%.O..15,4,15: 15:.ST.
0.600.J.P.."...YOUR PRINTER ISN'T ONLINE
.".N.Q..".CHECK IT OUT AND TRY AGAIN."..
.R..".PRESS [RETURN] TO CONTINUE."...S..
A$:.A$..G(13).595...T..385.E.X..4,4:.4:.
TD$:..R.]..Y.1.I.1...B..4,Y;A$(Y);" BOUG
HT ON ";B$(Y);" @ $";(C(Y).D(Y));.+.D..4
,"/SHARE";" #SHARES=";D(Y).I.G..4,"CURR
ENT PRICE= $";CP(Y):.4,"COMMISSION COST=
$";CC(Y)...L..4,"10% PROFIT @ $";E(Y):.
4,"20% PROFIT @ $";F(Y).U.Q..4,"30% PROF
IT @ $";G(Y):.4,"40% PROFIT @ $";H(Y)...
V..4,"CURRENT CAPITAL GAIN= $";CG(Y).".{
..4,"AMOUNT INVESTED = $";C(Y).P....
4,"CURRENT VALUE = $";(C(Y).CG(Y))
.Y....4,"CURRENT PERCENT GAIN=";PG(Y);"%
"......4:.......4:.4,"TOTAL AMOUNT INVES
TED =$";TC.O....4,"TOTAL CAPITAL GAIN
=$";PR......4,"TOTAL PERCENT GAIN ="
TG;"%":.......4,G(12):.4: 4:.".":.210.E.
...".";.5)".WRITING INVESTMENT DATA TO D
ISK.".V...."FILE NAME=";BK$;:MO.146:NC.1
6:.60500:N$.A$......1,8,2,"@0:".N$.",S,W
"......Y.1.I.1.M....1,A$(Y);R$;B$(Y);R$;
C(Y);R$;CC(Y);R$;D(Y).S.......A. 1:.".":
.210...F..".HAVE YOU UPDATED? Y/N":.198
,0:.198,1.%.H..Z$:.Z$."N".260.N.K..".";.
8)".COPY IN YOUR RECORD BOOK.".[.P..Y.1.
I.1.O.R..A$(Y)."0 ".755...U..".";Y;A$(Y)
:."BOUGHT ON ";B$(Y);" @ $";(C(Y).D(Y));
"/SHARE".Y.Z.." #SHARES=";D(Y):."PRICE=
$";CP(Y)......"COMMISSION COST= $";CC(Y
).+...."10% PROFIT @ $";E(Y):."20% PROFI
T @ $";F(Y).]...."30% PROFIT @ $";G(Y):.
"40% PROFIT @ $";H(Y).}...."PRESS RETURN
TO CONTINUE"......A$:.A$..G(13).750....
........".":.210............".HAVE YOU C
REATED A CAPITAL GAIN FILE FOR THIS YEAR
? Y/N..".. ...198,0:.198,1:.Z$:.Z$."Y".
Z$."Y".935.3 ...Z$.."N".A$.."N".775.X ..
.X.1.I.1:.X,H(A$(X),8),:.:.G(13).. ...".
WHICH INVESTMENT HAS BEEN SOLD:";BK$;..
..MO.2:NC.3:.60500:Z.E(A$).. ..N.N.1.. .
.AG$(N).A$(Z):BG$(N).B$(Z):CD(N).C(Z):DG
(N).D(Z).. ..CA(N).CG(Z):GG(N).CC(Z).0!
.."SOLD @:$";BK$;:MO.130:NC.9:.60500:SA(
N).E(A$).Z!%.GC(N).(SA(N).DG(N)).CD(N):A
G.AG.GC(N)..!*.."DATE SOLD MM/DD/YY:";BK
$;:MO.130:NC.8:.60500:SD$(N).A$..!/...7)
"CAPITAL GAIN DATA FOR YEAR"..!4.."FILE
NAME=";BK$;:MO.146:NC.16:.60500:N$.A$.."
9...10)".SAVE TO .T.APE OR .D.ISK".;">..
198,0:.198,1:.Z$:.Z$."D".Z$."D".875.T"@.
.Z$.."T".Z$.."T".830.B"C..2,1,3,N$.M"H..
X.1.N.."M..2,AG$(X);R$;BG$(X);R$;CD(X);R
$;DG(X);R$;CA(X);R$;SA(X);R$;GG(X).F"R..
2,SD$(X);R$;AG.Q"W..Y.Z.I..#\.A$(Y).A$(Y
.1):B$(Y).B$(Y.1):C(Y).C(Y.1):CC(Y).CC(Y
.1):D(Y).D(Y.1).-#A.E(Y).E(Y.1):.Y:.X.9#
F. 2:.915.S#K..2,8,3,"@0:".N$."S,W".^#P.
.X.1.N..#U..2,AG$(X);R$;BG$(X);R$;CD(X);
R$;DG(X);R$;CA(X);R$;SA(X);R$;GG(X)..#Z.
.2,SD$(X);R$;AG.B#..Y.Z.I..$..A$(Y).A$(
Y.1):B$(Y).B$(Y.1):C(Y).C(Y.1):CC(Y).CC(
Y.1):D(Y).D(Y.1)..$..E(Y).E(Y.1):.Y:.X.%
$.. 2.W$....3)".. SAVE THIS REVISED I
NVESTMENT DATA".|$....10)"SAVE TO .T.APE
OR .D.ISK?"..$...198,0:.198,1:.Z$:.Z$."
T".Z$."T".I.I.1:.405.E$...Z$.."D".Z$.."D
".925.T$..I.I.1:.675..$...".CAPITAL GAIN
DATA FOR THIS YEAR":../%..."FILE NAME="
;BK$;:MO.146:NC.16:.60500:N$.A$.J%..."."
;.13)"SAVE TO .T.APE OR .D.ISK?":.198,0:
.198,1:.Z$..%...Z$."T"..2,1,0,N$:.960..%
...2,8,3,.N$."S,R"..%..R.1..%E..2,AG$(R)
,BG$(R),CD(R),DG(R),CA(R),SA(R),GG(R),SD
$(R),AG..%J.R.R.1..%O..ST.0.965..%T. 2.9
&Y..".";.5)"ADD MORE INVESTMENTS SOLD Y
/N":.198,0:.198,1.Y&...Z$:.Z$."Y"..".":N
.R.1:.780..&..."PRINT TO .S.CREEN OR .P.
RINTER":.198,0:.198,1:.Z$..&...Z$."S".10
55..&...15,4,15: 15:.ST.0.1005.Z&...".PR
INTER NOT ONLINE!"..&...A.1.2000:.:.995.
.&...4,4:.4.%'...4,"ANNUAL CAP. GAIN DAT
A AS OF ";TD$.C'...4,"SAVE FOR TAX RECOR
DS".S'...X.1.R.1:.4..'...4,AG$(X);" BGHT
ON ";BG$(X);" @$";(CD(X).DG(X));..'...4
,"/SHR";" #SHR=";DG(X).K'...4,"SOLD @$";
SA(X);" ON ";SD$(X)..'...4,"COMMISSION C
OST=$";GG(X).*(...4,"CAPITAL GAIN FOR ";
AG$(X);"=$";(SA(X).DG(X)).CD(X):.4.0(...
.T(...4,"ANNUAL CAPITAL GAIN =$";AG.D(.
..4,G(12): 4.R(...".":.210..(...".ANNUAL
CAP. GAIN DATA AS OF ";TD$..(!.."COPY I
N YOUR RECORD BOOK".J($..X.1.R.1:...()..
X.3..:."PRESS RETURN TO CONTINUE"..)+..1
98,0:.198,1:.Z$.B)...AG$(X);" BGHT ON ";
BG$(X):."@$";(CD(X).DG(X));"/SHR";.W)3..
" #SHR=";DG(X)..)8.."SOLD @$";SA(X);" O
N ";SD$(X):."COMMISSION COST=$";GG(X).P)
=.."CAPITAL GAIN FOR ";AG$(X);"=$";(SA(X
).DG(X)).CD(X):...)B..:."ANNUAL CAPITAL
GAIN =$";AG..*G..:."PRESS RETURN TO CONT
INUE".5*L..198,0:.198,1:.Z$:.".":.210.C*
`..15,8,15,"R0:HELLO CONNECT=HELLO CONNE
CT".|*E..15,ER: 15:.ER..63....*J..".";:.
"HELLO CONNECT",8.J*D.PN$."THE INVESTOR"
:AN$."BY: SANFORD MORRIS"..*N..53280,.:
.53281,.:."....";..*..CL.14.#+...". ...
..................................".S+..
.". .. LOADSTAR IS NOT PUBLIC DOMAIN!
."..+..." ..PLEASE RESPECT THE AUTHOR'
S RIGHTS."..+...". ....................
.................".O+..."....".20.C(PN$)
.2);PN$..+..."....".20.C(AN$).2);AN$..,(
.."...".13)".COPYRIGHT 1986".-,2...9)"CO
MMODORE PUBLICATIONS".`,<..".... ......
..............................."..,F.."
... ."
.Q,P..". ..............................
........":LE.1044:RI.1043..,Z..LE,98:.RI
,98:LE.LE.1:RI.RI.1..-D.CO.54272:.RI.CO,
CL:.LE.CO,CL.'-N..LE.1025.60290.2-X..602
50.Z-...LE,108:.RI,123:.LE.CO,CL:.RI.CO,
CL.-..LE.LE.40:RI.RI.40:.LE.1985.60330.
.-...LE,225:.RI,97:.LE.CO,CL:.RI.CO,CL..
- ..60300.Y-...LE,124:.RI,126:.LE.CO,CL:
.RI.CO,CL.....LE.LE.1:RI.RI.1:.LE.2004..
198,.:.60360.3....LE,226:.RI,226:.LE.CO,
CL:.RI.CO,CL:.60340.H.H.."..............
..............................."...I..".
........................................
...........".F.M..".....................
....";...R.."...PRESS THE [SPACE BAR] TO
CONTINUE.."../...A.1.100../...A$:.A$."
".A$." "... /....B/...".................
........";.O/..."..
.".|/...A.1.100../...A$:.A$
." ".A$." "..../"..../,..60365../T..Z8.1
.NC.H/V..A$:.A$."".60502..0W..A$.".".A$.
".".A$.".".A$.".".A$.".".A$.".".A$.".".6
0502.)0X..A$.G(13).A$.G(141)..". ":.6054
4.B0Z..A$." ".A$." ".60540.[0\..A$.G(20)
.Z8.1.60502..0^..A$.G(20).Z8.Z8.1:."..
..";BK$;:.60502..0H..A$."/".A$.":".(MO.2
).60540: NUMBERS..0J..A$."
".A$."*".(MO.4).60540: SH.T
NUMBERS.;1L..A$.".".A$.".".(MO.8).60540
: UPPERCASE CHARACTERS.~1N.
.A$."@".A$."[".(MO.16).60540:
LOWERCASE CHARACTERS..1P..A$.G(160).A$
.G(192).(MO.32).60540: COMMOD.E CHARACTE
RS..1R..A$..G(0).A$.".".(MO.64).60540:
CTRL CHARACTERS.62T..A$.")".A$."0"
.(MO.128).60540: MISC CHARACTERS G
ROUP 1.W2V..A$."9".A$."A".(MO.128).60540
: MISC CHARACTERS GROUP 2..2X..A$.
"Z".A$.".".(MO.128).60540: MISC CH
ARACTERS GROUP 3.C2Z..60502..2|..".";A$;
:.212,.:.BK$;..2~.Z8$(Z8).A$:...2..."..
".(3..A$."":.A.1.Z8.1:A$.A$.Z8$(A):.:.Z8
.1.A$.""..3......
> CLICK IMAGE PREVIEW FOR FULL MODAL