DIM X(1,9),Y(9)
DIM A(9,1),B(9,2),C(9,3)

FOR i=1 TO 9
   LET X(1,i)=2+3*(i-1)
   LET Y(i)=2+3*(i-1)
NEXT i

FOR i=1 TO 9
   LET A(i,1)=2*i
   LET B(i,1)=2*i
NEXT i

FOR i=1 TO 9
   LET B(i,2)=2*i+3
NEXT i

FOR i=1 TO 9
   FOR j=1 TO 3
      LET C(i,j)=2*i+3*(j-1)
   NEXT j
NEXT i

PRINT
PRINT "１行９列の行列たち（ ３つ ）:"
PRINT
MAT PRINT USING "     ##   ##   ##   ##   ##   ##   ##   ##   ##":X
PRINT
MAT PRINT USING "     ##   ##   ##   ##   ##   ##   ##   ##   ##":Y
PRINT
PRINT "     ";
FOR i=1 TO 9
   PRINT USING "##":Y(i);
   PRINT "   ";
NEXT i
PRINT
PRINT
PRINT

PRINT "９行１列の行列："
PRINT
MAT PRINT USING "     ##":A
PRINT
PRINT

PRINT "９行２列の行列："
PRINT
MAT PRINT USING "     ##     ##":B
PRINT
PRINT

PRINT "９行３列の行列たち（ ２つ ）："
PRINT
MAT PRINT USING "     ##     ##     ##":C
PRINT
FOR i=1 TO 9
   FOR j=1 TO 3
      PRINT USING "     ##":C(i,j);
   NEXT j
   PRINT
NEXT i
PRINT
END