Remove vowels from a string: Difference between revisions

Content added Content deleted
Line 711: Line 711:
?DO
?DO
I C@ DUP VOWELS VALIDATE
I C@ DUP VOWELS VALIDATE
0= IF PAD, \ compile char & inc. byte count
IF DROP \ don't need vowels
ELSE DROP
ELSE PAD, \ compile char & incr. byte count
THEN
THEN
LOOP
LOOP