EBACPMAN.DOC/CR EC !---------------------------------------------------------------! ! Open file for processing. ! !---------------------------------------------------------------! HK 2ED 6EH ERACPMAN.DOCEWACPMAN.TMP !---------------------------------------------------------------! ! Search for start of real text. ! !---------------------------------------------------------------! _CHAPTER 1  J !---------------------------------------------------------------! ! Enter page processing loop. ! !---------------------------------------------------------------! < !---------------------------------------------------------------! ! Scan for page number or new chapter. Set page number. ! !---------------------------------------------------------------! :S Page "N X2 L OSCAN ' :S CHAPTER "N X2 L SA R 0K ICHAPTER  G2 -2D I -  0TT 0L .U3 L G2 2R I-1 0L 1X2 L Q3,.P -2K OSCAN ' :S APPENDIX "N X2 L SA R 0K IAPPENDIX  G2 -2D I -  0TT 0L .U3 L G2 2R I-1 0L 1X2 L Q3,.P -2K OSCAN ' !---------------------------------------------------------------! ! Scan page for headers. Output hits to temp file. ! !---------------------------------------------------------------! !SCAN! J < :S "E 1; ' !CONT! 0A"C C ' 0A-46"N ONEXT' C 0A"D C 0A"D C ' OCHKL ' ONEXT!CHKL! 0A-32"E OSPAC' 0A-46"N ONEXT' C 0A"D C 0A"D C ' OCHKL ' ONEXT!SPAC! C 0A-32"N ONEXT' 0L 8D I  0L T .U3 L G2 Q3,.P -K -L !NEXT! L > !---------------------------------------------------------------! ! Advance to next page, check for EOF ! !---------------------------------------------------------------! !BLNK! "N 1; ' Y > !---------------------------------------------------------------! ! Close and reopen temp file and setup for processing. ! !---------------------------------------------------------------! EFI. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  -1XB HK ERACPMAN.TMP !---------------------------------------------------------------! ! Read all of temp file into core. ! !---------------------------------------------------------------! < A "N 1; ' > !---------------------------------------------------------------! ! Add page numbers to headings. ! !---------------------------------------------------------------! < .U1 SL; .-Q1-2U2 GB -L Q2D -2D L .U1 L .-Q1U2 -L -Q2D L -T > !---------------------------------------------------------------! ! Scan for chapters and add blank lines. ! !---------------------------------------------------------------! J L I.SKIP 1 < SLCHAPTER; 0L I.SKIP 1  1L I.SKIP 1  -L > < SLAPPENDIX; 0L I.SKIP 1  1L I.SKIP 1  -L > < S.SKIP 1 .SKIP 1 ; -K -L > !---------------------------------------------------------------! ! Add table of contents to runoff file. ! !---------------------------------------------------------------! HXB HK EBACPMAN.RNO N.COMMENT XXXXXXXX L .U1 !SRCH! :S.COMMENT YYYYYYYY"E A OSRCH' 0L Q1,.K GB EX