10 ! DO ALL RUNOFF DOCUMENTATION
15 DIM A$[1]
25 ! EXTRACT TABLE OF CONTENTS
30 B=0 : CALL "SPAWNB"("BA3 RNOTOC/RN",B)
32 PRINT "TABLE OF CONTENTS EXTRACTED"
35 ! GET RID OF FIRST OUTPUT
40 B=0 : CALL "SPAWNB"("PIP RUNOFF.TMP;*/DE",B)
45 ! USE RNP TO INSERT TOC
50 B=0 : CALL "SPAWNB"("RNP RUNOFF.2ND=RUNOFF.RNO",B)
51 PRINT "TABLE OF CONTENTS INSERTED"
55 ! MAKE DOCUMENT FILE
57 INPUT "DIABLO OUTPUT ? ";A$
58 B=0
60 IF A$="Y" THEN CALL "SPAWNB"("RNO RUNOFF.DIA/SC=RUNOFF.2ND",B)
62 IF A$="N" THEN CALL "SPAWNB"("RNO RUNOFF=RUNOFF.2ND",B)
63 PRINT "DOCUMENT FILE READY"
65 B=0 : CALL "SPAWNB"("PIP RUNOFF.*/PU",B)
70 EXIT