pro pause, dummy
;+
;NAME:
;	pause
;PURPOSE:
;	To request that the user hit <CR> between plots, but
;	to not pause if the output device is Postscript.
;
;	If a "q" or "Q" is entered at the "Pause" prompt, then
;	an error is induced and the program stops within the
;	calling procedure (useful for debugging)
;HISTORY:
;	Written 1991 by M.Morrison
;	 5-Nov-96 (MDM) - Added documentation header
;-
;
on_error, 2
;
if (!d.name ne 'PS') then begin 
    in=' ' 
    read,'Pause',in 
    ;
    if (strupcase(in) eq 'Q') then a=b		;cause an error and return and stop
end

end