11 lines
385 B
Plaintext
11 lines
385 B
Plaintext
Dim As _Unsigned _Bit First, Second
|
|
First = 0: Second = 1
|
|
Print " Operator F S results "
|
|
|
|
Print " AND 1 0 "; First And Second
|
|
Print " XOR 1 0 "; First Xor Second
|
|
Print " OR 1 0 "; First Or Second
|
|
Print " NOT 1 "; Not First
|
|
Print " EQV 1 0 "; First Eqv Second
|
|
Print " IMP 1 0 "; First Imp Second
|