#include"iphlphsp.as"
	exist"ng.txt"
	if strsize>0{
		notesel tmp : bload"ng.txt",tmp,strsize : notemax max_ng
		sdim ng,32,max_ng
		repeat max_ng
			noteget ng.cnt,cnt
		loop
		chk=1
	}

	sdim list,2048
	dim w,2
	exist"ip.dat"
	if strsize>0{
		bload"ip.dat",size,4
		if size>0 : bload"ip.dat",list,size,4
		bload"ip.dat",w,,size+4
	}else{
		list=""
		w=0,0
	}

	notesel note
	;Window Make
	ginfo 0
	width 120,80,w.0,w.1 : title"IP Getter"
	objmode 2 : font"",12

	mesbox list,120,60,1
	objsize 60,20
	pos 0,61 : button "取得",*get
	pos 61,61 : button "クリア",*clear
	;Window Active
	gsel 0,1
	onexit *en

	stop
*get
	iptable note
	notemax max : ref=""
	repeat max
		ok=0
		noteget tmp,cnt
		if chk=1 : gosub *check
		if ok=0 : ref+=tmp+"\n"
	loop
	;if stat=0 : list+=ref : else : list+="Error.\n"
	list+=ref
	objprm 0,list
	strlen size,list
	objsend 0,$b1,size,size,1
	a=0 : objsend 0,$b7,0,a,1
	stop
*en
	strlen size,list
	bsave "ip.dat",size,4
	if size>0 : bsave "ip.dat",list,size,4
	ginfo 2 : w.0=prmx : w.1=prmy
	bsave "ip.dat",w,,size+4
	end
*check
	repeat max_ng
		instr n,tmp,ng.cnt
		if n!=-1 : ok=1 : break
	loop
	return
*clear
	list=""
	objprm 0,list
	stop