From 5a1f0f6ffc042fedf9b26a8c645947379c579f03 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 23 Oct 2021 14:53:35 -0400
Subject: [PATCH] finish cda box.

---
 vt100.cda.S | 53 ++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 40 insertions(+), 13 deletions(-)

diff --git a/vt100.cda.S b/vt100.cda.S
index 583c56e..25060c7 100644
--- a/vt100.cda.S
+++ b/vt100.cda.S
@@ -145,9 +145,48 @@ box
 	bpl ]loop
 
 
+	rep #$20
+
+* title
+	ldx #36
+]loop	lda :title,x
+	sta |$0480+1,x
+	dex
+	dex
+	bpl ]loop
+
+	lda #'LL'
+	ldx #36
+]loop	sta |$0500+1,x
+	dex
+	dex
+	bpl ]loop
+
+* bottom instructions
+	ldx #:instr_len-2
+]loop	lda :instr,x
+	sta |$0750+1,x
+	dex
+	dex
+	bpl ]loop
+
+
+
 	plp
 	rts
 
+:instr
+	asc " Select: ",'H'," ",'U'," ",'J'," ",'K'
+	asc "  Cancel:Esc  Save: ",'M'," "
+:instr_len equ *-:instr
+	err :instr_len&1
+
+
+:title
+	asc " Virtual Terminal "
+	ds 38-18,' ' 
+
+
 text
 	dw $0400
 	dw $0480
@@ -174,18 +213,6 @@ text
 	dw $0750
 	dw $07d0
 
-*box
-*	asc " ______________________________________ "
-*	asc da," Terminal ",'                            ',df
-*	db $da
-*	ds 38,$cc
-*	db $df
 
 
-*	asc da," Select: ",c8,df,ca,cb,"  Cancel: Esc Save: ",cd,df
-*	asc " "
-*	ds 38,$cc
-*	asc " "
-
-
-	sav vt100.cda.L
\ No newline at end of file
+	sav vt100.cda.L