home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PASCAL / PT03.ZIP / GLOBCONS.INC < prev    next >
Encoding:
Text File  |  1983-06-11  |  2.0 KB  |  100 lines
  1. { globcons (PC) -- global constants for portable tools }
  2.  
  3. CONST
  4. { standard file descriptors. subscripts in open, etc. }
  5.  STDIN = 1;  { these are not to be changed }
  6.  STDOUT = 2;
  7.  STDERR = 3;
  8.  
  9. { other io-related stuff }
  10.  IOERROR = 0; { status values for open files }
  11.  IOAVAIL = 1;
  12.  IOREAD = 2;
  13.  IOWRITE = 3;
  14.  MAXOPEN = 10;
  15.  
  16. { universal manifest constants }
  17.  ENDFILE = 255;
  18.  ENDSTR = 0;  { null-terminated strings }
  19.  MAXSTR = 100; { longest possible string }
  20.  BIGSTR = 200; { longest possible big string }
  21.  SMLSTR = 40;  { sometimes used for small strings }
  22.  MAXFN = 16;   { longest possible filename }
  23.  
  24. { ascii character set in decimal }
  25.  BACKSPACE = 8;
  26.  TAB = 9;
  27.  NEWLINE = 10;
  28.  BLANK = 32;
  29.  EXCLAM = 33; { | }
  30.  DQUOTE = 34; { " }
  31.  SHARP = 35;  { # }
  32.  DOLLAR = 36; { dollar }
  33.  PERCENT = 37; { % }
  34.  AMPER = 38;  { & }
  35.  SQUOTE = 39; { ' }
  36.  ACUTE = SQUOTE;
  37.  LPAREN = 40; { ( }
  38.  RPAREN = 41; { ) }
  39.  STAR = 42;  { * }
  40.  PLUS = 43;  { + }
  41.  COMMA = 44;  { , }
  42.  MINUS = 45;  { - }
  43.  DASH = MINUS;
  44.  PERIOD = 46; { . }
  45.  SLASH = 47;  { / }
  46.  NUM0  = 48;
  47.  NUM1  = 49;
  48.  NUM2  = 50;
  49.  NUM3  = 51;
  50.  NUM4  = 52;
  51.  NUM5  = 53;
  52.  NUM6  = 54;
  53.  NUM7  = 55;
  54.  NUM8  = 56;
  55.  NUM9  = 57;
  56.  COLON = 58;  { : }
  57.  SEMICOL = 59; { ; }
  58.  LESS = 60;  { < }
  59.  EQUALS = 61; { = }
  60.  GREATER = 62; { > }
  61.  QUESTION = 63; { ? }
  62.  ATSIGN = 64; { @ }
  63.  LBRACK = 91; { [ }
  64.  BACKSLASH = 92; { \ }
  65.  ESCAPE = ATSIGN;
  66.  RBRACK = 93; { ] }
  67.  CARET = 94;  { ^ }
  68.  UNDERLINE = 95; { _ }
  69.  GRAVE = 96;  { ` }
  70.  LETA = 97;  { lower case ... }
  71.  LETB = 98;
  72.  LETC = 99;
  73.  LETD = 100;
  74.  LETE = 101;
  75.  LETF = 102;
  76.  LETG = 103;
  77.  LETH = 104;
  78.  LETI = 105;
  79.  LETJ = 106;
  80.  LETK = 107;
  81.  LETL = 108;
  82.  LETM = 109;
  83.  LETN = 110;
  84.  LETO = 111;
  85.  LETP = 112;
  86.  LETQ = 113;
  87.  LETR = 114;
  88.  LETS = 115;
  89.  LETT = 116;
  90.  LETU = 117;
  91.  LETV = 118;
  92.  LETW = 119;
  93.  LETX = 120;
  94.  LETY = 121;
  95.  LETZ = 122;
  96.  LBRACE = 123; { left brace }
  97.  BAR = 124;  { | }
  98.  RBRACE = 125; { right brace }
  99.  TILDE = 126; { ~ }
  100.