home *** CD-ROM | disk | FTP | other *** search
- .REM ***** TO LIST THIS FILE ENTER THE FOLLOWING ******
- .REM ***** B>runpcd rnf (rnf.doc, lst) ******
- .REM ***** and stand back for a bit ******
- .REM ***** ensure the RNFxx.DIN files are online ******
- .rem Version PP-1.2 take 5.5 minutes to finish chapter 1.
- .rem run by B>runpcd rnf (rnf.doc,con) [on Kaypro 4]
- .rem timing starts with CR in above command
- .rem to change the formatting alter the arguments below to
- .rem $HALFWIDTH (1/2 right margin)
- .rem $HALFPAGE (1/2 pagesize, total lines available)
- .rem which are 33 and 33 respectively as issued.
- .rem For an Epson RX80 at 12 cpi, 8 lpi I use 42, 44
- .rem Another set (for 140 lines, using the Epson Subscript mode)
- .rem is 58, 72. This mode is setup by the following macros
- .rem output some blanks so initial paging/paragraphing works
- ##########
- .rem .macro subscr = .fmt 5 27 .x .fmt 5 83 .x .fmt 5 1
- .rem .macro lines144 = .fmt 5 27 .x .fmt 5 51 .x .fmt 5 16
- .rem .lines144 .subscr .fmt 5 13
- .rem where the above line executes to configure the printer.
- .rem The argument to .RIGHT (5) specifies an indent.
- .rem most of the manual is in old fashioned upper case only format
- .CASEFLAG
- .rem set an offset for printing
- .RIGHT 6
- .rem set up the page header format, left/right different
- .MACRO INPAG = .SAV .RESPAG .S 3
- .MACRO OUTPAG = .S 2 .RES
- .MACRO LPAG = .IF $LP ^Page# .X $$PAGE=$$PAGE+1 .T <RNF .RT .CHTTL
- .MACRO RPAG = .IF #$LP .CHTTL .T <RNF .RT ^Page# .X $$PAGE=$$PAGE+1
- .rem set up the chapter header format
- .MACRO CH * = .PAGE .RESPAG .BR # .BR .S 4 .CHA .B .CHB .S 3 $$HL=0;
- .MACRO CHA = .C <CHAPTER $$CH=$$CH+1 .BR
- .MACRO CHB = .C .CH1 .BR
- .rem utilities for dotting
- .MACRO BDOT = .SAV .P -2 1 5 .LM +5
- .MACRO DOTit = .PP _.# .X
- .MACRO EDOT = .RES .S 1
- .rem keep track of left/right pages for headers
- .VAR $LP
- .rem for header centering
- .var $halfwidth
- .var $halfpage
- .rem 1/2 page width set here. MASTER width control.
- $halfwidth=33;
- .rem 1/2 page height (lines) set here. MASTER height control
- $halfpage=33;
- .rem right margin from halfwidth
- .RM $halfwidth+$halfwidth
- .rem set header line fields
- .TABS $halfwidth-2 $$RM-2 .SP 1 .SAVPAG
- .rem printed lines & total lines/page
- .PAGESIZE $halfpage+$halfpage-8 $$RM .LINES $halfpage+$halfpage
- .rem do not number pages at start
- .NONMP
- .rem automatic paragraphing
- .AP .P +0 1 4
- .rem .PAGE
- .rem make a cover page
- .FIG $halfpage-12;
- .C .U <RNF
- .B
- .C ^TEXT ^PROCESSOR .NOU
- .B .B
- .C ^REFERENCE ^GUIDE
- .b .b
- .c (^Last revised 87/01/24)
- $$PAGE=0;
- .rem redefine paging to use headers above, control left/right pages
- .MACRO FRCPAGE = .TOP .INPAG .LPAG .RPAG .OUTPAG .MID $LP=#$LP;
- .rem now the body of the manual
- .INCLUDE RNFINTRO.DIN
- .INCLUDE RNFCMNDS.DIN
- .INCLUDE RNFMACRO.DIN
- .INCLUDE RNFVARS.DIN
- .INCLUDE RNFEXMPL.DIN
- .INCLUDE RNFRUN.DIN
- .INCLUDE RNFINDEX.DIN
- .REM THE END OF THE MANUAL
- '╧