1 ENDDATA&
2 END0DATA

3 ENDDATA

4 ENDDATA
5 ENDDATA
6 ENDDATA
7 ENDDATA

8 ENDINPUT#

9 ENDDATA
10 ENDDATA
11 ENDDATA

12 ENDDATA
13 ENDDATA
14 ENDDATA

15 ENDDATA

16 ENDDATA
17 ENDDATA
18 ENDDATA
19 ENDDATA

20 ENDINPUT#

21 ENDDATA
22 ENDDATA
23 ENDDATA

24 ENDDATA
25 ENDDATA
26 ENDDATA

27 ENDDATA

28 ENDDATA
29 ENDDATA
30 ENDDATA
31 ENDDATA

32 ENDINPUT#

33 ENDDATA
34 ENDDATA
35 ENDDATA

36 ENDDATA
37 ENDDATA
38 ENDDATA

513 ON---------------------------------------
769 >   "[211][197][195][213][210][201][212][217]"  CAN MAINTAIN COMPLETE
1025 >RECORDS FOR EACH OF YOUR SECURITIES.
1281 ONVALNTER THE NAME OF EACH INVESTMENT
1284 ON  LENATN(null)LEFT$    /
1285 ONSTR$RIGHT$(null)RIGHT$
1286 ONSTR$VAL(null)STR$(null)     /
1288 ON     (null)PEEK(null)    /
1289 ON    LEN(null)(null)   /
1290 ON(null)VAL(null)(null)    /
1291 ON      LEN(null)(null)(null)   /
1292 ONVAL(null)(null)       /
1537 ON(STOCK,BOND,MUTUAL FUND ETC) IN COL 2;
1538 >(null)VALLEN(null)(null)RIGHT$(null)(null)
1539 ONLEN(null)(null)(null)
1540 ON STR$VAL(null)(null)(null)RIGHT$(null)VALSTR$
1541 ON LENATN(null)LEFT$ (null)VAL
1542 ONRIGHT$(null)(null)VAL(null)(null)VALSTR$
1543 ON RIGHT$(null)(null)VAL(null)(null)VALSTR$
1544 ON   (null)LEFT$ATN(null)VAL(null)     /
1545 ON (null)(null)RIGHT$LENVAL
1546 ON  STR$RIGHT$(null)
1547 ON. (null)ATN(null)(null)VAL   /
1548 ON (null)RIGHT$VAL(null)STR$
1550 ON (null)VALLEN(null)(null)RIGHT$(null)(null)
1793 >THE COST IN COL 3 AND SUBSEQUENT CASH
1794 >------------
1795 ON----------
1796 ON--------
1797 ON--------
1798 ON--------
1799 ON----------
1800 ON----------
1801 ON-------
1802 ON--------
1803 ON-----------
1804 ON------
1805 ON---
1806 ON----------
2049 ONDEPOSITS IN COL 4.  STR$IVIDENDS RECEIVED
2305 >ARE ENTERED IN COLS 5 & 6.  (null)HE TOTAL
2306 >ATN(null)VAL(null) (null)VAL(null)
2307 GOSUB(null)PEEKREM
2308