ZX81 Listing for bargraph.p


ZX81 program listing for **BAR GRAPH**SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17483
VARS  : 18276
E-LINE: 18277
STKBOT: 18277
STKEND: 18277


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **BAR GRAPH**SLR/1984**
  20 CLS
  30 PRINT "NUMBER OF BARS(1-10)
"
  40 INPUT A
  50 DIM A$(A)
  60 DIM B$(A,32)
  70 FOR X=1 TO A
  80 PRINT "LENGTH(1-32)?";
  90 INPUT B$(X)
 100 PRINT "AND CHARACTER?"
 110 INPUT A$(X)
 120 NEXT X
 130 PRINT "EACH UNIT REPRESENTA
TION?"
 140 DIM R$(128)
 150 INPUT R$
 160 PRINT "TITLE?"
 165 DIM T$(32)
 170 INPUT T$
 180 CLS
 190 PRINT TAB 12;"M E N U"
 200 PRINT ,,,,,,"PRESS:(O)VERLO
OK BAR CHART            (L)PRINT
 BAR CHART              (R)EDO B
AR CHART                (Q)UIT"
 210 PAUSE 4E4
 220 IF INKEY$="O" THEN GOTO 100
0
 230 IF INKEY$="L" THEN GOTO 150
0
 240 IF INKEY$="R" THEN RUN
 250 IF INKEY$="Q" THEN STOP
 260 GOTO 220
1000 CLS
1010 PRINT T$
1020 PRINT ,,R$
1030 PRINT
1040 PRINT "00000000011111111112
22222222233312345678901234567890
123456789012"
1050 FOR X=1 TO A
1060 FOR Z=1 TO VAL B$(X)
1070 PRINT A$(X);
1080 NEXT Z
1090 PRINT
1100 NEXT X
1120 PAUSE 4E4
1130 GOTO 180
1500 CLS
1510 LPRINT T$
1520 LPRINT ,,R$
1530 LPRINT
1540 LPRINT "0000000001111111111
22222222223331234567890123456789
0123456789012"
1550 FOR X=1 TO A
1560 LET O$=""
1570 FOR Z=1 TO VAL B$(X)
1580 LET O$=O$+A$(X)
1590 NEXT Z
1600 LPRINT O$
1610 NEXT X
1620 GOTO 180
1700 SAVE "BARGRAPH"
1710 RUN