	include	entries.i

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode
	gosbvl	SAVPTR
	a=dat1	a
	d1=a
	d1=d1+	5
	a=dat1	a
	r1=a	a
	gosbvl	GETPTR
	d1=d1+	5
	d=d+1	a
	gosbvl	SAVPTR
	c=r1	a
	c=c+10	a
	gosbvl	RES_STR
	gosbvl	GETPTR
	a=dat1	a
	d1=a
	c=r0	a
	c=c+10	a
	d0=c

	a=r1	a
BOUCLE	a=a-1	a
	c=dat1	1
	d1=d1+	1
	dat0=c	1
	d0=d0+	1
	?a#0	a
	goyes	BOUCLE
	ad0ex
	r2=a	a
FIN	gosbvl	GETPTR
	a=r2	a
	d0=a
	gosbvl	RESSTR
	gosbvl	GETPTR
	d1=d1+	5
	d=d+1	a
	a=r0	a
	pc=(a)
FinCode