pro newfile,filename
@pltdat.h
;
; Open and read new file:
;
if ludat ge 0 then free_lun,ludat
on_ioerror,bad
openr,ludat,filename,/get_lun
print,' '
print,'Opened file ',filename
;
istat = rdascii(ludat,filename,frame)
ifileframe = 1
if istat ne 0 then return
widget_control,wbut_goto,sensitive=1
widget_control,wbut_next,sensitive=1
widget_control,wbut_prnthdr,sensitive=1
flnm = filename
printhdr, frame,flnm,ifileframe
resetbases
return
bad: print,'Error opening file ',filename
ludat = -1
return
end