22 lines
271 B
Text
22 lines
271 B
Text
TEST(0,0)
|
|
TEST(0,1)
|
|
TEST(1,0)
|
|
TEST(1,1)
|
|
Return
|
|
|
|
Lbl TEST
|
|
r₁→X
|
|
r₂→Y
|
|
Disp X▶Hex+3," and ",Y▶Hex+3," = ",(A(X)?B(Y))▶Hex+3,i
|
|
Disp X▶Hex+3," or ",Y▶Hex+3," = ",(A(X)??B(Y))▶Hex+3,i
|
|
.Wait for keypress
|
|
getKeyʳ
|
|
Return
|
|
|
|
Lbl A
|
|
r₁
|
|
Return
|
|
|
|
Lbl B
|
|
r₁
|
|
Return
|