ZX81 Listing for charts.p


ZX81 program listing for **CHARTS**SLR/1984*****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17725
VARS  : 18518
E-LINE: 18519
STKBOT: 18519
STKEND: 18519

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  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