	include	entries.i

****************La combinaison est 15781 off course*******************
************Il faut appuyer la 5 touches d'un seul coup !*************


	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode
	GOSBVL	SAVPTR
	ST=0	15
	INTOFF

BOUCLE	GOSBVL	Flush
	gosbvl	DispOff

	GOSUB	TEMPO

	LCHEX 	$02
	GOSBVL 	COUTIN
	LAHEX 	$08
	GOSUB	TEST

	GOSUB	TEMPO

	LCHEX 	$04
	GOSBVL 	COUTIN
	LAHEX 	$04
	GOSUB	TEST

	GOSUB	TEMPO

	LCHEX 	$08
	GOSBVL 	COUTIN
	LAHEX 	$08
	GOSUB	TEST

	GOSUB	TEMPO

	LCHEX 	$08
	GOSBVL 	COUTIN
	LAHEX 	$04
	GOSUB	TEST

	GOSUB	TEMPO

	LCHEX 	$02
	GOSBVL 	COUTIN
	LAHEX 	$08
	GOSUB	TEST

FIN	INTON
	ST=1	15
	gosbvl	DispOn
	GOSBVL	Flush
	GOSBVL	GETPTR
	GOSBVL	EXIT

TEST	A=A&C	B
	?A#0	B
	RTNYES

NON	gosbvl	Flush
ENCORE	LCHEX 	$001FF
	GOSBVL 	COUTIN
	LAHEX 	$0001F
	A=A&C	A
	?A=0	A	
	goyes	ENCORE
	gosbvl	Flush
	goto	BOUCLE

TEMPO	gosbvl	Flush
	LCHEX 	$001FF
	GOSBVL 	COUTIN
	LAHEX 	$0001F
	A=A&C	A
	?A=0	A	
	goyes	TEMPO
	RTN

FinCode
