5 PRINT CHR$(26)
10 PRINT
11 '	STCKINV SAVES A FILE, 'STOCKFL' TO BE READ BY 'STOCKS'
12 '	TO UPDATE PRESENT VALUE, GAIN/LOSS, NUMBER OF SHARES
13 '    AND THE LATEST QUOTATION ON EACH STOCK.
14 '	IT THEN SUMMARIZES THE RESULTS.
15 PRINT"	BE SURE THE FOR NEXT LOOP END POINT CORRESPONDS"
16 PRINT"  TO THE NUMBER OF DATA STATEMENTS TO BE READ BY"
17 PRINT"  THE PROGRAM."
18 FOR I=1 TO 300:NEXT I
20 OPEN "O",1,"B:STOCKFL"
30 FOR I=1 TO 3
40	IF A$="NONE  " THEN 80
50	READ A$,B$,S,C,Q,D1
60	WRITE #1,A$,B$,S,C,Q,D1
70 NEXT I
80 CLOSE
90 OPEN "I",1,"B:STOCKFL"
100 PRINT"STOCK         PUR.DATE   SHARES    COST    QUOTE   DIVS"
105 PRINT
110 FOR I=1 TO 3
120     IF A$="NONE  " THEN CLOSE:GOTO 180  
130	INPUT #1,A$,B$,S,C,Q,D1
140	PRINT A$,B$;TAB(27);S;TAB(35);"$";C;TAB(44);Q;TAB(53);"$";D1  
150 PRINT
160 NEXT I
170 CLOSE
180 END
500 DATA "ASTOCK","10/28/74",100,2192.3,20,2.4
510 DATA "BSTOCK","07.07.74",100,1087,8.125,0
520 DATA "BSTOCK","10/22/74",1.35,3.26,20,2.2
K","10/28/74",100,21