PRINT
PRINT "�X�~�X�\"
PRINT
DIM X(9,9),Y(9,9),Z(9,9)
FOR i=1 TO 9
   FOR j=1 TO 9
      LET X(i,j)=i
   NEXT j
NEXT i
FOR i=1 TO 9
   FOR j=1 TO 9
      IF i=j THEN
         LET Y(i,j)=i
      ELSE
         LET Y(i,j)=0
      END IF
   NEXT j
NEXT i
MAT Z=X*Y
PRINT "    ";
FOR i=1 TO 9
   PRINT USING "#####":i;
NEXT i
PRINT
FOR i=1 TO 9
   PRINT
   PRINT " ";i;
   FOR j=1 TO 9
      PRINT USING "#####":Z(i,j);
   NEXT j
   PRINT
NEXT i
PRINT
PRINT
MAT PRINT Z
END