#include "isajet/pilot.h"
      SUBROUTINE ISASET(IDKY,IEVT,ICOM,ILIS)
C
C          SUBROUTINE TO SET UP ISAJET RUN THROUGH DIALOG
C          IDKY, IEVT, ICOM, ILIS ARE TAPE NUMBERS AS FOR ISAJET.
C
#include "isajet/itapes.inc"
C          SET TAPE NUMBERS
      ITDKY=IABS(IDKY)
      ITEVT=IABS(IEVT)
      ITCOM=IABS(ICOM)
      ITLIS=IABS(ILIS)
C          INITIALIZE
      CALL SETCON
      CALL RESET
C          READ COMMANDS INTERACTIVELY AND WRITE COMMAND FILE.
      CALL DIALOG
      REWIND ITCOM
      RETURN
      END