home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 441.NETCONST.PAS < prev    next >
Pascal/Delphi Source File  |  1989-11-19  |  1KB  |  50 lines
  1. const
  2.      version = '5.10';
  3.  
  4. {    0 black          8  gray
  5.      1 blue           9  light blue
  6.      2 green          10 light green
  7.      3 cyan           11 light cyan
  8.      4 red            12 light red
  9.      5 magenta        13 light magenta
  10.      6 brown          14 yellow
  11.      7 white          15 bright white }
  12.  
  13.      aux_b    : integer =  0;
  14.      aux_f    : integer = 15;
  15.      brite_b  : integer =  7;
  16.      brite_f  : integer =  0;
  17.      border_b : integer =  0;
  18.      border_f : integer =  7;
  19.      norm_b   : integer =  0;
  20.      norm_f   : integer =  7;
  21.      status_b : integer =  0;
  22.      status_f : integer =  7;
  23.      say_b    : integer =  0;
  24.      say_f    : integer =  7;
  25.      get_b    : integer =  7;
  26.      get_f    : integer =  0;
  27.      first    : integer =  1;
  28.  
  29.      scrn_width = 80;
  30.      null = ^@;
  31.      numbers : set of char = ['0'..'9'];
  32.  
  33.      nbr_days : array[1..12] of integer
  34.                   = (31,28,31,30,31,30,31,31,30,31,30,31);
  35.  
  36.      default = 'NETLOG';
  37.  
  38. { maximum of entries in net list - factor of 2 }
  39.      max_calls = 4096;
  40.      max_old : integer = max_calls;
  41.  
  42. { maximum # of new checkins in one net session without list combining }
  43.      max_new = 512;
  44.  
  45. { positions of found calls on screen display }
  46.      x : array[0..13] of integer =
  47.          (32,39,46,53,60,67,74,32,39,46,53,60,67,74);
  48.      y : array[0..13] of integer =
  49.          ( 4, 4, 4, 4, 4, 4, 4, 6, 6, 6, 6, 6, 6, 6);
  50.