const   
        item_name_length = 15;
        max_sub_items    = 10; 

        lf               = 10; (* Ascii 10 *)
        cr               = 13; (* Ascii 13 *)
        bs               =  8; (* Ascii 8  *)
        del              = 127;

        bottom_level     = -1;
        last_level       = 9999;

type
        item_ptr = ^item_info;

        name_item = packed array(.1..item_name_length.) of char;

        item_info = record
                        name         : name_item;
                        text_address : longint;
                        level        : integer;
                        prev_item    : item_ptr;
                        adj_item     : item_ptr;
                        sub_items    : item_ptr;
                    end;

        line      = packed array(.1..132.) of char;

        f_string = packed array(.0..15.) of char;
        t_string = packed array(.0..3.) of char;

        itemfile = file of item_info;