Strip out Variable from WBERRORHANDLER Line

Keywords: 	 Strip out Variable from WBERRORHANDLER Line

---

IntControl(73,1,0,0,0)
badline=cwndbyname(aaaa,bbb)

exit

:WBERRORHANDLER
alpha="abcdefghijklmnopqrstuvwxyz0123456789@_"
clrfile=strcat(DirHome(),"wil.clr")
;get rid of non-var non-function characters
work=strclean(wberrorhandlerline,alpha," ",@false,2)
list=""
count=ItemCount(work," ")
for xx=1 to count
   thisitem=ItemExtract(xx,work," ")
	if thisitem=="" then continue
	testword=thisitem
	if strsub(testword,1,1)=="@" then testword=strsub(testword,2,-1)
	flag=IniReadPvt("keywords",testword,0,clrfile)
	if flag!=0 then continue
	if list=="" then list=thisitem
	else list=strcat(list,@tab,thisitem)
next
AskItemList("",list,@tab,@unsorted,@single)
exit