| 1,3 → 1,19 |
|---|
| // ============================================================================ |
| // Create |
| // name : Andre Rikkert de Koe date: Mar 2018 |
| // descr : filefind |
| // This is a demo of programming in the Pascal language. |
| // Its part of a project to implement a program to create a directory |
| // tree similar to the output of the Unix find program. |
| // EUID : Any user who has read access to all the files being searched for. |
| // run : interactive |
| // |
| // Changes |
| // name : date: |
| // descr : short description |
| // |
| // ============================================================================ |
| |
| program filefind; |
| Uses sysutils; |
| var directory : string; |