Commodore 128 System Manual 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
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