IDN Example
10 DIM Matrix(1:3,1:3)
20 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9
30 RESTORE
40 READ Matrix(*)
50 CLEAR SCREEN
60 PRINT "The matrix looks like: "
70 Prtmat(Matrix(*),3,3)
80 MAT Matrix=IDN
90 PRINT "Matrix idenity"
100 Prtmat(Matrix(*),3,3)
110 END
120 SUB Prtmat(A(*),Lenarr,Widarr)
130! This sub prints out a matrix length of Lenarr and wide as widarr.
140! A 3x3 matrix would print like:
150! [ 1 2 3 ] Widarr = 3
160! [ 4 5 6 ]
170! [ 7 8 9 ]
180! Lenarr = 3
190 ASSIGN @Out TO CRT
200 FOR Col=1 TO Lenarr
210 OUTPUT @Out;" [";
220 FOR Row=1 TO Widarr
230 OUTPUT @Out;A(Col,Row);
240 NEXT Row
250 OUTPUT @Out;" ]"
260 NEXT Col
270 ASSIGN @Out TO *
280 SUBEND
