1 REM THIS PROGRAM APPEARS AT PAGE 95 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10 REM PROGRAM TO SUM ROWS AND COLUMNS OF A TABLE
20
30 READ M,N
40
50 REM READ ELEMENTS OF A TABLE
60
70 FOR I=1 TO M
80	FOR J=1 TO N
90		READ T(I,J)
100	NEXT J
110 NEXT I
120
130 REM PRINT TABLE
140
150 PRINT "GIVEN TABLE:"
160 PRINT
170 FOR I=1 TO M
180	FOR J=1 TO N
190 		PRINT T(I,J);
200 	NEXT J
210	PRINT
220 NEXT I
230 PRINT
232 PRINT "GIVEN TABLE (WITH MAT PRINT):"
234 MAT PRINT T;
240
250 REM SUM ACROSS EACH ROW
260
270 PRINT "SUM OF COLUMNS IN EACH ROW:"
280 PRINT
290 LET S1=0
300 FOR I=1 TO M
310	LET S(I)=0
320	FOR J=1 TO N
330		LET S(I)=S(I)+T(I,J)
340	NEXT J
350	PRINT "ROW ";I,"SUM=";S(I)
360	LET S1=S1+S(I)
370 NEXT I
380 PRINT
390 PRINT "SUM OF ROW SUMS=";S1
400 PRINT
410
420 REM SUM DOWN EACH COLUMS
430
440 PRINT "SUM OF ROWS IN EACH COLUMN:"
450 PRINT
460 LET S1=0
470 FOR J=1 TO N
480 	LET S(J)=0
490	FOR I=1 TO M
500		LET S(J)=S(J)+T(I,J)
510	NEXT I
520	PRINT "COLUMN ";J,"SUM=";S(J)
530	LET S1=S1+S(J)
540 NEXT J
550 PRINT
560 PRINT "SUM OF COLUMN SUMS=";S1
570
580 DATA 5,6,6,0,-12,4,17,21,-8,15,5,5,-18,0,11,3,1,-17,12,7
590 DATA 13,2,13,-9,24,4,-27,-3,0,14,8,-10
600 END
