check_email: patch the inverse version back to plain text when done

megademo/TODO

@@ -62,5 +62,5 @@ Apple IIe:   Apple II+
 3 *****      *
 4 *          *****
 5 *          *
-6 ******     *
+6 *****      *
 7            *****

megademo/bird_mountain.s

@@ -27,6 +27,16 @@ bird_mountain:
 	; setup scrolling letters
 	;=========================
 
+	; Patch the inverse values out (as used by check_email)
+	lda	#39
+	sta	ml_patch_dest+1
+	lda	#$80
+	sta	ml_patch_or+1
+	lda	#$09
+	sta	ml_patch_or
+	lda	#' '|$80
+	sta	ml_patch_space+1
+
 	lda	#<letters_bm
 	sta	LETTERL
 	lda	#>letters_bm

megademo/megademo.s

@@ -25,8 +25,6 @@ apple_iie:
 	;===================
 	jsr	HOME
 
-	jsr	check_email
-
 	; C64 Opening Sequence
 
 	jsr	c64_opener
@@ -40,7 +38,6 @@ apple_iie:
 	; E-mail arriving
 	jsr	check_email
 
-
 	; Leaving house
 
 	; Riding bird

megademo/move_letters.s

@@ -72,14 +72,18 @@ letter_erase:
 	nop			; nop					; 5
 
 	ldy	#0		; erase old char with space		; 2
-	lda	#' '|$80						; 2
+ml_patch_space:
+;	lda	#' '|$80						; 2
+	lda	#' '|$00						; 2
 	ldy	LETTERX							; 3
 	sta	(BASL),Y						; 6
 
 	dey			; draw new char				; 2
 	sty	LETTERX							; 3
 	lda	LETTER							; 3
-	ora	#$80							; 2
+ml_patch_or:
+;	ora	#$80							; 2
+	and	#$3f							; 2
 	ldy	LETTERX							; 3
 	sta	(BASL),Y						; 6
 
@@ -105,7 +109,10 @@ letter_next:
 	sta	LETTERH							; 3
 
 	inc	LETTERD		; inc destination X			; 5
-	lda	#39		; start at right of screen		; 2
+start_destination:
+ml_patch_dest:
+;	lda	#39		; start at right of screen		; 2
+	lda	#18		; start at right of screen		; 2
 	sta	LETTERX							; 3
 	rts								; 6
 								;===========