No subject

 (* --- Toolbox of file system *)
 
PROCEDURE *List(name: ARRAY OF CHAR;  time, date, size: LONGINT; VAR cont:
BOOLEAN);
BEGIN
    INC(count);
	IF size # MIN(LONGINT) THEN
(* changed lines start *)
	    Texts.WriteDate(W, time, date);Texts.WriteString(W, 9X);	
	    Texts.WriteInt(W, size, 6); Texts.WriteString(W, 9X);
	    INC(total, size)
	END;
    Texts.WriteString(W, name);
(* changed lines end *)
    Texts.WriteLn(W)
END List;

re: Texts.WriteInt(W, size, 6)
The integer value used has been "5" but with Kernel.Mod being
over 100K this value must be increased to "6" decimal places to
accomodate the larger kernel source code file size integer.