home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / vmspascal.zip / vxpgl.pas < prev    next >
Pascal/Delphi Source File  |  1988-08-16  |  3KB  |  167 lines
  1.     NULLTOKE = -1;        
  2.     RANGENULL = -2;     
  3.  
  4.         KERMITHELP = 'KERMITHLP:';
  5.  
  6.     INVALIDCOMMAND = 1;
  7.     INVALIDSETCOMMAND = 2;
  8.     INVALIDSHOWCOMMAND = 3;
  9.     NOTIMPLEMENTED = 4;
  10.     INVALIDFILESPEC = 5;
  11.     INVALIDSETCVALUE =  6;
  12.     INVALIDSETDVALUE =  7;
  13.     INVALIDSETOVALUE = 8;
  14.     INVALIDSETRANGE = 9;
  15.         SENDPARMS = 10;
  16.         RECEIVEPARMS = 11;
  17.         LOCALPARMS = 12;
  18.         BLANKLINE = 13;
  19.         NOHELPAVAILABLE = 14;
  20.     DCLSPAWNFAILED = 15;
  21.  
  22.     cSET        = 'SET          ';
  23.     cSHOW        = 'SHOW         ';
  24.     cSTATUS        = 'STATUS       ';
  25.     cCONNECT    = 'CONNECT      ';
  26.     cHELP        = 'HELP         ';
  27.     cEXIT        = 'EXIT         ';
  28.     cQUIT        = 'QUIT         ';
  29.     cQUESTION    = '?            ';
  30.     cSEND        = 'SEND         ';
  31.     cRECEIVE    = 'RECEIVE      ';
  32.     cDEBUGGING    = 'DEBUGGING    ';
  33.     cLOCALECHO    = 'LOCAL-ECHO   ';
  34.     cDELAY        = 'DELAY        ';
  35.     cPACKETLENGTH    = 'PACKET-LENGTH';
  36.     cPADDING    = 'PADDING      ';
  37.     cPADCHAR    = 'PADCHAR      ';
  38.     cTIMEOUT    = 'TIMEOUT      ';
  39.     cENDOFLINE    = 'END-OF-LINE  ';
  40.     cQUOTE        = 'QUOTE        ';
  41.     cALL        = 'ALL          ';
  42.     cON        = 'ON           ';
  43.     cOFF        = 'OFF          ';
  44.         cBADTOKEN       = 'XX           ';
  45.     cTRANSMODE    = 'TRANSMODE    ';
  46.     cASCII        = 'ASCII        ';
  47.     cBINARY        = 'BINARY       ';
  48.     cEIGHTQUOTE    = 'EIGHT-QUOTE  ';
  49.         cFILERECORD     = 'FILERECORD   ';
  50.         cCR        = 'CR           ';
  51.         cLF             = 'LF           ';
  52.         cCLF            = 'CLF          ';
  53.     cPARITY        = 'PARITY       ';
  54.     cEVEN        = 'EVEN         ';
  55.     cODD        = 'ODD          ';
  56.     cNONE        = 'NONE         ';
  57.     cSPEED        = 'SPEED        ';
  58.     cDCL        = 'DCL          ';
  59.  
  60.     uSET = 3; 
  61.     uMSEND = 3; 
  62.     uMRECEIVE = 1; 
  63.     uSHOW = 2;
  64.     uSTATUS = 2; 
  65.     uCONNECT = 1; 
  66.     uDCL = 1;
  67.     uHELP = 1;
  68.     uQUESTION = 1; 
  69.     uEXIT = 1;
  70.     uQUIT = 1;
  71.     uSEND = 1;
  72.     uRECEIVE = 1; 
  73.     uDEBUGGING = 3; 
  74.         uFILERECORD = 1;
  75.     uTRANSMODE = 1;
  76.     uLOCALECHO = 2;
  77.     uDELAY = 3;
  78.     uPACKETLENGTH = 3;
  79.     uPADDING = 4;
  80.     uPADCHAR = 4;
  81.     uTIMEOUT = 1;
  82.     uENDOFLINE = 1; 
  83.     uQUOTE = 1;
  84.     uALL = 1;
  85.     uON = 2;
  86.     uOFF = 2; 
  87.         uBADTOKEN = 1;
  88.         uCR = 2;
  89.         uLF = 1;
  90.         uCLF = 2;
  91.     uPARITY = 1;
  92.     uEVEN = 1;
  93.     uODD = 1;
  94.     uNONE = 1;
  95.     uSPEED = 2;
  96.     uASCII = 1;
  97.     uBINARY = 1;
  98.     uQUOTED = 1;
  99.     uEIGHTQUOTE = 1;
  100.  
  101.     oON = 0;        { Must Remain in this order for }
  102.     oOFF = 1;        {  virtual terminal program.    }
  103.     oEVEN = 2;        {    ...            }
  104.     oODD = 3;        {    ...            }
  105.     oNONE = 4;        {    ...            }
  106.     oSET = 5;
  107.     oSHOW = 6;
  108.     oSTATUS = 7;
  109.     oCONNECT = 8;
  110.     oHELP = 9;
  111.     oEXIT = 10;
  112.     oQUIT = 11;
  113.     oSEND = 12;
  114.     oRECEIVE = 13;
  115.     oDEBUGGING = 14;
  116.     oLOCALECHO = 15;
  117.     oDELAY = 16;
  118.     oPACKETLENGTH = 17;
  119.     oPADDING = 18;
  120.     oPADCHAR = 19;
  121.     oTIMEOUT = 20;
  122.     oENDOFLINE = 21;
  123.     oQUOTE = 22;
  124.     oQUESTIONM = 23;
  125.     oALL = 24;
  126.         oBADTOKEN = 25;
  127.         oFILERECORD = 26;
  128.         oCR = 27;
  129.         oLF = 28;
  130.         oCLF = 29;
  131.     oPARITY = 30;
  132.     oSPEED = 31;
  133.     oDCL = 32;
  134.     oTRANSMODE = 33;
  135.     oASCII = 34;
  136.     oBINARY = 35;
  137.     oEIGHTQUOTE = 36;
  138.     oXXXX = 99;
  139.  
  140.     oMAINTYPE = 1;
  141.     oSETTYPE = 2;
  142.     oSHOWTYPE = 3;
  143.     oSENDTYPE = 4;
  144.     oRECEIVETYPE = 5;
  145.     oDEBUGTYPE = 6;
  146.         oFILERECTYPE = 8;
  147.     oLOCECHOTYPE = 9;
  148.     oPARITYTYPE = 10;
  149.     oTRANSTYPE = 11;
  150.  
  151.     DECIMAL = 0;
  152.     SDECIMAL = 1;
  153.     OCTAL = 2;
  154.     CHRACTER = 3;
  155.     IDECIMAL = 4;
  156.     EBCHRACTER = 5;
  157.  
  158.     oASCSTATE = 1;
  159.     oBINSTATE = -1;
  160.  
  161.     o300BAUD = 300;
  162.     o600BAUD = 600;
  163.     o1200BAUD = 1200;
  164.     o2400BAUD = 2400;
  165.     o4800BAUD = 4800;
  166.     o9600BAUD = 9600;
  167.