*20
START,	CLR
	SNS 0
	JMP EX
	SET I 17
	777
	SAM 4
	SCR 1
	DIS I 17
	XSK 17
	JMP .-2
	SAM 0
	SCR 1
	ADA I
	400
	STC 17
	SET I 16
	-1000
	CLR
	DIS 17
	ADA I
	1
	XSK I 16
	JMP .-4
	JMP START
EX,	SAM 0
	SCR 1
	STC 17
	SET I 16
	-1000
	SAM 4
	SCR 1
	STA
	VERT1
	STC VERT2
DS,	LDA I
	1
	ADM I
VERT1,	0
	DIS I 17
	LDA I
	-1
	ADM I
VERT2,	0
	DIS 17
	XSK I 16
	JMP DS
	JMP START