ginfo 0 : win_x=prmx : win_y=prmy
	exist"ap.txt"
	if strsize<=0 : dialog"ap.txtを編集して下さい\n書式についてはreadme.txtをご参照下さい",1,"エラー" : end
	sdim list,strsize : notesel list : bload"ap.txt",list : notemax n
	wy2=n/2*20 : wy=win_y-wy2 : a=0 : b=-1 : c=0 : sdim list2,25,n/2
	bgscr 2,150,wy2,8,win_x,wy,150,wy2 : objsize 150,20 : f=0
	font"",12
*make
	noteget name,f : y=f*10
	color 0,0,0 : boxf 0,y,150,y+20
	color 255,255,255 : boxf 2,y+2,148,y+18
	color 0,0,0 : pos 5,y+5 : mes name : list2.c=name : c+
	f+=2
	if f>=n : gsel 2,2 : goto *wt
	goto *make
*wt
	ginfo 0
	if (prmx<win_x)|(prmx>(win_x+150))|(prmy<wy)|(prmy>(wy+wy2)) : b=-1 : else : b=mousey/20
	if (a!=b){
		if(a!=-1){
			y=a*20
			color 255,255,255 : boxf 2,y+2,148,y+18
			color 0,0,0 : pos 5,y+5 : mes list2.a
		}
		if(b!=-1){
			y=b*20
			color 0,0,0 : boxf 2,y+2,148,y+18
			color 255,255,255 : pos 5,y+5 : mes list2.b
		}
		a=b
	}

	stick k,768,1
	if k&512 : r=1 : else : if r=1 : goto *en
	if k&256 : l=1 : else : if l=1 : goto *exe

	wait 1
	goto *wt
*exe
	getkey ctrl,17
	gsel 2,-1
	y=mousey/20*2+1
	noteget name,y
	if ctrl=1 : goto *folder
	exprm=""
	strlen size,name : size-=3 : strmid tmp,name,size,3
	gosub *GETDIRECTORY
	if tmp!="exe" : exec name,,"open" : else : exec name
	end
*folder
	strlen size,name
	repeat
	peek tmp,name,size : if tmp='\\' : break
	poke name,size,0 : size-
	loop
	exec "explorer "+name
	end
*en
	end

*GETDIRECTORY
	;http://mia.taillove.jp/
	tempstr=name:strlen t,tempstr
	repeat
		peek a,tempstr,t : if a='\\' : break
		poke tempstr,t,0:t-
	loop
	dirname=tempstr
	chdir dirname
return