1   REM THIS PROGRAM APPEARS AT PAGE 167 OF THE ITALIAN VERSION OF
2   REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10  REM EVALUATION OF THE MATRIX FORMULA F=(5)*(A+B)*(A-B)
20  DIM A(3,3),B(3,3),C(3,3),D(3,3),E(3,3),F(3,3)
30  MAT READ A,B
40  PRINT "THE A-MATRIX IS:"
50  MAT PRINT A;
60  PRINT "THE B-MATRIX IS:"
70  MAT PRINT B;
80  MAT C=A+B
90  PRINT "THE C-MATRIX (A+B) IS:"
100 MAT PRINT C;
110 MAT D=A-B
120 PRINT "THE D-MATRIX (A-B) IS:"
130 MAT PRINT D;
140 MAT E=C*D
150 PRINT "THE E-MATRIX (C*D) IS:"
160 MAT PRINT E;
170 MAT F=(5)*E
180 PRINT "THE F-MATRIX (5*E) IS:"
190 MAT PRINT F;
200 DATA 1,3,5,7,9,11,13,15,17,2,4,6,8,10,12,14,16,18
210 END

