const	max_line_char=400;

type	line_buffer=packed array[1..max_line_char] of char;

	pib=	record	{ parse input block }
		line:line_buffer;
		old_char:integer;
		csaved:boolean;
		pflag:boolean;
		ok:boolean;
		line_number:integer;
		line_index:0..max_line_char;
		dfile:file of char;
		dfilename:filename
		end;

	string40=packed array[1..40] of char;
	string11=packed array[1..11] of char.