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 >
Wrap
Commodore BASIC
|
2022-10-26
|
280b
|
12 lines
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