10 n=3-1
20 DIM a(n,n),b(n,n)
30 c=1:FOR i=0 TO n:FOR j=0 TO n:b(i,j)=c:c=c+1:NEXT j:NEXT i
40 Header("ZER")
50 MAT a()=ZER:GOSUB 110
60 Header("CON")
70 MAT a()=CON:GOSUB 110
80 Header("IDN (Identity)")
90 MAT a()=IDN:GOSUB 110
100 END
110 FOR i=0 TO n
120     FOR j=0 TO n
130         PRINT a(i,j),;
140     NEXT j
150     PRINT
160 NEXT i
170 PRINT
180 RETURN
190 FUNCTION Header(a$)
200     INK RGB(255,0,0)
210     PRINT a$
220     INK RGB(255,255,255)
230 END FUNCTION
