14 lines
401 B
Plaintext
14 lines
401 B
Plaintext
PROClogic(FALSE, FALSE)
|
|
PROClogic(FALSE, TRUE)
|
|
PROClogic(TRUE, FALSE)
|
|
PROClogic(TRUE, TRUE)
|
|
END
|
|
|
|
DEF PROClogic(a%, b%)
|
|
LOCAL @% : @% = 2 : REM Column width
|
|
PRINT a% " AND " b% " = " a% AND b% TAB(20);
|
|
PRINT a% " OR " b% " = " a% OR b% TAB(40);
|
|
PRINT a% " EOR " b% " = " a% EOR b% TAB(60);
|
|
PRINT " NOT " a% " = " NOT a%
|
|
ENDPROC
|