This is G o o g l e's cache of http://home.earthlink.net/~neilbawd/change.html.
G o o g l e's cache is the snapshot that we took of the page as we crawled the web.
The page may have changed since that time. Click here for the current page without highlighting.
To link to or bookmark this page, use the following url: http://www.google.com/search?q=cache:oj0vNLmOad0C:home.earthlink.net/~neilbawd/change.html+&hl=en&ie=UTF-8

Google is not affiliated with the authors of this page nor responsible for its content.
CHANGE

CHANGE

Wil Baden 2000-08-06

PATTERN:            ( " pattern" -- )
Set THE-PATTERN to pattern.
CHANGE              ( Line Filter )
Change non-empty lines according to THE-PATTERN.
TEXT
 
Program Text 1 
: PATTERN:          ( " text" -- )
    LEXEME THE-PATTERN PLACE ;

LINE: CHANGE
    DUP 0= IF 2DROP  CR  EXIT THEN
    THE-PATTERN COUNT EXPAND-PATTERN  TYPE CR
    LINE;

Go back to Neil Bawd's home page.