ORGANIZATION_BLOCK OB 1
BEGIN
	CALL		FC 1
	CALL		FC 2
END_ORGANIZATION_BLOCK



FUNCTION FC 1: VOID
BEGIN
	U		E 0.0
	=		A 0.0
END_FUNCTION



FUNCTION FC 2: VOID
TITLE = Shift register
BEGIN
	UN		T 10
	=		M 0.0
	L		S5T#200MS
	SV		T 10

	L		MD 4
	L		1
	==D
	S		M 0.1
	RRD		1
	==D
	R		M 0.1

	L		MD 4
	UD		L#-1
	L		1
	SPZ		_001
	TAK
	U		M 0.0
	SPBN		_001
	U		M 0.1
	SPBN		_000
	RLD		2
_000:	RRD		1
_001:	T		MD 4

	L		MD 4
	T		AD 4
	TAD
	T		AD 8
END_FUNCTION