Commodore 128 - Page 68

10
DIM X (10,5) , A (10)
20
FOR R=1 TO 10
30 T = 0
40
FOR C=1 TO 5
50 READ X(R,C)
6 0 •-3
il
+
X
50
o
70 NEXT C
80
A(R)=T/5
90 NEXT R
100
FOR R=1 TO 10
110
PRINT "ROW #";R
120
FOR C=1 TO 5
130
PRINT X(R,C)
140
NEXT C
150
PRINT "AVERAGE =";A(R)
160 FOR D=1 TO 1000:NEXT
170 NEXT R
180 DATA 1,3,5,7,9
190
DATA 2,4,6,8,10
200 DATA 5,10,15,20,25
210
DATA 10,20,30,40,50
220
DATA 20,40,60,80,100
230
DATA 30,60,90,120,150
240
DATA 40,80,120,160,200
250 DATA 50,100,150,200,250
260
DATA 100,200,300,400,500
270
DATA 500,1000,1500,2000,2500
280
END
4-16