done again!

leretour/apple2/fr/engine.s

@@ -28,7 +28,7 @@ intTIME	ds	4
 	ldal	fgTIME
 	beq	intTIME1
 
-	lda	switchENERGIE+1	; switch is off
+	lda	switchTEMPS+1	; switch is off
 	bne	intTIME1
 	
 	sed
@@ -78,11 +78,14 @@ printNIVEAU	ora	#'0'
 
 	mx	%00
 	
-printTEMPS	lda	fgTIME
+printTEMPS	lda	fgTEXT
-	bne	pt1
+	beq	pt1
+	rts
+pt1	lda	fgTIME
+	bne	pt2
 	rts
 
-pt1	sep	#$30
+pt2	sep	#$30
 	lda	MINUTES
 	and	#%1111_0000
 	lsr
@@ -160,7 +163,7 @@ RDKEY	jsr	CURSOR	; shows the cursor
 
 	jsr	checkREPLAY
 	jsr	printTEMPS
-	jsr	testENERGIE
+	jsr	testTEMPS
 	bcs	RDKEY99
 
 	pha
@@ -307,8 +310,7 @@ GOTOXY	stx	textX
 
 	mx	%11
 	
-COUT
+COUT	rep	#$30
-	rep	#$30
 	and	#$ff
 	cmp	#chrRET	; next line, please
 	beq	COUT1

leretour/apple2/fr/fr.s

@@ -657,35 +657,35 @@ str4530	asc	'Vous respirez un grand coup.'00
 str4540	asc	'Que voulez-vous respirer ? Il n'27'y a plus'
 	asc	'd'27'oxyg'8f'ne.'00
 
-str4550	asc	'Vous avez deux essais pour'00
+str4550	asc	'Vous avez 2 essais'00
-str4552	asc	'entrer le mot de passe.'00
+str4552	asc	'pour entrer le mot'00
 str4553	asc	'FAUX!'00
-str4554	asc	'Encore rat'8e'. L'27'ordinateur vous explose '88
+str4554	asc	'Encore rat'8e'.'0d
-	asc	'la figure.'00
+	asc	'L'27'ordinateur vous explose '88' la figure.'00
-str4556	asc	'Mot de passe '00
+str4556	asc	'de passe '00
 str4558	asc	'Exact, vous '90'tes perspicace !'00
+str4559	asc	0d'Le mot de passe du retour est '00
 str4559_1	asc	'UIN LOI QRU ILD ESP ECU TAS'00
 str4559_2	asc	'ASU VIE RAL HOU MEA NOI THE'00
-str4559_3	asc	'Le mot de passe pour le'00
-str4559_4	asc	'retour est : '00
 
 str4560	asc	'C'27'est d'27'accord.'00
 str4570	asc	'Il '8e'tait temps, vous alliez mourir.'00
 str4580	asc	'Vous mourrez d'8e'shydrat'8e'.'00
 str4590	asc	''00
+str4595	asc	'Slot 1-9 (0=sortir) ? '00
 str4600	asc	''00
-str4610	asc	'Le sas se referme d'8f'rriere vous,'0d
+str4610	asc	'Le sas se referme derri'8f're vous,'0d
 	asc	'le tableau de contr'99'le s'27'allume et'0d
 	asc	'l'27'ordinateur de bord vous demande le'0d
-	asc	'mot de passe pour le retour'00
+	asc	'mot de passe pour le retour '00
-str4615	asc	'Le vaisseau de secours s'278e'loigne,'0d
+str4615	asc	0d'Le vaisseau de secours s'278e'loigne,'0d
 	asc	'au loin vous voyez Genius qui pleure'0d
 	asc	'derri'8f're un hublot'00
-str4616	asc	'          VOUS AVEZ GAGNE'00
+str4616	asc	0d'          VOUS AVEZ GAGNE'00
-str4618_1	asc	'Mais, que se passe-t-il, vous avez d'9e0d
+str4618_1	asc	0d'Mais, que se passe-t-il, vous avez d'9e0d
 	asc	'vous tromper de mot de passe, votre'0d
 	asc	'vaisseau de poche fonce sur le soleil.'00
-str4618_2	asc	'Vous venez de r'8e'aliser que Genius'0d
+str4618_2	asc	0d'Vous venez de r'8e'aliser que Genius'0d
 	asc	'pleurait de JOIE...!'00
 
 str4620	asc	'La soucoupe a explos'8e' au d'8e'collage.'00

leretour/apple2/fr/iigs.s

@@ -135,11 +135,6 @@ ICI	phk
 	tdc
 	sta	myDP
 
-	lda	#screenRECT
-	stal	$300
-	lda	#^screenRECT
-	stal	$302
-
 	_TLStartUp
 	pha
 	_MMStartUp

leretour/apple2/fr/introcode.s

@@ -91,18 +91,22 @@ intro_intro
 	ldy	#198
 	lda	#txtINTRO4
 	jsr	centerME
+	bcs	ii_end
 
 	ldy	#iiY
 	lda	#txtINTRO1
 	jsr	centerME
+	bcs	ii_end
 
 	ldy	#iiY+20
 	lda	#txtINTRO2
 	jsr	centerME
+	bcs	ii_end
 
 	ldy	#iiY+40
 	lda	#txtINTRO3
 	jsr	centerME
+	bcs	ii_end
 
 	ldy	#60*1
 	jsr	waitMS16
@@ -115,17 +119,20 @@ intro_intro
 	ldy	#iiY
 	lda	#txtINTRO5
 	jsr	centerME
+	bcs	ii_end
 
 	ldy	#iiY+20
 	lda	#txtINTRO6
 	jsr	centerME
+	bcs	ii_end
 
 	ldy	#iiY+40
 	lda	#txtINTRO7
 	jsr	centerME
 
 	ldy	#60*1
-	jmp	waitMS16
+	jsr	waitMS16
+ii_end	rts
 
 *----------- Merci La Belle Zohra
 
@@ -311,7 +318,8 @@ igt_ret	stz	textX	; next line
 	
 igt_next	ldy	#4	; wait 4/60eme
 	jsr	waitMS16
-
+	bcs	igt_end
+	
 	inc	dpFROM
 	bra	]lp
 	
@@ -329,9 +337,10 @@ intro_serpent
 	_GetPenPat
 	
 	jsr	snake_1
+	bcs	is_end
 	jsr	snake_2
 
-	PushLong	#curPATTERN
+is_end	PushLong	#curPATTERN
 	_SetPenPat
 	rts
 
@@ -348,10 +357,13 @@ snake_1	PushLong	#curPENSIZE
 	_SetPenSize
 	
 	jsr	snake_draw
-
+	php
+	
 	PushWord	curPENSIZE
 	PushWord	curPENSIZE+2
 	_SetPenSize
+	
+	plp
 	rts
 
 *-----------
@@ -392,7 +404,9 @@ sd_k	lda	theK
 
 	ldy	#1	; wait 4/60eme
 	jsr	waitMS16
-
+	bcc	sd_1
+	rts
+sd_1
 	inc	theN
 	lda	maxN
 	cmp	theN
@@ -431,6 +445,9 @@ sd_k	lda	theK
 
 	ldy	#1	; wait 4/60eme
 	jsr	waitMS16
+	bcc	sd_2
+	rts
+sd_2
 
 	inc	theN
 	lda	theN
@@ -471,7 +488,9 @@ sd_k	lda	theK
 
 	ldy	#1	; wait 4/60eme
 	jsr	waitMS16
-
+	bcc	sd_3
+	rts
+sd_3
 	dec	theN
 	lda	maxN
 	cmp	theN
@@ -510,7 +529,9 @@ sd_k	lda	theK
 
 	ldy	#1	; wait 4/60eme
 	jsr	waitMS16
-
+	bcc	sd_4
+	rts
+sd_4
 	dec	theN
 	lda	maxN
 	cmp	theN
@@ -552,7 +573,9 @@ sd_nextk	lda	theK
 	bcs	sd_end
 	jmp	sd_k
 
-sd_end	rts
+sd_end	PushWord #%1111_1111_1111_1111	; on arr<72>te tout pour MIDI Synth
+	_FFStopSound
+	rts
 
 *-----------
 
@@ -573,18 +596,22 @@ snake_2	PushWord	#0
 	ldy	#80
 	lda	#txtSERPENT1
 	jsr	centerME
-	
+
+	php
 	_SetForeColor
-	
 	jsr	fontSHASTON8
+	plp
+	bcs	s2_end
 
 	ldy	#105
 	lda	#txtSERPENT2
 	jsr	centerME
+	bcs	s2_end
 	
 	ldy	#118
 	lda	#txtSERPENT3
 	jsr	centerME
+	bcs	s2_end
 	
 	ldy	#131
 	lda	#txtSERPENT4
@@ -593,7 +620,8 @@ snake_2	PushWord	#0
 *-----------
 
 	ldy	#60*2
-	jmp	waitMS16
+	jsr	waitMS16
+s2_end	rts
 
 *-----------------------------------
 * DE QUI EST CE LOGICIEL ?
@@ -993,6 +1021,7 @@ imLOOP	lda	#0
 
 	ldy	#60*10
 	jsr	waitMS16
+	bcs	im_end
 
 *----------- 2<EFBFBD>me partie : le texte
 
@@ -1004,7 +1033,7 @@ imLOOP	lda	#0
 	jsr	showTEXTE
 
 	_SetForeColor
-	rts
+im_end	rts
 
 *--- Attribut d'un pixel
 *
@@ -1170,6 +1199,7 @@ showTEXTE	sta	dpFROM
 
 	jsr	waitMSBIS	; keypress?
 	bcc	st_ok
+	rts
 
 st_end	ldy	#60*10	; wait before exiting
 	jmp	waitMS16
@@ -1212,16 +1242,20 @@ intro_explications
 	lda	#txtEXPLICATIONS1	; Texte 1
 	ldx	#9
 	jsr	showTEXTE
+	bcs	ie_end
 
 *	lda	#txtEXPLICATIONS2	; Texte 2 non affichŽ
 *	ldx	#11
 *	jsr	showTEXTE
+*	bcs	ie_end
 
 	lda	#txtEXPLICATIONS3	; Texte 3
 	ldx	#7
 	jsr	showTEXTE
 
+ie_end	php
 	_SetForeColor
+	plp
 	rts
 
 *-----------------------------------
@@ -1241,7 +1275,7 @@ intro_genius_image
 
 	lda	ptrSCREEN
 	clc
-	adc	#34	; pour center
+	adc	#2594	; pour center : 160x16+34
 	sta	dpTO
 	lda	ptrSCREEN+2
 	sta	dpTO+2
@@ -1271,7 +1305,7 @@ igLOOP	ldy	#0
 
 *-----------
 
-	ldy	#60*5
+	ldy	#60*3
 	jmp	waitMS16
 
 *-----------

leretour/apple2/fr/leretour.s

@@ -294,7 +294,7 @@ REPLAY	sep	#$30
 :900	cmp	#idxTIMER
 	bne	:905
 	
-	jsr	switchENERGIE
+	jsr	switchTEMPS
 	jmp	:100
 
 :905	cmp	#idxMUSIC
@@ -1010,38 +1010,61 @@ tbl4000	da	$bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
 	lda	#21
 	sta	SALLE
 
-	@gotoxy	#43;#21	; Vous avez deux essais pour
+	@gotoxy	#43;#28	; Vous avez deux essais pour
 	@print	#str4550	; xy
-	@gotoxy	#43;#29	; entrer le mot de passe
+	@gotoxy	#43;#37	; entrer le mot de passe
 	@print	#str4552	; xy
 	
-	@gotoxy	#43;#37	; entrer le mot de passe
+	@gotoxy	#43;#45	; entrer le mot de passe
 	jsr	:4556_input	; saisie 1
 	bcc	:4554	; ok
-	@gotoxy	#43;#45	; entrer le mot de passe
+	@gotoxy	#43;#53	; entrer le mot de passe
 	@print	#str4553	; FAUX!
 
-	@gotoxy	#43;#37	; entrer le mot de passe
+	@gotoxy	#43;#45	; entrer le mot de passe
 	jsr	:4556_input	; saisie 2
 	bcc	:4554	; ok
-	@gotoxy	#43;#45	; entrer le mot de passe
+*	@gotoxy	#43;#53	; entrer le mot de passe
+	rep	#$30	; init 16-bits, c'est mieux
+	stz	textX
+	lda	#row16
+	sta	textY
+	sep	#$30
 	@print	#str4554	; encore faux
 	jmp	:perdu	; ciao
 
-:4554	@gotoxy	#43;#56	; 42
+:4554
-	@print	#str4558	; xy
+*	@gotoxy	#43;#62	; 42
-	@gotoxy	#43;#64	; 56
+	rep	#$30	; init 16-bits, c'est mieux
-	@print	#str4559_1	; xy
+	stz	textX
-	@gotoxy	#43;#72	; 67
+	lda	#row16
-	@print	#str4559_2	; xy
+	sta	textY
-	@gotoxy	#43;#80
+	sep	#$30
-	@print	#str4559_3	; xy
+	@print	#str4558
-	@gotoxy	#43;#88
+	@print	#str4559
-	@print	#str4559_4	; xy
-	
 	ldx	#>MP$
 	ldy	#<MP$
 	jsr	printCSTRING	; COUTXY
+
+	@gotoxy	#43;#70	; 56
+	@print	#str4559_1	; xy
+	@gotoxy	#43;#78	; 67
+	@print	#str4559_2	; xy
+	@wait	#200
+	
+	rep	#$30	; init 16-bits, c'est mieux
+	stz	textX
+	lda	#row18
+	sta	textY
+	sep	#$30
+	
+*	@gotoxy	#43;#86
+*	@print	#str4559_3	; xy
+*	@gotoxy	#43;#94
+
+*	ldx	#>MP$
+*	ldy	#<MP$
+*	jsr	printCSTRING	; COUTXY
 	rts
 
 *--- saisie du mot de passe
@@ -1119,8 +1142,6 @@ MDP$	asc	'MANOIR'
 :4597	sec
 	rts
 
-str4595	asc	'Slot 1-9 (0=sortir) ? '00
-	
 *----------- LE MOT DE PASSE FINAL
 
 :4610	@print	#str4610
@@ -1139,7 +1160,8 @@ str4595	asc	'Slot 1-9 (0=sortir) ? '00
 	bpl	]lp
 	jmp	:gagne
 
-:4615	@print	#str4615
+:4615	jsr	setTEXTFULL
+	@print	#str4615
 	@zap
 	@wait	#100
 	@print	#str4616
@@ -1658,6 +1680,11 @@ GETLN2	stx	lenSTRING
 	ldx	lenSTRING
 	cmp	#chrRET
 	beq	doRET
+	
+	ldy	fgTEXT	; on n'autorise que RET
+	cpy	#1
+	beq	]lp	; en mode texte
+
 	cmp	#chrDEL
 	beq	doBACK
 	cmp	#chrLA
@@ -1697,6 +1724,10 @@ doBACK	cpx	#0
 doRET	cpx	#0
 	bne	doEXIT
 
+	lda	fgTEXT
+	eor	#1
+	sta	fgTEXT
+	
 	jsr	switchVIDEO
 	jmp	]lp
 
@@ -1726,14 +1757,14 @@ smoff	rep	#$30
 
 	mx	%11
 	
-switchENERGIE
+switchTEMPS
 	lda	#0
 	eor	#1
-	sta	switchENERGIE+1
+	sta	switchTEMPS+1
 	rts
 
-testENERGIE	sep	#$30
+testTEMPS	sep	#$30
-	lda	switchENERGIE+1	; switch is off
+	lda	switchTEMPS+1	; switch is off
 	bne	te_ok
 
 	lda	fgTIME
@@ -1911,6 +1942,7 @@ SALLE	ds	1
 T	ds	1
 lenSTRING	ds	1
 
+fgTEXT	ds	2	; 0: off, 1: on
 fgTIME	ds	2	; 0: off, 1: on
 fgPERDU	ds	2	; 1: perdu