$ SET VERIFY
$ OPEN/WRITE TOCFILE INDEX.RNT
$ WRITE TOCFILE "    "
$ CLOSE TOCFILE
$ RUNOFF/INTERMEDIATE INDEX.RNO
$ RUNOFF/CONTENTS INDEX.BRN
$ RUNOFF/OUTPUT=INDEX.DOC/LOG INDEX.RNO
$ DELETE/NOCONFIRM INDEX.BTC;*,INDEX.RNT;*
$ ! RUNOFF/LOG/NOOUTPUT/CONTENTS INDEX.RNO !commented out for v4.0
$ !TOC := $TOC
$ !TOC
!INDEX
!Y