\ SAMPLE.LIB: Sample Library with sequential search  uho Mar95


( c-addr u -- )


\ do not look up, if identification string is already 
\ in dictionary

2DUP PAD CHAR+ SWAP MOVE DUP PAD C! 
PAD FIND NIP [IF]  2DROP \\ [THEN]



CR .( looking for ) 2DUP TYPE SPACE


desires case? [IF] \\ ------------------------------------------

: case? ( flag -- ) OVER = DUP IF  NIP  THEN ;

\\ [THEN]


desires on [IF] \ ---------------------------------------------

: on ( a-addr -- )  TRUE SWAP ! ;

\\ [THEN]


desires off [IF] \ --------------------------------------------

: off ( a-addr -- )  FALSE SWAP ! ;

\\ [THEN]


\ -------------------------------------------------------------

CR TYPE .(  NOT provided! )  QUIT