11 lines
193 B
Text
11 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)
|