24 lines
631 B
Forth
24 lines
631 B
Forth
ALSO UTILITY
|
|
|
|
: X DUP >R >NAME TUCK TYPE 6 SWAP - SPACES
|
|
-1 S>D R@ EXECUTE NEGATE . SPACE
|
|
0 S>D R@ EXECUTE NEGATE . SPACE
|
|
1 S>D R> EXECUTE NEGATE . EOL ;
|
|
|
|
: Y DUP >R >NAME TUCK TYPE 6 SWAP - SPACES
|
|
-3 S>D -2 S>D R@ EXECUTE NEGATE . SPACE
|
|
-3 S>D -3 S>D R@ EXECUTE NEGATE . SPACE
|
|
-3 S>D -4 S>D R> EXECUTE NEGATE . EOL ;
|
|
|
|
0 ARRAY UNARY-OPS ] D0< D0<= D0= D0<> D0>= D0> [
|
|
HERE 0 UNARY-OPS - CELL / CONSTANT N-UNARY-OPS
|
|
|
|
0 ARRAY BINARY-OPS ] D< D<= D= D<> D>= D> [
|
|
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
|