7 lines
370 B
Text
7 lines
370 B
Text
CHARACTER string*100/ "The quick brown fox jumps over the lazy dog" /
|
|
REAL, PARAMETER :: Regex=128, Count=256
|
|
|
|
characters_a_m = INDEX(string, "[a-m]", Regex+Count) ! counts 16
|
|
|
|
vocals_changed = EDIT(Text=string, Option=Regex, Right="[aeiou]", RePLaceby='**', DO=LEN(string) ) ! changes 11
|
|
WRITE(ClipBoard) string ! Th** q****ck br**wn f**x j**mps **v**r th** l**zy d**g
|