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