14 	START	;MAIN LOOP FOR PASS 2
24 ;...		SBTTL	;MAIN LOOP FOR PASS 2 
34   
44 ;...	PASS2,	I/O		;OPEN FILES
54 ;...		IF NO:END2	;L OPTION? 
64 ;...	LOOP2,	DISK		;READ A PASS 1 RECORD 
74 ;...		IF YES:DOHOF	;HOF RECORD? 
84 ;...		I/O		;PRINT THE RECORD
94 ;...		GOTO LOOP2
104 ;...	DOHOF,	I/O		;OUTPUT A FORM FEED
114 ;...		GOTO LOOP2
124 ;...	END2,	I/O		;CLOSE FILES
134 ;...		STOP		;END OF PGM 
144 PASS2, INIT(1,I,'$PASS1',1) 
154 	INIT(2,LPT)
164 	IF(OPTL.NE.'L')GO TO END2	;SKIP PASS 2 IF LISTING NOT SELECTED 
174 LOOP2, XMIT(1,OUTREC,END2)	;READ A PASS 1 RECORD
184 	IF(OUTDTA.EQ.'$HOF')GO TO DOHOF ;IS THIS A NEW PAGE? 
194 	RSIZE=(4096-64*#TRICK2(3)-#TRICK2(4))*2+2
204 	XMIT(2,OUTREC(1,RSIZE)) ;PRINT THE LINE
214 	GO TO LOOP2
224 DOHOF,	FORMS(2,0)		;GO TO A NEW PAGE
234 	GO TO LOOP2
244 END2,	FINI(1) 
254 	FINI(2)
264 	STOP 
274 	START	;SUBROUTINES 
284 ;...		SBTTL	;SUBROUTINES
294   
304 ;...		START		;HOF ROUTINE 
314 ;...	HOF,	IF YES:HOFEXT	;SBTTL COMMAND? 
324 ;...		IF YES:HOFEXT	;TITLE COMMAND? 
334 ;...		IF YES:HOFEXT	;GOTO COMMAND?
344 ;...		IF YES:HOFEXT	;STOP COMMAND?
354 ;...		IF YES:HOFYES	;NEED OFF PAGE POINTER? 
364 ;...		CALL HOF1	;START A NEW PAGE 
374 ;...		GOTO HOFEXT 
384 ;...	HOFYES, DISK		;OUTPUT OFF PAGE POINTER 
394 ;...		CALL HOF1	;START A NEW PAGE 
404 ;...		DISK		;OUTPUT POINTER TO FIRST BLOCK
414 ;...		PROC		;FIX LINE COUNT & LBLFIX
424 ;...	HOFEXT, STOP		;RETURN
434 HOF,	IF(COMAND.EQ.'SBTTL')GO TO HOFEXT
444 	IF(COMAND.EQ.'TITLE')GO TO HOFEXT
454 	IF(COMAND.EQ.'GOTO')GO TO HOFEXT 
464 	IF(COMAND.EQ.'STOP')GO TO HOFEXT 
474 	IF(LBLFIX.NE.SPACES)GO TO HOFYES 
484 	CALL HOF1
494 	GO TO HOFEXT 
504 HOFYES, DATA=LINE 
514 	CALL PUT 
524 	DATA=START1
534 	CALL PUT 
544 	PGE=PGECTR+1 
554 	DATA=PAGE1 
564 	CALL PUT 
574 	DATA=START1
584 	CALL PUT 
594 	CALL HOF1
604 	DATA=START1
614 	CALL PUT 
624 	DATA=PAGE1 
634 	CALL PUT 
644 	DATA=START1
654 	CALL PUT 
664 	LNECTR=LNECTR+3
674 	LBLFIX='!' 
684 HOFEXT,	RETURN
694   
704 ;...		START		;HOF1 ROUTINE
714 ;...	HOF1,	DISK		;OUTPUT NEW PAGE INDICATOR 
724 ;...		PROC		;INCREMENT PAGE NUMBER
734 ;...		DISK		;OUTPUT TITLE 
744 ;...		DISK		;OUTPUT SUBTITLE
754 ;...		DISK		;OUTPUT A BLANK RECORD
764 ;...		PROC		;FIX LINE COUNT & LBLFIX
774 ;...		STOP		;RETURN 
784 HOF1,	XMIT(2,"$HOF')		;OUTPUT PASS 2 HOF COMMAND
794 	INCR PGECTR
804 	PAGENO=PGECTR
814 	XMIT(2,TTLREC) 
824 	XMIT(2,SUBREC) 
834 	XMIT(2," ')
844 	LNECTR=3 
854 	LBLFIX=
864 	RETURN 
874   
884 ;...		START		;PRINT LABEL 
894 ;...	LABCHK, IF NO:NOLAB	;IS THERE A LABEL? 
904 ;...		DISK		;OUTPUT THE LABEL 
914 ;...		PROC		;FIX LINE COUNT 
924 ;...		DISK		;OUTPUT ENTRY TO '$KREF' FILE 
934 ;...		GOTO LABEXT 
944 ;...	NOLAB,	IF YES:NOLINE	;IS THIS A NEW PAGE?
954 ;...		DISK		;OUTPUT A LINE
964 ;...		PROC		;FIX LINE COUNT 
974 ;...	NOLINE, PROC		;FIX LBLFIX
984 ;...	LABEXT, STOP		;RETURN
994 LABCHK, IF(LABEL.EQ.SPACES)GO TO NOLAB
1004 	LBLDTA=LBL1
1014 	CALL PUT 
1024 	LBLDTA=LBL2
1034 	CALL PUT 
1044 	LBLFIX='!' 
1054 	LBLDTA=LBL1
1064 	CALL PUT 
1074 	LNECTR=LNECTR+3
1084 	SRTLBL=LABEL 
1094 	DEFREF='#' 
1104 	XMIT(3,SRTREC) 
1114 	DEFREF=
1124 	GO TO LABEXT 
1134 NOLAB,	IF(LBLFIX.EQ.SPACES)GO TO NOLINE 
1144 	DATA=LINE
1154 	CALL PUT 
1164 	INCR LNECTR
1174 NOLINE,	LBLFIX='!'
1184 LABEXT,	RETURN
1194   
1204 ;...		START		;GET TEXT
1214 ;...	GETTXT, PROC		;GET THE NEXT LINE 
1224 ;...		STOP		;RETURN 
1234 GETTXT,	INCR LNE
1244 	TXT=LN(LNE)
1254 	RETURN 
1264   
1274 ;...		START		;CENTER TEXT 
1284 ;...	CENTER, PROC		;CENTER TEXT IN BUFFER 
1294 ;...		STOP		;RETURN 
1304 CENTER,	TEXT= 
1314 	BGNLN= 
1324 	IF(END.GE.LAST)GO TO LNAGN 
1334 	TEXT=CHR(END+1,LAST) 
1344 LNAGN, LNE= 
1354 	LNMX=
1364 LNLP1, INCR LNE 
1374 	LN(LNE)= 
1384 	IF(XMAX(LNE).EQ.0)GO TO NOLN 
1394 	INCR LNMX
1404 	IF(LNE.LT.5)GO TO LNLP1
1414 NOLN,	LNE=BGNLN 
1424 	K=1
1434 LNLP2,	INCR LNE 
1444 	MAX=XMAX(LNE)
1454 	TXT= 
1464 GETLP, IF(TEXT(K+MAX,K+MAX).EQ.SPACES)GO TO OK
1474 	MAX=MAX-1
1484 	IF(MAX.GT.1)GO TO GETLP
1494 	MAX=XMAX(LNE)
1504 OK,	TXT=TEXT(K,K+MAX-1) 
1514 	K=K+MAX+1
1524 	IF(TXT.EQ.SPACES)GO TO GTTEXT
1534 	MAX=XMAX(LNE)
1544 GETLP2,	IF(TXT(1,1).NE.SPACES)GO TO LEFT
1554 	TXT(1,MAX-1)=TXT(2,MAX)
1564 	TXT(MAX,MAX)=
1574 	GO TO GETLP2 
1584 LEFT,	IF(TXT(MAX-1,MAX).NE.SPACES)GO TO GTTEXT
1594 	LN(LNE)=TXT(1,MAX-2) 
1604 	TXT(1,1)=
1614 	TXT(2,MAX-1)=LN(LNE) 
1624 	MAX=MAX-1
1634 	IF(MAX.GT.0)GO TO LEFT 
1644 GTTEXT,	LN(LNE)=TXT 
1654 	IF(LNE.LT.LNMX)GO TO LNLP2 
1664 	GO TO (CENEXT,CENEXT,LN3,LN4,LN5),LNMX 
1674 	GO TO CENEXT 
1684 LN3,	IF(LN(2).NE.SPACES)GO TO CENEXT
1694 	GO TO AGN
1704 LN4,	IF(LN(3).NE.SPACES)GO TO CENEXT
1714 AGN,	INCR BGNLN 
1724 	IF(BGNLN.GE.LNMX)GO TO CENEXT
1734 	GO TO LNAGN
1744 LN5,	IF(LN(4).NE.SPACES)GO TO CENEXT
1754 	IF(LN(1).NE.SPACES)GO TO AGN 
1764 	IF(LN(2).NE.SPACES)GO TO AGN 
1774 CENEXT,	LNE=
1784 	RETURN 
1794   
1804 ;...		START		;GET FIELD 
1814 ;...	GETFLD, PROC		;GET NEXT FIELD IN INPUT LINE
1824 ;...		STOP		;RETURN 
1834 GETFLD,	TXT=
1844 	END=BGN
1854 GTLP,	INCR END
1864 	IF(CHR(END).EQ.DELIM1)GO TO GETFND 
1874 	IF(CHR(END).EQ.DELIM2)GO TO GETFND 
1884 	IF(CHR(END).EQ.DELIM3)GO TO GETFND 
1894 	IF(END.LT.LAST)GO TO GTLP
1904 	END=BGN
1914 GETFND,	IF(END-1.LE.BGN)GO TO GTLP2 
1924 	TXT=CHR(BGN+1,END-1) 
1934 GTLP2, IF(END.GE.LAST)GO TO GTEXT 
1944 	INCR END 
1954 	IF(CHR(END).EQ.SPACES)GO TO GTLP2
1964 	IF(CHR(END).EQ.TAB)GO TO GTLP2 
1974 	IF(CHR(END).EQ.COMDLM)GO TO GTLP2
1984 GTEXT, END=END-1
1994 	BGN=END
2004 	RETURN 
2014   
2024 ;...		START		;OUTPUT LINE 
2034 ;...	PUT,	PROC		;GET THE RECORD SIZE
2044 ;...		DISK		;OUTPUT THE RECORD
2054 ;...		PROC		;CLEAR THE RECORD 
2064 ;...		STOP		;RETURN 
2074 PUT,	RSIZE=62 
2084 	IF(AREA3.NE.SPACES)GO TO SIZEXT
2094 	RSIZE=47 
2104 	IF(AREA2.NE.SPACES)GO TO SIZEXT
2114 	RSIZE=40 
2124 	IF(AREA1.NE.SPACES)GO TO SIZEXT
2134 	RSIZE=1
2144 SIZEXT,	RSIZE=RSIZE+2 
2154 	XMIT(2,OUTREC(1,RSIZE)) ;OUTPUT THE RECORD 
2164 	OUTDTA=
2174 	RETURN