No subject


Mon Sep 26 12:33:25 CEST 2005


(* --- 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





More information about the Oberon mailing list