(FILECREATED "15-Feb-85 18:08:23" ("compiled on " {ERIS}HARMONYKEYPATCH.;9) "10-Dec-84 17:38:51" recompiled changes: SHIFTDOWNP \KEYACTION1 NEW\DECODETRANSITION NEWGETMOUSESTATE MIDDLEMOUSEKEY in "INTERLISP-D 10-Dec-84 ..." dated "10-Dec-84 18:25:04") (FILECREATED "15-Feb-85 18:07:21" {ERIS}HARMONYKEYPATCH.;9 19186 changes to: (RECORDS SHIFTSTATE) (FNS \KEYACTION1 MIDDLEMOUSEKEY NEWGETMOUSESTATE GETMOUSESTATE SHIFTDOWNP NEW\DECODETRANSITION) (VARS HARMONYKEYPATCHCOMS TRANSITIONFLAGS FONTDOWN.TF FONTUP.TF FONTTOGGLE.TF \KEYNAMES) previous date: " 4-Feb-85 16:03:17" {ERIS}HARMONYKEYPATCH.;5) SHIFTDOWNP D1 (I 0 SHIFT) @dg`jljhg`ljh@dg`jljhg`jkjh@dg`jljhg`jjh@dg`kjhg`lljh@dg`lkjhg`lljh@dg`lljh (324Q \ILLEGAL.ARG) (306Q \SHIFTSTATE 300Q USERMODE3 260Q \SHIFTSTATE 253Q USERMODE2 236Q \SHIFTSTATE 230Q USERMODE1 210Q \SHIFTSTATE 203Q FONT 171Q \SHIFTSTATE 163Q CTRL 147Q \SHIFTSTATE 142Q SHIFTORLOCK 125Q \SHIFTSTATE 117Q 2SHIFT 101Q \SHIFTSTATE 74Q 1SHIFT 57Q \SHIFTSTATE 51Q SHIFT 34Q \SHIFTSTATE 27Q META 12Q \SHIFTSTATE 4 LOCK) () \KEYACTION1 D1 (P 2 ACT P 1 SHIFTCODE P 0 CODE I 1 ACTION I 0 TI) T`@djgBdldl$`@`@`@lgghdkg dlgdlgdlgdl gdl gdl gdlgdlgdlgdl gdl gdlgzdlgodlgddlgYdlgNdlgCdlg8dlg-dlg"dlgdlglgAAdgg`@jǿAdg`@kǿg`@lǿAdg`@lǿg`@l ǿAdg`@lǿg`@l ǿAdg`@l ǿg`@lǿAdg`@lǿg`@lǿAdg`@l ǿg`@l ǿAdg`@lǿg`@lǿAdg`@lǿg`@lǿAdg`@lǿg`@lǿAdg`@lǿg`@lǿAdg`@lǿg`@lǿAdg`@lǿg`@lǿ0A X+jH&Hl AZ YjIIlJZdA dgdi`@lǰdgd`@lǁh`@Hǿ`@Iǰ(1427Q \ILLEGAL.ARG 1375Q \GETCHARCODE 1345Q \GETCHARCODE 516Q SHOULDNT) (1515Q \TRANSITIONSHIFTCODES 1506Q \TRANSITIONCODES 1472Q \TRANSITIONFLAGS 1462Q NOLOCKSHIFT 1450Q \TRANSITIONFLAGS 1436Q LOCKSHIFT 1326Q \TRANSITIONFLAGS 1321Q USERMODE3TOGGLE 1310Q \TRANSITIONFLAGS 1302Q USERMODE3DOWN 1267Q \TRANSITIONFLAGS 1262Q USERMODE3UP 1251Q \TRANSITIONFLAGS 1243Q USERMODE2TOGGLE 1230Q \TRANSITIONFLAGS 1223Q USERMODE2DOWN 1212Q \TRANSITIONFLAGS 1204Q USERMODE2UP 1171Q \TRANSITIONFLAGS 1164Q USERMODE1TOGGLE 1153Q \TRANSITIONFLAGS 1145Q USERMODE1DOWN 1132Q \TRANSITIONFLAGS 1125Q USERMODE1UP 1114Q \TRANSITIONFLAGS 1106Q FONTTOGGLE 1073Q \TRANSITIONFLAGS 1066Q FONTDOWN 1055Q \TRANSITIONFLAGS 1047Q FONTUP 1034Q \TRANSITIONFLAGS 1027Q METADOWN 1016Q \TRANSITIONFLAGS 1010Q METAUP 775Q \TRANSITIONFLAGS 770Q LOCKTOGGLE 757Q \TRANSITIONFLAGS 751Q LOCKDOWN 736Q \TRANSITIONFLAGS 731Q LOCKUP 720Q \TRANSITIONFLAGS 712Q 2SHIFTDOWN 677Q \TRANSITIONFLAGS 672Q 2SHIFTUP 661Q \TRANSITIONFLAGS 653Q 1SHIFTDOWN 640Q \TRANSITIONFLAGS 633Q 1SHIFTUP 622Q \TRANSITIONFLAGS 614Q CTRLDOWN 601Q \TRANSITIONFLAGS 574Q CTRLUP 564Q \TRANSITIONFLAGS 556Q EVENT 544Q \TRANSITIONFLAGS 537Q IGNORE 530Q NOCHANGE 512Q USERMODE3TOGGLE 502Q USERMODE3DOWN 467Q USERMODE3UP 454Q USERMODE2TOGGLE 441Q USERMODE2DOWN 426Q USERMODE2UP 413Q USERMODE1TOGGLE 400Q USERMODE1DOWN 365Q USERMODE1UP 352Q FONTTOGGLE 337Q FONTDOWN 324Q FONTUP 310Q METAUP 274Q METADOWN 260Q LOCKTOGGLE 244Q LOCKUP 230Q LOCKDOWN 214Q 2SHIFTUP 200Q 2SHIFTDOWN 164Q 1SHIFTUP 150Q 1SHIFTDOWN 134Q CTRLUP 120Q CTRLDOWN 104Q EVENT 65Q NOLOCKSHIFT 61Q LOCKSHIFT 50Q \TRANSITIONFLAGS 43Q \TRANSITIONSHIFTCODES 36Q \TRANSITIONCODES 14Q IGNORE 2 \TRANSITIONFLAGS) () NEW\DECODETRANSITION D1 (P 1 ASCIICODE P 0 TI I 1 DOWNFLG I 0 KEYNUMBER)  ``l$lA@lp؀@`Hdjhdl`jj``HYudl`jlj``HYVdk*`djdk` lhdl `j`jlhdl`j`jkhdl `j`jlhdl `j`jlhdl`j`jlhdl`j`jlhdl`j`jlj`jldl`kjhdl`kdhdl `ljhdl `lkhdl`l`llhdl`l`llhdl `l`llj`lldl`l`llhdl`l`lkhdl`l`lkj`lkdl`l`llhdl`l`llhdl `l`llj`lldl`l`llhdl`l`llhl`l`llj`ll`kjIl`lj`lljIl`IkIl ji`kp`II h(1410Q \PUTSYSBUF 1352Q LLSH 1257Q SHOULDNT 207Q SHOULDNT 203Q \PUTEVENTQUEUE 173Q \PUTEVENTQUEUE) (1377Q \INTERRUPTSTATE 1367Q \INTERRUPTSTATE 1363Q \PENDINGINTERRUPT 1332Q \ARMEDINTERRUPTS 1311Q \SHIFTSTATE 1300Q \SHIFTSTATE 1263Q \SHIFTSTATE 1244Q \SHIFTSTATE 1227Q \SHIFTSTATE 1222Q \SHIFTSTATE 1201Q \SHIFTSTATE 1174Q \SHIFTSTATE 1151Q \SHIFTSTATE 1144Q \SHIFTSTATE 1122Q \SHIFTSTATE 1105Q \SHIFTSTATE 1100Q \SHIFTSTATE 1055Q \SHIFTSTATE 1050Q \SHIFTSTATE 1025Q \SHIFTSTATE 1020Q \SHIFTSTATE 777Q \SHIFTSTATE 763Q \SHIFTSTATE 756Q \SHIFTSTATE 734Q \SHIFTSTATE 727Q \SHIFTSTATE 704Q \SHIFTSTATE 677Q \SHIFTSTATE 655Q \SHIFTSTATE 640Q \SHIFTSTATE 633Q \SHIFTSTATE 610Q \SHIFTSTATE 603Q \SHIFTSTATE 560Q \SHIFTSTATE 553Q \SHIFTSTATE 533Q \SHIFTSTATE 514Q \SHIFTSTATE 476Q \SHIFTSTATE 460Q \SHIFTSTATE 440Q \SHIFTSTATE 424Q \SHIFTSTATE 420Q \SHIFTSTATE 376Q \SHIFTSTATE 372Q \SHIFTSTATE 351Q \SHIFTSTATE 345Q \SHIFTSTATE 324Q \SHIFTSTATE 320Q \SHIFTSTATE 277Q \SHIFTSTATE 273Q \SHIFTSTATE 253Q \SHIFTSTATE 247Q \SHIFTSTATE 226Q \SHIFTSTATE 222Q \SHIFTSTATE 165Q \EVENTSTATUS 145Q \EVENTSTATUS 126Q \TRANSITIONCODES 122Q \TRANSITIONSHIFTCODES 107Q \SHIFTSTATE 67Q \TRANSITIONCODES 63Q \TRANSITIONSHIFTCODES 53Q \SHIFTSTATE 31Q \TRANSITIONFLAGS 5 \MISCSTATS 2 \LASTUSERACTION) () NEWGETMOUSESTATE D1 NIL ````dno`n߆`n`dno`qn`l `dj`*dk` dl`dl`dl`j%k#dl`hl`hhj`ll` h(326Q \EVENTKEYS 316Q \CLOCK0 125Q LRSH) (331Q LASTKEYBOARD 323Q LASTMOUSETIME 313Q \MOUSETIMEBOX 310Q LASTMOUSEBUTTONS 274Q \EM.UTILIN 256Q \EM.KBDAD5 241Q \EM.KBDAD4 216Q \EM.UTILIN 204Q \EM.KBDAD3 171Q \EM.KBDAD2 156Q \EM.KBDAD1 144Q \EM.KBDAD0 130Q \MIDDLEMOUSEKEYNUMBER 117Q \MIDDLEMOUSEKEYNUMBER 107Q \MIDDLEMOUSEKEYNUMBER 104Q LASTMOUSEY 63Q \EM.CURSORY 54Q \MOUSEHOTSPOTY 44Q \COLORCURSORBM 41Q LASTMOUSEX 20Q \EM.CURSORX 15Q \MOUSEHOTSPOTX 6 \EM.CURSORX 2 \COLORCURSORBM) ( 77Q 200000Q 34Q 200000Q) MIDDLEMOUSEKEY D1 (I 0 KEYNAME) )`@#@dggh @(35Q \KEYNAMETONUMBER) (45Q \MIDDLEMOUSEKEYNAME 40Q \MIDDLEMOUSEKEYNUMBER 30Q \MIDDLEMOUSEKEYNUMBER 23Q \MIDDLEMOUSEKEYNAME 20Q NONE 12Q NONE 2 \MIDDLEMOUSEKEYNAME) () (PRETTYCOMPRINT HARMONYKEYPATCHCOMS) (RPAQQ HARMONYKEYPATCHCOMS ((FNS SHIFTDOWNP \KEYACTION1 NEW\DECODETRANSITION NEWGETMOUSESTATE MIDDLEMOUSEKEY) (P (MIDDLEMOUSEKEY (QUOTE CENTER)) (MOVD (QUOTE NEWGETMOUSESTATE) (QUOTE GETMOUSESTATE ))) (GLOBALVARS \MIDDLEMOUSEKEYNAME \MIDDLEMOUSEKEYNUMBER) (VARS \KEYNAMES) (DECLARE: DONTEVAL@LOAD DOCOPY (P (AND (CCODEP (QUOTE NEW\DECODETRANSITION)) (WITHOUT-INTERRUPTS (PROGN (MOVD (QUOTE NEW\DECODETRANSITION) (QUOTE \DECODETRANSITION)) (\LOCKFN (QUOTE \DECODETRANSITION))))))) (DECLARE: DONTCOPY (RECORDS SHIFTSTATE) (CONSTANTS * TRANSITIONFLAGS)))) (MIDDLEMOUSEKEY (QUOTE CENTER)) (MOVD (QUOTE NEWGETMOUSESTATE) (QUOTE GETMOUSESTATE)) (RPAQQ \KEYNAMES ((5 %%) (4 $) (6 ~) (e E) (7 &) (d D) (u U) (v V) (0 %)) (k K) (- %) (p P) (/ ?) (\ %| FONT) (LF SAME) (BS <-) (3 #) (2 @) (w W) (q Q) (s S) (a A) (9 %() (i I) (x X) (o O) (l L) (, <) (' %") (%] }) (BLANK-MIDDLE OPEN) (BLANK-TOP KEYBOARD) (1 !) (ESC ESCAPE ->) (TAB =>) (f F) (CTRL PROP'S ) (c C) (j J) (b B) (z Z) (LSHIFT) (%. >) (; :) (CR <-%|) (_ ^) (DEL DELETE) (SKIP NEXT) (r R) (t T) ( g G) (y Y) (h H) (8 *) (n N) (m M) (LOCK) (SPACE) (%[ {) (= +) (RSHIFT) (BLANK-BOTTOM STOP) (MOVE) ( UNDO) (UTIL0) (UTIL1) (UTIL2) (UTIL3) (UTIL4) (UTIL5) (UTIL6) (UTIL7) (PAD1 LEFTKEY) (PAD2 LEFTMIDDLEKEY) (PAD3 MIDDLEKEY) (PAD4 RIGHTMIDDLEKEY) (PAD5 RIGHTKEY) (LEFT RED MOUSERED) (RIGHT BLUE MOUSEBLUE) (MIDDLE YELLOW MOUSEYELLOW) (MARGINS) (K41) (K42) (K43) (K44) (K45) (K46) (K47) (K48) (COPY ) (FIND) (AGAIN) (HELP) (DEF'N EXPAND) (K4E) (ALWAYS-ON-1) (ALWAYS-ON-2) (CENTER) (K52) (BOLD) ( ITALICS) (UNDERLINE) (SUPERSCRIPT) (SUBSCRIPT) (LARGER SMALLER) (K59) (K5A) (K5B) (K5C) (DEFAULTS) ( K5E) (K5F))) (AND (CCODEP (QUOTE NEW\DECODETRANSITION)) (WITHOUT-INTERRUPTS (PROGN (MOVD (QUOTE NEW\DECODETRANSITION) (QUOTE \DECODETRANSITION)) (\LOCKFN (QUOTE \DECODETRANSITION))))) (PUTPROPS HARMONYKEYPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL