	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	FINI
	d1=d1+	5
	a=dat1	a
	a=a-5	a
	asrb	a
	b=a	a
	d1=d1+	5	c'est bon jsqla

BOUCLE	?b=0	a
	goyes	FINI
	a=dat1	b
	lchex	$0a
	?a=c	b
	goyes	CHANGE
CONT	dat1=a	b
	d1=d1+	2
	b=b-1	a
	goto	BOUCLE

CHANGE	lahex	$01
	goto	CONT

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