*  reltest

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

*  The file is created and then 10 records are written to it
*  as well as one out of range write to test the error message

create (relative, relfile, output)
write (3, ABCD)
write (10, EFGH)
write (26, IJKL)
write (38, MNOP)
write (58, TEST)
write (69, HELP)
write (91, JOBB)
write (78, SLIK)
write (131, WILY)
write (110, ROSS)
write (144, BUSH)

*  Close the file
close (relfile)

*  Open the file and
*  Delete records 58 and 91

open (relfile, I/O)
read (58)
delete ()
read (91)
delete ()

*  Close the file
close (relfile)

* Open file for input and
* Read record 38, then read sequentially to end of file
* A readnext beyond EOF is then done to test the error message

open (relfile, input)
read (38)
readnext ()
readnext ()
readnext ()
readnext ()
readnext ()


* Close the file
close (relfile)