In ANS ist 0 PICK aquivalent zu DUP (gforth).

PICK wird gewöhnlich low level codiert. Das Beispiel in high level forth zeigt das Verhalten des Stack.

\ pick nth item from stack. top of stack is x0 befor n was placed there.

: pick  ( n -- xn ) 
  1+ cells sp@ + @ ;

In gforth wächst der Stack nach unten in Richtung absteigender Adressen um je eine cell pro item. Die älteren items haben daher die höhere Adresse.

screenshot:

66 55 44 33 22 11 00  ok
drop sp@ . .s 21028840 <6> 66 55 44 33 22 11  ok
drop sp@ . .s 21028844 <5> 66 55 44 33 22  ok
drop sp@ . .s 21028848 <4> 66 55 44 33  ok
drop sp@ . .s 21028852 <3> 66 55 44  ok
drop sp@ . .s 21028856 <2> 66 55  ok
drop sp@ . .s 21028860 <1> 66  ok
drop sp@ . .s 21028864 <0>  ok
drop sp@ . .s 
*the terminal*:63: Stack underflow
drop sp@ . .s
^^^^
Backtrace:

In Forth79 war 1 PICK aquivalent zu DUP (MVP-Forth).

Es waren 8-bit Maschinen, das Forthwort war 16 Bit breit, daher genügte immer 2* statt cells.

\ pick nth item from stack. top of stack is x1 befor n was placed there.

: pick  ( n -- xn ) 
  dup 1 < abort" PICK ARGUMENT < 1"
  2* sp@ + @ ;

Zum ausprobieren:

:  dup ( x0-- x0 x0 ) 0 pick ;
: 2dup ( x1 x0 -- x1 x0 x1 x0 ) 1 pick 1 pick ;
: 3dup ( x2 x1 x0 -- x2 x1 x0 x2 x1 x0 ) 2 pick 2 pick 2 pick ;

\ usw.