'le code de Evaluer(x) :
Function Evaluer(x$)
Dim a$, b$
b = x
Do
a = b: b = Replace(b, " ", "")
Loop Until Len(b) = Len(a)
Do
a = b
b = Replace(b, "(0)", "0"): b = Replace(b, "(1)", "1")
b = Replace(b, "(0*0", "(0"): b = Replace(b, "(0*1", "(0")
b = Replace(b, "(1*0", "(0"): b = Replace(b, "(1*1", "(1")
Loop Until Len(b) = Len(a)
Do
a = b
b = Replace(b, "(0)", "0"): b = Replace(b, "(1)", "1")
b = Replace(b, "(0+0", "(0"): b = Replace(b, "(0+1", "(1")
b = Replace(b, "(1+0", "(1"): b = Replace(b, "(1+1", "(1")
b = Replace(b, "(1-0", "(1"): b = Replace(b, "(1-1", "(0")
Loop Until Len(b) = Len(a)
Do
a = b
b = Replace(b, "(0)", "0"): b = Replace(b, "(1)", "1")
b = Replace(b, "0*0", "0"): b = Replace(b, "0*1", "0")
b = Replace(b, "1*0", "0"): b = Replace(b, "1*1", "1")
Loop Until Len(a) = Len(b)
Do
a = b
b = Replace(b, "(0)", "0"): b = Replace(b, "(1)", "1")
b = Replace(b, "0+0", "0"): b = Replace(b, "0+1", "1")
b = Replace(b, "1+0", "1"): b = Replace(b, "1+1", "1")
Loop Until Len(a) = Len(b)
Evaluer = b
End Function