pro	ps_long,dummy
;+
; NAME:
;	PS_LONG
; PURPOSE:
;    	Setup to fill portait page on PostScript printer
; CALLING SEQUENCE:  
;	PS_LONG
; INPUTS:
;	none
; OUTPUTS:
;	none
; RESTRICTIONS:
;
; PROCEDURE:
;	Issues command: DEVICE,YSIZ=25.,YOFFSET=3
;	If Environment variable US_FUNNY_PAPER exists then the 
;	    command is: DEVICE,YSIZ=23.,YOFFSET=3
; MODIFICATION HISTORY:
;	RDB     Oct-92	
;	RDB  22-Jun-92	Different size for US_FUNNY_PAPER
;	RDB   5-Jan-94	Return without action if YOMAN exists
;-

;	skip if environment variable YOMAN set
if getenv('YOMAN') ne '' then return

;	if to PS printer, make it larger
if !d.name eq 'PS' then begin

   squash = getenv('US_FUNNY_PAPER')
   if squash ne '' then $
      device,ysiz=23.,yoffset=3. $		;US sized paper
   else $
      device,ysiz=25.,yoffset=3.		;A4 sized paper

endif

return
end