diff options
Diffstat (limited to 'original_jonesforth/test_stack.f')
| -rw-r--r-- | original_jonesforth/test_stack.f | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/original_jonesforth/test_stack.f b/original_jonesforth/test_stack.f new file mode 100644 index 0000000..1c4563d --- /dev/null +++ b/original_jonesforth/test_stack.f @@ -0,0 +1,17 @@ +( -*- text -*- ) + +: TEST + DEPTH . CR + + 42 DUP . . CR + 23 DROP DEPTH . CR + 1 2 SWAP . . CR + 1 2 OVER . . . CR + 1 2 3 -ROT . . . CR + 1 2 3 ROT . . . CR + 1 2 3 4 2DROP . . CR + 1 2 3 4 2DUP . . . . . . CR + 1 2 3 4 2SWAP . . . . CR + + DEPTH . CR +; |