22 lines
569 B
Forth
22 lines
569 B
Forth
: X DUP >R >NAME TUCK TYPE 6 SWAP - SPACES
|
|
-1 R@ EXECUTE NEGATE . SPACE
|
|
0 R@ EXECUTE NEGATE . SPACE
|
|
1 R> EXECUTE NEGATE . EOL ;
|
|
|
|
: Y DUP >R >NAME TUCK TYPE 6 SWAP - SPACES
|
|
-3 -2 R@ EXECUTE NEGATE . SPACE
|
|
-3 -3 R@ EXECUTE NEGATE . SPACE
|
|
-3 -4 R> EXECUTE NEGATE . EOL ;
|
|
|
|
0 ARRAY UNARY-OPS ] 0< 0<= 0= 0<> 0>= 0> [
|
|
HERE 0 UNARY-OPS - CELL / CONSTANT N-UNARY-OPS
|
|
|
|
0 ARRAY BINARY-OPS ] < <= = <> >= > [
|
|
HERE 0 BINARY-OPS - CELL / CONSTANT N-BINARY-OPS
|
|
|
|
: TEST
|
|
N-UNARY-OPS 0 DO I UNARY-OPS @ X LOOP
|
|
N-BINARY-OPS 0 DO I BINARY-OPS @ Y LOOP ;
|
|
|
|
TEST
|