;+
; Project     : SOHO - LASCO
;
; Name        : 
;
; Purpose     : 
;
; Category    : 
;
; Explanation : 
;
; Syntax      : 
;
; Examples    : 
;
; Inputs      : None
;
; Opt. Inputs : None
;
; Outputs     : None
;
; Opt. Outputs: None
;
; Keywords    : None
;
; Common      : 
;
; Restrictions:                                  
;
; Side effects: Not known
;
; History     : Version 1, 02-Sep-1995, B Podlipnik. Written
;
; Contact     : BP, borut@lasco1.mpae.gwdg.de
;-

FUNCTION rd_asc,file

  IF datatype(file) EQ 'UND' THEN file=pickfile()

  OPENR,1,file, ERROR=err

  IF (err NE 0) THEN RETURN,!ERR_STRING

  line = ''
  i=0L
  WHILE(NOT EOF(1)) DO BEGIN
   READF,1,line
    i=i+1
  END
  CLOSE,1

  IF i EQ 0 THEN RETURN, ""

  openr,1,file
  string_name = STRARR(i)
  readf,1,string_name
  close,1
 
  index = WHERE( string_name GT '' )
  string_name=string_name(index)

RETURN, string_name
END