	include	entries.i

	Con(5)	DOCODE
	Con(5)	FinCode-DebutCode

DebutCode
	gosbvl	SAVPTR
	gosbvl	Flush
BOUCLE	gosbvl	ONKEYSTB
	gonc	BOUCLE
	gosbvl	Flush
	gosbvl	GETPTR
	a=dat0	a
	d0=d0+	5
	pc=(a)
FinCode