:start
	SET mask ,15,16
	clear
	k=0
	getent "Select File",enttype
	if (@key==-2)
	goto start
	if (@key==-1)
	goto start
	if (@key==-3)
	goto end
	n=@numstr
	ARRAY a[n]
:aloop
	if (k==n)
	goto file
	if (@strdat[k]==10)
	goto file
	a[k]=@strdat[k]
	k=k+1
	goto aloop
:file
	ARRAY $b[n]
	k=0
:bloop
	if (k==n-1)
	goto cont
	$b[k]=a[k]
	k=k+1
	goto bloop
:cont
	$b[k]=0
	CALL strcat, $b, ".prt"
	sys_prt_load $b
	if (@ERROR==-24)
	goto error
	exit
:error
	pause "File Not Found...      press RETURN to continue"	
	exit
:end
	exit