home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / array2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  280 b   |  12 lines
  1. 5 rem--ahoy!--may issue--arrays--prog page 67
  2. 10 for n=1 to 4
  3. 20 print "average of week #" ; n
  4. 30 input w(n)
  5. 40 next n
  6. 50 for n=1 to 4:print "week" ; n;
  7. 60 for s=1 to w(n) : print "*";:next s
  8. 70 print : next n
  9. 80 input "what week's average do you want" ; n
  10. 90 print "the average of week #";n; "is"; w(n)
  11. 100 goto 80
  12.