@prog Capitalise.Filter 1 99999 d 1 i ( Capitalise the initial of each word in the speech. TimB/9th March 94. ) : cap 1 strcut swap toupper swap strcat ; : capitalise command @ "sayfilter" stringcmp not if 0 exit then " " explode swap cap swap begin 1 - dup while -3 rotate " " strcat swap cap strcat swap repeat ; 11 lines displayed. . c q @register #me Capitalise.Filter=tmp/prog1 @set $tmp/prog1=3 @propset $tmp/prog1=str:/_/de:A scroll containing a spell called Capitalise.Filter