Task

Verify that a file called     input.txt     and   a directory called     docs     exist.



This should be done twice:  

   once for the current working directory,   and
   once for a file and a directory in the filesystem root.


Optional criteria (May 2015):   verify it works with:

   zero-length files
   an unusual filename:     `Abdu'l-Bahá.txt  


$ if f$search( "input.txt" ) .eqs. ""
$ then
$  write sys$output "input.txt not found"
$ else
$  write sys$output "input.txt found"
$ endif
$ if f$search( "docs.dir" ) .eqs. ""
$ then
$  write sys$output "directory docs not found"
$ else
$  write sys$output "directory docs found"
$ endif
$ if f$search( "[000000]input.txt" ) .eqs. ""
$ then
$  write sys$output "[000000]input.txt not found"
$ else
$  write sys$output "[000000]input.txt found"
$ endif
$ if f$search( "[000000]docs.dir" ) .eqs. ""
$ then
$  write sys$output "directory [000000]docs not found"
$ else
$  write sys$output "directory [000000]docs found"
$ endif