@@@@@@@@@@@@@@@@@@@
C-FOCAL,1969

01.01 ASK !,"POWERS OF MATRIX [A]",!!,"HIGHEST POWER WANTED IS",N,!
01.02 A "HOW MANY COLUMNS ?",IM,!!
01.04 S J=0
01.05 S I=0
01.06 S K=J+I*IM
01.07 A A(K),"       "; S B(K)=A(K);S I=I+1
01.08 I (I-IM)1.06; T !!;S J=J+1; I (J-IM)1.05
01.12 S G=2
01.13 I (G-N)1.15,1.15;QUIT
01.15 T %2.00,!!,"[A] TO POWER",G,".",!
01.17 S Q=0
01.18 S P=0
01.20 S M=0; S L=(Q+P*IM); S C(L)=0
01.21 S C(L)=C(L)+A(Q+M*IM)*B(M+P*IM)
01.22 S M=M+1; I (M-IM)1.21
01.23 T %6.02,C(L),"   "; S P=P+1;I (P-IM)1.20
01.24 T !!;S Q=Q+1; I (Q-IM)1.18
01.25 F K=0,(IM^2-1); S A(K)=C(K)
01.26 S G=G+1;G 1.13
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@|?