home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / norskdata / ndkhde.pas < prev    next >
Pascal/Delphi Source File  |  2020-01-01  |  993b  |  34 lines
  1. const   
  2.         item_name_length = 15;
  3.         max_sub_items    = 10; 
  4.  
  5.         lf               = 10; (* Ascii 10 *)
  6.         cr               = 13; (* Ascii 13 *)
  7.         bs               =  8; (* Ascii 8  *)
  8.         del              = 127;
  9.  
  10.         bottom_level     = -1;
  11.         last_level       = 9999;
  12.  
  13. type
  14.         item_ptr = ^item_info;
  15.  
  16.         name_item = packed array(.1..item_name_length.) of char;
  17.  
  18.         item_info = record
  19.                         name         : name_item;
  20.                         text_address : longint;
  21.                         level        : integer;
  22.                         prev_item    : item_ptr;
  23.                         adj_item     : item_ptr;
  24.                         sub_items    : item_ptr;
  25.                     end;
  26.  
  27.         line      = packed array(.1..132.) of char;
  28.  
  29.         f_string = packed array(.0..15.) of char;
  30.         t_string = packed array(.0..3.) of char;
  31.  
  32.         itemfile = file of item_info;
  33. 
  34.