5 REM--AHOY!--MAY ISSUE--ARRAYS--PROG PAGE 67
10 FOR N=1 TO 4
20 PRINT "AVERAGE OF WEEK #" ; N
30 INPUT W(N)
40 NEXT N
50 FOR N=1 TO 4:PRINT "WEEK" ; N;
60 FOR S=1 TO W(N) : PRINT "*";:NEXT S
70 PRINT : NEXT N
80 INPUT "WHAT WEEK'S AVERAGE DO YOU WANT" ; N
90 PRINT "THE AVERAGE OF WEEK #";N; "IS"; W(N)
100 GOTO 80