10 lines
193 B
Text
10 lines
193 B
Text
Procedure LogicDebug(a,b)
|
|
Debug a & b ;And
|
|
Debug a | b ;Or
|
|
Debug ~a ;Not
|
|
Debug a ! b ;XOr
|
|
EndProcedure
|
|
|
|
logicDebug(#True, #True)
|
|
logicDebug(#True, #False)
|
|
logicDebug(#False, #False)
|