From bb6820f53db3fdbb9d981cffa43e41a5a179bd2d Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 24 May 2018 14:31:14 -0400
Subject: [PATCH] sa: have cursor going on 80col

---
 still_alive/SA.KR4           | Bin 8833 -> 8834 bytes
 still_alive/display_lyrics.s |  40 ++++++++++++++++++++++++++++++++---
 2 files changed, 37 insertions(+), 3 deletions(-)

diff --git a/still_alive/SA.KR4 b/still_alive/SA.KR4
index 1e9a61fb3eecc0cbb5c6fc32efa8abbb41593278..517c05707e36c56ec30ffe6decfbc77c13ea014d 100644
GIT binary patch
delta 21
dcmZp4ZF1c(L6LF$<cW$t%y0GoPrk3X2moRb35x&#

delta 20
ccmZp2ZFJo*L6LFW<cW$tOz-3;KTuo*09IxQd;kCd

diff --git a/still_alive/display_lyrics.s b/still_alive/display_lyrics.s
index 8dc0b962..e8ecc352 100644
--- a/still_alive/display_lyrics.s
+++ b/still_alive/display_lyrics.s
@@ -52,10 +52,16 @@ lyric_home:
 	jmp	lyric_continue		; continue
 
 lyric_char:
+	; clear cursor: FIXME
 	pha
 	lda	#' '+$80
-	ldy	CH
-	sta	(BASL),Y
+	jsr	COUT
+	lda	#$8
+	jsr	COUT
+
+
+;	ldy	CH
+;	sta	(BASL),Y
 	pla
 
 	ldy	FORTYCOL		; if 40col, convert to UPPERCASE
@@ -87,8 +93,11 @@ done_lyric:
 
 all_done_lyrics:
 
-	; Blink Cursor
+	lda	FORTYCOL
+	beq	blink_cursor80
 
+	; Blink Cursor
+blink_cursor40:
 	inc	CURSOR
 	lda	CURSOR
 	and	#$10
@@ -107,6 +116,31 @@ cursor_done:
 	rts
 
 
+blink_cursor80:
+	inc	CURSOR
+	lda	CURSOR
+	and	#$10
+
+	beq	cursor_space80
+cursor_underscore80:
+	lda	#'_'+$80
+	jsr	COUT
+	lda	#$8		; BS (backspace)
+	jsr	COUT
+
+	rts
+
+cursor_space80:
+	lda	#' '+$80
+	jsr	COUT
+	lda	#$8		; BS (backspace)
+	jsr	COUT
+
+cursor_done80:
+
+	rts
+
+
 
 
 	;============================