home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
extra
/
ndkhde.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
2020-01-01
|
993b
|
34 lines
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;