'キー定義ファイルに登録されているマクロファイルの一覧を
'表示して、選択したファイルを開く。

proc main
dim q$,n,mx,sameflag,lst$(255)
if dir$(@@KeyFilename$)="" then 
	call msgbox("キー定義ファイルが見つかりません。終了します。ごめん。"):end
end if
lst$[1]=@@KeyFilename$
lst$[2]="-"
mx=3:sameflag=0
open @@KeyFilename$ for input as #1
do while eof(1)=0
	lineinput#1,q$
	if instr(q$,"$*")<>0 then q$=" "
	if instr(q$,"$")<>0 then
	do while instr(q$,"$")<>0
		q$=mid$(q$,instr(q$,"$")+1)
	loop
	do while instr(q$,",")<>0
		q$=left$(q$,instr(q$,",")-1)
	loop
	do while instr(q$,chr$(9))<>0
		q$=left$(q$,instr(q$,chr$(9))-1)
	loop
	if left$(q$,1)=chr$(34)then q$=mid$(q$,2)
	do while instr(q$,chr$(34))<>0
		q$=left$(q$,instr(q$,chr$(34))-1)
	loop
	n=1:sameflag=0
	do while n<mx and sameflag=0
		if ucase$(q$)=ucase$(lst$(n))then sameflag=1
		n=n+1
	loop
	if sameflag=0 then lst$(mx)=q$:mx++
	end if
loop
close#1
if mx>3 then
	n = popupmenu(lst$,0,0)
	if n<>0 then 
		q$=lst$(n)
		if instr(q$,"\")=0 then q$=@@macrodirectory$+"\"+q$
		call @@OpenFile(q$)
	end if
end if
end proc