1 REM CDC STOCK CHARTING  7/80
20 DIM ZZCP$(36)
21 DIM AZZ$(5):AZZ$="ATARI"
30 ZZCP$="COPYRIGHT  CONTROL  DATA  1980"
31 ZZ0=0:ZZ1=1:ZZ2=2:ZZ3=3:ZZ4=4:ZZ5=5:ZZ6=6:ZZ10=10:ZZ14=14:ZZ21=21:ZZ125=125:ZZ126=126:ZZ180=180:ZZ200=200
32 ZZ8=8:ZZ9=9:ZZ12=12:ZZ20=20:ZZ22=22:ZZ128=128:ZZ150=150:ZZ170=170:ZZ190=190:ZZ23=23:ZZ764=764:ZZFF=255
33 ZZDIS=PEEK(106)*256-961
34 DIM CH(7):FOR I=1 TO 7:READ J:CH(I)=J:NEXT I:DATA 65,66,67,68,69,70,80
35 DIM ZZSP$(ZZ10),ZZB1$(ZZ1),ZZ$(1):ZZB1$="}":ZZSP$="          "
36 GOTO 41
37 FOR ZZINDX=ZZ1 TO 400:NEXT ZZINDX:RETURN 
38 POKE 82,ZZ2:POKE 83,37:RETURN 
41 GOSUB 38:GRAPHICS ZZ2+16:SETCOLOR ZZ4,ZZ9,ZZ2:POSITION 7,5:? #ZZ6;AZZ$
42 GOSUB 37:GOSUB 37:GRAPHICS ZZ0
46 GOSUB 55:GOSUB 50:? ZZB1$:GOTO 60
50 SETCOLOR ZZ2,ZZ9,ZZ2:SETCOLOR ZZ4,ZZ5,ZZ4:SETCOLOR ZZ1,ZZ0,ZZ12:RETURN 
55 POKE 752,ZZ1:RETURN 
60 POSITION ZZ6,ZZ2:? "A CONTROL DATA CORPORATION":? :? " ",ZZSP$;"tm":? " "," CYBERWARE":? :? 
61 ? "     Personal Computer Product":POSITION ZZ2,13
62 ? ZZSP$;"  ****  ****":? ZZSP$;" *****  *****":? ZZSP$;"******  ******":? ZZSP$;"***        ***"
63 ? ZZSP$;"***        ***":? ZZSP$;"******  ******":? ZZSP$;" *****  *****":? ZZSP$;"  ****  ****"
70 GOSUB 37:? ZZB1$
100 POKE 82,0:POKE 83,39:POSITION 12,4:? "STOCK CHARTING ":OPEN #7,4,0,"K,KK"
105 POSITION 5,19:? ZZCP$:GOSUB 37:GOSUB 37:? ZZB1$
110 POKE 82,1:POKE 83,39:POSITION 12,1:? "STOCK CHARTING ":? 
111 ? " The STOCK CHARTING system provides":? "a method of tracking and studying"
112 ? "selected stocks and their on-going":? "performance.":? :? " The user first establishes a port-"
113 ? "folio of stocks he is interested in":? "monitoring. Then, on a daily basis,"
114 ? "stock closing quotes can be saved to":? "develop historical trends of perform-":? "ance.":? 
115 ? " The STOCK CHARTING system provides":? "the facility to selectively retrieve,"
116 ? "list and graph the quote data prev-":? "iously gathered.":? :? " All STOCK CHARTING system facilities"
117 ? "are initiated via the DIRECTIVE MENU.":POSITION 6,23:? "To continue, press ретурн";:GOSUB 198
118 IF ZZDATA<>155 THEN GOSUB 198:GOTO 118
134 ? ZZB1$:POSITION 8,1:? "*** DIRECTIVE MENU ***"
135 POSITION 5,5:? "A) Define or revise a stock ":POSITION 8,6:? "definition in the portfolio."
136 POSITION 5,8:? "B) Enter closing quotes for a":POSITION 8,9:? "stock in the portfolio."
137 POSITION 5,11:? "C) List closing quotes for":POSITION 8,12:? "a stock in the portfolio."
138 POSITION 5,14:? "D) Delete stock and closing":POSITION 8,15:? "quotes from the portfolio."
139 POSITION 5,17:? "E) Graph stock closing quotes."
140 POSITION 5,19:? "F) Exit STOCK CHARTING system."
145 POSITION 12,23:? "SELECT DIRECTIVE ";:GOSUB 198
147 FOR I=1 TO 6:IF CH(I)=ZZDATA THEN 150
148 NEXT I:POSITION 8,21:? CHR$(253);"селецтион═еррорґретыпе":GOTO 145
150 IF I=6 THEN 166
151 ? ZZB1$:POSITION 2,11:? "STOCK CHARTING module is being loaded":ON I GOTO 161,162,163,164,165
155 GOTO 155
161 RUN "D:STKDEF11"
162 RUN "D:STKTR19"
163 RUN "D:STKL7"
164 RUN "D:STKDEL4"
165 RUN "D:STKPL15"
166 POKE 82,2:GRAPHICS 0:NEW 
198 POKE 764,255:GET #7,ZZDATA:RETURN 
