DIM A(2,2),E(2,2),B(2,2),C(2,2),D(2,2),G(2,2)
LET A(1,1)=1
LET A(1,2)=4
LET A(2,1)=1
LET A(2,2)=1
LET E(1,1)=1
LET E(1,2)=0
LET E(2,1)=0
LET E(2,2)=1

FUNCTION f(n)
   IF n=1 THEN
      LET f=1
   ELSEIF n=2 THEN 
      LET f=2
   ELSEIF n=3 THEN
      LET f=7
   ELSE
      LET f=2*f(n-1)+3*f(n-2)
   END IF
END FUNCTION

PRINT " 1: ‚`"
MAT PRINT USING "##############  ############":A
FOR k=2 TO 10
   LET B(1,1)=f(k)
   LET B(1,2)=0
   LET B(2,1)=0
   LET B(2,2)=f(k)
   LET C(1,1)=3*f(k-1)
   LET C(1,2)=0
   LET C(2,1)=0
   LET C(2,2)=3*f(k-1)
   MAT D=B*A
   MAT G=D+C
   PRINT USING "##":k;
   PRINT ": ";f(k);"‚` +";3*f(k-1);"‚d"
   MAT PRINT USING "##############  ############":G
NEXT k
PRINT
END



#####################################################################



DATA 1,4
DATA 1,1
DIM A(2,2)
MAT READ A

DATA 1,0
DATA 0,1
DIM C(2,2)
MAT READ C

FOR i=1 TO 10
   MAT C=C*A
   PRINT USING "##":i;
   PRINT ": ";
   MAT PRINT USING "#########  #######":C
NEXT i
END