C  ------   INCLUDE  file for HOST program  -----------------------

      IMPLICIT INTEGER (A-Z)       ! This program is unreal

C  Special control characters

      CHARACTER*(*) ZERO, CTLC, LF, CR, CTLQ, CTLS, CTLT, CTLY, CTLZ
      CHARACTER*(*) ESC, RUBOUT, CRLF
      CHARACTER*(*) file$$, hand$$, delay$$, end$$, half$$, full$$
      CHARACTER*(*) DEF_BAUD_RATE, DEF_NAME, DEF_DUPLEX, DEF_PARITY

      PARAMETER ( ZERO = CHAR(0)   )
      PARAMETER ( CTLC = CHAR(3)   )
      PARAMETER ( LF   = CHAR(10)  )
      PARAMETER ( CR   = CHAR(13)  )
      PARAMETER ( CTLQ = CHAR(17)  )
      PARAMETER ( CTLS = CHAR(19)  )
      PARAMETER ( CTLT = CHAR(20)  )
      PARAMETER ( CTLY = CHAR(25)  )
      PARAMETER ( CTLZ = CHAR(26)  )
      PARAMETER ( ESC  = CHAR(27)  )
      PARAMETER ( RUBOUT=CHAR(127) )
      PARAMETER ( CRLF = CR//LF      )

      PARAMETER ( hand$$    = CHAR(-1) )   ! handshake; send next, wait next+1
      PARAMETER ( delay$$ = CHAR(-2) )   ! long delay needed here
      PARAMETER ( end$$   = CHAR(-3) )   ! end of script
      PARAMETER ( file$$  = CHAR(-4) )   ! marker to insert filename
      PARAMETER ( half$$  = CHAR(-5) )   ! set half_duplex
      PARAMETER ( full$$  = CHAR(-6) )   ! reset half_duplex

      PARAMETER ( MAXRECSIZ = 200  )  

C  System and message parameters and default values

      PARAMETER ( NSYS  = 5  )
      PARAMETER ( NMSGS = 8 )
      PARAMETER ( DEF_BAUD_RATE = '1200'  )
      PARAMETER ( DEF_NAME      = 'CYBER' )
      PARAMETER ( DEF_DUPLEX    = 'FULL'  )
      PARAMETER ( DEF_PARITY    = 'NONE'  )

C  Definition of I/O function codes

      INCLUDE '($IODEF)'
      INCLUDE '($SSDEF)'

C  Non Character variables 

      COMMON/STUFF/LOCAL_CHANNEL,REMOTE_CHANNEL,LRECB,
     &    NTIMER,NSENDIN,NSENDOUT,NVXF,NCHF,BCOUNT,SENDING,RECEIVING,
     &    TYPING,TIMER,HALTED,HALF_DUPLEX,HANDSHAKING,NDELAY,COMPUTER,
     &    VAX_EXIT,ECHO_FILE,CONTINUING,IN_SETUP,IN_RESET,DELAY,
     +    SESSION,NRECS,NBAUD,
     &    BLOCK_SEND,BLOCK_SIZE,XOFF_COUNT,TIMREM,
     +    LOC_STAT(4),RCV_STAT(4),
     &    BLOCK_RCV,BLOCK_RCV_OFF,FILE_XFR_START,
     &    MESNO_BEG(0:NSYS),NUM_MESGS(0:NSYS),
     &    KNODOT(0:NSYS),KBLKSIZ(0:NSYS)

      LOGICAL SENDING,RECEIVING,TYPING,TIMER,HALTED,HALF_DUPLEX,
     &    HANDSHAKING,VAX_EXIT,ECHO_FILE,CONTINUING,IN_SETUP,IN_RESET,
     &    SESSION,BLOCK_SEND,KNODOT,BLOCK_RCV,BLOCK_RCV_OFF,
     &    FILE_XFR_START,TIMREM,DELAY

      INTEGER*2 LOC_STAT,RCV_STAT

C  Character string variables

      COMMON/CHARS/LOCCHR,REMCHR,BYTES,SENDIN,SENDOUT,VAXFILE,
     &    FILENAME,CH,RCVIN,HANDSHAKE,
     &    VAX_MODEM,BAUD_RATE,NAME,PARITY,DUPLEX,SESTXT,NULL,
     &    MESSAGE(NMSGS),DIALOG(4,0:NSYS),
     &    KNAME(0:NSYS),KPARITY(0:NSYS),KDUPLEX(0:NSYS),
     &    HAND(0:NSYS),KPROMPT(0:NSYS)
      CHARACTER*1 LOCCHR,REMCHR,CH,HAND,KPROMPT,HANDSHAKE
      CHARACTER*1 NULL
      CHARACTER*200 BYTES,SENDIN,SENDOUT,RCVIN
      CHARACTER*4 VAX_MODEM,BAUD_RATE,PARITY,DUPLEX,KPARITY,KDUPLEX
      CHARACTER VAXFILE*30,FILENAME*30,NAME*7,DIALOG*150,KNAME*7
      CHARACTER MESSAGE*72,SAVE_PARAMS*23
      CHARACTER*4 SESTXT

C  Equivalences

      EQUIVALENCE(SAVE_PARAMS,VAX_MODEM)

C  ----------- End INCLUDE File   ------------------------------------