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