	include	entries.i

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode
	gosbvl	SAVPTR
	p=	0
	a=dat1	a	
	d1=a
	a=dat1	a
	lchex	$02a2c
	?a=c	a
	goyes	LAB
	lahex	$00202
	gosbvl	GETPTR
	gosbvl	ERROR

LAB	d1=d1+	5
	a=dat1	a
	lchex	$00005
	?a#c	a
	goyes	SUITE
TERM	gosbvl	GETPTR
	a=dat0	a
	d0=d0+	5
	pc=(a)

SUITE	c=a	a
	csrb	a
	csrb	a
	csrb	a
	c=c+10	a
	a=a+c	a
	b=a	a
	gosbvl	FREEMEMQ
	a=b	a

	?a<c	a
	goyes	CONT
	gosbvl	GETPTR
	lahex	$00001
	govlng	ERROR
	
CONT	c=a	a
	gosbvl	RES_STR	r0 adresse chaine, d0 contenu
	ad0ex
	d0=a
	r1=a
	gosbvl	GETPTR
	a=r1	a
	d0=a
	a=dat1	a
	d1=a
	d1=d1+	5
	c=dat1	a
	a=a+c	a
	a=a+5	a
	b=a	a
	d1=d1+	5

ROOT	lchex	$14
	lahex	$0a
	dat0=a	b
	d0=d0+	2
	lahex	$20
	dat0=a	b
	d0=d0+	2
LECT	a=dat1	b
	d1=d1+	2
	dat0=a	b
	d0=d0+	2
	c=c-1	b
	ad1ex
	d1=a
	?b=a	a
	goyes	FIN
	?c=0	b
	goyes	ROOT
	goto	LECT

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