A simple bar chart creator. Just enter data for each graph. You can add a description and title as well. Once done, review or print the graph.
PROG : 16509
D-FILE: 17483
VARS : 18276
E-LINE: 18277
STKBOT: 18277
STKEND: 18277
9999 means line number
PRINT means treat as KEYWORD P
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