From 5db214a38d45b6a14810b861692957a931b10ff2 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 6 Jan 2019 21:48:32 +0100
Subject: [PATCH] Make 340D optionally use the Stanford keyboard for input.

---
 src/stan_k/{340d.3 => 340d.4} | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)
 rename src/stan_k/{340d.3 => 340d.4} (97%)

diff --git a/src/stan_k/340d.3 b/src/stan_k/340d.4
similarity index 97%
rename from src/stan_k/340d.3
rename to src/stan_k/340d.4
index 811053ef..697c3acd 100644
--- a/src/stan_k/340d.3
+++ b/src/stan_k/340d.4
@@ -18,6 +18,7 @@ width=117
 height=50
 
 ifndef new,new=0	;Use new ASCII characters instead of old.
+ifndef stkp,stkp=1	;Use Stanford keyboard.
 
 a=1
 b=2
@@ -43,6 +44,10 @@ verti==200000
 lshift==7
 lchars==<1_lshift>
 
+;STK device ITS mode: meta = 200, and the control bucky bit is
+;converted to ASCII control characters.
+%its==40
+
 loc 42
 	tsint
 
@@ -56,7 +61,8 @@ start:	move p,[-pdllen,,pdl-1]
 	 .lose
 	.open styi,[.uii,,'STY]
 	 .lose
-	.open ttyi,[.uii,,'TTY]
+ifn stkp,.open ttyi,[%its+.uii,,'STK]	;ITS mode.
+.else,	.open ttyi,[.uii,,'TTY]
 	 .lose
 	.call [ setz
 		sixbit /cnsget/