home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
pub
/
vmspascal
/
vxpgl.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
2020-01-01
|
3KB
|
167 lines
NULLTOKE = -1;
RANGENULL = -2;
KERMITHELP = 'KERMITHLP:';
INVALIDCOMMAND = 1;
INVALIDSETCOMMAND = 2;
INVALIDSHOWCOMMAND = 3;
NOTIMPLEMENTED = 4;
INVALIDFILESPEC = 5;
INVALIDSETCVALUE = 6;
INVALIDSETDVALUE = 7;
INVALIDSETOVALUE = 8;
INVALIDSETRANGE = 9;
SENDPARMS = 10;
RECEIVEPARMS = 11;
LOCALPARMS = 12;
BLANKLINE = 13;
NOHELPAVAILABLE = 14;
DCLSPAWNFAILED = 15;
cSET = 'SET ';
cSHOW = 'SHOW ';
cSTATUS = 'STATUS ';
cCONNECT = 'CONNECT ';
cHELP = 'HELP ';
cEXIT = 'EXIT ';
cQUIT = 'QUIT ';
cQUESTION = '? ';
cSEND = 'SEND ';
cRECEIVE = 'RECEIVE ';
cDEBUGGING = 'DEBUGGING ';
cLOCALECHO = 'LOCAL-ECHO ';
cDELAY = 'DELAY ';
cPACKETLENGTH = 'PACKET-LENGTH';
cPADDING = 'PADDING ';
cPADCHAR = 'PADCHAR ';
cTIMEOUT = 'TIMEOUT ';
cENDOFLINE = 'END-OF-LINE ';
cQUOTE = 'QUOTE ';
cALL = 'ALL ';
cON = 'ON ';
cOFF = 'OFF ';
cBADTOKEN = 'XX ';
cTRANSMODE = 'TRANSMODE ';
cASCII = 'ASCII ';
cBINARY = 'BINARY ';
cEIGHTQUOTE = 'EIGHT-QUOTE ';
cFILERECORD = 'FILERECORD ';
cCR = 'CR ';
cLF = 'LF ';
cCLF = 'CLF ';
cPARITY = 'PARITY ';
cEVEN = 'EVEN ';
cODD = 'ODD ';
cNONE = 'NONE ';
cSPEED = 'SPEED ';
cDCL = 'DCL ';
uSET = 3;
uMSEND = 3;
uMRECEIVE = 1;
uSHOW = 2;
uSTATUS = 2;
uCONNECT = 1;
uDCL = 1;
uHELP = 1;
uQUESTION = 1;
uEXIT = 1;
uQUIT = 1;
uSEND = 1;
uRECEIVE = 1;
uDEBUGGING = 3;
uFILERECORD = 1;
uTRANSMODE = 1;
uLOCALECHO = 2;
uDELAY = 3;
uPACKETLENGTH = 3;
uPADDING = 4;
uPADCHAR = 4;
uTIMEOUT = 1;
uENDOFLINE = 1;
uQUOTE = 1;
uALL = 1;
uON = 2;
uOFF = 2;
uBADTOKEN = 1;
uCR = 2;
uLF = 1;
uCLF = 2;
uPARITY = 1;
uEVEN = 1;
uODD = 1;
uNONE = 1;
uSPEED = 2;
uASCII = 1;
uBINARY = 1;
uQUOTED = 1;
uEIGHTQUOTE = 1;
oON = 0; { Must Remain in this order for }
oOFF = 1; { virtual terminal program. }
oEVEN = 2; { ... }
oODD = 3; { ... }
oNONE = 4; { ... }
oSET = 5;
oSHOW = 6;
oSTATUS = 7;
oCONNECT = 8;
oHELP = 9;
oEXIT = 10;
oQUIT = 11;
oSEND = 12;
oRECEIVE = 13;
oDEBUGGING = 14;
oLOCALECHO = 15;
oDELAY = 16;
oPACKETLENGTH = 17;
oPADDING = 18;
oPADCHAR = 19;
oTIMEOUT = 20;
oENDOFLINE = 21;
oQUOTE = 22;
oQUESTIONM = 23;
oALL = 24;
oBADTOKEN = 25;
oFILERECORD = 26;
oCR = 27;
oLF = 28;
oCLF = 29;
oPARITY = 30;
oSPEED = 31;
oDCL = 32;
oTRANSMODE = 33;
oASCII = 34;
oBINARY = 35;
oEIGHTQUOTE = 36;
oXXXX = 99;
oMAINTYPE = 1;
oSETTYPE = 2;
oSHOWTYPE = 3;
oSENDTYPE = 4;
oRECEIVETYPE = 5;
oDEBUGTYPE = 6;
oFILERECTYPE = 8;
oLOCECHOTYPE = 9;
oPARITYTYPE = 10;
oTRANSTYPE = 11;
DECIMAL = 0;
SDECIMAL = 1;
OCTAL = 2;
CHRACTER = 3;
IDECIMAL = 4;
EBCHRACTER = 5;
oASCSTATE = 1;
oBINSTATE = -1;
o300BAUD = 300;
o600BAUD = 600;
o1200BAUD = 1200;
o2400BAUD = 2400;
o4800BAUD = 4800;
o9600BAUD = 9600;