INVESTOR

00000000: 01 08 20 08 05 00 97 35  33 32 38 30 2C 31 3A 97  |.. ....53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A  52 24 B2 C7 28 31 33 29  |53281,1:R$..(13)|
00000020: 00 64 08 0A 00 86 41 24  28 34 30 29 2C 42 24 28  |.d....A$(40),B$(|
00000030: 34 30 29 2C 43 28 34 30  29 2C 43 43 28 34 30 29  |40),C(40),CC(40)|
00000040: 2C 44 28 34 30 29 2C 45  28 34 30 29 2C 46 28 34  |,D(40),E(40),F(4|
00000050: 30 29 2C 47 28 34 30 29  2C 48 28 34 30 29 2C 50  |0),G(40),H(40),P|
00000060: 28 34 30 29 00 77 08 0F  00 86 43 47 28 34 30 29  |(40).w....CG(40)|
00000070: 2C 47 47 28 34 30 29 00  A3 08 14 00 99 22 93 22  |,GG(40)......"."|
00000080: 3B A6 39 29 22 54 4F 44  41 59 27 53 20 44 41 54  |;.9)"TODAY'S DAT|
00000090: 45 20 49 53 20 4D 4D 2F  44 44 2F 59 59 22 3A 85  |E IS MM/DD/YY":.|
000000A0: 54 44 24 00 C3 08 1E 00  99 22 93 22 3B A6 31 34  |TD$......".";.14|
000000B0: 29 22 12 54 48 45 20 49  4E 56 45 53 54 4F 52 92  |)".THE INVESTOR.|
000000C0: 11 11 22 00 DC 08 23 00  99 A6 34 29 22 41 3D 55  |.."...#...4)"A=U|
000000D0: 50 44 41 54 45 20 46 49  4C 45 11 22 00 F4 08 28  |PDATE FILE."...(|
000000E0: 00 99 A6 34 29 22 42 3D  43 52 45 41 54 45 20 46  |...4)"B=CREATE F|
000000F0: 49 4C 45 22 00 0D 09 2D  00 99 A6 31 32 29 22 12  |ILE"...-...12)".|
00000100: 20 4C 4F 41 44 20 46 49  4C 45 20 92 22 00 27 09  | LOAD FILE .".'.|
00000110: 32 00 99 A6 33 29 22 11  50 52 4F 47 52 41 4D 20  |2...3)".PROGRAM |
00000120: 43 48 4F 49 43 45 22 00  49 09 37 00 97 31 39 38  |CHOICE".I.7..198|
00000130: 2C 30 3A 92 31 39 38 2C  31 3A A1 5A 24 3A 8B 5A  |,0:.198,1:.Z$:.Z|
00000140: 24 B2 22 41 22 A7 31 32  35 00 51 09 3C 00 89 36  |$."A".125.Q.<..6|
00000150: 35 00 70 09 41 00 99 22  93 22 3B A6 31 34 29 22  |5.p.A..".";.14)"|
00000160: 12 43 52 45 41 54 45 20  46 49 4C 45 92 11 11 22  |.CREATE FILE..."|
00000170: 00 78 09 46 00 49 B2 31  00 85 09 4B 00 8B 49 B2  |.x.F.I.1...K..I.|
00000180: 31 A7 89 38 35 00 A6 09  50 00 99 22 93 12 50 52  |1..85...P.."..PR|
00000190: 45 56 49 4F 55 53 3D 22  3B 41 24 28 49 AB 31 29  |EVIOUS=";A$(I.1)|
000001A0: 3A 99 22 92 11 22 00 C6  09 55 00 85 22 4E 41 4D  |:.".."...U.."NAM|
000001B0: 45 20 4F 46 20 49 4E 56  45 53 54 4D 45 4E 54 22  |E OF INVESTMENT"|
000001C0: 3B 41 24 28 49 29 00 E8  09 5A 00 85 22 44 41 54  |;A$(I)...Z.."DAT|
000001D0: 45 20 42 4F 55 47 48 54  20 4D 4D 2F 44 44 2F 59  |E BOUGHT MM/DD/Y|
000001E0: 59 22 3B 42 24 28 49 29  00 FE 09 5F 00 85 22 23  |Y";B$(I)..._.."#|
000001F0: 20 53 48 41 52 45 53 20  22 3B 44 28 49 29 00 1C  | SHARES ";D(I)..|
00000200: 0A 64 00 85 22 50 52 49  43 45 20 50 45 52 20 53  |.d.."PRICE PER S|
00000210: 48 41 52 45 20 24 22 3B  50 28 49 29 00 2F 0A 69  |HARE $";P(I)./.i|
00000220: 00 43 28 49 29 B2 44 28  49 29 AC 50 28 49 29 00  |.C(I).D(I).P(I).|
00000230: 50 0A 6E 00 85 22 43 4F  4D 4D 49 53 53 49 4F 4E  |P.n.."COMMISSION|
00000240: 20 43 48 41 52 47 45 20  24 22 3B 43 43 28 49 29  | CHARGE $";CC(I)|
00000250: 00 85 0A 73 00 99 22 4D  4F 52 45 3F 20 59 2F 4E  |...s.."MORE? Y/N|
00000260: 22 3A 97 31 39 38 2C 30  3A 92 31 39 38 2C 31 3A  |":.198,0:.198,1:|
00000270: A1 5A 24 3A 8B 5A 24 B2  22 59 22 A7 49 B2 49 AA  |.Z$:.Z$."Y".I.I.|
00000280: 31 3A 89 38 30 00 94 0A  78 00 49 B2 49 AA 31 3A  |1:.80...x.I.I.1:|
00000290: 89 33 38 35 00 BF 0A 7D  00 99 22 93 22 3B A6 31  |.385...}..".";.1|
000002A0: 37 29 22 12 55 50 44 41  54 45 92 11 11 22 3A 85  |7)".UPDATE...":.|
000002B0: 22 46 49 4C 45 20 4E 41  4D 45 3D 22 3B 4E 24 00  |"FILE NAME=";N$.|
000002C0: E1 0A 82 00 99 22 93 22  3A 99 A6 31 33 29 22 12  |.....".":..13)".|
000002D0: 54 92 41 50 45 20 4F 52  20 12 44 92 49 53 4B 92  |T.APE OR .D.ISK.|
000002E0: 22 00 03 0B 87 00 97 31  39 38 2C 30 3A 92 31 39  |"......198,0:.19|
000002F0: 38 2C 31 3A A1 5A 24 3A  8B 5A 24 B2 22 54 22 A7  |8,1:.Z$:.Z$."T".|
00000300: 31 37 30 00 18 0B 8C 00  9F 31 2C 38 2C 32 2C AA  |170......1,8,2,.|
00000310: 4E 24 AA 22 53 2C 52 22  00 20 0B 91 00 49 B2 31  |N$."S,R". ...I.1|
00000320: 00 43 0B 96 00 84 31 2C  41 24 28 49 29 2C 42 24  |.C....1,A$(I),B$|
00000330: 28 49 29 2C 43 28 49 29  2C 43 43 28 49 29 2C 44  |(I),C(I),CC(I),D|
00000340: 28 49 29 00 4D 0B 9B 00  49 B2 49 AA 31 00 5B 0B  |(I).M...I.I.1.[.|
00000350: A0 00 8B 53 54 B2 30 89  31 35 30 00 7F 0B A5 00  |...ST.0.150.....|
00000360: A0 31 3A 99 22 93 22 3B  A6 31 34 29 22 46 49 4C  |.1:.".";.14)"FIL|
00000370: 45 20 4C 4F 41 44 45 44  11 22 3A 89 32 31 30 00  |E LOADED.":.210.|
00000380: 93 0B AA 00 99 A6 31 37  29 22 55 50 44 41 54 45  |......17)"UPDATE|
00000390: 11 11 22 00 A1 0B AF 00  9F 31 2C 31 2C 30 2C 4E  |.."......1,1,0,N|
000003A0: 24 00 A9 0B B4 00 49 B2  31 00 CC 0B B9 00 84 31  |$.....I.1......1|
000003B0: 2C 41 24 28 49 29 2C 42  24 28 49 29 2C 43 28 49  |,A$(I),B$(I),C(I|
000003C0: 29 2C 43 43 28 49 29 2C  44 28 49 29 00 D6 0B BE  |),CC(I),D(I)....|
000003D0: 00 49 B2 49 AA 31 00 E4  0B C3 00 8B 53 54 B2 30  |.I.I.1......ST.0|
000003E0: 89 31 38 35 00 04 0C C8  00 A0 31 3A 99 22 93 22  |.185......1:."."|
000003F0: 3A 99 A6 31 34 29 22 46  49 4C 45 20 4C 4F 41 44  |:..14)"FILE LOAD|
00000400: 45 44 11 22 00 24 0C CD  00 99 A6 31 31 29 22 12  |ED.".$.....11)".|
00000410: 50 52 45 53 53 20 53 54  4F 50 20 4F 4E 20 54 41  |PRESS STOP ON TA|
00000420: 50 45 92 22 00 4B 0C D2  00 99 A6 37 29 22 12 55  |PE.".K.....7)".U|
00000430: 50 44 41 54 45 20 42 45  46 4F 52 45 20 50 52 49  |PDATE BEFORE PRI|
00000440: 4E 54 49 4E 47 20 4F 55  54 92 22 00 6B 0C D7 00  |NTING OUT.".k...|
00000450: 99 A6 38 29 22 11 11 31  3D 55 50 44 41 54 45 20  |..8)"..1=UPDATE |
00000460: 49 4E 56 45 53 54 4D 45  4E 54 22 00 89 0C DC 00  |INVESTMENT".....|
00000470: 99 A6 38 29 22 32 3D 41  44 44 20 41 4E 20 49 4E  |..8)"2=ADD AN IN|
00000480: 56 45 53 54 4D 45 4E 54  22 00 AA 0C E1 00 99 A6  |VESTMENT".......|
00000490: 38 29 22 33 3D 44 45 4C  45 54 45 20 41 4E 20 49  |8)"3=DELETE AN I|
000004A0: 4E 56 45 53 54 4D 45 4E  54 22 00 C4 0C E6 00 99  |NVESTMENT"......|
000004B0: A6 38 29 22 34 3D 46 49  4C 45 20 43 4F 4D 50 4C  |.8)"4=FILE COMPL|
000004C0: 45 54 45 22 00 E1 0C EB  00 99 A6 38 29 22 35 3D  |ETE".......8)"5=|
000004D0: 45 52 52 4F 52 20 43 4F  52 52 45 43 54 49 4F 4E  |ERROR CORRECTION|
000004E0: 22 00 F8 0C F0 00 99 A6  38 29 22 36 3D 53 54 4F  |".......8)"6=STO|
000004F0: 43 4B 20 53 4F 4C 44 22  00 12 0D F5 00 99 A6 38  |CK SOLD".......8|
00000500: 29 22 37 3D 43 41 50 20  47 41 49 4E 20 44 41 54  |)"7=CAP GAIN DAT|
00000510: 41 22 00 27 0D FA 00 85  22 59 4F 55 52 20 43 48  |A".'...."YOUR CH|
00000520: 4F 49 43 45 22 3B 5A 00  4A 0D FF 00 91 5A 89 32  |OICE";Z.J....Z.2|
00000530: 36 30 2C 34 34 35 2C 34  35 30 2C 33 38 35 2C 34  |60,445,450,385,4|
00000540: 39 30 2C 37 37 30 2C 39  33 35 00 57 0D 04 01 81  |90,770,935.W....|
00000550: 58 B2 31 A4 49 AB 31 00  76 0D 09 01 45 28 58 29  |X.1.I.1.v...E(X)|
00000560: B2 28 28 43 28 58 29 AC  2E 31 29 AA 43 28 58 29  |.((C(X)..1).C(X)|
00000570: 29 AD 44 28 58 29 00 8D  0D 0E 01 45 31 B2 B5 28  |).D(X).....E1..(|
00000580: 45 28 58 29 AC 31 30 30  29 AD 31 30 30 00 AD 0D  |E(X).100).100...|
00000590: 13 01 8B 45 28 58 29 B1  B2 45 31 AA 2E 30 30 35  |...E(X)..E1..005|
000005A0: A7 45 28 58 29 B2 45 31  AA 2E 30 30 31 00 C8 0D  |.E(X).E1..001...|
000005B0: 18 01 8B 45 28 58 29 B3  B2 45 31 AA 2E 30 30 35  |...E(X)..E1..005|
000005C0: A7 45 28 58 29 B2 45 31  00 E7 0D 1D 01 46 28 58  |.E(X).E1.....F(X|
000005D0: 29 B2 28 28 43 28 58 29  AC 2E 32 29 AA 43 28 58  |).((C(X)..2).C(X|
000005E0: 29 29 AD 44 28 58 29 00  FE 0D 22 01 46 31 B2 B5  |)).D(X)...".F1..|
000005F0: 28 46 28 58 29 AC 31 30  30 29 AD 31 30 30 00 1E  |(F(X).100).100..|
00000600: 0E 27 01 8B 46 28 58 29  B1 B2 46 31 AA 2E 30 30  |.'..F(X)..F1..00|
00000610: 35 A7 46 28 58 29 B2 46  31 AA 2E 30 30 31 00 39  |5.F(X).F1..001.9|
00000620: 0E 2C 01 8B 46 28 58 29  B3 B2 46 31 AA 2E 30 30  |.,..F(X)..F1..00|
00000630: 35 A7 46 28 58 29 B2 46  31 00 58 0E 31 01 47 28  |5.F(X).F1.X.1.G(|
00000640: 58 29 B2 28 28 43 28 58  29 AC 2E 33 29 AA 43 28  |X).((C(X)..3).C(|
00000650: 58 29 29 AD 44 28 58 29  00 6F 0E 36 01 47 31 B2  |X)).D(X).o.6.G1.|
00000660: B5 28 47 28 58 29 AC 31  30 30 29 AD 31 30 30 00  |.(G(X).100).100.|
00000670: 8F 0E 3B 01 8B 47 28 58  29 B1 B2 47 31 AA 2E 30  |..;..G(X)..G1..0|
00000680: 30 35 A7 47 28 58 29 B2  47 31 AA 2E 30 30 31 00  |05.G(X).G1..001.|
00000690: AA 0E 40 01 8B 47 28 58  29 B3 B2 47 31 AA 2E 30  |..@..G(X)..G1..0|
000006A0: 30 35 A7 47 28 58 29 B2  47 31 00 C9 0E 45 01 48  |05.G(X).G1...E.H|
000006B0: 28 58 29 B2 28 28 43 28  58 29 AC 2E 34 29 AA 43  |(X).((C(X)..4).C|
000006C0: 28 58 29 29 AD 44 28 58  29 00 E0 0E 4A 01 48 31  |(X)).D(X)...J.H1|
000006D0: B2 B5 28 48 28 58 29 AC  31 30 30 29 AD 31 30 30  |..(H(X).100).100|
000006E0: 00 00 0F 4F 01 8B 48 28  58 29 B1 B2 48 31 AA 2E  |...O..H(X)..H1..|
000006F0: 30 30 35 A7 48 28 58 29  B2 48 31 AA 2E 30 30 31  |005.H(X).H1..001|
00000700: 00 1B 0F 54 01 8B 48 28  58 29 B3 B2 48 31 AA 2E  |...T..H(X)..H1..|
00000710: 30 30 35 A7 48 28 58 29  B2 48 31 00 50 0F 59 01  |005.H(X).H1.P.Y.|
00000720: 99 22 93 22 3B A6 35 29  22 43 4F 4D 50 55 54 49  |.".";.5)"COMPUTI|
00000730: 4E 47 20 43 41 50 49 54  41 4C 20 47 41 49 4E 20  |NG CAPITAL GAIN |
00000740: 28 4C 4F 53 53 29 11 11  22 3A 99 41 24 28 58 29  |(LOSS)..":.A$(X)|
00000750: 00 76 0F 5E 01 85 22 43  55 52 52 45 4E 54 20 50  |.v.^.."CURRENT P|
00000760: 52 49 43 45 20 50 45 52  20 53 48 41 52 45 3D 22  |RICE PER SHARE="|
00000770: 3B 43 50 28 58 29 00 92  0F 63 01 43 47 28 58 29  |;CP(X)...c.CG(X)|
00000780: B2 28 43 50 28 58 29 AC  44 28 58 29 29 AB 43 28  |.(CP(X).D(X)).C(|
00000790: 58 29 00 AD 0F 68 01 50  47 28 58 29 B2 28 43 47  |X)...h.PG(X).(CG|
000007A0: 28 58 29 AD 43 28 58 29  29 AC 31 30 30 00 BC 0F  |(X).C(X)).100...|
000007B0: 6D 01 54 43 B2 43 28 58  29 AA 54 43 00 CC 0F 72  |m.TC.C(X).TC...r|
000007C0: 01 50 52 B2 43 47 28 58  29 AA 50 52 00 D2 0F 77  |.PR.CG(X).PR...w|
000007D0: 01 82 00 E5 0F 7C 01 54  47 B2 28 50 52 AD 54 43  |.....|.TG.(PR.TC|
000007E0: 29 AC 31 30 30 00 1D 10  81 01 99 22 93 22 3A 99  |).100......".":.|
000007F0: A6 38 29 22 31 3D 50 52  49 4E 54 20 48 41 52 44  |.8)"1=PRINT HARD|
00000800: 20 43 4F 50 59 11 22 3A  99 A6 38 29 22 32 3D 53  | COPY.":..8)"2=S|
00000810: 41 56 45 20 54 4F 20 54  41 50 45 11 22 00 51 10  |AVE TO TAPE.".Q.|
00000820: 86 01 99 A6 38 29 22 33  3D 53 41 56 45 20 54 4F  |....8)"3=SAVE TO|
00000830: 20 44 49 53 4B 11 22 3A  99 A6 38 29 22 34 3D 50  | DISK.":..8)"4=P|
00000840: 52 49 4E 54 20 54 4F 20  53 43 52 45 45 4E 11 22  |RINT TO SCREEN."|
00000850: 3A 00 88 10 8B 01 99 A6  38 29 22 35 3D 52 45 52  |:.......8)"5=RER|
00000860: 55 4E 20 50 52 4F 47 52  41 4D 22 3A 99 A6 38 29  |UN PROGRAM":..8)|
00000870: 22 11 36 3D 45 52 52 4F  52 20 43 4F 52 52 45 43  |".6=ERROR CORREC|
00000880: 54 49 4F 4E 22 3A 85 5A  00 A7 10 90 01 91 5A 89  |TION":.Z......Z.|
00000890: 35 39 30 2C 34 30 35 2C  36 37 35 2C 37 31 30 2C  |590,405,675,710,|
000008A0: 37 36 35 2C 34 39 30 00  C2 10 95 01 99 A6 39 29  |765,490.......9)|
000008B0: 22 12 4C 4F 41 44 20 44  41 54 41 20 54 41 50 45  |".LOAD DATA TAPE|
000008C0: 92 22 00 D7 10 9A 01 85  22 46 49 4C 45 20 4E 41  |."......"FILE NA|
000008D0: 4D 45 3D 22 3B 4E 24 00  E5 10 9F 01 9F 31 2C 31  |ME=";N$......1,1|
000008E0: 2C 32 2C 4E 24 00 F2 10  A4 01 81 59 B2 31 A4 49  |,2,N$......Y.1.I|
000008F0: AB 31 00 21 11 A9 01 98  31 2C 41 24 28 59 29 3B  |.1.!....1,A$(Y);|
00000900: 52 24 3B 42 24 28 59 29  3B 52 24 3B 43 28 59 29  |R$;B$(Y);R$;C(Y)|
00000910: 3B 52 24 3B 43 43 28 59  29 3B 52 24 3B 44 28 59  |;R$;CC(Y);R$;D(Y|
00000920: 29 00 28 11 AE 01 82 59  00 43 11 B3 01 99 A6 31  |).(....Y.C.....1|
00000930: 33 29 22 46 49 4C 45 20  43 4F 4D 50 4C 45 54 45  |3)"FILE COMPLETE|
00000940: 11 11 22 00 4F 11 B8 01  A0 31 3A 89 32 31 30 00  |..".O....1:.210.|
00000950: 57 11 BD 01 89 38 30 00  79 11 C2 01 99 A6 31 35  |W....80.y.....15|
00000960: 29 22 93 44 45 4C 45 54  45 20 41 4E 20 49 4E 56  |)".DELETE AN INV|
00000970: 45 53 54 4D 45 4E 54 11  22 00 95 11 C7 01 81 58  |ESTMENT."......X|
00000980: B2 31 A4 49 AB 31 3A 99  A6 31 30 29 58 3B 41 24  |.1.I.1:..10)X;A$|
00000990: 28 58 29 3A 82 00 AF 11  CC 01 85 22 4E 55 4D 42  |(X):......."NUMB|
000009A0: 45 52 20 54 4F 20 44 45  4C 45 54 45 22 3B 5A 00  |ER TO DELETE";Z.|
000009B0: BA 11 D1 01 81 58 B2 5A  A4 49 00 00 12 D6 01 41  |.....X.Z.I.....A|
000009C0: 24 28 58 29 B2 41 24 28  58 AA 31 29 3A 42 24 28  |$(X).A$(X.1):B$(|
000009D0: 58 29 B2 42 24 28 58 AA  31 29 3A 43 28 58 29 B2  |X).B$(X.1):C(X).|
000009E0: 43 28 58 AA 31 29 3A 43  43 28 58 29 B2 43 43 28  |C(X.1):CC(X).CC(|
000009F0: 58 AA 31 29 3A 44 28 58  29 B2 44 28 58 AA 31 29  |X.1):D(X).D(X.1)|
00000A00: 00 06 12 DB 01 82 00 3F  12 E0 01 99 22 4D 4F 52  |.......?...."MOR|
00000A10: 45 20 54 4F 20 44 45 4C  45 54 45 3F 20 59 2F 4E  |E TO DELETE? Y/N|
00000A20: 22 3A 97 31 39 38 2C 30  3A 92 31 39 38 2C 31 3A  |":.198,0:.198,1:|
00000A30: A1 5A 24 3A 8B 5A 24 B2  22 59 22 A7 34 35 30 00  |.Z$:.Z$."Y".450.|
00000A40: 48 12 E5 01 89 39 31 35  00 67 12 EA 01 99 A6 31  |H....915.g.....1|
00000A50: 32 29 22 93 12 45 52 52  4F 52 20 43 4F 52 52 45  |2)"..ERROR CORRE|
00000A60: 43 54 49 4F 4E 92 22 00  7F 12 EF 01 81 58 B2 31  |CTION."......X.1|
00000A70: A4 49 AB 31 3A 99 58 3B  41 24 28 58 29 3A 82 00  |.I.1:.X;A$(X):..|
00000A80: A4 12 F4 01 99 22 11 11  43 4F 52 52 45 43 54 49  |....."..CORRECTI|
00000A90: 4E 47 20 49 4E 56 45 53  54 4D 45 4E 54 23 22 3B  |NG INVESTMENT#";|
00000AA0: 3A 85 4D 25 00 B7 12 F9  01 99 A6 38 29 22 12 31  |:.M%.......8)".1|
00000AB0: 92 20 4E 41 4D 45 22 00  D1 12 FE 01 99 A6 38 29  |. NAME".......8)|
00000AC0: 22 12 32 92 20 44 41 54  45 20 42 4F 55 47 48 54  |".2. DATE BOUGHT|
00000AD0: 22 00 E8 12 03 02 99 A6  38 29 22 12 33 92 20 23  |".......8)".3. #|
00000AE0: 20 53 48 41 52 45 53 22  00 FC 12 08 02 99 A6 38  | SHARES".......8|
00000AF0: 29 22 12 34 92 20 50 52  49 43 45 22 00 15 13 0D  |)".4. PRICE"....|
00000B00: 02 99 A6 38 29 22 12 35  92 20 43 4F 4D 4D 49 53  |...8)".5. COMMIS|
00000B10: 53 49 4F 4E 22 00 33 13  12 02 99 22 43 4F 52 52  |SION".3...."CORR|
00000B20: 45 43 54 49 4E 47 20 22  3B 41 24 28 4D 25 29 3B  |ECTING ";A$(M%);|
00000B30: 3A 85 43 00 4E 13 17 02  91 43 89 35 34 30 2C 35  |:.C.N....C.540,5|
00000B40: 35 30 2C 35 36 30 2C 35  37 30 2C 35 38 30 00 73  |50,560,570,580.s|
00000B50: 13 1C 02 99 41 24 28 4D  25 29 22 2D 43 48 41 4E  |....A$(M%)"-CHAN|
00000B60: 47 45 20 4E 41 4D 45 20  54 4F 22 3A 85 41 24 28  |GE NAME TO":.A$(|
00000B70: 4D 25 29 00 7C 13 21 02  89 33 38 35 00 B7 13 26  |M%).|.!..385...&|
00000B80: 02 99 41 24 28 4D 25 29  3A 99 22 2D 43 48 41 4E  |..A$(M%):."-CHAN|
00000B90: 47 45 20 44 41 54 45 20  4D 4D 2F 44 44 2F 59 59  |GE DATE MM/DD/YY|
00000BA0: 20 22 3B 42 24 28 4D 25  29 3B 22 20 54 4F 22 3A  | ";B$(M%);" TO":|
00000BB0: 85 42 24 28 4D 25 29 00  C0 13 2B 02 89 33 38 35  |.B$(M%)...+..385|
00000BC0: 00 F8 13 30 02 99 41 24  28 4D 25 29 3A 99 22 2D  |...0..A$(M%):."-|
00000BD0: 43 48 41 4E 47 45 20 23  20 4F 46 20 53 48 41 52  |CHANGE # OF SHAR|
00000BE0: 45 53 20 22 3B 44 28 4D  25 29 3B 22 20 54 4F 22  |ES ";D(M%);" TO"|
00000BF0: 3A 85 20 44 28 4D 25 29  00 01 14 35 02 89 33 38  |:. D(M%)...5..38|
00000C00: 35 00 33 14 3A 02 99 41  24 28 4D 25 29 3A 99 22  |5.3.:..A$(M%):."|
00000C10: 2D 43 48 41 4E 47 45 20  50 52 49 43 45 20 24 22  |-CHANGE PRICE $"|
00000C20: 50 28 4D 25 29 3B 22 20  54 4F 22 3A 85 20 50 28  |P(M%);" TO":. P(|
00000C30: 4D 25 29 00 50 14 3F 02  43 28 4D 25 29 B2 28 44  |M%).P.?.C(M%).(D|
00000C40: 28 4D 25 29 AC 50 28 4D  25 29 29 3A 89 33 38 35  |(M%).P(M%)):.385|
00000C50: 00 8D 14 44 02 99 41 24  28 4D 25 29 3A 99 22 2D  |...D..A$(M%):."-|
00000C60: 43 48 41 4E 47 45 20 43  4F 4D 4D 49 53 53 49 4F  |CHANGE COMMISSIO|
00000C70: 4E 20 43 4F 53 54 20 24  22 43 43 28 4D 25 29 3B  |N COST $"CC(M%);|
00000C80: 22 20 54 4F 22 3A 85 43  43 28 4D 25 29 00 96 14  |" TO":.CC(M%)...|
00000C90: 49 02 89 33 38 35 00 BA  14 4E 02 99 22 93 22 3B  |I..385...N..".";|
00000CA0: A6 39 29 22 12 50 52 49  4E 54 49 4E 47 20 41 20  |.9)".PRINTING A |
00000CB0: 48 41 52 44 20 43 4F 50  59 22 00 C6 14 53 02 9F  |HARD COPY"...S..|
00000CC0: 34 2C 34 3A 9D 34 00 D1  14 58 02 99 54 44 24 3A  |4,4:.4...X..TD$:|
00000CD0: 99 00 DE 14 5D 02 81 59  B2 31 A4 49 AB 31 00 12  |....]..Y.1.I.1..|
00000CE0: 15 62 02 98 34 2C 59 3B  41 24 28 59 29 3B 22 20  |.b..4,Y;A$(Y);" |
00000CF0: 42 47 48 54 20 4F 4E 20  22 3B 42 24 28 59 29 3B  |BGHT ON ";B$(Y);|
00000D00: 22 20 40 24 22 3B 28 43  28 59 29 AD 44 28 59 29  |" @$";(C(Y).D(Y)|
00000D10: 29 3B 00 30 15 64 02 98  34 2C 22 2F 53 48 52 22  |);.0.d..4,"/SHR"|
00000D20: 3B 22 20 20 23 53 48 52  53 3D 22 3B 44 28 59 29  |;"  #SHRS=";D(Y)|
00000D30: 00 6C 15 67 02 98 34 2C  22 43 55 52 52 45 4E 54  |.l.g..4,"CURRENT|
00000D40: 20 50 52 49 43 45 3D 24  22 3B 43 50 28 59 29 3A  | PRICE=$";CP(Y):|
00000D50: 98 34 2C 22 43 4F 4D 4D  49 53 53 49 4F 4E 20 43  |.4,"COMMISSION C|
00000D60: 4F 53 54 3D 24 22 3B 43  43 28 59 29 00 9E 15 6C  |OST=$";CC(Y)...l|
00000D70: 02 98 34 2C 22 31 30 25  50 52 4F 46 49 54 20 40  |..4,"10%PROFIT @|
00000D80: 24 22 3B 45 28 59 29 3A  98 34 2C 22 32 30 25 50  |$";E(Y):.4,"20%P|
00000D90: 52 4F 46 49 54 20 40 24  22 3B 46 28 59 29 00 D0  |ROFIT @$";F(Y)..|
00000DA0: 15 71 02 98 34 2C 22 33  30 25 50 52 4F 46 49 54  |.q..4,"30%PROFIT|
00000DB0: 20 40 24 22 3B 47 28 59  29 3A 98 34 2C 22 34 30  | @$";G(Y):.4,"40|
00000DC0: 25 50 52 4F 46 49 54 20  40 24 22 3B 48 28 59 29  |%PROFIT @$";H(Y)|
00000DD0: 00 F6 15 76 02 98 34 2C  22 43 55 52 52 45 4E 54  |...v..4,"CURRENT|
00000DE0: 20 43 41 50 49 54 41 4C  20 47 41 49 4E 3D 24 22  | CAPITAL GAIN=$"|
00000DF0: 3B 43 47 28 59 29 00 1B  16 7B 02 98 34 2C 22 41  |;CG(Y)...{..4,"A|
00000E00: 4D 4F 55 4E 54 20 49 4E  56 45 53 54 45 44 20 20  |MOUNT INVESTED  |
00000E10: 20 20 20 3D 24 22 3B 43  28 59 29 00 48 16 80 02  |   =$";C(Y).H...|
00000E20: 98 34 2C 22 43 55 52 52  45 4E 54 20 56 41 4C 55  |.4,"CURRENT VALU|
00000E30: 45 20 20 20 20 20 20 20  3D 24 22 3B 28 43 28 59  |E       =$";(C(Y|
00000E40: 29 AA 43 47 28 59 29 29  00 71 16 85 02 98 34 2C  |).CG(Y)).q....4,|
00000E50: 22 43 55 52 52 45 4E 54  20 50 45 52 43 45 4E 54  |"CURRENT PERCENT|
00000E60: 20 47 41 49 4E 3D 22 3B  50 47 28 59 29 3B 22 25  | GAIN=";PG(Y);"%|
00000E70: 22 00 7A 16 8A 02 98 34  3A 82 00 A2 16 8F 02 98  |".z....4:.......|
00000E80: 34 3A 98 34 2C 22 54 4F  54 41 4C 20 41 4D 4F 55  |4:.4,"TOTAL AMOU|
00000E90: 4E 54 20 49 4E 56 45 53  54 45 44 20 3D 24 22 3B  |NT INVESTED =$";|
00000EA0: 54 43 00 C7 16 94 02 98  34 2C 22 54 4F 54 41 4C  |TC......4,"TOTAL|
00000EB0: 20 43 41 50 49 54 41 4C  20 47 41 49 4E 20 20 20  | CAPITAL GAIN   |
00000EC0: 20 3D 24 22 3B 50 52 00  F0 16 99 02 98 34 2C 22  | =$";PR......4,"|
00000ED0: 54 4F 54 41 4C 20 50 45  52 43 45 4E 54 20 47 41  |TOTAL PERCENT GA|
00000EE0: 49 4E 20 20 20 20 3D 22  54 47 3B 22 25 22 3A 99  |IN    ="TG;"%":.|
00000EF0: 00 0D 17 9E 02 98 34 2C  C7 28 31 32 29 3A 98 34  |......4,.(12):.4|
00000F00: 3A A0 34 3A 99 22 93 22  3A 89 32 31 30 00 3D 17  |:.4:.".":.210.=.|
00000F10: A3 02 99 22 93 22 3B A6  35 29 22 12 57 52 49 54  |...".";.5)".WRIT|
00000F20: 49 4E 47 20 49 4E 56 45  53 54 4D 45 4E 54 20 44  |ING INVESTMENT D|
00000F30: 41 54 41 20 54 4F 20 44  49 53 4B 92 22 00 52 17  |ATA TO DISK.".R.|
00000F40: A8 02 85 22 46 49 4C 45  20 4E 41 4D 45 3D 22 3B  |..."FILE NAME=";|
00000F50: 4E 24 00 6C 17 AD 02 9F  31 2C 38 2C 32 2C 22 40  |N$.l....1,8,2,"@|
00000F60: 30 3A 22 AA 4E 24 AA 22  53 2C 57 22 00 79 17 B2  |0:".N$."S,W".y..|
00000F70: 02 81 59 B2 31 A4 49 AB  31 00 A8 17 B7 02 98 31  |..Y.1.I.1......1|
00000F80: 2C 41 24 28 59 29 3B 52  24 3B 42 24 28 59 29 3B  |,A$(Y);R$;B$(Y);|
00000F90: 52 24 3B 43 28 59 29 3B  52 24 3B 43 43 28 59 29  |R$;C(Y);R$;CC(Y)|
00000FA0: 3B 52 24 3B 44 28 59 29  00 AE 17 BC 02 82 00 BF  |;R$;D(Y)........|
00000FB0: 17 C1 02 A0 31 3A 99 22  93 22 3A 89 32 31 30 00  |....1:.".":.210.|
00000FC0: EC 17 C6 02 99 22 93 48  41 56 45 20 59 4F 55 20  |.....".HAVE YOU |
00000FD0: 55 50 44 41 54 45 44 3F  20 20 59 2F 4E 22 3A 97  |UPDATED?  Y/N":.|
00000FE0: 31 39 38 2C 30 3A 92 31  39 38 2C 31 00 00 18 C8  |198,0:.198,1....|
00000FF0: 02 A1 5A 24 3A 8B 5A 24  B2 22 4E 22 A7 32 36 30  |..Z$:.Z$."N".260|
00001000: 00 29 18 CB 02 99 22 93  22 3B A6 38 29 22 12 43  |.)....".";.8)".C|
00001010: 4F 50 59 20 49 4E 20 59  4F 55 52 20 52 45 43 4F  |OPY IN YOUR RECO|
00001020: 52 44 20 42 4F 4F 4B 92  22 00 36 18 D0 02 81 59  |RD BOOK.".6....Y|
00001030: B2 31 A4 49 AB 31 00 72  18 D5 02 99 22 11 22 3B  |.1.I.1.r....".";|
00001040: 59 3B 41 24 28 59 29 3A  99 22 42 47 48 54 20 4F  |Y;A$(Y):."BGHT O|
00001050: 4E 20 22 3B 42 24 28 59  29 3B 22 20 40 24 22 3B  |N ";B$(Y);" @$";|
00001060: 28 43 28 59 29 AD 44 28  59 29 29 3B 22 2F 53 48  |(C(Y).D(Y));"/SH|
00001070: 52 22 00 98 18 DA 02 99  22 20 20 23 53 48 52 53  |R"......"  #SHRS|
00001080: 3D 22 3B 44 28 59 29 3A  99 22 50 52 49 43 45 3D  |=";D(Y):."PRICE=|
00001090: 24 22 3B 43 50 28 59 29  00 B7 18 DC 02 99 22 43  |$";CP(Y)......"C|
000010A0: 4F 4D 4D 49 53 53 49 4F  4E 20 43 4F 53 54 3D 24  |OMMISSION COST=$|
000010B0: 22 3B 43 43 28 59 29 00  E7 18 DF 02 99 22 31 30  |";CC(Y)......"10|
000010C0: 25 20 50 52 4F 46 49 54  20 40 24 22 3B 45 28 59  |% PROFIT @$";E(Y|
000010D0: 29 3A 99 22 32 30 25 20  50 52 4F 46 49 54 20 40  |):."20% PROFIT @|
000010E0: 24 22 3B 46 28 59 29 00  17 19 E4 02 99 22 33 30  |$";F(Y)......"30|
000010F0: 25 20 50 52 4F 46 49 54  20 40 24 22 3B 47 28 59  |% PROFIT @$";G(Y|
00001100: 29 3A 99 22 34 30 25 20  50 52 4F 46 49 54 20 40  |):."40% PROFIT @|
00001110: 24 22 3B 48 28 59 29 00  37 19 E9 02 99 22 50 52  |$";H(Y).7...."PR|
00001120: 45 53 53 20 52 45 54 55  52 4E 20 54 4F 20 43 4F  |ESS RETURN TO CO|
00001130: 4E 54 49 4E 55 45 22 00  4D 19 EE 02 97 31 39 38  |NTINUE".M....198|
00001140: 2C 30 3A 92 31 39 38 2C  31 3A A1 5A 24 00 53 19  |,0:.198,1:.Z$.S.|
00001150: F3 02 82 00 61 19 F8 02  99 22 93 22 3A 89 32 31  |....a....".":.21|
00001160: 30 00 67 19 FD 02 8A 00  AA 19 02 03 99 22 93 48  |0.g..........".H|
00001170: 41 56 45 20 59 4F 55 20  43 52 45 41 54 45 44 20  |AVE YOU CREATED |
00001180: 41 20 43 41 50 49 54 41  4C 20 47 41 49 4E 20 46  |A CAPITAL GAIN F|
00001190: 49 4C 45 20 46 4F 52 20  54 48 49 53 20 59 45 41  |ILE FOR THIS YEA|
000011A0: 52 3F 20 20 59 2F 4E 11  11 22 00 CC 19 07 03 97  |R?  Y/N.."......|
000011B0: 31 39 38 2C 30 3A 92 31  39 38 2C 31 3A A1 5A 24  |198,0:.198,1:.Z$|
000011C0: 3A 8B 5A 24 B2 22 59 22  A7 39 33 35 00 F1 19 0C  |:.Z$."Y".935....|
000011D0: 03 81 58 B2 31 A4 49 AB  31 3A 99 58 2C C8 28 41  |..X.1.I.1:.X,.(A|
000011E0: 24 28 58 29 2C 38 29 2C  3A 82 3A 99 C7 28 31 33  |$(X),8),:.:..(13|
000011F0: 29 00 1C 1A 11 03 99 22  11 57 48 49 43 48 20 49  |)......".WHICH I|
00001200: 4E 56 45 53 54 4D 45 4E  54 20 48 41 53 20 42 45  |NVESTMENT HAS BE|
00001210: 45 4E 20 53 4F 4C 44 22  3B 3A 85 5A 00 26 1A 16  |EN SOLD";:.Z.&..|
00001220: 03 4E B2 4E AA 31 00 5A  1A 1B 03 41 47 24 28 4E  |.N.N.1.Z...AG$(N|
00001230: 29 B2 41 24 28 5A 29 3A  42 47 24 28 4E 29 B2 42  |).A$(Z):BG$(N).B|
00001240: 24 28 5A 29 3A 43 44 28  4E 29 B2 43 28 5A 29 3A  |$(Z):CD(N).C(Z):|
00001250: 44 47 28 4E 29 B2 44 28  5A 29 00 76 1A 1D 03 43  |DG(N).D(Z).v...C|
00001260: 41 28 4E 29 B2 43 47 28  5A 29 3A 47 47 28 4E 29  |A(N).CG(Z):GG(N)|
00001270: B2 43 43 28 5A 29 00 8B  1A 20 03 85 22 53 4F 4C  |.CC(Z)... .."SOL|
00001280: 44 20 40 24 22 3B 53 41  28 4E 29 00 B5 1A 25 03  |D @$";SA(N)...%.|
00001290: 47 43 28 4E 29 B2 28 53  41 28 4E 29 AC 44 47 28  |GC(N).(SA(N).DG(|
000012A0: 4E 29 29 AB 43 44 28 4E  29 3A 41 47 B2 41 47 AA  |N)).CD(N):AG.AG.|
000012B0: 43 47 28 4E 29 00 D6 1A  2A 03 85 22 44 41 54 45  |CG(N)...*.."DATE|
000012C0: 20 53 4F 4C 44 20 4D 4D  2F 44 44 2F 59 59 22 3B  | SOLD MM/DD/YY";|
000012D0: 53 44 24 28 4E 29 00 FB  1A 2F 03 99 A6 37 29 22  |SD$(N).../...7)"|
000012E0: 43 41 50 49 54 41 4C 20  47 41 49 4E 20 44 41 54  |CAPITAL GAIN DAT|
000012F0: 41 20 46 4F 52 20 59 45  41 52 22 00 10 1B 34 03  |A FOR YEAR"...4.|
00001300: 85 22 46 49 4C 45 20 4E  41 4D 45 3D 22 3B 4E 24  |."FILE NAME=";N$|
00001310: 00 35 1B 39 03 99 A6 31  30 29 22 93 53 41 56 45  |.5.9...10)".SAVE|
00001320: 20 54 4F 20 12 54 92 41  50 45 20 4F 52 20 12 44  | TO .T.APE OR .D|
00001330: 92 49 53 4B 22 00 57 1B  3E 03 97 31 39 38 2C 30  |.ISK".W.>..198,0|
00001340: 3A 92 31 39 38 2C 31 3A  A1 5A 24 3A 8B 5A 24 B2  |:.198,1:.Z$:.Z$.|
00001350: 22 44 22 A7 38 37 35 00  65 1B 43 03 9F 32 2C 31  |"D".875.e.C..2,1|
00001360: 2C 33 2C 4E 24 00 70 1B  48 03 81 58 B2 31 A4 4E  |,3,N$.p.H..X.1.N|
00001370: 00 B5 1B 4D 03 98 32 2C  41 47 24 28 58 29 3B 52  |...M..2,AG$(X);R|
00001380: 24 3B 42 47 24 28 58 29  3B 52 24 3B 43 44 28 58  |$;BG$(X);R$;CD(X|
00001390: 29 3B 52 24 3B 44 47 28  58 29 3B 52 24 3B 43 41  |);R$;DG(X);R$;CA|
000013A0: 28 58 29 3B 52 24 3B 53  41 28 58 29 3B 52 24 3B  |(X);R$;SA(X);R$;|
000013B0: 47 47 28 58 29 00 C9 1B  52 03 98 32 2C 53 44 24  |GG(X)...R..2,SD$|
000013C0: 28 58 29 3B 52 24 3B 41  47 00 D4 1B 57 03 81 59  |(X);R$;AG...W..Y|
000013D0: B2 5A A4 49 00 1A 1C 5C  03 41 24 28 59 29 B2 41  |.Z.I...\.A$(Y).A|
000013E0: 24 28 59 AA 31 29 3A 42  24 28 59 29 B2 42 24 28  |$(Y.1):B$(Y).B$(|
000013F0: 59 AA 31 29 3A 43 28 59  29 B2 43 28 59 AA 31 29  |Y.1):C(Y).C(Y.1)|
00001400: 3A 43 43 28 59 29 B2 43  43 28 59 AA 31 29 3A 44  |:CC(Y).CC(Y.1):D|
00001410: 28 59 29 B2 44 28 59 AA  31 29 00 30 1C 61 03 45  |(Y).D(Y.1).0.a.E|
00001420: 28 59 29 B2 45 28 59 AA  31 29 3A 82 59 3A 82 58  |(Y).E(Y.1):.Y:.X|
00001430: 00 3C 1C 66 03 A0 32 3A  89 39 31 35 00 56 1C 6B  |.<.f..2:.915.V.k|
00001440: 03 9F 32 2C 38 2C 33 2C  22 40 30 3A 22 AA 4E 24  |..2,8,3,"@0:".N$|
00001450: AA 22 53 2C 57 22 00 61  1C 70 03 81 58 B2 31 A4  |."S,W".a.p..X.1.|
00001460: 4E 00 A6 1C 75 03 98 32  2C 41 47 24 28 58 29 3B  |N...u..2,AG$(X);|
00001470: 52 24 3B 42 47 24 28 58  29 3B 52 24 3B 43 44 28  |R$;BG$(X);R$;CD(|
00001480: 58 29 3B 52 24 3B 44 47  28 58 29 3B 52 24 3B 43  |X);R$;DG(X);R$;C|
00001490: 41 28 58 29 3B 52 24 3B  53 41 28 58 29 3B 52 24  |A(X);R$;SA(X);R$|
000014A0: 3B 47 47 28 58 29 00 BA  1C 7A 03 98 32 2C 53 44  |;GG(X)...z..2,SD|
000014B0: 24 28 58 29 3B 52 24 3B  41 47 00 C5 1C 7F 03 81  |$(X);R$;AG......|
000014C0: 59 B2 5A A4 49 00 0B 1D  84 03 41 24 28 59 29 B2  |Y.Z.I.....A$(Y).|
000014D0: 41 24 28 59 AA 31 29 3A  42 24 28 59 29 B2 42 24  |A$(Y.1):B$(Y).B$|
000014E0: 28 59 AA 31 29 3A 43 28  59 29 B2 43 28 59 AA 31  |(Y.1):C(Y).C(Y.1|
000014F0: 29 3A 43 43 28 59 29 B2  43 43 28 59 AA 31 29 3A  |):CC(Y).CC(Y.1):|
00001500: 44 28 59 29 B2 44 28 59  AA 31 29 00 21 1D 89 03  |D(Y).D(Y.1).!...|
00001510: 45 28 59 29 B2 45 28 59  AA 31 29 3A 82 59 3A 82  |E(Y).E(Y.1):.Y:.|
00001520: 58 00 28 1D 8E 03 A0 32  00 57 1D 93 03 99 A6 33  |X.(....2.W.....3|
00001530: 29 22 93 11 20 53 41 56  45 20 54 48 49 53 20 52  |)".. SAVE THIS R|
00001540: 45 56 49 53 45 44 20 49  4E 56 45 53 54 4D 45 4E  |EVISED INVESTMEN|
00001550: 54 20 44 41 54 41 22 00  75 1D 98 03 99 A6 31 33  |T DATA".u.....13|
00001560: 29 22 20 12 54 92 41 50  45 20 4F 52 20 12 44 92  |)" .T.APE OR .D.|
00001570: 49 53 4B 20 22 00 9E 1D  9D 03 97 31 39 38 2C 30  |ISK "......198,0|
00001580: 3A 92 31 39 38 2C 31 3A  A1 5A 24 3A 8B 5A 24 B2  |:.198,1:.Z$:.Z$.|
00001590: 22 54 22 A7 49 B2 49 AB  31 3A 89 34 30 35 00 AD  |"T".I.I.1:.405..|
000015A0: 1D A2 03 49 B2 49 AB 31  3A 89 36 37 35 00 D7 1D  |...I.I.1:.675...|
000015B0: A7 03 99 22 93 43 41 50  49 54 41 4C 20 47 41 49  |...".CAPITAL GAI|
000015C0: 4E 20 44 41 54 41 20 46  4F 52 20 54 48 49 53 20  |N DATA FOR THIS |
000015D0: 59 45 41 52 22 3A 99 00  EC 1D AC 03 85 22 46 49  |YEAR":......."FI|
000015E0: 4C 45 20 4E 41 4D 45 3D  22 3B 4E 24 00 1E 1E B1  |LE NAME=";N$....|
000015F0: 03 99 22 93 22 3B A6 31  33 29 22 12 54 92 41 50  |..".";.13)".T.AP|
00001600: 45 20 4F 52 20 12 44 92  49 53 4B 22 3A 97 31 39  |E OR .D.ISK":.19|
00001610: 38 2C 30 3A 92 31 39 38  2C 31 3A A1 5A 24 00 39  |8,0:.198,1:.Z$.9|
00001620: 1E B6 03 8B 5A 24 B2 22  54 22 A7 9F 32 2C 31 2C  |....Z$."T"..2,1,|
00001630: 30 2C 4E 24 3A 89 39 36  30 00 4E 1E BB 03 9F 32  |0,N$:.960.N....2|
00001640: 2C 38 2C 33 2C AA 4E 24  AA 22 53 2C 52 22 00 56  |,8,3,.N$."S,R".V|
00001650: 1E C0 03 52 B2 31 00 93  1E C5 03 84 32 2C 41 47  |...R.1......2,AG|
00001660: 24 28 52 29 2C 42 47 24  28 52 29 2C 43 44 28 52  |$(R),BG$(R),CD(R|
00001670: 29 2C 44 47 28 52 29 2C  43 41 28 52 29 2C 53 41  |),DG(R),CA(R),SA|
00001680: 28 52 29 2C 47 47 28 52  29 2C 53 44 24 28 52 29  |(R),GG(R),SD$(R)|
00001690: 2C 41 47 00 9D 1E CA 03  52 B2 52 AA 31 00 AB 1E  |,AG.....R.R.1...|
000016A0: CF 03 8B 53 54 B2 30 A7  39 36 35 00 B2 1E D4 03  |...ST.0.965.....|
000016B0: A0 32 00 ED 1E D9 03 99  22 93 22 3B A6 35 29 22  |.2......".";.5)"|
000016C0: 41 44 44 20 4D 4F 52 45  20 49 4E 56 45 53 54 4D  |ADD MORE INVESTM|
000016D0: 45 4E 54 53 20 53 4F 4C  44 20 20 59 2F 4E 22 3A  |ENTS SOLD  Y/N":|
000016E0: 97 31 39 38 2C 30 3A 92  31 39 38 2C 31 00 0D 1F  |.198,0:.198,1...|
000016F0: DE 03 A1 5A 24 3A 8B 5A  24 B2 22 59 22 A7 99 22  |...Z$:.Z$."Y".."|
00001700: 93 22 3A 4E B2 52 AB 31  3A 89 37 38 30 00 45 1F  |.":N.R.1:.780.E.|
00001710: E3 03 99 22 50 52 49 4E  54 20 54 4F 20 12 53 92  |..."PRINT TO .S.|
00001720: 43 52 45 45 4E 20 4F 52  20 12 50 92 52 49 4E 54  |CREEN OR .P.RINT|
00001730: 45 52 22 3A 97 31 39 38  2C 30 3A 92 31 39 38 2C  |ER":.198,0:.198,|
00001740: 31 3A A1 5A 24 00 56 1F  E8 03 8B 5A 24 B2 22 53  |1:.Z$.V....Z$."S|
00001750: 22 A7 31 30 35 35 00 62  1F ED 03 9F 34 2C 34 3A  |".1055.b....4,4:|
00001760: 9D 34 00 8C 1F F2 03 98  34 2C 22 41 4E 4E 55 41  |.4......4,"ANNUA|
00001770: 4C 20 43 41 50 2E 20 47  41 49 4E 20 44 41 54 41  |L CAP. GAIN DATA|
00001780: 20 41 53 20 4F 46 20 22  3B 54 44 24 00 AA 1F F4  | AS OF ";TD$....|
00001790: 03 98 34 2C 22 53 41 56  45 20 46 4F 52 20 54 41  |..4,"SAVE FOR TA|
000017A0: 58 20 52 45 43 4F 52 44  53 22 00 BA 1F F7 03 81  |X RECORDS"......|
000017B0: 58 B2 31 A4 52 AB 31 3A  98 34 00 F0 1F FC 03 98  |X.1.R.1:.4......|
000017C0: 34 2C 41 47 24 28 58 29  3B 22 20 42 47 48 54 20  |4,AG$(X);" BGHT |
000017D0: 4F 4E 20 22 3B 42 47 24  28 58 29 3B 22 20 40 24  |ON ";BG$(X);" @$|
000017E0: 22 3B 28 43 44 28 58 29  AD 44 47 28 58 29 29 3B  |";(CD(X).DG(X));|
000017F0: 00 0D 20 FE 03 98 34 2C  22 2F 53 48 52 22 3B 22  |.. ...4,"/SHR";"|
00001800: 20 23 53 48 52 3D 22 3B  44 47 28 58 29 00 32 20  | #SHR=";DG(X).2 |
00001810: 01 04 98 34 2C 22 53 4F  4C 44 20 40 24 22 3B 53  |...4,"SOLD @$";S|
00001820: 41 28 58 29 3B 22 20 4F  4E 20 22 3B 53 44 24 28  |A(X);" ON ";SD$(|
00001830: 58 29 00 53 20 03 04 98  34 2C 22 43 4F 4D 4D 49  |X).S ...4,"COMMI|
00001840: 53 53 49 4F 4E 20 43 4F  53 54 3D 24 22 3B 47 47  |SSION COST=$";GG|
00001850: 28 58 29 00 91 20 06 04  98 34 2C 22 43 41 50 49  |(X).. ...4,"CAPI|
00001860: 54 41 4C 20 47 41 49 4E  20 46 4F 52 20 22 3B 41  |TAL GAIN FOR ";A|
00001870: 47 24 28 58 29 3B 22 3D  24 22 3B 28 53 41 28 58  |G$(X);"=$";(SA(X|
00001880: 29 AC 44 47 28 58 29 29  AB 43 44 28 58 29 3A 98  |).DG(X)).CD(X):.|
00001890: 34 00 97 20 0B 04 82 00  BB 20 10 04 98 34 2C 22  |4.. ..... ...4,"|
000018A0: 41 4E 4E 55 41 4C 20 43  41 50 49 54 41 4C 20 47  |ANNUAL CAPITAL G|
000018B0: 41 49 4E 20 20 3D 24 22  3B 41 47 00 CB 20 15 04  |AIN  =$";AG.. ..|
000018C0: 98 34 2C C7 28 31 32 29  3A A0 34 00 D9 20 1A 04  |.4,.(12):.4.. ..|
000018D0: 99 22 93 22 3A 89 32 31  30 00 02 21 1F 04 99 22  |.".":.210..!..."|
000018E0: 93 41 4E 4E 55 41 4C 20  43 41 50 2E 20 47 41 49  |.ANNUAL CAP. GAI|
000018F0: 4E 20 44 41 54 41 20 41  53 20 4F 46 20 22 3B 54  |N DATA AS OF ";T|
00001900: 44 24 00 22 21 21 04 99  22 43 4F 50 59 20 49 4E  |D$."!!.."COPY IN|
00001910: 20 59 4F 55 52 20 52 45  43 4F 52 44 20 42 4F 4F  | YOUR RECORD BOO|
00001920: 4B 22 00 31 21 24 04 81  58 B2 31 A4 52 AB 31 3A  |K".1!$..X.1.R.1:|
00001930: 99 00 58 21 29 04 8B 58  B1 33 A7 99 3A 99 22 50  |..X!)..X.3..:."P|
00001940: 52 45 53 53 20 52 45 54  55 52 4E 20 54 4F 20 43  |RESS RETURN TO C|
00001950: 4F 4E 54 49 4E 55 45 22  00 6E 21 2B 04 97 31 39  |ONTINUE".n!+..19|
00001960: 38 2C 30 3A 92 31 39 38  2C 31 3A A1 5A 24 00 A9  |8,0:.198,1:.Z$..|
00001970: 21 2E 04 99 41 47 24 28  58 29 3B 22 20 42 47 48  |!...AG$(X);" BGH|
00001980: 54 20 4F 4E 20 22 3B 42  47 24 28 58 29 3A 99 22  |T ON ";BG$(X):."|
00001990: 40 24 22 3B 28 43 44 28  58 29 AD 44 47 28 58 29  |@$";(CD(X).DG(X)|
000019A0: 29 3B 22 2F 53 48 52 22  3B 00 BE 21 33 04 99 22  |);"/SHR";..!3.."|
000019B0: 20 20 23 53 48 52 3D 22  3B 44 47 28 58 29 00 FC  |  #SHR=";DG(X)..|
000019C0: 21 38 04 99 22 53 4F 4C  44 20 40 24 22 3B 53 41  |!8.."SOLD @$";SA|
000019D0: 28 58 29 3B 22 20 4F 4E  20 22 3B 53 44 24 28 58  |(X);" ON ";SD$(X|
000019E0: 29 3A 99 22 43 4F 4D 4D  49 53 53 49 4F 4E 20 43  |):."COMMISSION C|
000019F0: 4F 53 54 3D 24 22 3B 47  47 28 58 29 00 37 22 3D  |OST=$";GG(X).7"=|
00001A00: 04 99 22 43 41 50 49 54  41 4C 20 47 41 49 4E 20  |.."CAPITAL GAIN |
00001A10: 46 4F 52 20 22 3B 41 47  24 28 58 29 3B 22 3D 24  |FOR ";AG$(X);"=$|
00001A20: 22 3B 28 53 41 28 58 29  AC 44 47 28 58 29 29 AB  |";(SA(X).DG(X)).|
00001A30: 43 44 28 58 29 3A 82 00  5A 22 42 04 99 3A 99 22  |CD(X):..Z"B..:."|
00001A40: 41 4E 4E 55 41 4C 20 43  41 50 49 54 41 4C 20 47  |ANNUAL CAPITAL G|
00001A50: 41 49 4E 20 3D 24 22 3B  41 47 00 7C 22 47 04 99  |AIN =$";AG.|"G..|
00001A60: 3A 99 22 50 52 45 53 53  20 52 45 54 55 52 4E 20  |:."PRESS RETURN |
00001A70: 54 4F 20 43 4F 4E 54 49  4E 55 45 22 00 9C 22 4C  |TO CONTINUE".."L|
00001A80: 04 97 31 39 38 2C 30 3A  92 31 39 38 2C 31 3A A1  |..198,0:.198,1:.|
00001A90: 5A 24 3A 99 22 93 22 3A  89 32 31 30 00 00 00     |Z$:.".":.210... |

.. ....53280,1:.53281,1:R$.G(13).D....A$
(40),B$(40),C(40),CC(40),D(40),E(40),F(4
0),G(40),H(40),P(40).W....CG(40),GG(40).
.....".";.9)"TODAY'S DATE IS MM/DD/YY":.
TD$.C....".";.14)".THE INVESTOR..."...#.
..4)"A=UPDATE FILE."...(...4)"B=CREATE F
ILE"...-...12)". LOAD FILE .".'.2...3)".
PROGRAM CHOICE".I.7..198,0:.198,1:.Z$:.Z
$."A".125.Q.<..65.P.A..".";.14)".CREATE 
FILE...".X.F.I.1...K..I.1..85...P.."..PR
EVIOUS=";A$(I.1):."..".F.U.."NAME OF INV
ESTMENT";A$(I)...Z.."DATE BOUGHT MM/DD/Y
Y";B$(I)..._.."# SHARES ";D(I)...D.."PRI
CE PER SHARE $";P(I)./.I.C(I).D(I).P(I).
P.N.."COMMISSION CHARGE $";CC(I)...S.."M
ORE? Y/N":.198,0:.198,1:.Z$:.Z$."Y".I.I.
1:.80...X.I.I.1:.385...}..".";.17)".UPDA
TE...":."FILE NAME=";N$......".":..13)".
T.APE OR .D.ISK."......198,0:.198,1:.Z$:
.Z$."T".170......1,8,2,.N$."S,R". ...I.1
.C....1,A$(I),B$(I),C(I),CC(I),D(I).M...
I.I.1.[. ..ST.0.150.... 1:.".";.14)"FIL
E LOADED.":.210.......17)"UPDATE..".....
.1,1,0,N$.....I.1.L....1,A$(I),B$(I),C(I
),CC(I),D(I).V...I.I.1...C..ST.0.185...H
. 1:.".":..14)"FILE LOADED.".$.M...11)".
PRESS STOP ON TAPE.".K.R...7)".UPDATE BE
FORE PRINTING OUT.".K.W...8)"..1=UPDATE 
INVESTMENT".......8)"2=ADD AN INVESTMENT
".......8)"3=DELETE AN INVESTMENT".D....
.8)"4=FILE COMPLETE".......8)"5=ERROR CO
RRECTION".......8)"6=STOCK SOLD".......8
)"7=CAP GAIN DATA".'...."YOUR CHOICE";Z.
J....Z.260,445,450,385,490,770,935.W....
X.1.I.1.V...E(X).((C(X)..1).C(X)).D(X)..
...E1..(E(X).100).100......E(X)..E1..005
.E(X).E1..001.H....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).F
1..001.9.,..F(X)..F1..005.F(X).F1.X.1.G(
X).((C(X)..3).C(X)).D(X).O.6.G1..(G(X).1
00).100...;..G(X)..G1..005.G(X).G1..001.
..@..G(X)..G1..005.G(X).G1.I.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...T..H(
X)..H1..005.H(X).H1.P.Y..".";.5)"COMPUTI
NG CAPITAL GAIN (LOSS)..":.A$(X).V.^.."C
URRENT PRICE PER SHARE=";CP(X)...C.CG(X)
.(CP(X).D(X)).C(X)...H.PG(X).(CG(X).C(X)
).100...M.TC.C(X).TC.L.R.PR.CG(X).PR.R.W
.....|.TG.(PR.TC).100......".":..8)"1=PR
INT HARD COPY.":..8)"2=SAVE TO TAPE.".Q.
....8)"3=SAVE TO DISK.":..8)"4=PRINT TO 
SCREEN.":.......8)"5=RERUN PROGRAM":..8)
".6=ERROR CORRECTION":.Z......Z.590,405,
675,710,765,490.B.....9)".LOAD DATA TAPE
.".W...."FILE NAME=";N$......1,1,2,N$...
...Y.1.I.1.!....1,A$(Y);R$;B$(Y);R$;C(Y)
;R$;CC(Y);R$;D(Y).(....Y.C.....13)"FILE 
COMPLETE..".O... 1:.210.W....80.Y.B...15
)".DELETE AN INVESTMENT."...G..X.1.I.1:.
.10)X;A$(X):....L.."NUMBER TO DELETE";Z.
..Q..X.Z.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)
.......?...."MORE TO DELETE? Y/N":.198,0
:.198,1:.Z$:.Z$."Y".450.H....915.G.....1
2)"..ERROR CORRECTION.".....X.1.I.1:.X;
A$(X):......."..CORRECTING INVESTMENT#";
:.M%.......8)".1. NAME".Q.....8)".2. DAT
E BOUGHT".......8)".3. # SHARES".......8
)".4. PRICE".......8)".5. COMMISSION".3.
..."CORRECTING ";A$(M%);:.C.N....C.540,5
50,560,570,580.S....A$(M%)"-CHANGE NAME 
TO":.A$(M%).|.!..385...&..A$(M%):."-CHAN
GE DATE MM/DD/YY ";B$(M%);" TO":.B$(M%).
..+..385...0..A$(M%):."-CHANGE # OF SHAR
ES ";D(M%);" TO":. D(M%)...5..385.3.:..A
$(M%):."-CHANGE PRICE $"P(M%);" TO":. P(
M%).P.?.C(M%).(D(M%).P(M%)):.385...D..A$
(M%):."-CHANGE COMMISSION COST $"CC(M%);
" TO":.CC(M%)...I..385...N..".";.9)".PRI
NTING A HARD COPY".F.S..4,4:.4.Q.X..TD$:
....]..Y.1.I.1...B..4,Y;A$(Y);" BGHT ON 
";B$(Y);" @$";(C(Y).D(Y));.0.D..4,"/SHR"
;"  #SHRS=";D(Y).L.G..4,"CURRENT PRICE=$
";CP(Y):.4,"COMMISSION COST=$";CC(Y)...L
..4,"10%PROFIT @$";E(Y):.4,"20%PROFIT @$
";F(Y).P.Q..4,"30%PROFIT @$";G(Y):.4,"40
%PROFIT @$";H(Y)...V..4,"CURRENT CAPITAL
 GAIN=$";CG(Y)...{..4,"AMOUNT INVESTED  
   =$";C(Y).H....4,"CURRENT VALUE       
=$";(C(Y).CG(Y)).Q....4,"CURRENT PERCENT
 GAIN=";PG(Y);"%".Z....4:.......4:.4,"TO
TAL AMOUNT INVESTED =$";TC.G....4,"TOTAL
 CAPITAL GAIN    =$";PR......4,"TOTAL PE
RCENT GAIN    ="TG;"%":.......4,G(12):.4
: 4:.".":.210.=....".";.5)".WRITING INVE
STMENT DATA TO DISK.".R...."FILE NAME=";
N$.L....1,8,2,"@0:".N$."S,W".Y....Y.1.I.
1......1,A$(Y);R$;B$(Y);R$;C(Y);R$;CC(Y)
;R$;D(Y).........A. 1:.".":.210...F..".H
AVE YOU UPDATED?  Y/N":.198,0:.198,1...H
..Z$:.Z$."N".260.).K..".";.8)".COPY IN Y
OUR RECORD BOOK.".6.P..Y.1.I.1.R.U..".";
Y;A$(Y):."BGHT ON ";B$(Y);" @$";(C(Y).D(
Y));"/SHR"...Z.."  #SHRS=";D(Y):."PRICE=
$";CP(Y)......"COMMISSION COST=$";CC(Y).
....."10% PROFIT @$";E(Y):."20% PROFIT @
$";F(Y)......"30% PROFIT @$";G(Y):."40% 
PROFIT @$";H(Y).7...."PRESS RETURN TO CO
NTINUE".M....198,0:.198,1:.Z$.S.....A...
.".":.210.G..........".HAVE YOU CREATED 
A CAPITAL GAIN FILE FOR THIS YEAR?  Y/N.
.".L....198,0:.198,1:.Z$:.Z$."Y".935....
..X.1.I.1:.X,H(A$(X),8),:.:.G(13)......"
.WHICH INVESTMENT HAS BEEN SOLD";:.Z.&..
.N.N.1.Z...AG$(N).A$(Z):BG$(N).B$(Z):CD(
N).C(Z):DG(N).D(Z).V...CA(N).CG(Z):GG(N)
.CC(Z)... .."SOLD @$";SA(N)...%.GC(N).(S
A(N).DG(N)).CD(N):AG.AG.CG(N).V.*.."DATE
 SOLD MM/DD/YY";SD$(N).../...7)"CAPITAL 
GAIN DATA FOR YEAR"...4.."FILE NAME=";N$
.5.9...10)".SAVE TO .T.APE OR .D.ISK".W.
>..198,0:.198,1:.Z$:.Z$."D".875.E.C..2,1
,3,N$.P.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).I.R..2,SD$(X);R$;AG.T.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).0.A.E(Y).E(Y.
1):.Y:.X.<.F. 2:.915.V.K..2,8,3,"@0:".N$
."S,W".A.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.E...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 R
EVISED INVESTMENT DATA".U.....13)" .T.AP
E OR .D.ISK "......198,0:.198,1:.Z$:.Z$.
"T".I.I.1:.405.....I.I.1:.675.W....".CAP
ITAL GAIN DATA FOR THIS YEAR":......."FI
LE NAME=";N$......".";.13)".T.APE OR .D.
ISK":.198,0:.198,1:.Z$.9....Z$."T"..2,1,
0,N$:.960.N....2,8,3,.N$."S,R".V...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...Y..".";.5)"ADD MORE INVESTM
ENTS SOLD  Y/N":.198,0:.198,1......Z$:.Z
$."Y"..".":N.R.1:.780.E...."PRINT TO .S.
CREEN OR .P.RINTER":.198,0:.198,1:.Z$.V.
...Z$."S".1055.B....4,4:.4......4,"ANNUA
L CAP. GAIN DATA AS OF ";TD$......4,"SAV
E FOR TAX RECORDS"......X.1.R.1:.4......
4,AG$(X);" BGHT ON ";BG$(X);" @$";(CD(X)
.DG(X));.. ...4,"/SHR";" #SHR=";DG(X).2 
...4,"SOLD @$";SA(X);" ON ";SD$(X).S ...
4,"COMMISSION COST=$";GG(X).. ...4,"CAPI
TAL GAIN FOR ";AG$(X);"=$";(SA(X).DG(X))
.CD(X):.4.. ..... ...4,"ANNUAL CAPITAL G
AIN  =$";AG.K ...4,G(12): 4.Y ...".":.21
0..!...".ANNUAL CAP. GAIN DATA AS OF ";T
D$."!!.."COPY IN YOUR RECORD BOOK".1!$..
X.1.R.1:..X!)..X.3..:."PRESS RETURN TO C
ONTINUE".N!+..198,0:.198,1:.Z$..!...AG$(
X);" BGHT ON ";BG$(X):."@$";(CD(X).DG(X)
);"/SHR";..!3.."  #SHR=";DG(X)..!8.."SOL
D @$";SA(X);" ON ";SD$(X):."COMMISSION C
OST=$";GG(X).7"=.."CAPITAL GAIN FOR ";AG
$(X);"=$";(SA(X).DG(X)).CD(X):..Z"B..:."
ANNUAL CAPITAL GAIN =$";AG.|"G..:."PRESS
 RETURN TO CONTINUE".."L..198,0:.198,1:.
Z$:.".":.210...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL