10 ! DO ALL BASIC DOCUMENTATION
11 DIM A$[1]
15 ! EXTRACT DOCUMENTATION FROM SOURCES
20 B=0 : CALL "SPAWNB"("BA3 BASREMOVE/RN",B)
21 B=0 : CALL "SPAWNB"("PIP BASIC0.RNO,BASIC1.RNO,BASIC2.RNO/PU",B)
22 B=0 : CALL "SPAWNB"("PIP BASIC3.RNO,BASIC4.RNO,BASIC5.RNO/PU",B)
23 PRINT "RUNOFF TEXT EXTRACTED"
25 ! EXTRACT TABLE OF CONTENTS
30 B=0 : CALL "SPAWNB"("BA3 BASTOC/RN",B)
32 PRINT "TABLE OF CONTENTS EXTRACTED"
35 ! GET RID OF FIRST OUTPUT
40 B=0 : CALL "SPAWNB"("PIP BASIC.TMP;*/DE",B)
45 ! USE RNP TO INSERT TOC
50 B=0 : CALL "SPAWNB"("RNP BASIC.RNO=BASIC.1ST",B)
51 PRINT "TABLE OF CONTENTS INSERTED"
55 ! MAKE DOCUMENT FILE
56 INPUT "DIABLO OUTPUT (Y/N) ";A$
60 IF A$="N" THEN LET B=0 : CALL "SPAWNB"("RNO BASIC=BASIC",B)
61 IF A$="Y" THEN LET B=0 : CALL "SPAWNB"("RNO BASIC.DIA/SC=BASIC",B)
62 PRINT "DOCUMENT FILE READY"
65 B=0 : CALL "SPAWNB"("PIP BASIC.*/PU",B)
66 B=0 : CALL "SPAWNB"("PIP BASIC.TOC;*,BASIC.1ST;*/DE",B)
70 EXIT
