home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 84
/
084.d81
/
security
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
99 lines
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