Lines Matching refs:pick
172 3 pick 3 pick ( n c-addr/u k -- n c-addr/u k n c-addr )
431 2 pick 1+ -rot 2 +c! \ Replace 'Y' with current ASCII num
439 5 pick 5 pick menu_caption[x][y] setenv
451 5 pick 5 pick ansi_caption[x][y] setenv
701 2 pick 0> if
841 2 pick ( n c-addr/u -- n c-addr/u n )
885 2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
904 2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
934 3 pick swap ( n addr k k' -- n addr k n k' ) \ (n,k') as (x,y)
952 2 pick [char] 0 ( n addr 0 -- n addr 0 n 48 ) \ (n,48) as (x,y)
978 4 pick ( n addr k c-addr/u -- n addr k c-addr/u n )