<> <> <> <> <<>> <> <<>> DIRECTORY IMatrix; <<>> TestIMatrix: CEDAR PROGRAM IMPORTS IMatrix ~ BEGIN OPEN IMatrix; im: IM; imSeq: IMSeq; Test: PROC [] = { im _ Create[4]; im[0][0] _ 0; im[0][1] _ 1; im[0][2] _ 1; im[0][3] _ 0; im[1][0] _ 0; im[1][1] _ 0; im[1][2] _ 0; im[1][3] _ 1; im[2][0] _ 0; im[2][1] _ 0; im[2][2] _ 0; im[2][3] _ 1; im[3][0] _ 1; im[3][1] _ 0; im[3][2] _ 0; im[3][3] _ 0; imSeq _ CreateIMSeq[im]; UpdateIMSeq[imSeq, 0]; UpdateIMSeq[imSeq, 1]; UpdateIMSeq[imSeq, 3]; UpdateIMSeq[imSeq, 0]; UpdateIMSeq[imSeq, 1]; UpdateIMSeq[imSeq, 3]; UpdateIMSeq[imSeq, 0]; UpdateIMSeq[imSeq, 1]; ERROR }; END.