(* --- Toolbox of file system *) PROCEDURE *List(name: ARRAY OF CHAR; time, date, size: LONGINT; VAR cont: BOOLEAN); BEGIN INC(count); Texts.WriteString(W, name); IF size # MIN(LONGINT) THEN NL-> Texts.WriteString(W, 0DX); NL-> Texts.WriteString(W, 9X); Texts.WriteDate(W, time, date); NL-> Texts.WriteString(W, 9X); Texts.WriteInt(W, size, 5); INC(total, size) END; Texts.WriteLn(W) END List; Charles Angelich The Ghost in the Machine! DOS and W31 Tech website: http://www.undercoverdesign.com/dosghost Stories, poems, music, and photos website: http://www.undercoverdesign.com/dosghost/faf