*20
	PMODE
	*20
CLOCK,	0
	CLA
	CLLR
	TAD C2100
	CLLR
	CLA
	JMP I CLOCK
C2100,	2100
WAIT,	0
	LINC
	LMODE
	SAM 4
	BCL I
	6000
	PDP
	PMODE
	CIA
	DCA 7
	CLCA
	TAD 7
	SPA CLA
	JMP WAIT+1
	JMP I WAIT
START,	JMS CLOCK
	LINC
	LMODE
	ESF
	SET 1
	CENTER
	LDA I
	340
	DSC I
	7777
	DSC I 
	7777
	PDP 
	PMODE
	JMS WAIT
	JMS CLOCK
	LINC
	LMODE
	SET I 1
LEFT,	0
	LDA I
	340
	DSC I
	7777
	DSC I
	7777
	SET I 1
CENTER,	374
	DSC I
	7777
	DSC I
	7777
	SET I 1
	770
	DSC I
	7777
	DSC I
	7777
	PDP
	PMODE
	JMS WAIT
	JMP START