telex

leretour/apple2/fr/iigs.s

@@ -18,6 +18,7 @@
 *-----------------------------------
 
 	use	4/Event.Macs
+	use	4/Font.Macs
 	use	4/Locator.Macs
 	use	4/Mem.Macs
 	use	4/Menu.Macs
@@ -573,7 +574,7 @@ blackPATTERN ds	32,$00
 	ds	32,$44
 	ds	32,$55
 	ds	32,$66
-	ds	32,$77
+redPATTERN	ds	32,$77
 	ds	32,$88
 	ds	32,$99
 	ds	32,$aa

leretour/apple2/fr/introcode.s

@@ -15,7 +15,9 @@
 	ext	picGENIUS
 	ext	picMONDE
 
-	ext	txtTELEX
+	ext	txtTELEX1
+	ext	txtTELEX2
+	ext	txtTELEX3
 	ext	txtGENIUSTEXTE
 	ext	txtSERPENT1
 	ext	txtSERPENT2
@@ -59,8 +61,54 @@ intro_end	rts
 	mx	%00
 
 intro_telex
+	PushLong	#telexRECT
+	PushWord	#$7777
+	PushWord	#$7777
+	_SpecialRect
+
+*	PushWord #$1000
+*	PushWord #$fffe		; Shaston 16
+*	PushWord #0
+*	_InstallFont
+
+	PushWord	#0
+	_GetTextMode
+	
+	PushWord	#modeForeCopy
+	_SetTextMode
+	
+	PushWord	#10
+	PushWord	#166
+	_MoveTo
+	PushLong	#txtTELEX1
+	_DrawCString
+	
+	PushWord	#10
+	PushWord	#182
+	_MoveTo
+	PushLong	#txtTELEX2
+	_DrawCString
+
+	PushWord	#10
+	PushWord	#198
+	_MoveTo
+	PushLong	#txtTELEX3
+	_DrawCString
+
+	_SetTextMode
+
+*-----------
+
+	sep	#$20
+]lp	ldal	KBD
+	bpl	]lp
+	stal	KBDSTROBE
+	rep	#$20
+	clc
 	rts
 
+telexRECT	dw	150,0,200,320
+
 *-----------------------------------
 * GENIUS TEXTE
 *-----------------------------------

leretour/apple2/fr/introdata.s

@@ -11,9 +11,11 @@
 * LES TEXTES DE L'INTRO
 *-----------------------------------
 
-txtTELEX	ENT
-	asc	'Une heure du matin (heure francaise)'0d
-	asc	'sur tous les telex du monde apparait'0d
+txtTELEX1	ENT
+	asc	'Une heure du matin (heure francaise)'00
+txtTELEX2	ENT
+	asc	'sur tous les telex du monde apparait'00
+txtTELEX3	ENT
 	asc	'ce message angoissant...'00
 
 *-----------------------------------