20 lines
305 B
Text
20 lines
305 B
Text
' formats array im() of size ims
|
|
for ims = 4 to 6
|
|
|
|
print :print "--- Size: ";ims;" ---"
|
|
Dim im(ims,ims)
|
|
|
|
For i = 1 To ims
|
|
im(i,i) = 1
|
|
next
|
|
|
|
For row = 1 To ims
|
|
print "[";
|
|
cma$ = ""
|
|
For col = 1 To ims
|
|
print cma$;im(row, col);
|
|
cma$ = ", "
|
|
next
|
|
print "]"
|
|
next
|
|
next ims
|