	include	entries.i

	con(5)	$02d9d
	con(5)	$1884d
	con(5)	$18ab2
	con(5)	$18fb2
	con(5)	$02911
	con(5)	$00003
	con(5)	$02d9d
	con(5)	$06657	

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode
	gosbvl	SAVPTR
	a=dat1	a	
	d1=a
	d1=d1+	5
	cd1ex
	d1=c	
	a=dat1	a
	c=c+a	a
	d0=c
	d1=d1+	5
	d0=d0-	2
	a=a-5	a
	?a=0	a
	goyes	FIN

BOUCLE	a=dat1	b
	c=dat0	b
	dat1=c	b
	dat0=a	b
	d1=d1+	2
	d0=d0-	2
	ad1ex
	d1=a
	cd0ex
	d0=c

	?c>=a	a
	goyes	BOUCLE

FIN	gosbvl	GETPTR
	a=dat0	a	
	d0=d0+	5
	pc=(a)
FinCode

	con(5)	$0312b
	con(5)	$0312b