procedure tpath (imageFile, currentdir)

string imageFile	{prompt="List of images to have paths changed"}
string currentdir	{prompt="Current directory (with / at end)"}
struct *flist		# list-directed structure to go thru imageFile





begin

	# Variable Declarations:
	struct image		# image currently being path-corrected
	string fullpath		# full pathname to be applied

	flist = imageFile	
	# putting the contents of the list contained in imageFile
	# to the list-directed structure *flist



	# Make sure the IMAGES package is loaded:
	if (! defpac ("images")) {
		print("IMAGES package not loaded")
		bye
	}






	# Main image loop:
	while ( fscan(flist, image) != EOF) {


		fullpath = currentdir//image//".pix"

		print (image//"   "//fullpath)

		hedit (images=image,fields="i_pixfile",value=fullpath, add=no,del=no,verify=no,show=yes,update=yes)



	}





end