on rescueText fileName,fldName
  -- recover text from any file.
  if fldName is empty then put "data" into fldName
  open file fileName
  repeat
    doMenu "New Card"
    read from file fileName for 30000
    put it into fld fldName
    if it is empty then exit repeat
  end repeat
  close file fileName
end rescueText