@prog reverse.filter
1 99999 d
1 i
( reverse filter By Warwick on FurryMUCK 26/9/92
  Char-by-char reverses the whole message.
)
: reverse ( db ch message -- db ch egassem 0 )
  command @ "sayfilter" strcmp not if 0 exit then
  "" swap
  begin
    1 strcut -3 rotate swap strcat swap
  dup not until pop 0
;
10 lines displayed.
.
c
q
@register #me reverse.filter=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=2
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called reverse.filter