*  dirtest

*  This is a test file used to exercise the
*  Direct file access code.

*  The file is created and then ten records are written to it.
*  The first records are chosen randomly to demonstrate the
*  effectiveness of the hashing function. Then a group of
*  records are chosen intentionally to force the use of an
*  overflow block.

create (direct, test, output)
write (ACDF)
write (GHIJ)
write (BDGH)
write (YAGY)
write (TEST)
write (DONE)
write (ACEN)
write (ACFV)
write (ACHB)
write (ACIJ)

close (test)

* reopen the file, read some records and delete one
open (test, I/O)
read (DONE)
read (ACIJ)
read (YAGY)
read (ACEN)
delete ()
close (test)


* reopen file and attempt to read some records,
* including one which has been deleted
open (test, input)
read (BDGH)
read (ACEN)
read (ACHB)
close (test)