5 REM--AHOY!--MAY ISSUE--ARRAYS--PROG PAGE 67
10 INPUT "WEEK 1 AVERAGE";W1
20 INPUT "WEEK 2 AVERAGE";W2
30 INPUT "WEEK 3 AVERAGE";W3
40 INPUT "WEEK 4 AVERAGE";W4
50 PRINT:PRINT "WEEK 1";
60 FOR S=1 TO W1:PRINT"*";:NEXT
70 PRINT:PRINT "WEEK 2";
80 FOR S=1 TO W2:PRINT"*";:NEXT
90 PRINT:PRINT "WEEK 3";
100 FOR S=1 TO W3:PRINT"*";:NEXT
110 PRINT:PRINT "WEEK 4";
120 FOR S=1 TO W4:PRINT"*";:NEXT