home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 460.NETVAR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-10-29  |  1KB  |  51 lines
  1. var
  2.    screen1,
  3.    image : array[0..4095] of byte;
  4.    pattern1 : array[0..1407] of byte;
  5.    pattern2 : array[0..1663] of byte;
  6.    old_x, old_y,
  7.    curs_x, curs_y : integer;
  8.    border_attribute : integer;
  9.    mono_video : array[0..3999] of byte absolute $B000:$0000;
  10.    colr_video : array[0..3999] of byte absolute $B800:$0000;
  11.  
  12.    key, qkey  : char;
  13.  
  14.    default_file : string[24];
  15.    DBfilename : string[64];
  16.    oldtime : string;
  17.  
  18.    nbr_calls : integer;
  19.    net_list : net_array;
  20.  
  21.    new_list : new_array;
  22.    new_pntr : integer;
  23.    comparison : integer;
  24.  
  25.    call : array[1..13] of integer;
  26.    multiple, call_count : integer;
  27.    testcall : post_str;
  28.  
  29.    checkins : array[0..200] of check_rec;
  30.    curr_pntr,
  31.    top_pntr,
  32.    mark1,
  33.    mark2       : integer;
  34.  
  35.    size_of_net : integer;
  36.  
  37.    hour,
  38.    min,
  39.    sec,
  40.    sec100,
  41.    this_second,
  42.    year,
  43.    month,
  44.    day,
  45.    dow,
  46.    time_zone : word;
  47.  
  48.    help_attrib: byte;
  49.  
  50.    leaving, update_flag : boolean;
  51.