zoom_coor,x,y

 General purpose zoom procedure. Brings up cursors and requests user to
 indicate lower left corner and upper right corner of zoom window.  
 Returns x and y values selected for new limits of plots so user can call
 their plot return with xrange and yrange set to these limits.

 Shelby Kennard                                   21Feb1991
 CALLS:
 CALLED BY
	FSPLOT, HXRBS, PLOT_CRAB

 NAME: 
	ZOOMPRNT

 PURPOSE:
	Print the maginified window from the zoom interface.

 CATEGORY:
	CP display

 CALLING SEQUENCE:
	ZOOMMPRNT, COLO=COLO

 CALLED BY:
	CPZOOM_EV

 CALLS TO:
	PSPLOT

 INPUTS:
	COLO 	0 means send output to black/white printer
		1 means output to color printer
       MAGIMG through commons

 OPTIONAL INPUTS:
	none

 OUTPUTS:
       none

 OPTIONAL OUTPUTS:
	none

 CALLS: ***
	CONGRID [1], CONGRID [2], CONGRID [3], CPZOOM, CPZOOMIT, CPZOOM_EV, PSPLOT [1]
	PSPLOT [2], XMANAGER, XPDMENU
 CALLED BY:
	CPZOOM, CPZOOMIT, CPZOOM_EV
 COMMON BLOCKS:
	COMMON ZOOMMAG, NORMIMG, MAGIMG		; original and mag image 

 SIDE EFFECTS:
	none

 RESTRICTIONS:
	none

 PROCEDURE:
	Set up the output device, determine positioning and print

 MODIFICATION HISTORY:
	Feb 94 - Elaine Einfalt (HSTX)