	ORG &3000

	NOLIST


	DI

	LD HL,(&39)

	LD (SAUVINT),HL


	CALL DELOCK

	XOR A

	LD (FINI),A


	DI

	LD HL,OOOPS

	LD (&39),HL

	LD BC,&7FB8

	OUT (C),C

	CALL FINAL

	LD BC,&7FA0

	OUT (C),C

	EI


START	LD B,&F5

SYNCHRO	IN A,(C)

	RRA

	JR NC,SYNCHRO


; FAIRE QUELQUE CHOSE


KEY	LD BC,&F40E

	OUT (C),C

	LD BC,&F6C0

	OUT (C),C

	XOR A

	OUT (C),A

	LD BC,&F792

	OUT (C),C

	LD BC,&F640

	OUT (C),C

	LD B,&F4

	IN A,(C)

	LD BC,&F782

	OUT (C),C

	LD BC,&F600

	OUT (C),C

	RLA

	RLA

	JP C,START

	JP FIN


OOOPS	PUSH AF

	PUSH DE

	PUSH BC

	PUSH HL

	PUSH IX

	PUSH IY

	LD A,(FINI)

	OR A

	JP NZ,AIE

	LD BC,&7FB8

	OUT (C),C

	LD A,(COMPT)

	INC A

	LD (COMPT),A

	LD (&6400),A

	LD A,(LIGNE)

	ADD A,10

	LD (LIGNE),A

	LD (&6800),A

	LD A,(LIGNE)

	CP 155

	CALL Z,FINAL

	LD BC,&7FA0

	OUT (C),C


AIE	POP IY

	POP IX

	POP HL

	POP BC

	POP DE

	POP AF

	EI

	RET


FINAL	XOR A

	LD (&6400),A

	LD A,5

	LD (&6800),A

FINAL2	LD (LIGNE),A

	XOR A
	LD (COMPT),A
	RET


FIN	LD A,1

	LD (FINI),A

	LD BC,&7FB8

	OUT (C),C

	XOR A

	LD (&6800),A

	CALL FINAL2

	LD BC,&7FA0

	OUT (C),C

	DI

	LD HL,(SAUVINT)

	LD (&39),HL

	EI

	LD A,2

	CALL &BC0E

	RET


DELOCK	DI

	LD E,17

	LD HL,TABASIC

	LD BC,&BC00

SASIC	LD A,(HL)

	OUT (C),A

	INC HL

	DEC E

	JR NZ,SASIC

	RET


TABASIC	DB 255,0,255,119,179

	DB 81,168,212,98,57,156

	DB 70,43,21,138,205

	DB 238


SAUVINT	DS 2

COMPT	NOP

LIGNE	NOP

FINI	NOP

                                                                     