Listing of file='17 ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 721, program filename = '17'
0001 DEFFN'0
0005 DIM A(8,9),B(8,9),C(8)
0010 PRINT HEX(03)
0020 PRINT "INPUT N,M,P"
: INPUT N,P,M
0040 PRINT "INPUT MATRIX A"
0050 FOR I=1 TO N
0060 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)
0080 NEXT I
: PRINT "INPUT MATRIX B"
0090 FOR I=1 TO P
0100 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)
0120 NEXT I
: FOR I=1 TO N
: FOR J=1 TO M
: FOR K=1 TO P
0130 S=S+A(I,K)*B(K,J)
: NEXT K
: C(J)=S
: S=0
: NEXT J
0140 FOR J=1 TO M
: A(I,J)=C(J)
: NEXT J
: NEXT I
0150 FOR I=1 TO N
: PRINT
: FOR J=1 TO M
0160 PRINT A(I,J),
: NEXT J
: PRINT
: NEXT I
0170 END