*20
	PMODE
	*20
	LMODE
NEXSTR,	SET I 3		/PW BUFFER
	2000		/IN LDF 7
	CLR
	STC 2		/COUNTS NO.CHARS
	ESF		/HALF-SIZE   "
NEXCHR,	LDF 7
	LDA
	5		/5 POINTS TO
	AZE		/6-BIT ASCII CHR
	JMP INCHAR	/FROM SOURCE
	APO I		/END TEXT BUFFR?
	JMP INCHAR
	LDA I		/YES:GET NEXT
TBLK,	0		/TBLK OFF UNIT 1
	BSE I		/MBLK=7,LDF=7
	7000
	STC .+2
	RDC U
	0		/FILLED ABOVE
	LDA I
ONE,	1
	ADM
	TBLK		/INCR. TBLK
INCHAR,	LDH I 5		/NEXT 1/2 WORD
	AZE I		/0=FILE END
	JMP ENDFIL
	SHD I
	5700		/57(/)=DIAL LINE
	JMP NEXCHR	/IGNORED
	SHD I
	4300		/43=END DIAL LIN
	JMP ENDSTR
	SHD I		/54=DIAL LINE
	5400		/CONTINUE:SKIP
	JMP NEXCHR
	ROL 1
	ADA I
	PATRN-2		/ADDR PW PAIR
	STC 6		/IN LIF
	LDF 6		/STORE PWS IN
	LDA 6		/14000 ON UP
	STA I 3
	LDA I 6
	STA I 3		/SECOND PW
	XSK I 2		/INCR NO CHARS
	JMP NEXCHR	/GET NEXT CHAR
ENDSTR,	LDA I		/END OF LINE:
	10		/CHAR WIDTH
	ADD DX		/CHAR SPACING
	MUL
	2		/TIMES NO CHARS
	AZE I		/=LINE LENGTH
	JMP NEXSTR	/SKIP EMPTY LINE
	SCR 1		/CENTER LINE
	COM
	ADA I
X0,	374		/CENTER OF LINE
	STC IHORCO	/STARTING H.C.
	ADC