Subversion Repositories svn.Prod repos

Rev

Rev 37 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 37 Rev 43
Line -... Line 1...
-
 
1
// ============================================================================
-
 
2
// Create
-
 
3
// name  : Andre Rikkert de Koe          date:   Mar 2018
-
 
4
// descr : filefind
-
 
5
//         This is a demo of programming in the Pascal language.
-
 
6
//         Its part of a project to implement a program to create a directory
-
 
7
//         tree similar to the output of the Unix find program.
-
 
8
// EUID  : Any user who has read access to all the files being searched for.
-
 
9
// run   : interactive
-
 
10
//
-
 
11
// Changes
-
 
12
// name  :                               date:
-
 
13
// descr : short description
-
 
14
//
-
 
15
// ============================================================================
-
 
16
 
1
program filefind;
17
program filefind;
2
Uses    sysutils;
18
Uses    sysutils;
3
var     directory : string;
19
var     directory : string;
4
var     progname : string;
20
var     progname : string;
5
 
21