\ 4tH library - NAMED STACK ITEMS - Copyright 2017 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] atos  [IF]
[UNDEFINED] stack [IF] include lib/stack.4th [THEN]
aka @ atos
aka @ a0
aka stack aclear

: a1 @ cell- ;
: a2 @ 2 cells - ;
: a3 @ 3 cells - ;
: a4 @ 4 cells - ;
: a5 @ 5 cells - ;
: a6 @ 6 cells - ;
: a7 @ 7 cells - ;
[THEN]

\ 10 array mystack mystack stack
\ 2 4 7 8 9 -5 3 9 8 0 do mystack >a loop
\ mystack a0 ? mystack a1 ? mystack a2 ? mystack a3 ?
\ mystack a4 ? mystack a5 ? mystack a6 ? mystack a7 ?
\ cr mystack aclear mystack adepth . depth .