home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / array1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  318b  |  14 lines
  1. 5 rem--ahoy!--may issue--arrays--prog page 67
  2. 10 input "week 1 average";w1
  3. 20 input "week 2 average";w2
  4. 30 input "week 3 average";w3
  5. 40 input "week 4 average";w4
  6. 50 print:print "week 1";
  7. 60 for s=1 to w1:print"*";:next
  8. 70 print:print "week 2";
  9. 80 for s=1 to w2:print"*";:next
  10. 90 print:print "week 3";
  11. 100 for s=1 to w3:print"*";:next
  12. 110 print:print "week 4";
  13. 120 for s=1 to w4:print"*";:next
  14.