XProfan

!Proc MakeRegExp
Parameters Wort$
Declare B$,Ret$

WhileLoop Len(Wort$)

    B$=Mid$(Wort$,&Loop,1)

    If Upper$(B$) <> Lower$(B$)

        B$="[" + Upper$(B$) + Lower$(B$) + "]"

    EndIf

    Ret$ = Ret$ + B$

Wend

Return Ret$

EndProc

ClearClip
PutClip MakeRegExp("AutoPaint|\
Decimals|\
NumWidth|\
CharSet|\
ErrorLevel|\
FileMode|\
TrueColor|\
StrWidth")
Print GetClip$()
WaitInput