<> <> <> <> <<>> <> <<>> DIRECTORY AMatrix; <<>> TestAMatrix: CEDAR PROGRAM IMPORTS AMatrix ~ BEGIN OPEN AMatrix; am: AM; amSeq: AMSeq; Test: PROC [] = { am _ Create[4]; am[0][0] _ 0; am[0][1] _ 1; am[0][2] _ 1; am[0][3] _ 0; am[1][0] _ 0; am[1][1] _ 0; am[1][2] _ 0; am[1][3] _ 1; am[2][0] _ 0; am[2][1] _ 0; am[2][2] _ 0; am[2][3] _ 1; am[3][0] _ 1; am[3][1] _ 0; am[3][2] _ 0; am[3][3] _ 0; amSeq _ CreateAMSeq[am]; UpdateAMSeq[amSeq, 0]; UpdateAMSeq[amSeq, 1]; UpdateAMSeq[amSeq, 3]; UpdateAMSeq[amSeq, 0]; UpdateAMSeq[amSeq, 1]; UpdateAMSeq[amSeq, 3]; UpdateAMSeq[amSeq, 0]; UpdateAMSeq[amSeq, 1]; ERROR }; END.