diff --git a/sources/LLKEY b/sources/LLKEY
index 930c038a..3c772daf 100644
--- a/sources/LLKEY
+++ b/sources/LLKEY
@@ -1,10 +1,8 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "24-Aug-2021 16:54:52" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 199507 
+(FILECREATED "27-Aug-2021 16:18:18" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;9 199890 
 
-      changes to%:  (FNS KEYACTION)
-
-      previous date%: "24-Aug-2021 16:43:30" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;5)
+      previous date%: "24-Aug-2021 16:54:52" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;7)
 
 
 (* ; "
@@ -1582,29 +1580,29 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 
 
 (RPAQQ \ORIGKEYACTIONS
-       ((0 (53 "%%" NOLOCKSHIFT))
-        (1 (52 "$" NOLOCKSHIFT))
-        (2 (54 "~" NOLOCKSHIFT))
+       ((0 ("5" "%%" NOLOCKSHIFT))
+        (1 ("4" "$" NOLOCKSHIFT))
+        (2 ("6" "~" NOLOCKSHIFT))
         (3 ("e" "E" LOCKSHIFT))
-        (4 (55 "&" NOLOCKSHIFT))
+        (4 ("7" "&" NOLOCKSHIFT))
         (5 ("d" "D" LOCKSHIFT))
         (6 ("u" "U" LOCKSHIFT))
         (7 ("v" "V" LOCKSHIFT))
-        (8 (48 ")" NOLOCKSHIFT))
+        (8 ("0" ")" NOLOCKSHIFT))
         (9 ("k" "K" LOCKSHIFT))
         (10 ("-" "-" NOLOCKSHIFT))
         (11 ("p" "P" LOCKSHIFT))
         (12 ("/" "?" NOLOCKSHIFT))
         (13 ("\" "|" NOLOCKSHIFT))
-        (14 (10 96 NOLOCKSHIFT))
-        (15 (8 8 NOLOCKSHIFT))
-        (16 (51 "#" NOLOCKSHIFT))
-        (17 (50 "@" NOLOCKSHIFT))
+        (14 ("LF" "`" NOLOCKSHIFT))
+        (15 ("Bs" "Bs" NOLOCKSHIFT))
+        (16 ("3" "#" NOLOCKSHIFT))
+        (17 ("2" "@" NOLOCKSHIFT))
         (18 ("w" "W" LOCKSHIFT))
         (19 ("q" "Q" LOCKSHIFT))
         (20 ("s" "S" LOCKSHIFT))
         (21 ("a" "A" LOCKSHIFT))
-        (22 (57 "(" NOLOCKSHIFT))
+        (22 ("9" "(" NOLOCKSHIFT))
         (23 ("i" "I" LOCKSHIFT))
         (24 ("x" "X" LOCKSHIFT))
         (25 ("o" "O" LOCKSHIFT))
@@ -1612,11 +1610,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (27 ("," "<" NOLOCKSHIFT))
         (28 ("'" "%"" NOLOCKSHIFT))
         (29 ("]" "}" NOLOCKSHIFT))
-        (30 (194 194 NOLOCKSHIFT))
-        (31 (193 193 NOLOCKSHIFT))
-        (32 (49 "!" NOLOCKSHIFT))
-        (33 (27 27 NOLOCKSHIFT))
-        (34 (9 9 NOLOCKSHIFT))
+        (30 ("#B" "#B" NOLOCKSHIFT))
+        (31 ("#A" "#A" NOLOCKSHIFT))
+        (32 ("1" "!" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
+        (34 ("Tab" "Tab" NOLOCKSHIFT))
         (35 ("f" "F" LOCKSHIFT))
         (36 CTRLDOWN . CTRLUP)
         (37 ("c" "C" LOCKSHIFT))
@@ -1626,24 +1624,24 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (41 1SHIFTDOWN . 1SHIFTUP)
         (42 ("." ">" NOLOCKSHIFT))
         (43 (";" ":" NOLOCKSHIFT))
-        (44 (13 13 NOLOCKSHIFT))
+        (44 ("CR" "CR" NOLOCKSHIFT))
         (45 ("_" "^" NOLOCKSHIFT))
-        (46 (127 535 NOLOCKSHIFT))
+        (46 ("Del" "Function,^W" NOLOCKSHIFT))
         (47 ("(" "[" NOLOCKSHIFT))
         (48 ("r" "R" LOCKSHIFT))
         (49 ("t" "T" LOCKSHIFT))
         (50 ("g" "G" LOCKSHIFT))
         (51 ("y" "Y" LOCKSHIFT))
         (52 ("h" "H" LOCKSHIFT))
-        (53 (56 "*" NOLOCKSHIFT))
+        (53 ("8" "*" NOLOCKSHIFT))
         (54 ("n" "N" LOCKSHIFT))
         (55 ("m" "M" LOCKSHIFT))
         (56 LOCKDOWN . LOCKUP)
-        (57 (32 32 NOLOCKSHIFT))
+        (57 ("Sp" "Sp" NOLOCKSHIFT))
         (58 ("[" "{" NOLOCKSHIFT))
         (59 ("=" "+" NOLOCKSHIFT))
         (60 2SHIFTDOWN . 2SHIFTUP)
-        (61 (195 195 NOLOCKSHIFT))
+        (61 ("#C" "#C" NOLOCKSHIFT))
         (63 (")" "]" NOLOCKSHIFT))
         (77 EVENT . EVENT)
         (78 EVENT . EVENT)
@@ -1792,50 +1790,50 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (105 ("\" "|" NOLOCKSHIFT))))
 
 (RPAQQ \MAIKOKEYACTIONST4
-       ((61 ("^E" "^G" NOLOCKSHIFT))
-        (91 ("2,10" "2,50" NOLOCKSHIFT))
-        (92 ("2,1" "2,41" NOLOCKSHIFT))
-        (30 ("2,1" "2,41" NOLOCKSHIFT))
-        (109 ("2,25" "2,65" NOLOCKSHIFT))
-        (63 ("2,4" "2,44" NOLOCKSHIFT))
+       ((61 ("^E" "Bell" NOLOCKSHIFT))
+        (91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
+        (92 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (30 ("Function,^A" "Function,!" NOLOCKSHIFT))
+        (109 ("Function,^U" "Function,65" NOLOCKSHIFT))
+        (63 ("Function,^D" "Function,$" NOLOCKSHIFT))
         (14 METADOWN . METAUP)
-        (93 ("2,24" "2,64" NOLOCKSHIFT))
+        (93 ("Function,^T" "Function,64" NOLOCKSHIFT))
         (62)
-        (111 ("1,o" "1,O" NOLOCKSHIFT))
+        (111 ("Meta,o" "Meta,O" NOLOCKSHIFT))
         (89)
-        (90 ("2,3" "2,43" NOLOCKSHIFT))
-        (73 ("2,11" "2,11" NOLOCKSHIFT))
-        (74 ("2,12" "2,12" NOLOCKSHIFT))
+        (90 ("Function,^C" "Function,#" NOLOCKSHIFT))
+        (73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
+        (74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
         (75 ("^B" "^B" NOLOCKSHIFT))
-        (81 ("2,14" 55 NOLOCKSHIFT))
-        (82 (173 56 NOLOCKSHIFT))
-        (83 ("2,15" 57 NOLOCKSHIFT))
-        (84 (172 52 NOLOCKSHIFT))
-        (85 ("2,16" 53 NOLOCKSHIFT))
-        (87 (174 54 NOLOCKSHIFT))
-        (94 ("2,17" 49 NOLOCKSHIFT))
-        (69 (175 50 NOLOCKSHIFT))
-        (70 ("2,20" 51 NOLOCKSHIFT))
-        (98 ("2,21" 48 NOLOCKSHIFT))
-        (76 ("2,13" "2,13" NOLOCKSHIFT))
-        (110 ("2,53" "2,53" NOLOCKSHIFT))
+        (81 ("Function,FF" "7" NOLOCKSHIFT))
+        (82 ("#-" "8" NOLOCKSHIFT))
+        (83 ("Function,CR" "9" NOLOCKSHIFT))
+        (84 ("#," "4" NOLOCKSHIFT))
+        (85 ("Function,^N" "5" NOLOCKSHIFT))
+        (87 ("#." "6" NOLOCKSHIFT))
+        (94 ("Function,^O" "1" NOLOCKSHIFT))
+        (69 ("#/" "2" NOLOCKSHIFT))
+        (70 ("Function,^P" "3" NOLOCKSHIFT))
+        (98 ("Function,^Q" "0" NOLOCKSHIFT))
+        (76 ("Function,^K" "Function,^K" NOLOCKSHIFT))
+        (110 ("Function,+" "Function,+" NOLOCKSHIFT))
         (72 LOCKTOGGLE)
-        (97 ("2,101" "2,141" NOLOCKSHIFT))
-        (99 ("2,102" "2,142" NOLOCKSHIFT))
-        (100 ("2,103" "2,143" NOLOCKSHIFT))
-        (67 ("2,104" "2,144" NOLOCKSHIFT))
-        (68 ("2,105" "2,145" NOLOCKSHIFT))
-        (101 ("2,106" "2,146" NOLOCKSHIFT))
-        (66 ("2,107" "2,147" NOLOCKSHIFT))
-        (104 ("2,110" "2,150" NOLOCKSHIFT))
-        (80 ("2,111" "2,151" NOLOCKSHIFT))
-        (106 ("2,113" "2,153" NOLOCKSHIFT))
-        (107 ("2,114" "2,154" NOLOCKSHIFT))
-        (108 ("2,115" "2,155" NOLOCKSHIFT))
+        (97 ("Function,A" "Function,a" NOLOCKSHIFT))
+        (99 ("Function,B" "Function,b" NOLOCKSHIFT))
+        (100 ("Function,C" "Function,c" NOLOCKSHIFT))
+        (67 ("Function,D" "Function,d" NOLOCKSHIFT))
+        (68 ("Function,E" "Function,e" NOLOCKSHIFT))
+        (101 ("Function,F" "Function,f" NOLOCKSHIFT))
+        (66 ("Function,G" "Function,g" NOLOCKSHIFT))
+        (104 ("Function,H" "Function,h" NOLOCKSHIFT))
+        (80 ("Function,I" "Function,i" NOLOCKSHIFT))
+        (106 ("Function,K" "Function,k" NOLOCKSHIFT))
+        (107 ("Function,L" "Function,l" NOLOCKSHIFT))
+        (108 ("Function,M" "Function,m" NOLOCKSHIFT))
         (13 ("^W" "^U" NOLOCKSHIFT))
-        (33 ("ESC" "ESC" NOLOCKSHIFT))
+        (33 ("Esc" "Esc" NOLOCKSHIFT))
         (64 IGNORE . IGNORE)
-        (65 (27 27 NOLOCKSHIFT))
+        (65 ("Esc" "Esc" NOLOCKSHIFT))
         (95 IGNORE . IGNORE)
         (96 IGNORE . IGNORE)
         (102 IGNORE . IGNORE)
@@ -1845,8 +1843,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
         (56 LOCKTOGGLE . IGNORE)
         (45 ("`" "~" NOLOCKSHIFT))
         (31 METADOWN . METAUP)
-        (71 (10 10 NOLOCKSHIFT))
-        (47 ("2,22" "2,62" NOLOCKSHIFT))
+        (71 ("LF" "LF" NOLOCKSHIFT))
+        (47 ("Function,^R" "Function,62" NOLOCKSHIFT))
         (86 IGNORE . IGNORE)
         (88 IGNORE . IGNORE)
         (105 ("\" "|" NOLOCKSHIFT))))
@@ -3924,33 +3922,33 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
 (PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 
 1992 1999 1920 2000 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (14733 22049 (BKSYSCHARCODE 14743 . 15092) (\CLEARSYSBUF 15094 . 15652) (\GETKEY 15654
- . 16829) (\NSYSBUFCHARS 16831 . 17573) (\SAVESYSBUF 17575 . 19184) (\SYSBUFP 19186 . 19490) (
-\GETSYSBUF 19492 . 19672) (\PUTSYSBUF 19674 . 20887) (\PEEKSYSBUF 20889 . 22047)) (23346 60180 (
-\KEYBOARDINIT 23356 . 25076) (\KEYBOARDEVENTFN 25078 . 29778) (\ALLOCLOCKED 29780 . 30370) (
-\SETIOPOINTERS 30372 . 34908) (\KEYBOARDOFF 34910 . 35324) (\KEYBOARDON 35326 . 35705) (\KEYHANDLER 
-35707 . 35838) (\KEYHANDLER1 35840 . 43286) (\RESETKEYBOARD 43288 . 44936) (\DOMOUSECHORDING 44938 . 
-48758) (\DOTRANSITIONS 48760 . 49437) (\DECODETRANSITION 49439 . 56128) (MOUSECHORDWAIT 56130 . 56794)
- (\TRACKCURSOR 56796 . 60178)) (95464 117014 (KEYACTION 95474 . 96327) (KEYACTIONTABLE 96329 . 97511) 
-(KEYBOARDTYPE 97513 . 98615) (RESETKEYACTION 98617 . 100376) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
-100378 . 102280) (\KEYACTION1 102282 . 112398) (KEYDOWNP 112400 . 112735) (KEYNUMBERP 112737 . 112935)
- (\KEYNAMETONUMBER 112937 . 113631) (\KEYNUMBERTONAME 113633 . 113823) (MODIFY.KEYACTIONS 113825 . 
-114686) (METASHIFT 114688 . 115632) (SHIFTDOWNP 115634 . 117012)) (117077 117373 (
-SETUP.OFFICE.KEYBOARD 117087 . 117371)) (120076 121788 (\INIT.KEYBOARD.STREAM 120086 . 121786)) (
-122053 138430 (\DOBUFFEREDTRANSITIONS 122063 . 137493) (\TIMER.INTERRUPTFRAME 137495 . 138220) (
-\PERIODIC.INTERRUPTFRAME 138222 . 138428)) (138684 142761 (\HARDCURSORUP 138694 . 140576) (
-\HARDCURSORPOSITION 140578 . 142614) (\HARDCURSORDOWN 142616 . 142759)) (142762 166822 (CURSOR.INIT 
-142772 . 146472) (\CURSORDESTINATION 146474 . 148792) (\SOFTCURSORUP 148794 . 154048) (
-\SOFTCURSORUPCURRENT 154050 . 161086) (\SOFTCURSORPOSITION 161088 . 161853) (\SOFTCURSORDOWN 161855 . 
-162563) (CURSORPROP 162565 . 162907) (GETCURSORPROP 162909 . 163097) (PUTCURSORPROP 163099 . 164254) (
-\CURSORBITSPERPIXEL 164256 . 166372) (\CURSORIMAGEPROPNAME 166374 . 166598) (\CURSORMASKPROPNAME 
-166600 . 166820)) (166823 184773 (CURSORCREATE 166833 . 169508) (CURSOR 169510 . 171322) (
-\CURSOR-VALID-P 171324 . 172411) (\CURSORUP 172413 . 174128) (\CURSORPOSITION 174130 . 176658) (
-\CURSORDOWN 176660 . 176893) (ADJUSTCURSORPOSITION 176895 . 177473) (CURSORPOSITION 177475 . 179017) (
-CURSORSCREEN 179019 . 179675) (CURSOREXIT 179677 . 181068) (FLIPCURSOR 181070 . 182196) (FLIPCURSORBAR
- 182198 . 183178) (LASTMOUSEX 183180 . 183434) (LASTMOUSEY 183436 . 183690) (CREATEPOSITION 183692 . 
-183898) (POSITIONP 183900 . 184184) (CURSORHOTSPOT 184186 . 184771)) (186011 187559 (GETMOUSESTATE 
-186021 . 186680) (\EVENTKEYS 186682 . 187557)) (193986 194782 (MACHINETYPE 193996 . 194396) (
-SETMAINTPANEL 194398 . 194780)) (194812 195951 (BEEPON 194822 . 195475) (BEEPOFF 195477 . 195949)) (
-196402 196665 (WITHOUT-INTERRUPTS 196412 . 196663)))))
+  (FILEMAP (NIL (14696 22012 (BKSYSCHARCODE 14706 . 15055) (\CLEARSYSBUF 15057 . 15615) (\GETKEY 15617
+ . 16792) (\NSYSBUFCHARS 16794 . 17536) (\SAVESYSBUF 17538 . 19147) (\SYSBUFP 19149 . 19453) (
+\GETSYSBUF 19455 . 19635) (\PUTSYSBUF 19637 . 20850) (\PEEKSYSBUF 20852 . 22010)) (23309 60143 (
+\KEYBOARDINIT 23319 . 25039) (\KEYBOARDEVENTFN 25041 . 29741) (\ALLOCLOCKED 29743 . 30333) (
+\SETIOPOINTERS 30335 . 34871) (\KEYBOARDOFF 34873 . 35287) (\KEYBOARDON 35289 . 35668) (\KEYHANDLER 
+35670 . 35801) (\KEYHANDLER1 35803 . 43249) (\RESETKEYBOARD 43251 . 44899) (\DOMOUSECHORDING 44901 . 
+48721) (\DOTRANSITIONS 48723 . 49400) (\DECODETRANSITION 49402 . 56091) (MOUSECHORDWAIT 56093 . 56757)
+ (\TRACKCURSOR 56759 . 60141)) (95847 117397 (KEYACTION 95857 . 96710) (KEYACTIONTABLE 96712 . 97894) 
+(KEYBOARDTYPE 97896 . 98998) (RESETKEYACTION 99000 . 100759) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
+100761 . 102663) (\KEYACTION1 102665 . 112781) (KEYDOWNP 112783 . 113118) (KEYNUMBERP 113120 . 113318)
+ (\KEYNAMETONUMBER 113320 . 114014) (\KEYNUMBERTONAME 114016 . 114206) (MODIFY.KEYACTIONS 114208 . 
+115069) (METASHIFT 115071 . 116015) (SHIFTDOWNP 116017 . 117395)) (117460 117756 (
+SETUP.OFFICE.KEYBOARD 117470 . 117754)) (120459 122171 (\INIT.KEYBOARD.STREAM 120469 . 122169)) (
+122436 138813 (\DOBUFFEREDTRANSITIONS 122446 . 137876) (\TIMER.INTERRUPTFRAME 137878 . 138603) (
+\PERIODIC.INTERRUPTFRAME 138605 . 138811)) (139067 143144 (\HARDCURSORUP 139077 . 140959) (
+\HARDCURSORPOSITION 140961 . 142997) (\HARDCURSORDOWN 142999 . 143142)) (143145 167205 (CURSOR.INIT 
+143155 . 146855) (\CURSORDESTINATION 146857 . 149175) (\SOFTCURSORUP 149177 . 154431) (
+\SOFTCURSORUPCURRENT 154433 . 161469) (\SOFTCURSORPOSITION 161471 . 162236) (\SOFTCURSORDOWN 162238 . 
+162946) (CURSORPROP 162948 . 163290) (GETCURSORPROP 163292 . 163480) (PUTCURSORPROP 163482 . 164637) (
+\CURSORBITSPERPIXEL 164639 . 166755) (\CURSORIMAGEPROPNAME 166757 . 166981) (\CURSORMASKPROPNAME 
+166983 . 167203)) (167206 185156 (CURSORCREATE 167216 . 169891) (CURSOR 169893 . 171705) (
+\CURSOR-VALID-P 171707 . 172794) (\CURSORUP 172796 . 174511) (\CURSORPOSITION 174513 . 177041) (
+\CURSORDOWN 177043 . 177276) (ADJUSTCURSORPOSITION 177278 . 177856) (CURSORPOSITION 177858 . 179400) (
+CURSORSCREEN 179402 . 180058) (CURSOREXIT 180060 . 181451) (FLIPCURSOR 181453 . 182579) (FLIPCURSORBAR
+ 182581 . 183561) (LASTMOUSEX 183563 . 183817) (LASTMOUSEY 183819 . 184073) (CREATEPOSITION 184075 . 
+184281) (POSITIONP 184283 . 184567) (CURSORHOTSPOT 184569 . 185154)) (186394 187942 (GETMOUSESTATE 
+186404 . 187063) (\EVENTKEYS 187065 . 187940)) (194369 195165 (MACHINETYPE 194379 . 194779) (
+SETMAINTPANEL 194781 . 195163)) (195195 196334 (BEEPON 195205 . 195858) (BEEPOFF 195860 . 196332)) (
+196785 197048 (WITHOUT-INTERRUPTS 196795 . 197046)))))
 STOP
diff --git a/sources/LLKEY.LCOM b/sources/LLKEY.LCOM
index be7ba76b..550e93c5 100644
Binary files a/sources/LLKEY.LCOM and b/sources/LLKEY.LCOM differ
