;+
;    BCS_M_RDTAP
;
;   Procedure to ease the reading of multiple files from tape using the
;   basic rdtap routine.
;
;   Note that on workstations it is possible to use go_rdtap instead.
;
;  USE:    .run bcs_m_rdtap         and follow prompts
;
;   CDP  Aug 92
;   CDP  Jan 92 Extend to multiple prefix specification
;
;-


fil = strarr(100)
td = 0
pre = ' '
read,'Which drive (0/1 = mub0/muc0) > ',td
read,'File name PREFIX (bda/wda/sfr/spr/hda/*/or combinations) > ',pre
if pre eq '*' then pre = 'bda,wda,sfr,spr,hda'
pre = str2arr(pre)
i=0
repeat begin
  tf = ' '
  read,'Give file name > ',tf
  fil(i) = tf  
  i=i+1
endrep until fil(i-1) eq ''
i = i-1

rdtap,def_tapd(td),prefix=pre,fileid=fil(0:i)

end