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);
	IF size # MIN(LONGINT) THEN
		Texts.WriteDate(W, time, date);Texts.WriteString(W, 9X);
        END;
	Texts.WriteString(W, name);
	IF size # MIN(LONGINT) THEN
		Texts.WriteString(W, 9X); Texts.WriteInt(W, size, 5); INC(total, size)
	END;
	Texts.WriteLn(W)
END List;

Compiler.Compile System.Mod \s~

(reboot)

System.Directory *.Tool\d~

Star mark the frame and do:

Sort.Sort *\r

Which gives you something like this. :-)

71 files use 179KB
 16.08.2002 03:46:26	System.Tool	 4270
 13.08.2002 08:14:17	NetSystem.Tool	 2279
 13.08.2002 06:09:04	ZipCompile.Tool	  558
 13.08.2002 06:09:04	Zip.Tool	 1896
 10.08.2002 06:33:37	Calc.Tool	  943
 10.08.2002 06:33:35	PictConverters.Tool	  584
 10.08.2002 06:33:34	Sort.Tool	  727
 10.08.2002 06:33:34	RX.Tool	 2846


>-- Chris Glur.
>
>PS. Charles, your desire to have 'all instruments always visible' like a 
>sports aircraft is inappropriate for computing.  A 500 page book has 
>one pair of opposing pages visible at one time.  If your desk project 
>has 3 envelopes, 2 books, 5 documents and a map, then you need to
>move them around, from partly coverd to 'focused' as you work. 
>That's life.    A work in progress is a dynamic entity -- until it hopefully
>disapears on completion.
>
>This ability to rapidly shuffle the documents around is intimately
>related to the n-o interface.  You can't do it wearing boxing-gloves.

Code more, philosophize less.



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