Version 47
[jonesforth.git] / test_stack.f
1 ( -*- text -*- )
2
3 : TEST
4         DEPTH . CR
5
6         42 DUP . . CR
7         23 DROP DEPTH . CR
8         1 2 SWAP . . CR
9         1 2 OVER . . . CR
10         1 2 3 -ROT . . . CR
11         1 2 3 ROT . . . CR
12         1 2 3 4 2DROP . . CR
13         1 2 3 4 2DUP . . . . . . CR
14         1 2 3 4 2SWAP . . . . CR
15
16         DEPTH . CR
17 ;