1 DEFFN'0
5 DIM A(8,9),B(8,9),C(8)
10 PRINT HEX(03)
20 PRINT "INPUT N,M,P": INPUT N,P,M 
40 PRINT "INPUT MATRIX A" 
50 FOR I=1 TO N 
60 INPUT A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7),A(I,8),               A(I,9)
80 NEXT I: PRINT "INPUT MATRIX B"
90 FOR I=1 TO P 
100 INPUT B(I,1),B(I,2),B(I,3),B(I,4),B(I,5),B(I,6),B(I,7),B(I,8),           B(I,9) 
120 NEXT I: FOR I=1 TO N: FOR J=1 TO M: FOR K=1 TO P 
130 S=S+A(I,K)*B(K,J): NEXT K: C(J)=S: S=0: NEXT J 
140 FOR J=1 TO M: A(I,J)=C(J): NEXT J: NEXT I
150 FOR I=1 TO N: PRINT : FOR J=1 TO M 
160 PRINT A(I,J),:NEXT J:PRINT :NEXT I
170 END 

