COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.PORTION !NONAME 
C00005 ENDMK
C⊗;
.PORTION !NONAME ;
.FILL; ADJUST; RETAIN; APART;
.!XGPLFTMAR←200; !XGPCOMMANDS←NULL;
.PAGE FRAME 53 HIGH 69 WIDE;
.AREA TEXT LINE 4 TO 51;
.PLACE TEXT;
.AT NULL ⊂ IF FILLING THEN BREAK ELSE SKIP 1 ;; ⊃
.MACRO SINGLE SPACE ⊂ BREAK ; SPREAD ← 1 ; ⊃
.MACRO DOUBLE SPACE ⊂ BREAK ; SPREAD ← 2 ; ⊃
.MACRO TRIPLE SPACE ⊂ BREAK ; SPREAD ← 3 ; ⊃
.TITLE AREA HEADING LINES 1 TO 3
.TITLE AREA FOOTING LINE 53
.!EH ← !OH ← !EF ← !OF ← NULL ; !HF ← FALSE ;
.MACRO EVERY HEADING(L,C,R) ⊂ !EH ← !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO EVERY FOOTING(L,C,R) ⊂ !EF ← !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO EVEN HEADING(L,C,R) ⊂ !EH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO ODD  HEADING(L,C,R) ⊂ !OH ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO EVEN FOOTING(L,C,R) ⊂ !EF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO ODD  FOOTING(L,C,R) ⊂ !OF ← !HF ← IF "C"=NULL THEN "L→R" ELSE "L←C→R" ; ⊃
.MACRO STANDARD TITLES ⊂ IF !HF THEN BEGIN NOFILL TURN ON "←", "→", "{" INDENT 0,0
.	PLACE HEADING IF EVEN PAGE THEN !EH ELSE !OH
.	PLACE FOOTING IF EVEN PAGE THEN !EF ELSE !OF	END ⊃
.BEFORE PAGE ⊂ IF !HF THEN STANDARD TITLES ;; ⊃
.MACRO TABBREAK ⊂ AT 8 ⊂ IF FILLING THEN BREAK ELSE "        " ⊃ ⊃
.MACRO TABSPACE ⊂ AT 8 ⊂⊃ ⊃
.NOFILL PREFACE 0
.FILL PREFACE 1