Source Code
9000 DIM A$(12,3)
\n9010 DIM A(12)
\n9020 LET T=0
\n9030 LET B=0
\n9040 FOR N=1 TO 12
\n9050 SCROLL
\n9060 PRINT "MONTH (1ST 3 CHAR)? ";
\n9070 INPUT A$(N)
\n9080 PRINT A$(N)
\n9090 SCROLL
\n9100 PRINT "SALES? ";
\n9110 INPUT A(N)
\n9120 PRINT A(N)
\n9130 SCROLL
\n9140 SCROLL
\n9150 IF A(N)>B THEN LET B=A(N)
\n9160 NEXT N
\n9170 CLS
\n9175 LET T=0
\n9180 FOR N=1 TO 12
\n9190 PRINT A$(N);" ";A(N);TAB 9;CHR$ 128;
\n9200 LET T=T+A(N)
\n9210 FOR C=.01 TO A(N) STEP B/22
\n9220 PRINT CHR$ 134;
\n9230 NEXT C
\n9240 PRINT
\n9250 NEXT N
\n9260 PRINT ,,,,"TOTAL SALES = $";T
\n9270 PRINT ,,"AVERAGE MONTH = $";T/12
\n9997 STOP
\n9998 SAVE "GRAFI%T"
\n9999 GOTO 9170
