	include	entries.i

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode
	gosbvl	SAVPTR
	a=dat1	a
	d1=a
	d1=d1+	5
	a=dat1	a
	a=a-5	a
	asrb	a
	b=a	a
	gosbvl	FREEMEMQ
	a=b	a
	a=a+10	a
	?a<c	a
	goyes	CONT
	gosbvl	GETPTR
	lahex	$00001
	govlng	ERROR
	
CONT	c=a	a
	gosbvl	RES_STR
	ad0ex
	d0=a
	r1=a
	gosbvl	GETPTR
	sethex
	a=r1	a
	d0=a
	c=dat1	a
	d1=c
	d1=d1+	5
	a=dat1	a
	d1=d1+	5
	c=c+5	a
	c=c+a	a
	b=c	a
BOUCLE	d1=d1+	1
	a=0	a
	a=dat1	1
	a=a-4	a
	?a=0	a
	goyes	LETTRE
	d1=d1-	1
	a=dat1	1
	d1=d1+	2

SUITE	dat0=a	1
	d0=d0+	1
	ad1ex
	d1=a
	?a=b	a
	goyes	FIN
	goto	BOUCLE	

FIN	gosbvl	RERESSTR
	gosbvl	GETPTR
	d1=d1+	5
	d=d+1	a
	a=r0	a
	pc=(a)

LETTRE	d1=d1-	1
	a=dat1	1
	a=a+9	a
	d1=d1+	2
	goto	SUITE

FinCode
