*  seqtest

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

*  The file is created and then 5 records are written to it

create (sequential, seqfile, output)
write (ABCD)
write (EFGH)
write (IJKL)
write (MNOP)
write (QRST)


*  Close the file
close (seqfile)


*  Open the file for IO and delete the 2nd and 3rd records

open (seqfile, I/O)
readnext ()
readnext ()
delete ()
readnext ()
delete ()

* Close the file
close (seqfile)


* Open the file for input
open (seqfile, input)


* read the remaining records in the file

readnext ()
readnext ()
readnext ()


*  Close the file
close (seqfile)