filn1='01'
;	filn='o01.eps'
	filn='o01.ps'
	print,'output file?: 01,02,03,...(<100)'
	read,filn1
	strput,filn,filn1,1

	ior=fix(1)
	print,'1-portrait narrow'
        print,'2-landscape standard'
	print,'3-portrait wide'
        print,'4-landscape narrow'
	print,'5-portrait free'
	print,'6-landscape free'
	print,'7-portrait top'
	read,ior

	if(ior eq 1) then begin
	  xsiz=5.0
	  ysiz=9.0
	endif
	if(ior eq 2) then begin
	  xsiz=11.0
	  ysiz=8.0
	endif
	if(ior eq 3) then begin
	  xsiz=8.0
	  ysiz=11.0
	endif
	if(ior eq 4) then begin
	  xsiz=9.5
	  ysiz=5.0
	endif
	if(ior ge 5 and ior lt 7) then begin
	  print,'xsize?'
	  read,xsiz
	  print,'ysize?'
	  read,ysiz
	endif
	if(ior eq 7) then begin
	  xsiz=6.0
	  ysiz=6.0
	endif

	set_plot,'ps'
	if(ior eq 1 or ior eq 3 or ior eq 5) then begin
	  xoff=(8.0-xsiz)*0.5
	  yoff=(11.0-ysiz)*0.5
	  if(ior eq 7) then yoff=0.5
 	  device,filename=filn,bits_per_pixel=8,/color, $
;                 ENCAPSULATED=1, $
                 /portrait, $
                 /inches,xsize=xsiz,xoffset=xoff,ysize=ysiz,yoffset=yoff
	endif

	if(ior eq 2 or ior eq 4 or ior eq 6) then begin
	  xoff=(8.0-ysiz)*0.5
	  yoff=11.0-(11.0-xsiz)*0.5
	  device,filename=filn,bits_per_pixel=8,/color, $
;                 ENCAPSULATED=1, $
	         /landscape, $
	         /inches,xsize=xsiz,xoffset=xoff,ysize=ysiz,yoffset=yoff
	endif

	print,'!p.multi=[0,column,row]'
	print,'!p.position=[x0,y0,x1,y1]'


	end