*20
	CLR
	SET I 15
	-100
	SET I 14
	TAB1-4001
	LDA I
	240
	STA I 14
	XSK I 15
	JMP .-3
BEGIN,	LDA I
	TAB1-1
	STC TBEND-4000
	PDP
	PMODE
	KCC
	TLS
IN,	KSF
	JMP RFSH
	KRB
	TAD NCR
	CML
	SNA
	JMP OUT
	TAD CR
	ISZ TBEND
	SNL
	DCA I TBEND
	CLA
	TAD I TBEND
	JMS TYPE
	CLA
	JMP IN
RFSH,	LINC
	LMODE
	SNS 0
	JMP .+5
	SFA
	BCL I
	200
	ESF
	SET I 1
	40
	SET I 16
	TAB1-4001
MORE,	LDA
	TBEND-4000
	ADA I
	-4000
	SAE
	16
	JMP .+3
	PDP
	PMODE
	JMP IN
	LMODE
	LDA I 16
	BCL I
	7700
	ROL 1
	ADA I
	ZSTART-4001
	STC 17
	LDA I
	0000
	DSC I 17
	DSC I 17
	LDA I
	4
	ADM
	1
	JMP MORE
	PMODE
OUT,	TAD CR
	JMS TYPE
	CLA
	TAD LF
	JMS TYPE
	CLA CLL
	CML
	KCC
	LINC
	LMODE
	JMP BEGIN
	PMODE
TYPE,	0000
	TSF
	JMP .-1
	TLS
	JMP I TYPE
CR,	215
NCR,	-215
LF,	212
TBEND,	0000
/BEGIN TAB1
	PMODE
	*4500
TAB1,	0000
	PMODE
	*5002
/ADD PATRNS HERE