home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
USCX
/
PASTOOL3.ZIP
/
GLOBCONS.INC
< prev
next >
Wrap
Text File
|
1983-06-11
|
2KB
|
100 lines
{ globcons (PC) -- global constants for portable tools }
CONST
{ standard file descriptors. subscripts in open, etc. }
STDIN = 1; { these are not to be changed }
STDOUT = 2;
STDERR = 3;
{ other io-related stuff }
IOERROR = 0; { status values for open files }
IOAVAIL = 1;
IOREAD = 2;
IOWRITE = 3;
MAXOPEN = 10;
{ universal manifest constants }
ENDFILE = 255;
ENDSTR = 0; { null-terminated strings }
MAXSTR = 100; { longest possible string }
BIGSTR = 200; { longest possible big string }
SMLSTR = 40; { sometimes used for small strings }
MAXFN = 16; { longest possible filename }
{ ascii character set in decimal }
BACKSPACE = 8;
TAB = 9;
NEWLINE = 10;
BLANK = 32;
EXCLAM = 33; { | }
DQUOTE = 34; { " }
SHARP = 35; { # }
DOLLAR = 36; { dollar }
PERCENT = 37; { % }
AMPER = 38; { & }
SQUOTE = 39; { ' }
ACUTE = SQUOTE;
LPAREN = 40; { ( }
RPAREN = 41; { ) }
STAR = 42; { * }
PLUS = 43; { + }
COMMA = 44; { , }
MINUS = 45; { - }
DASH = MINUS;
PERIOD = 46; { . }
SLASH = 47; { / }
NUM0 = 48;
NUM1 = 49;
NUM2 = 50;
NUM3 = 51;
NUM4 = 52;
NUM5 = 53;
NUM6 = 54;
NUM7 = 55;
NUM8 = 56;
NUM9 = 57;
COLON = 58; { : }
SEMICOL = 59; { ; }
LESS = 60; { < }
EQUALS = 61; { = }
GREATER = 62; { > }
QUESTION = 63; { ? }
ATSIGN = 64; { @ }
LBRACK = 91; { [ }
BACKSLASH = 92; { \ }
ESCAPE = ATSIGN;
RBRACK = 93; { ] }
CARET = 94; { ^ }
UNDERLINE = 95; { _ }
GRAVE = 96; { ` }
LETA = 97; { lower case ... }
LETB = 98;
LETC = 99;
LETD = 100;
LETE = 101;
LETF = 102;
LETG = 103;
LETH = 104;
LETI = 105;
LETJ = 106;
LETK = 107;
LETL = 108;
LETM = 109;
LETN = 110;
LETO = 111;
LETP = 112;
LETQ = 113;
LETR = 114;
LETS = 115;
LETT = 116;
LETU = 117;
LETV = 118;
LETW = 119;
LETX = 120;
LETY = 121;
LETZ = 122;
LBRACE = 123; { left brace }
BAR = 124; { | }
RBRACE = 125; { right brace }
TILDE = 126; { ~ }