Laser 128 - Page 121

BASIC COMMANDS AND STATEMENTS
Example: ] 10 DIM A(lO, 10)
] 20 FOR I = I TO 10
] 30 FOR J = I TO 10
] 40 IF I = J THEN A (I, J) = 1
] 50 PRINT A {I, J) = I
] 60 NEXT J
] 70 PRINT
] 80 NEXT I
] 90 END
This will build up an array
whose diagonal elements are all
ones, wit}:l the rest of the
elements rem ainin g zero.
11-30