'prgmdept.bas
'steven ellis
'points
dim sales(6,5)
dim salex(4)
dim saley(6)
for row = 1 to 5
for col = 1 to 4
read sales
sales(row,col) = sales
coltotal = coltotal + sales
next col
next row
sales(6,5) = coltotal
for col = 1 to 4
for row = 1 to 5
next row
next col
for col = 1 to 4
for row = 1 to 5
next row
next col
print "Dept. Mon. Teus. Wed. Thur. Fri. Total"
print "----------------------------------------------------------------------------------------"
for col = 1 to 5
print col, sales(1,col), sales(2,col), sales(3,col), sales(4,col), sales(5,col), sales(6,col)
next col
data 2146, 6848, 8132, 8912, 5165, 8123, 9125, 6159, 5618, 9176, 4156, 5612, 4128, 4812, 3685, 1288, 1492, 1926, 1225, 2015
>>2
Awesome and scary.