(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "21-Jan-93 18:51:10" ("compiled on " {DSK}lde>lispcore>library>VT100KP.;1) " 7-Oct-92 12:15:13" bcompl'd in "Medley 7-Oct-92 ..." dated " 7-Oct-92 15:18:52") (FILECREATED "13-Jun-90 01:19:15" {DSK}local>lde>lispcore>library>VT100KP.;2 21739 changes to%: ( VARS VT100KPCOMS) previous date%: " 7-Dec-87 15:46:07" {DSK}local>lde>lispcore>library>VT100KP.;1 ) BOTTOMHALFREGION :D8 (L (0 REGION))  @@@@IHhNIL NIL () BOXKEYPAD :D8 (P 3 Y P 1 TX P 0 TY I 1 GRIDSPEC I 0 WINDOW)  llKJ{kA XjHlA Hkg@ kA YdkA Ilkg@ lA YdjIlkg@ lA YdjIlkg@ hKA jHlHkg@ Kk[d(161 DRAWLINE 142 BOTTOMOFGRIDCOORD 133 DRAWLINE 114 LEFTOFGRIDCOORD 106 DRAWLINE 87 LEFTOFGRIDCOORD 79 DRAWLINE 63 BOTTOMOFGRIDCOORD 54 LEFTOFGRIDCOORD 47 DRAWLINE 33 LEFTOFGRIDCOORD 22 BOTTOMOFGRIDCOORD) (154 REPLACE 126 REPLACE 99 REPLACE 72 REPLACE 40 REPLACE) () GETEDTKEYPAD :D8 (P 5 LABEL P 4 BR P 3 TMP1 P 2 TMP P 1 FONT P 0 GRIDSPEC I 0 WINDOW F 6 EDTKPH F 7 EDTKPHI F 8 KPARROWSBM) fkdl(dho 2@ I@ V$dMMMH @ ojdH kjH Z @ oljH lkH [ @ oklH @ @ i WkdMMH @hd@hdddgghLkLI LLlI h ML@ J \@hd@hdddgghLkLLI LlI h oL@ K \@hd@hdddgghLkLLI LlI h oL@ jlH \@hd@hdddgghLlLlLlLlh oL@ @ h Wjd@jH lH hdgg @H h(610 BOXKEYPAD 603 BKBITBLT 585 BOTTOMOFGRIDCOORD 577 LEFTOFGRIDCOORD 565 INVERTPRINT 557 \INSUREWINDOW 551 CENTERPRINTINREGION 539 BKBITBLT 482 GRIDBOXREGION 473 CENTERPRINTINREGION 461 BKBITBLT 392 BOTTOMHALFREGION 386 CENTERPRINTINREGION 374 BKBITBLT 305 BOTTOMHALFREGION 294 CENTERPRINTINREGION 284 BKBITBLT 215 BOTTOMHALFREGION 210 GRIDBOXREGION 187 INVERTPRINT 179 \INSUREWINDOW 173 CENTERPRINTINREGION 167 GRIDBOXREGION 153 CENTERPRINTINREGION 147 TOPHALFREGION 141 UNIONREGIONS 136 GRIDBOXREGION 127 GRIDBOXREGION 113 CENTERPRINTINREGION 107 TOPHALFREGION 101 UNIONREGIONS 96 GRIDBOXREGION 88 GRIDBOXREGION 70 CENTERPRINTINREGION 64 TOPHALFREGION 59 GRIDBOXREGION 35 DSPFONT 28 CLEARW 19 FONTCREATE) (597 REPLACE 592 INPUT 501 REPLACE 496 INVERT 448 FONTDESCRIPTOR 430 FONTDESCRIPTOR 411 REPLACE 406 INVERT 361 FONTDESCRIPTOR 343 FONTDESCRIPTOR 324 REPLACE 319 INVERT 271 FONTDESCRIPTOR 250 FONTDESCRIPTOR 234 REPLACE 229 INVERT) ( 544 "Gold" 466 "Subs" 379 "Open Line" 158 "Help" 118 "Enter" 80 "Line" 14 (HELVETICA 8)) GETKEYPAD :D8 (P 10 I P 8 I P 6 J P 4 GRIDSPEC P 3 KPWINDOW P 2 LFONT P 1 BFONT P 0 POS I 0 WINDOW F 11 KPARROWSBM)  o o @lkOO*NlO OkNkL K Ok_Nk^ojdL kjL K oldL K oljL K ollL K JK lj OO)oOk OlL K Ok_oljL lkL K WjdKjL lL hdgg @Kgg KL h(443 BOXKEYPAD 435 PUTWINDOWPROP 416 BKBITBLT 398 BOTTOMOFGRIDCOORD 390 LEFTOFGRIDCOORD 378 CENTERPRINTINREGION 372 UNIONREGIONS 367 GRIDBOXREGION 358 GRIDBOXREGION 334 CENTERPRINTINREGION 328 GRIDBOXREGION 318 CONCAT 291 DSPFONT 284 CENTERPRINTINREGION 278 GRIDBOXREGION 263 CENTERPRINTINREGION 257 GRIDBOXREGION 243 CENTERPRINTINREGION 237 GRIDBOXREGION 223 CENTERPRINTINREGION 217 UNIONREGIONS 212 GRIDBOXREGION 204 GRIDBOXREGION 174 CENTERPRINTINREGION 168 GRIDBOXREGION 155 MKSTRING 119 DSPFONT 112 CLEARW 106 GRID 79 CREATEW 64 HEIGHTIFWINDOW 56 WIDTHIFWINDOW 42 GETBOXPOSITION 37 HEIGHTIFWINDOW 29 WIDTHIFWINDOW 19 FONTCREATE 9 FONTCREATE) (430 VT100KPFN 425 BUTTONEVENTFN 410 REPLACE 405 INPUT) ( 349 "ENTER" 309 "PF" 268 "," 248 "." 228 "--" 196 "0" 74 "VT100 Keypad" 14 (HELVETICA 10 BRR) 4 (HELVETICA 18 BRR)) GRIDBOXREGION :D8 (I 2 GRIDSPEC I 1 GRIDY I 0 GRIDX) @B AB BBh(13 BOTTOMOFGRIDCOORD 6 LEFTOFGRIDCOORD) NIL () INVERTPRINT :D8 (I 1 FLG I 0 DSP) Ag@ g@ (24 DSPSOURCETYPE 12 DSPSOURCETYPE) (18 INPUT 6 INVERT) () KPCHARFROMXY :D8 (P 0 GRIDSPEC I 1 Y I 0 X F 1 KPCHARARRAY) 'kdl(dhQ@H lAH (36 ELT 29 GRIDYCOORD 20 GRIDXCOORD) NIL () TOPHALFREGION :D8 (I 0 REGION) $ @@@@@IHhNIL NIL () VT100KPCODE :D8 (L (2 VALUE 1 VT100.STATE 0 CHAT.STATE)) AjhAjhBgBgBgBgI@BdgogoBdgogooBdgogoBdgogooHBdjokoBdloloBdloloBdloloBdlol oBdgogoBdgogoBdgogoBdgogooBdjokoBdloloBdloloBdloloBdlol oBdgogoBdgogoBdgogoBdgogooNIL (625 PF4 612 PF3 597 PF2 584 PF1 569 ENTER 556 %, 541 %. 528 - 399 PF4 386 PF3 371 PF2 358 PF1 343 ENTER 330 %. 315 %, 302 - 168 LEFT 155 RIGHT 140 DOWN 127 UP 106 LEFT 93 RIGHT 78 DOWN 65 UP 50 RIGHT 42 LEFT 33 DOWN 24 UP) ( 638 "" 632 "OS" 619 "OR" 604 "OQ" 591 "OP" 576 " " 563 "," 548 "." 535 "-" 520 "9" 510 "8" 498 "7" 488 "6" 476 "5" 466 "4" 454 "3" 444 "2" 432 "1" 423 "0" 412 "" 406 "OS" 393 "OR" 378 "OQ" 365 "OP" 350 "OM" 337 "On" 322 "Ol" 309 "Om" 294 "Oy" 284 "Ox" 272 "Ow" 262 "Ov" 250 "Ou" 240 "Ot" 228 "Os" 218 "Or" 206 "Oq" 197 "Op" 181 "" 175 "" 162 "" 147 "" 134 "" 119 "" 113 "OD" 100 "OC" 85 "OB" 72 "OA") VT100KPFN :D8 (P 8 GY P 7 GX P 6 VALUE P 5 REGION P 4 VT100.STATE P 3 CHAT.STATE P 2 GRIDSPEC P 1 Y P 0 X I 0 WINDOW)  @ @ jdl(dh` g  `l_jO O h@ HI C`dodi dg dgjdndh_dO hKK"\HJ _IJ _OdjdjOkOjjdJ kjJ >OdlOjOl OkljJ lkJ OOJ ]@hd@hdddgghM HI ^`l_jOO @hd@hdddgghM KLN h(418 BKSYSBUF 413 VT100KPCODE 405 BKBITBLT 376 \BACKGROUND 370 \FZEROP 343 GETMOUSESTATE 337 KPCHARFROMXY 330 BKBITBLT 303 GRIDBOXREGION 292 UNIONREGIONS 287 GRIDBOXREGION 278 GRIDBOXREGION 241 UNIONREGIONS 236 GRIDBOXREGION 228 GRIDBOXREGION 195 GRIDYCOORD 186 GRIDXCOORD 158 MENU 93 INSIDEP 86 DSPCLIPPINGREGION 76 \FZEROP 49 GETMOUSESTATE 41 GETWINDOWUSERPROP 31 PROCESS.WINDOW 11 LASTMOUSEY 5 LASTMOUSEX) (397 REPLACE 392 INVERT 349 LASTMOUSEBUTTONS 322 REPLACE 317 INVERT 177 VT100.STATE 166 CHAT.STATE 130 DEFAULTMENUHELDFN 121 CLRPROMPT 100 |MENUTYPE#| 55 LASTMOUSEBUTTONS 36 CHATSTATE 26 \TTY.PROCESS) ( 107 (("EDT Keypad" (GETEDTKEYPAD WINDOW) "Put up an EDT Keypad") ("Plain Keypad" (GETKEYPAD WINDOW) "Put up a Plain keypad"))) VTCHAT.KPAPPLMODE :D8 (L (2 FLG 1 VT100.STATE 0 CHAT.STATE)) ABkjHIIjhNIL NIL () (PRETTYCOMPRINT VT100KPCOMS) (RPAQQ VT100KPCOMS ((FNS BOTTOMHALFREGION BOXKEYPAD GETEDTKEYPAD GETKEYPAD GRIDBOXREGION INVERTPRINT KPCHARFROMXY TOPHALFREGION VT100KPCODE VT100KPFN VTCHAT.KPAPPLMODE) (BITMAPS KPARROWSBM) (ARRAY KPCHARARRAY) (VARS EDTKPH EDTKPHI) (ADDVARS (CHATMENUITEMS ("VT100 Keypad" (GETKEYPAD) "Brings up a VT100 keypad"))) (* ;; "Nuke CHATMENU so CHATMENUITEMS will reflect this change") (VARS CHATMENU))) (RPAQQ KPARROWSBM #*(160 40)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH@@@@@@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL@@@@@@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON@@@@@@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@AOO@@@@@@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH@@@@@@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH@@@@@@@@CH@@@@@@@B@@@@@@@@@@@@H@@@@@@@CH@@@@@@@@CH@@@@@@@F@@@@@@@@@@@@L@@@@@@@CH@@@@@@@@CH@@@@@@@N@@@@@@@@@@@@N@@@@@@@CH@@@@@@@@CH@@@@@@AOOOOH@@@@COOOO@@@@@@@CH@@@@@@@@CH@@@@@@COOOOH@@@@COOOOH@@@@@@CH@@@@@@@@CH@@@@@@AOOOOH@@@@COOOO@@@@@@@CH@@@@@@@@CH@@@@@@@N@@@@@@@@@@@@N@@@@@@@CH@@@@@@@@CH@@@@@@@F@@@@@@@@@@@@L@@@@@@@CH@@@@@@@AOO@@@@@@@B@@@@@@@@@@@@H@@@@@@@CH@@@@@@@@ON@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH@@@@@@@@GL@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH@@@@@@@@CH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQ KPCHARARRAY (READARRAY-FROM-LIST 24 (QUOTE POINTER) 0 (QUOTE (0 0 %. ENTER 1 2 3 ENTER 4 5 6 %, 7 8 9 - PF1 PF2 PF3 PF4 UP DOWN LEFT RIGHT NIL)))) (RPAQQ EDTKPH (("Select" (2 . 0)) ("Word" (0 . 1)) ("Eol" (1 . 1)) ("Char" (2 . 1)) ("Advance" (0 . 2) ) ("Backup" (1 . 2)) ("Cut" (2 . 2)) ("Del C" (3 . 2)) ("Page" (0 . 3)) ("Sect" (1 . 3)) ("Append" (2 . 3)) ("Del W" (3 . 3)) ("Fndnxt" (2 . 4)) ("Del L" (3 . 4)))) (RPAQQ EDTKPHI (("Reset" (2 . 0)) ("Case" (0 . 1)) ("Del Eol" (1 . 1)) ("Specins" (2 . 1)) ("Bottom" ( 0 . 2)) ("Top" (1 . 2)) ("Paste" (2 . 2)) ("Und C" (3 . 2)) ("Cmnd" (0 . 3)) ("Fill" (1 . 3)) ( "Replace" (2 . 3)) ("Und W" (3 . 3)) ("Find" (2 . 4)) ("Und L" (3 . 4)))) (ADDTOVAR CHATMENUITEMS ("VT100 Keypad" (GETKEYPAD) "Brings up a VT100 keypad")) (RPAQQ CHATMENU NIL) (PUTPROPS VT100KP COPYRIGHT ("Venue & Xerox Corporation" 1985 1987 1990)) NIL