wrnlvl:=interface(warnlevel):
interface(warnlevel=0):
interface(quiet=true):
CHEVIEPATH:=getenv("CHEVIEDIR"):
PREVIEWNAME:=getenv("PREVIEWVAR"):
LATEXCOMMAND:=getenv("LATEXCOMMAND"):
LATEXSUFFIX:=getenv("LATEXSUFFIX"):
libname := CHEVIEPATH, libname:
printf("\n"):
printf("             WELCOME to the Maple part of CHEVIE\n"):
printf("               Version 3 Release 1,  April 1997\n"):
printf("    Meinolf Geck, Gerhard Hiss, Frank Luebeck, Gunter Malle, Goetz Pfeiffer\n"):
printf("    Lehrstuhl D fuer Mathematik, RWTH Aachen, IWR der Universitaet Heidelberg,\n"):
printf("    Universite Paris VII, University College Galway\n"):
#printf("\n"):
#printf("    Loading the library. Please be patient, this may take a while.\n\n"):
printf("\n    This version has been modified to run with Maple 8,  it was kindly provided\n"):
printf("    by Johannes Maslowski.\n\n"):
readlib(latex):
with(StringTools):
RELOAD:=proc() begin:
  OLDPATH:=currentdir():
  currentdir(""||CHEVIEPATH||"/bin"):
	read("compatlib"):
  currentdir(""||CHEVIEPATH||"/genchar"):
  read("GEN_V"):
  currentdir(OLDPATH):
end:
RELOAD():
printf("    Type \"?CHEVIE\" for first help\n"):
printf("\n"):
interface(warnlevel=wrnlvl):
interface(quiet=false):

