C-FOCAL,1969

01.01 E
01.10 A "DIMENSIONS",X,Y
01.20 F I=1,X; F J=1,Y; A A(10*I+J)
01.30 T !; F I=1,Y; F J=1,X; A B(10*I+J)
01.35 S I=0
01.40 S I=I+1; S K=0; S P=0
01.50 S K=K+1; F J=1,Y; S P=P+1; S C(P)=A(10*I+J)*B(10*J+K)
01.60 S D(10*I+K)=C(1)+C(2)+C(3)+C(4)+C(5)
01.65 I (<10*I+K>-<10*X+Y>) 1.70,1.75
01.70 I (K-Y) 1.72,1.40
01.72 S P=0; G 1.50
01.75 S P=0; S Q=0
01.76 T !
01.80 S P=P+1
01.82 S Q=Q+1
01.83 I (1-X) 1.85,1.84
01.84 D 1.85; Q
01.85 T D(10*P+Q)
01.87 I (<10*P+Q>-<10*X+Y>) 1.90; Q
01.90 I (Q-Y) 1.82,1.95
01.95 T !; S Q=0; G 1.80

02.10 C THE DIMENSIONS  X  AND  Y SHOULD BE EQUIVALENT
02.20 C TO THE LARGEST DIMENSION IN EITHER MATRIX.
02.30 C X  SHOULD EQUAL  Y TO GET THE PROPER DIMENSIONS
02.40 C IN THE PRODUCT MATRIX.
*
?