C                                                                       0001.000
C K.KERMDEF - KERMIT SYMBOL DEFINITIONS                                 0002.000
C                                                                       0003.000
C L.TATE 5/8/86 SAI - ADDED ITYP PACKET FOR SERVER INIT                 0004.000
C                                                                       0005.000
      OPTION 1+                                                         0006.000
C                                                                       0007.000
C     FILE I/O DEFINITIONS                                              0008.000
C                                                                       0009.000
      INTEGER      STDIN,STDOUT                                         0010.000
      PARAMETER (STDIN=1, STDOUT=2)                                     0011.000
C                                                                       0012.000
C     INPUT STACK SIZE                                                  0013.000
C                                                                       0014.000
      INTEGER      MAXINSTK                                             0015.000
      PARAMETER (MAXINSTK = 3)                                          0016.000
C                                                                       0017.000
C     CHARACTER DEFINITIONS                                             0018.000
C                                                                       0019.000
      INTEGER      SOH,TAB,LF,CR,BLANK,MINUS                            0020.000
      INTEGER      QMARK,DEL,NEL,NULL,EOF                               0021.000
      PARAMETER (SOH=1, TAB=9, LF=10, CR=13, BLANK=32, MINUS=45)        0022.000
      PARAMETER (QMARK=63, DEL=127, NEL=O'205', NULL=O'4000', EOF=-1)   0023.000
C                                                                       0024.000
C     MISCELLANEOUS                                                     0025.000
C                                                                       0026.000
      INTEGER      OK,ERROR,ON,OFF                                      0027.000
      PARAMETER (OK=1, ERROR=-2, ON=1, OFF=0)                           0028.000
C                                                                       0029.000
C     PROTOCOL DEFINITIONS                                              0030.000
C                                                                       0031.000
      INTEGER      UNKNOWN,FULL,HALF                                    0032.000
      INTEGER      NONE,EVEN,ODD,MARK,SPACE                             0033.000
      INTEGER      MAXINIT,MAXTRY                                       0034.000
      INTEGER      MAXPACK,MYTIME,MYPAD,MYPADCH                         0035.000
      INTEGER      MYEOL,MYQUOTE,QUOT8CH,MYCKTYP                        0036.000
      INTEGER      PREFXCH                                              0037.000
      PARAMETER (UNKNOWN=0, FULL=1, HALF=2)                             0038.000
      PARAMETER (NONE=0, EVEN=1, ODD=2, MARK=3, SPACE=4)                0039.000
      PARAMETER (MAXINIT=20, MAXTRY=5)                                  0040.000
      PARAMETER (MAXPACK=1000,MYTIME=20, MYPAD=0, MYPADCH=0)            0041.000
      PARAMETER (MYEOL=13, MYQUOTE=35, QUOT8CH=78, MYCKTYP=49)          0042.000
      PARAMETER (PREFXCH=126)                                           0043.000
C                                                                       0044.000
C     PACKET TYPES                                                      0045.000
C                                                                       0046.000
      INTEGER      A,B,C,D,E,F,G,L,N,R,S,Y,Z,ITYP                       0047.000
      PARAMETER (A=65, B=66, C=67, D=68, E=69, F=70, G=71, L=76, N=78)  0048.000
      PARAMETER (R=82, S=83, Y=89, Z=90, ITYP=73)                       0049.000
C                                                                       0050.000
C     PACKET ERROR DEFINITIONS                                          0051.000
C                                                                       0052.000
      INTEGER      TOOMANY,INVALID,SEQERR                               0053.000
      INTEGER      LCLFILE                                              0054.000
      INTEGER      SENDING,READING                                      0055.000
      INTEGER      INITERR,FILERR,DATAERR,EOFERR                        0056.000
      INTEGER      BRKERR                                               0057.000
CLT 2.4 CHANGED LCLFILE ERROR CODE TO 11 (FROM 3)                       0058.000
      PARAMETER (TOOMANY = 1, INVALID=2, SEQERR=3,LCLFILE=11)           0059.000
      PARAMETER (SENDING=4, READING=5, INITERR=6, FILERR=7)             0060.000
      PARAMETER (DATAERR=8, EOFERR=9, BRKERR=10)                        0061.000
C                                                                       0062.000
      LOGICAL      FILEND,STRTFILE,EXPSBLCK                             0062.100
      INTEGER      RLCNT,RLENG                                          0062.150
      COMMON /FIL001/ FILEND,STRTFILE,EXPSBLCK                          0062.200
      COMMON /RCDINFO/ RLCNT,RLENG                                      0062.300
      OPTION 1-                                                         0063.000
C-----END OF FILE: KERMDEF                                              0064.000