PROG : 16509
D-FILE: 17725
VARS : 18518
E-LINE: 18519
STKBOT: 18519
STKEND: 18519
9999 means line number
PRINT means treat as KEYWORD P
10 REM **CHARTS**SLR/1984*****
11 FAST
20 CLS
30 PRINT "BROKE LINE GRAPH PLO
TER ENTER IN TRUE VALUES
AND PRO- JECTED (IF DESIRED)
AND A GRAPH WILL BE PLOTTED AND,
ON REQUEST,LPRINTED"
40 PRINT ,,"DO YOU WISH PROJEC
TIONS? (Y/N)"
50 INPUT A$
60 PRINT "ENTER IN TITLE"
70 INPUT T$
80 PRINT "AND TYPE OF SCALE (I
N WHAT)"
90 INPUT S$
92 PRINT "AND IN WHAT RESPECT
TO?"
94 INPUT D$
100 PRINT "HOW MANY?"
110 INPUT M
120 PRINT ,,,,,,"BEGIN ENTERING
...";AT 21,0;"TYPE","ACT";TAB 25
;"PRO" AND A$="Y"
130 DIM Z$(M,4)
135 IF A$="Y" THEN DIM Y(M)
140 DIM A(M)
150 FOR X=1 TO M
160 INPUT Z$(X)
165 IF A$="Y" THEN INPUT Y(X)
170 INPUT A(X)
180 SCROLL
190 PRINT Z$(X),A(X);
195 IF A$="Y" THEN PRINT TAB 25
;Y(X)
200 NEXT X
210 CLS
220 PRINT AT 0,0;T$;AT 21-M,0;S
$
230 FOR X=1 TO M
240 PRINT AT X,1;Z$(X)
250 NEXT X
260 FOR X=1 TO LEN D$
270 PRINT AT X,0;D$(X)
280 NEXT X
290 FOR X=1 TO M
300 FOR Z=0 TO A(X)
310 PLOT Z+10,42-(X*2-1)
320 PLOT Z+10,42-(X*2-1)
330 NEXT Z
340 IF A$<>"Y" THEN GOTO 400
360 PRINT AT X,(Y(X)/2)+5;
370 IF PEEK (PEEK 16398+256*
PEEK 16399)<>0 THEN LET P$="õµ"
380 IF PEEK (PEEK 16398+256*
PEEK 16399)=0 THEN LET P$="µõ"
390 PRINT AT X,(Y(X)/2)+5;P$(1+
(Y(X)/2=INT Y(X)/2))
400 NEXT X
410 SLOW
420 IF INKEY$="Z" THEN COPY
430 IF INKEY$="Q" THEN STOP
440 GOTO 420
500 SAVE "CHARTS"
510 RUN