🚀 go-pugleaf

Here's a pre-83 PICK for Pocket Forth,,, ROLL, -ROLL and PACK might be
forthcoming someday...

--- cut here
: code create -8 allot ;
 
hex
 
code pick ( works! )
 3D3C , 0002 ,  ( MOVE	#$02,-(PS) )
 4EAB , ' * ,   ( JSR	times-base(BP) )
 301E ,         ( MOVE	(PS)+,D0 )
 41F6 , 0000 ,  ( LEA	0(PS,D0.W),A )
 3D20 ,         ( MOVE	-(A0),-(PS) )
 4E75 ,         ( RTS )
 
decimal
 
: (-loop) ( amount to subtract from index -> flag for until. )
 r> r> ( ret addr )
 r> ( index )
 4 pick -
 dup r > 0= ( terminate do...-loop now? ) dup
 if   swap drop ( drop new index )
      r> drop ( drop limit )
      rot rot >r >r ( put ret addr back )
 else swap >r ( put index back )
      rot rot >r >r ( put ret addr back )
 then
 swap drop ( get rid of amount )
;
 
: -loop [ ' (-loop) literal ] compile [compile] until ; immediate
--- cut here

Oh yeah, here's a bonus: -loop!

Try this:

: CountBackwards 0 4 do r . 1 -loop ; CountBackwards

One more thing: 1 pick = dup, 2 pick = over...

Enjoy.