10 lines
414 B
Text
10 lines
414 B
Text
&ANCHOR = 0 ; &TRIM = 1
|
|
WORD = BREAK(' .,') . W SPAN(' .,')
|
|
FINDW = ' ' *W ANY(' .,')
|
|
STRING1 = INPUT :F(ERROR)
|
|
STRING2 = INPUT :F(ERROR)
|
|
LOOP STRING1 WORD = :F(OUTPUT)
|
|
STRING2 FINDW :F(LOOP)
|
|
LIST = LIST W ', ' :(LOOP)
|
|
OUTPUT OUTPUT = LIST
|
|
END
|