Lines Matching refs:pick
171 3 pick 3 pick ( n c-addr/u k -- n c-addr/u k n c-addr )
430 2 pick 1+ -rot 2 +c! \ Replace 'Y' with current ASCII num
438 5 pick 5 pick menu_caption[x][y] setenv
450 5 pick 5 pick ansi_caption[x][y] setenv
700 2 pick 0> if
840 2 pick ( n c-addr/u -- n c-addr/u n )
884 2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
903 2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
933 3 pick swap ( n addr k k' -- n addr k n k' ) \ (n,k') as (x,y)
951 2 pick [char] 0 ( n addr 0 -- n addr 0 n 48 ) \ (n,48) as (x,y)
977 4 pick ( n addr k c-addr/u -- n addr k c-addr/u n )