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)