(FILECREATED "19-APR-83 14:19:48" ("compiled on " {SDR2020}PS:VT100KP.;7) "28-FEB-83 19:39:58" recompiled exprs: BOTTOMHALFREGION BOXKEYPAD GETEDTKEYPAD GETKEYPAD INVERTPRINT KPCHARFROMXY TOPHALFREGION VT100KPFN in WORK dated "28-FEB-83 19:48:40") (FILECREATED "19-APR-83 14:18:51" {SDR2020}PS:VT100KP.;7 15035 changes to: (FNS GETKEYPAD VT100KPFN KPCHARFROMXY BOXKEYPAD GETEDTKEYPAD INVERTPRINT BOTTOMHALFREGION TOPHALFREGION) ( VARS VT100KPCOMS EDTKPH EDTKPHI) previous date: "18-APR-83 14:12:30" {SDR2020}PS:VT100KP.;6) BOTTOMHALFREGION D1 (L (0 REGION))  @@¹@â¸@IHhNIL NIL NIL BOXKEYPAD D1 (P 3 Y P 1 TX P 0 TY I 1 GRIDSPEC I 0 WINDOW) ˆ llKdJñ²_kA XjHlA Hkg@ kA YdkA Iløkg@ lA YdjIløkg@ lA YdjIløkg@ hA ¸jHl¨Hkg@ ¿KkØ[°†(177Q DRAWLINE 160Q BOTTOMOFGRIDCOORD 152Q DRAWLINE 133Q LEFTOFGRIDCOORD 125Q DRAWLINE 106Q LEFTOFGRIDCOORD 100Q DRAWLINE 64Q BOTTOMOFGRIDCOORD 55Q LEFTOFGRIDCOORD 50Q DRAWLINE 36Q LEFTOFGRIDCOORD 25Q BOTTOMOFGRIDCOORD) (172Q REPLACE 145Q REPLACE 120Q REPLACE 73Q REPLACE 43Q REPLACE) NIL GETEDTKEYPAD D1 (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 10Q KPARROWSBM) ækdl(dho 2@ I@ V°dMMMH @ µãojdH kjH Z @ oljH lkH [ @ oklH @ @g i W°WdMMH ¼@hd@hdddgghLkØLI ÙâLØLlÙI h ¿ML@ µªJ \@hd@hdddgghLkØLLI ÙâØLlÙI h oL@ K \@hd@hdddgghLkØLLI ÙâØLlÙI h oL@ jlH \@hd@hdddgghLlØLlØLlÙLlÙh oL@ @g Wjd@jH lH hdgg @H h(742Q BOXKEYPAD 735Q BITBLT 721Q BOTTOMOFGRIDCOORD 713Q LEFTOFGRIDCOORD 701Q INVERTPRINT 676Q GETWINDOWPROP 667Q CENTERPRINTINREGION 656Q BITBLT 573Q GRIDBOXREGION 564Q CENTERPRINTINREGION 553Q BITBLT 542Q FONTHEIGHT 524Q FONTHEIGHT 464Q BOTTOMHALFREGION 460Q CENTERPRINTINREGION 447Q BITBLT 436Q FONTHEIGHT 420Q FONTHEIGHT 360Q BOTTOMHALFREGION 347Q CENTERPRINTINREGION 337Q BITBLT 326Q FONTHEIGHT 305Q FONTHEIGHT 250Q BOTTOMHALFREGION 245Q GRIDBOXREGION 220Q INVERTPRINT 214Q GETWINDOWPROP 205Q CENTERPRINTINREGION 201Q GRIDBOXREGION 166Q CENTERPRINTINREGION 162Q TOPHALFREGION 156Q UNIONREGIONS 153Q GRIDBOXREGION 144Q GRIDBOXREGION 131Q CENTERPRINTINREGION 125Q TOPHALFREGION 121Q UNIONREGIONS 116Q GRIDBOXREGION 110Q GRIDBOXREGION 71Q CENTERPRINTINREGION 65Q TOPHALFREGION 62Q GRIDBOXREGION 34Q DSPFONT 27Q CLEARW 20Q FONTCREATE) (731Q REPLACE 726Q INPUT 673Q DSP 612Q REPLACE 607Q INVERT 503Q REPLACE 500Q INVERT 377Q REPLACE 374Q INVERT 267Q REPLACE 264Q INVERT 211Q DSP) (662Q "Gold" 557Q "Subs" 453Q "Open Line" 172Q "Help" 135Q "Enter" 102Q "Line" 15Q (HELVETICA 10Q)) GETKEYPAD D1 (P 7 I P 5 J P 3 GRIDSPEC P 2 KPWINDOW P 1 LFONT P 0 BFONT I 0 WINDOW F 10Q KPARROWSBM) Fo o @µl  lði o kdl(dh[lljJ J HJ ljMLñ³7lkONñ³$MlÚOØ OkÙMkØK J ¿OkØ_°ÜMkØ]°ÉojdK kjK J oldK J oljK J ollK J IJ ljONñ³"oOkØ OlK J ¿OkØ_°ÞoljK lkK J WjdJjK lK hdgg @ªJgg ¿JK h(502Q BOXKEYPAD 474Q PUTWINDOWPROP 460Q BITBLT 444Q BOTTOMOFGRIDCOORD 436Q LEFTOFGRIDCOORD 424Q CENTERPRINTINREGION 420Q UNIONREGIONS 415Q GRIDBOXREGION 406Q GRIDBOXREGION 361Q CENTERPRINTINREGION 355Q GRIDBOXREGION 345Q CONCAT 316Q DSPFONT 311Q CENTERPRINTINREGION 305Q GRIDBOXREGION 271Q CENTERPRINTINREGION 265Q GRIDBOXREGION 252Q CENTERPRINTINREGION 246Q GRIDBOXREGION 233Q CENTERPRINTINREGION 227Q UNIONREGIONS 224Q GRIDBOXREGION 216Q GRIDBOXREGION 163Q CENTERPRINTINREGION 157Q GRIDBOXREGION 144Q MKSTRING 103Q DSPFONT 76Q CLEARW 72Q GRID 42Q CREATEWINDOWFROMBOX 33Q HEIGHTIFWINDOW 25Q WIDTHIFWINDOW 15Q FONTCREATE 6 FONTCREATE) (471Q VT100KPFN 466Q BUTTONEVENTFN 454Q REPLACE 451Q INPUT) (377Q "ENTER" 336Q "PF" 275Q "," 256Q "." 237Q "--" 210Q "0" 37Q "VT100 Keypad" 12Q (HELVETICA 12Q BRR) 3 (HELVETICA 22Q BRR)) GRIDBOXREGION D1 (I 2 GRIDSPEC I 1 GRIDY I 0 GRIDX) @B AB BBh(11Q BOTTOMOFGRIDCOORD 4 LEFTOFGRIDCOORD) NIL NIL INVERTPRINT D1 (I 1 FLG I 0 DSP) A—g@ g@ (20Q DSPSOURCETYPE 10Q DSPSOURCETYPE) (14Q INPUT 4 INVERT) NIL KPCHARFROMXY D1 (P 0 GRIDSPEC I 1 Y I 0 X F 1 KPCHARARRAY) kdl(dhQ@H AH lÚØ((27Q GRIDYCOORD 22Q GRIDXCOORD) NIL NIL TOPHALFREGION D1 (L (0 REGION)) $ @@¹@â¸@@âØIHhNIL NIL NIL VT100KPCODE D1 (I 0 VALUE)  g  g @gð³@gð¬@gð¦@gð²cI²3@dgð”ogð”o@dgð”ogð”oo@dgð”ogð”o@dgð”ogð²ÕoH¢±À@djð”okð”o@dlð”olð”o@dlð”olð”o@dlð”olð”o@dlð”ol ð”o@dgð”ogð”o@dgð”ogð”o@dgð”ogð”o@dgð”ogð¢±ÿo@djð”okð”o@dlð”olð”o@dlð”olð”o@dlð”olð”o@dlð”ol ð”o@dgð”ogð”o@dgð”ogð”o@dgð’±ÿCgð’±ÿE@dgð’±ÿGgð’±ÿLo(27Q GETWINDOWPROP 21Q PROCESS.WINDOW 16Q TTY.PROCESS 13Q GETWINDOWPROP 5 PROCESS.WINDOW 2 TTY.PROCESS) (1004Q PF4 774Q PF3 762Q PF2 752Q PF1 736Q ENTER 724Q , 710Q %. 676Q - 515Q PF4 503Q PF3 467Q PF2 455Q PF1 441Q ENTER 427Q %. 413Q , 401Q - 215Q LEFT 203Q RIGHT 167Q DOWN 155Q UP 134Q LEFT 122Q RIGHT 106Q DOWN 74Q UP 61Q RIGHT 53Q LEFT 45Q DOWN 36Q UP 24Q CURSORMODE 10Q KPAPPLMODE) (1015Q "" 744Q " " 732Q "," 716Q "." 704Q "-" 670Q "9" 657Q "8" 644Q "7" 633Q "6" 620Q "5" 607Q "4" 574Q "3" 563Q "2" 550Q "1" 540Q "0" 526Q "OS" 511Q "OR" 475Q "OQ" 463Q "OP" 447Q "OM" 435Q "On" 421Q "Ol" 407Q "Om" 373Q "Oy" 362Q "Ox" 347Q "Ow" 336Q "Ov" 323Q "Ou" 312Q "Ot" 277Q "Os" 266Q "Or" 253Q "Oq" 243Q "Op" 224Q "" 211Q "" 175Q "" 163Q "" 147Q "" 142Q "OD" 130Q "OC" 114Q "OB" 102Q "OA") VT100KPFN D1 (P 6 GY P 5 GX P 4 VALUE P 3 REGION P 2 GRIDSPEC P 1 Y P 0 X I 0 WINDOW) @ @ jdl(dhS¿`låjð´h@ HI ³:`do¿di ¿dg ¿dg¿jdnÿdh_¿dO ¿ hHJ ]IJ ^Mdjð•¿djð©Mkð²Njð²jdJ kjJ °0Mdlð•¿NjðªMlð²Nkð²ljJ lkJ …MNJ [@hd@hdddgghK HI \@hd@hdddgghK L h(374Q BKSYSBUF 371Q VT100KPCODE 365Q BITBLT 340Q KPCHARFROMXY 333Q BITBLT 306Q GRIDBOXREGION 277Q UNIONREGIONS 274Q GRIDBOXREGION 265Q GRIDBOXREGION 226Q UNIONREGIONS 223Q GRIDBOXREGION 215Q GRIDBOXREGION 162Q GRIDYCOORD 154Q GRIDXCOORD 145Q MENU 55Q INSIDEP 50Q DSPCLIPPINGREGION 27Q GETMOUSESTATE 7 LASTMOUSEY 3 LASTMOUSEX) (357Q REPLACE 354Q INVERT 325Q REPLACE 322Q INVERT 113Q DEFAULTMENUHELDFN 104Q CLRPROMPT 62Q MENUTYPE# 33Q LASTMOUSEBUTTONS) (70Q (("EDT Keypad" (GETEDTKEYPAD WINDOW) "Put up an EDT Keypad") ("Plain Keypad" (GETKEYPAD WINDOW) "Put up a Plain keypad"))) VTCHAT.KPAPPLMODE D1 (I 0 FLG F 0 WINDOW) Pg@ (7 PUTWINDOWPROP) (3 KPAPPLMODE) 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))) (RPAQ KPARROWSBM (READBITMAP)) (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@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@") (SETQ KPCHARARRAY (READARRAY 24 (QUOTE POINTER) 0)) (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)))) NIL