parm textfile=""

# QUADT - Joe Geiser
# Will invoke the QUAD editor with an optional TEXT of a named file
# parameter.  If no parameter is specified, no TEXT will occur.

if "!textfile"=""  then
   run quad.XEQ
else
   setvar quadfile,"!textfile"
   while not (finfo("!quadfile",0))
      input quadfile,'"!quadfile" does not exist; please re-enter:'
   endwhile
   run quad.XEQ;info="q;t !quadfile"
endif