Get the nth item from the stack in Fort

Question

Is there a way to access a stack element by its index in Forth without selecting all the elements above it?

For example, if I have numbers from 1 to 1000 pushed onto the stack, how can I get the 500th element?

Answer 1

500 PICK 

... will copy the 500 level item down the stack to the top of the stack in Forth79.

Answer 2

And if you use PICK at Fort, you can define it as

 : PICK ?DUP IF SWAP >R 1- RECURSE R> SWAP EXIT THEN DUP ; 

(Of course, an iterative version is also possible.)