Source Code
1 REM MARKETING PERFORMANCE
5 PRINT "MARKETING PERFORMANCE"
6 PRINT
7 PRINT "THIS PROGRAM WILL TAKE DATA FOR 8 QUARTERS AND DISPLAY A GRAPH SHOWING COMPARAATIVE DATA."
8 PRINT
10 CLEAR
20 DIM N(8)
100 FOR P=1 TO 8
110 PRINT "DATA FOR QUARTER NUMBER ";P;" ?"
120 INPUT N(P)
130 IF N(P)>22 THEN GOTO 120
140 CLS
150 NEXT P
200 FOR P=1 TO 8
210 PRINT "QRTER ";P;
220 FOR L=0 TO N(P)-1
230 PRINT CHR$ 128;
240 NEXT L
250 PRINT
260 PRINT
270 NEXT P
280 PRINT
290 PRINT TAB 10;"X 1000"
300 IF INKEY$="" THEN GOTO 300
310 CLS
320 GOTO 10
375 CLEAR
400 SAVE "1001%9"
500 RUN
