Procedure LogicDebug(a,b)
  Debug a And b
  Debug a Or b
  Debug Not a
  Debug a XOr b
EndProcedure