*20
	PMODE
	*200
	LAS
	RAL
	CMA
	DCA A
	SZL
	TAD P4
	TAD LF
	DCA .+3
	CLL
	TAD BIT
	0
	SNA
	JMP .-2
	ISZ B
	JMP .-1
	ISZ A
	JMP .-3
	DCA BIT
	JMP 200
A,	0
B,	0
BIT,	1
P4,	4
LF,	RAL