\START92\ \COMMENT= \NAME=exp2matr \FILE=EXP2MATR.89F (expres) Func \(C)\expres:Func Local p1,p2 If part(expres)=2 Then If part(expres,0)="and" Then exp2matr(part(expres,1))\->\p1 exp2matr(part(expres,2))\->\p2 Return augment(p1,p2) ElseIf part(expres,0)="=" Then Return [[left(expres)][right(expres)]] Else Return "Argument error!" EndIf Else Return "Argument error!" EndIf EndFunc \STOP92\