*20
	LMODE
	SEGMNT 2
	*20
	PDP
	PMODE
	TLS
START,	CLA CLL
	KSF
	JMP .-1
	CRLF
	CRLF
	OSR
	SPA
	JMP TWO+1
	TAD M777
	SMA
	JMP TWO
	TAD P777
	DCA FUN
	JMP ONE
TWO,	TAD P777
	TAD ADD
	DCA FUN
	INPF
	FENT
	FPUT A
	FEXT
ONE,	INPF
	FENT
FUN,	0
	FEXT
	TAD P5
	OUTF
	JMP START
ADD,	A&177!200
A,	0
	0
	0
P777,	777
M777,	-777
P5,	5
	FENT=JMS I 7
	FEXT=0
	OUTF=JMS I 6
	INPF=JMS I 5
	FPUT=6000
	FGET=5000
	FNOR=7000
	CRLF=JMS .
	0
	CLA CLL
	TAD CR
	TYPE
	CLA CLL
	TAD LF
	TYPE
	JMP I .-7
	TYPE=JMS .
	0
	TSF
	JMP .-1
	TLS
	JMP I .-4