print, 'Ausgabemedium:                     '
print, '                                   '
print, '               output.ps        (0)'
print, '               Tektronix-Schirm (1)'
print, '               X-Schirm         (2)'
print, '               Windows          (3)'
print, '               Programmende     (4)'
read, medium

case medium of
  0: begin
       set_plot, 'PS'
       device, filename='output.ps', $
         /landscape,  $
           xoffset=2.5, yoffset=26., $
           xsize=24., ysize=16.

;           /portrait, $
;            xoffset=2., yoffset=3., $
;            xsize=16., ysize=24.
     end
  1: begin
       set_plot, 'TEK'
     end
  2: begin
       set_plot, 'X'
;       window, 0, xsize=650.*210/297, ysize=650.
;       !p.color=255
;       !p.background=0
     end
  3: begin
;       window, 0, xsize=600., ysize=400.
;       !p.color=255
;       !p.background=0
     end
  else: begin
          print, 'Programmende'
          stop
        end
endcase

dummy = ' '

xyouts, 0.5, 0.5, /normal, '!5'  ; setzt den Font

print, 'Enter filename'
read, dummy
fname = dummy
openr, 1, fname
ln = long(0.0)
while not eof(1) do begin
   readf, 1, dummy
   ln = ln + 1
endwhile
close, 1

print, 'Enter plot title'
read, dummy
!p.title = dummy

print, 'Enter y-title (unit)'
read, dummy
ytit = dummy

dat = dblarr(2,ln)
openr, 1, fname
readf, 1, dat
close, 1

!p.charsize = 1.5
!p.charthick = 2.0

plot_io, dat(0,*), dat(1,*), $
   xtitle = 'FREQUENCY [Hz]', $
   xstyle = 1, $
   ytitle = ytit, $
   yrange = [1.e-2, 1.e4], $
   ystyle = 1

if medium eq 0 then device, /close

!p.psym = 0
!p.charsize = 1.0
!p.charthick = 1.0
!p.title = ''
!y.range = 0
!y.style = 0
!y.title = ''
!x.range = 0

end