PARAMETER (MAXCOM=40)
      COMMON / FIFE_COMMANDS / COMMANDS(MAXCOM), NCOMMANDS,
     $   N_EOF, LIST(MAXCOM)
      CHARACTER *20 COMMANDS