COMMON / FIFE_UNITS / NREAD, NWRITE, NERROR,
     $   INIT_FILE, HELP_FILE, PROMPT_STRING, LPROMPT
      CHARACTER *40 HELP_FILE, INIT_FILE
      CHARACTER *10 PROMPT_STRING