# CL to display a series of images on the TV 
# by Richard Elston, 4/2/91
#
procedure clean(inimage) 

string inimage {prompt="List of input images"}

	struct *inlist

begin
	string comlisti,timage

	comlist=inimage
	inlist=comlist

#   this is the main loop 

	while(fscan(inlist, timage) !=EOF) {

	display (timage, 1, zs+, zr+, z1=-10, z2=500, xmag=1, ymag=1)
#	imexamine(timage)
	rimcur(timage, >>& "loop.dat")


	}
end