@prog lynx.filter
1 99999 d
1 i
( Filter: Lynx's filter for extended say 3.00 filter system.
 .
 Properties should be where the _osay property that called the filter is.
 .
 Substitute items in filter<list> for corresponding items in subst<list> unless
  a prefix has been used, and filter<prefix><list> and subst<prefix><list>
  exist.
 .
 Remember that filter/ should be filtersl, and filter: should be filterco.
)
: filter-iter ( db message ch n -- message' )
    over over intostr strcat "filter" over strcat
    6 pick swap getpropstr dup not if
        pop pop pop pop swap pop
        exit
    then
    "subst" rot strcat 6 pick swap getpropstr
    swap 5 rotate -3 rotate subst -3 rotate
    1 + filter-iter
;
: lynx-filter ( db ch message -- db ch message' 0 )
"Please detach filter #33255 using sayfilter ftake, and relink to the Replace filter with sayfilter fadd Replace." .tell
    3 pick over over
    "filter" 6 pick "1" strcat strcat
    getpropstr if 4 pick else "" then
    1 filter-iter swap pop 0
;
27 lines displayed.
.
c
q
@register #me lynx.filter=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=2
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called lynx.filter