$ IV=F$VERIFY(0)
$ WRITE SYS$OUTPUT ""
$ INQUIRE TF -
 "This is a 4+ inch high stack of paper-are you sure you want it (T/F) "
$ IF .NOT. TF THEN EXIT
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "     Sorry, Trees     "
$ WRITE SYS$OUTPUT ""
$ SET VERIFY
$ @DOCUMENT
$ PRINT INDEX.DOC
$ PRINT INDEX.RNO
$ PRINT BUILDIDX.COM
$ PRINT DOCUMENT.COM
$ PRINT GENERATE.COM
$ PRINT IDXLST.COM
$ PRINT INDEXCOPY.COM
$ PRINT LINK.COM
$ PRINT INDEX.HLP
$ INDEX SAMPLE
$ PRINT/DELETE SAMPLE.LIS
$ MAC/LIST/NOOBJ ARGUMENT
$ PRINT/DELETE ARGUMENT.LIS
$ MAC/LIST/NOOBJ CHART
$ PRINT/DELETE CHART.LIS
$ MAC/LIST/NOOBJ EVAL
$ PRINT/DELETE EVAL.LIS
$ MAC/LIST/NOOBJ FLOW
$ PRINT/DELETE FLOW.LIS
$ MAC/LIST/NOOBJ HEAP
$ PRINT/DELETE HEAP.LIS
$ MAC/LIST/NOOBJ INDEX
$ PRINT/DELETE INDEX.LIS
$ MAC/LIST/NOOBJ IOLINE
$ PRINT/DELETE IOLINE.LIS
$ MAC/LIST/NOOBJ LINETYPE
$ PRINT/DELETE LINETYPE.LIS
$ MAC/LIST/NOOBJ OPENCLOSE
$ PRINT/DELETE OPENCLOSE.LIS
$ MAC/LIST/NOOBJ OUTPUT
$ PRINT/DELETE OUTPUT.LIS
$ MAC/LIST/NOOBJ STAT
$ PRINT/DELETE STAT.LIS
$ MAC/LIST/NOOBJ STORE
$ PRINT/DELETE STORE.LIS
$ MAC/LIST/NOOBJ SUPER
$ PRINT/DELETE SUPER.LIS
$ MAC/LIST/NOOBJ TABLE
$ PRINT/DELETE TABLE.LIS
$ IVV=F$VERIFY(IV)