@prog HaltFilter
1 99999 d
1 i
: start
  command @ "sayfilter" strcmp if 4 else 0 then
;
3 lines displayed.
.
c
q
@register #me HaltFilter=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=2
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called HaltFilter