5 IMPORT Kernel
, HostFiles
, Files
, Console
, Strings
;
8 VAR i
, res
: INTEGER; loc
: Files
.Locator
; f
: Files
.FileInfo
; d
: Files
.LocInfo
; s
: ARRAY 20 OF CHAR;
10 IF Kernel
.trapCount
> 0 THEN Kernel
.Quit(1) END;
11 HostFiles
.SetRootDir(".");
13 WHILE i
< Kernel
.argc
DO
14 loc
:= Files
.dir
.This(Kernel
.argv
[i
]$
);
15 d
:= Files
.dir
.LocList(loc
);
18 Console
.WriteStr(d
.name
+ "/");
22 f
:= Files
.dir
.FileList(loc
);
25 Console
.WriteStr(f
.name
);
32 Console
.WriteStr(Kernel
.argv
[i
] + '
: error '
);
33 Strings
.IntToString(loc
.res
, s
);
40 IF res
= 0 THEN Kernel
.Quit(0)
41 ELSIF res
= 1 THEN Kernel
.Quit(1)