pro psprint,nx,ny,file
x=tvrd(0,0,nx,ny)
set_plot,'ps'
device,filename=file+'.ps',bits_per_pixel=8
tv,x
device,/close
set_plot,'X'
writes,file,x
return
end