(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Feb-2022 23:29:19" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>lispusers>LOOKUPINFILES.;2) " 1-Feb-2022 22:31:00" "COMPILE-FILEd" in "FULL 1-Feb-2022 ..." dated " 1-Feb-2022 22:31:06") (FILECREATED " 1-Feb-2022 17:00:03" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>LOOKUPINFILES.;2 32247 :CHANGES-TO (FNS MakeLookupWindow ShowLookUpString) :PREVIOUS-DATE "23-Feb-89 13:20:33" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>LOOKUPINFILES.;1) (RPAQQ LOOKUPINFILESCOMS ((* ;;; "Fast lookup in files") (LOCALVARS . T) (SPECVARS PROMPTWINDOW) (FNS AddFileToList DeleteFileFromList Lookup-CacheFile Lookup-CacheFiles Lookup-EditFile Lookup-KillProcess Lookup-MakeIconWindow Lookup-RecacheFile Lookup-RightbuttonFn Lookup-CacheFile Lookup-RightbuttonFn Lookup-StartProcess Lookup-TitleMenuFn Lookup-WhenClosedFn Lookup-WhenOpenedFn LookupAttachedMenu LookupString MakeLookupWindow ShowLookUpString) (FUNCTIONS Lookup-Notify busy-protect) (VARS *LookupPrompt* DEFAULT-LOOKUP-BITMAP DEFAULT-LOOKUP-MASK (LOOKUP-DEFAULT-EDITREGION (CREATEREGION 300 300 400 200)) (LOOKUP-DEFAULT-ICONPOSITION (CREATEPOSITION 300 300))) (GLOBALVARS *LookupPrompt* DEFAULT-LOOKUP-BITMAP DEFAULT-LOOKUP-MASK LOOKUP-DEFAULT-EDITREGION LOOKUP-DEFAULT-ICONPOSITION) ( DECLARE%: DONTCOPY (RECORDS Lookup-CacheRecord)))) AddFileToListA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 WINDOW F 5 PROMPTWINDOW F 6 fullname F 7 entry) Tgo T T T ohdohddd 1i T UY oI HI I H c bTgHTg  TgVhddHhcTg  WT T UoJ J H)T U[ HK oK K (257 TERPRI 251 PRIN1 240 PRIN1 233 TERPRI 224 OPENWP 214 TERPRI 208 PRIN1 193 OPENWP 187 Lookup-CacheFile 179 PUTWINDOWPROP 173 GETWINDOWUSERPROP 143 PUTWINDOWPROP 137 GETWINDOWUSERPROP 115 FULLNAME 108 TERPRI 101 PRIN1 93 PRIN1 81 TERPRI 72 OPENWP 66 TTY.PROCESS 57 TTYIN 35 Lookup-KillProcess 28 CLEARW 21 OPENWP 15 PUTWINDOWPROP) (168 CacheForFiles 149 CacheForFiles 132 FileList 125 FileList 5 BUSYACTION) ( 245 " not found." 202 "Caching done" 87 "Trying to add " 47 (STRING NORAISE) 40 "New File: " 10 "adding file to list") AddFileToListA0002 :D8 (F 0 WINDOW) Pgh P (17 Lookup-StartProcess 11 PUTWINDOWPROP) (5 BUSYACTION) () AddFileToList :D8 (P 1 fullname P 0 entry I 0 WINDOW) L  @ @g )g @gh @ $h(67 Lookup-StartProcess 60 PUTWINDOWPROP 48 \MVLIST 43 AddFileToListA0001 31 GETWINDOWUSERPROP 19 TTYDISPLAYSTREAM 12 TTY.PROCESS 7 THIS.PROCESS) (54 BUSYACTION 38 AddFileToListA0002 26 BUSYACTION) () DeleteFileFromListA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 window F 5 ITEMS) Tgo T T T `@U/d[Kddi3 gKhhIHhZH&JHdIdg dgjdndhHdI  H5TgHU TgHTg (208 PUTWINDOWPROP 203 REMOVE 198 GETWINDOWUSERPROP 175 PUTWINDOWPROP 170 REMOVE 151 MENU 35 Lookup-KillProcess 28 CLEARW 21 OPENWP 15 PUTWINDOWPROP) (193 FileList 181 FileList 163 CacheForFiles 122 DEFAULTMENUHELDFN 113 CLRPROMPT 72 QUOTE 40 |MENUTYPE#| 5 BUSYACTION) ( 10 "deleting file from list") DeleteFileFromListA0008 :D8 (F 0 window) Pgh P (17 Lookup-StartProcess 11 PUTWINDOWPROP) (5 BUSYACTION) () DeleteFileFromList :D8 (P 0 ITEMS I 0 window F 2 PROMPTWINDOW) ^@g H8@g )g @gh @ $h@ RoI (91 PRIN1 76 OPENWP 63 Lookup-StartProcess 56 PUTWINDOWPROP 44 \MVLIST 39 DeleteFileFromListA0001 27 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (50 BUSYACTION 34 DeleteFileFromListA0008 22 BUSYACTION 5 CacheForFiles) ( 85 "No files") Lookup-CacheFile :D8 (L (2 window 1 msgStream 0 entry) F 15 PROMPTWINDOW) b@Bgh Bgh K>ggghgK XghgK [A WoL Kg L L K A WoM Kg M M @K@_KH g YO_I ZO_J O^@Nh@A W_KO oO O @K@_hO_hO_hO_hOh@(311 TERPRI 303 PRIN1 290 PRIN1 275 OPENWP 243 TEXTOBJ 229 OPENTEXTSTREAM 215 OPENSTREAM 205 COPYFILE 190 TERPRI 183 PRIN1 177 FILENAMEFIELD 165 PRIN1 149 OPENWP 137 FINDFILE 130 TERPRI 123 PRIN1 117 FILENAMEFIELD 105 PRIN1 89 OPENWP 82 PACKFILENAME 64 PACKFILENAME.STRING 29 PUTWINDOWPROP 17 PUTWINDOWPROP) (248 TEXTOBJ 210 INPUT 172 NAME 112 NAME 76 BODY 70 VERSION 57 BODY 51 VERSION 46 NODIRCORE 41 HOST 23 lastEntryIndex 11 lastFileIndex) ( 296 " not found" 159 "Caching: " 99 "Looking for: ") Lookup-CacheFilesA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 10 WINDOW F 11 PROMPTWINDOW) A Wgo W W W pWg Y+0 Id_O Oh_O&_OWg WgJ Wgh W W[ oK K J4d] 0W WML oL L HhddMhHXdWd W W^ oN N WgH (318 PUTWINDOWPROP 313 REVERSE 299 TERPRI 292 PRIN1 280 TERPRI 270 OPENWP 258 Lookup-CacheFile 225 TERPRI 218 PRIN1 206 PRIN1 194 OPENWP 185 FULLNAME 173 TERPRI 166 PRIN1 154 TERPRI 144 OPENWP 137 PUTWINDOWPROP 124 PUTWINDOWPROP 110 GETWINDOWUSERPROP 54 GETWINDOWUSERPROP 39 Lookup-KillProcess 31 CLEARW 23 OPENWP 16 PUTWINDOWPROP) (307 CacheForFiles 131 CacheForFiles 118 FileList 105 FileList 49 CacheForFiles 6 BUSYACTION) ( 286 "Caching done" 212 " not found" 160 "Caching files in core..." 11 "caching files.") Lookup-CacheFilesA0002 :D8 (F 0 WINDOW) Pgh P (17 Lookup-StartProcess 11 PUTWINDOWPROP) (5 BUSYACTION) () Lookup-CacheFiles :D8 (I 0 WINDOW) 7@g )g @gh @ $h(46 Lookup-StartProcess 39 PUTWINDOWPROP 27 \MVLIST 22 Lookup-CacheFilesA0001 10 GETWINDOWUSERPROP) (33 BUSYACTION 17 Lookup-CacheFilesA0002 5 BUSYACTION) () Lookup-EditFile :D8 (L (0 window) F 9 PROMPTWINDOW) @dg "@g @g g QHw`0H5dZJYddi3 gIhhONh_N&_OdKdg dgjdndhdL @ WoM h!Hd @g HJIdJj I(250 TEDIT.NORMALIZECARET 245 TEDIT.SETSEL 231 GETWINDOWUSERPROP 219 TEDIT 214 MKATOM 200 PRIN1 184 OPENWP 176 MENU 55 GETWINDOWUSERPROP 41 NTH 36 GETWINDOWUSERPROP 25 GETWINDOWUSERPROP 11 GETWINDOWUSERPROP) (226 lastEntryIndex 151 DEFAULTMENUHELDFN 142 CLRPROMPT 100 QUOTE 66 |MENUTYPE#| 50 CacheForFiles 31 lastFileIndex 20 FileList 6 lastFileIndex) ( 194 "No files") Lookup-KillProcess :D8 (L (0 WINDOW)) V@ H .Hgh @gh I $Id i I Igh (83 PROCESSPROP 71 DEL.PROCESS 64 TTY.PROCESS 56 TTY.PROCESSP 47 PROCESSP 41 PUTWINDOWPROP 29 PUTWINDOWPROP 14 \INSUREWINDOW 5 GETPROMPTWINDOW) (77 PROCWINDOW 35 lookupProcess 23 PROCESS) () Lookup-MakeIconWindowA0001 :D8 (L (0 W)) @g @ (17 EXPANDW 10 GETWINDOWUSERPROP) (5 ICONFOR) () Lookup-MakeIconWindow :D8 (L (4 icontitle 3 iconPosition 2 iconMask 1 iconBM 0 window) F 1 DEFAULTICONFONT) qA`b`bD-ABldA ll hDQC`i ABC`i @gH Hgg (110 PUTWINDOWPROP 94 PUTWINDOWPROP 79 ICONW 62 TITLEDICONW 41 CREATEREGION 31 BITMAPWIDTH) (105 Lookup-MakeIconWindowA0001 100 CLOSEFN 88 ICON 73 LOOKUP-DEFAULT-ICONPOSITION 55 LOOKUP-DEFAULT-ICONPOSITION 14 DEFAULT-LOOKUP-MASK 6 DEFAULT-LOOKUP-BITMAP) () Lookup-RecacheFileA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 WINDOW F 5 PROMPTWINDOW) Tgo T T T Tg 1T HqT UoI I Tg H Td T UoJ J T 6Tg THj T U[ oK K (206 TERPRI 200 PRIN1 189 TERPRI 180 OPENWP 173 ShowLookUpString 165 GETWINDOWUSERPROP 152 OPENWP 145 TERPRI 138 PRIN1 123 OPENWP 117 Lookup-CacheFile 109 NTH 103 GETWINDOWUSERPROP 91 TERPRI 84 PRIN1 69 OPENWP 60 CLEARW 55 GETPROMPTWINDOW 46 GETWINDOWUSERPROP 35 Lookup-KillProcess 28 CLEARW 21 OPENWP 15 PUTWINDOWPROP) (160 searchString 98 CacheForFiles 41 lastFileIndex 5 BUSYACTION) ( 194 "No file selected" 132 "Caching done" 78 "Recaching" 10 "recaching a file.") Lookup-RecacheFileA0002 :D8 (F 0 WINDOW) Pgh P (17 Lookup-StartProcess 11 PUTWINDOWPROP) (5 BUSYACTION) () Lookup-RecacheFile :D8 (I 0 WINDOW) 7@g )g @gh @ $h(46 Lookup-StartProcess 39 PUTWINDOWPROP 27 \MVLIST 22 Lookup-RecacheFileA0001 10 GETWINDOWUSERPROP) (33 BUSYACTION 17 Lookup-RecacheFileA0002 5 BUSYACTION) () Lookup-RightbuttonFn :D8 (L (1 s 0 W)) `dodg dgjdndhHdI  dg@ dg@ dg.@ oh@i @ @ @hi dg@hi g@ (175 SHRINKW 160 REDISPLAYW 142 REDISPLAYW 133 CLOSEW 127 Lookup-KillProcess 120 MOUSECONFIRM 106 CLEARW 89 SHAPEW 73 MOVEW 58 MENU) (166 Shrink 149 Redisplay 96 Close 80 Shape 64 Move 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 112 "Are you sure you want to close this Lookup window? " 11 (Move Shape Close Redisplay Shrink)) Lookup-CacheFile :D8 (L (2 window 1 msgStream 0 entry) F 15 PROMPTWINDOW) b@Bgh Bgh K>ggghgK XghgK [A WoL Kg L L K A WoM Kg M M @K@_KH g YO_I ZO_J O^@Nh@A W_KO oO O @K@_hO_hO_hO_hOh@(311 TERPRI 303 PRIN1 290 PRIN1 275 OPENWP 243 TEXTOBJ 229 OPENTEXTSTREAM 215 OPENSTREAM 205 COPYFILE 190 TERPRI 183 PRIN1 177 FILENAMEFIELD 165 PRIN1 149 OPENWP 137 FINDFILE 130 TERPRI 123 PRIN1 117 FILENAMEFIELD 105 PRIN1 89 OPENWP 82 PACKFILENAME 64 PACKFILENAME.STRING 29 PUTWINDOWPROP 17 PUTWINDOWPROP) (248 TEXTOBJ 210 INPUT 172 NAME 112 NAME 76 BODY 70 VERSION 57 BODY 51 VERSION 46 NODIRCORE 41 HOST 23 lastEntryIndex 11 lastFileIndex) ( 296 " not found" 159 "Caching: " 99 "Looking for: ") Lookup-RightbuttonFn :D8 (L (1 s 0 W)) `dodg dgjdndhHdI  dg@ dg@ dg.@ oh@i @ @ @hi dg@hi g@ (175 SHRINKW 160 REDISPLAYW 142 REDISPLAYW 133 CLOSEW 127 Lookup-KillProcess 120 MOUSECONFIRM 106 CLEARW 89 SHAPEW 73 MOVEW 58 MENU) (166 Shrink 149 Redisplay 96 Close 80 Shape 64 Move 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 112 "Are you sure you want to close this Lookup window? " 11 (Move Shape Close Redisplay Shrink)) Lookup-StartProcess :D8 (L (0 WINDOW)) @ @ . hq@g 7@ @ o@ @g @ @ hi,g@hg@g g@ (144 ADD.PROCESS 138 GETPROMPTWINDOW 127 GETWINDOWUSERPROP 96 TERPRI 89 PRIN1 83 GETWINDOWUSERPROP 71 PRIN1 59 TERPRI 52 CLEARW 44 GETWINDOWUSERPROP 29 PROCESSP 22 \INSUREWINDOW 17 GETPROMPTWINDOW 5 OPENWP) (132 WINDOW 122 ProcessName 116 NAME 107 LookupString 78 BUSYACTION 39 BUSYACTION) ( 65 "Busy with ") Lookup-TitleMenuFn :D8 (L (0 window)) @g oo dg@ dg@ dg!@go @ @i dg@ dg'g&@gh @go @ (168 Lookup-EditFile 161 PUTWINDOWPROP 144 PUTWINDOWPROP 114 Lookup-RecacheFile 98 Lookup-CacheFiles 91 CLEARW 85 PUTWINDOWPROP 58 DeleteFileFromList 42 AddFileToList 27 MENU 10 GETWINDOWUSERPROP) (151 TITLE 138 lastFileIndex 129 EditFile 121 Edit 105 RecacheFile 75 TITLE 65 Recache 49 DeleteFile 33 AddFile 5 lastFileIndex) ( 156 "" 80 "" 22 (create MENU ITEMS _ (QUOTE (("Select file to edit" (QUOTE EditFile) "Make choice from current files") ("Add new file" (QUOTE AddFile) "Add specified file to list") ("Delete file from list" (QUOTE DeleteFile) "Delete file from those used for lookup") ("Recache all files" (QUOTE Recache))))) 16 (create MENU ITEMS _ (QUOTE (("Edit file named in window title" (QUOTE Edit) "Edit file named in window title" (SUBITEMS ("Select file to edit" (QUOTE EditFile)))) ("Add new file" (QUOTE AddFile) "Add specified file to list") ("Delete file from list" (QUOTE DeleteFile) "Delete file from those used for lookup") ("Recache file named in window title" (QUOTE RecacheFile) "Recache file named in window title" (SUBITEMS ("Recache all files" (QUOTE Recache)))))))) Lookup-WhenClosedFn :D8 (L (0 window)) !@ @gh @gh @(29 PUTWINDOWPROP 17 PUTWINDOWPROP 5 Lookup-KillProcess) (23 OPENFN 11 CacheForFiles) () Lookup-WhenOpenedFn :D8 (L (0 WINDOW)) #@gg @ @ (32 Lookup-StartProcess 26 CLEARW 21 GETPROMPTWINDOW 15 PUTWINDOWPROP) (10 Lookup-RightbuttonFn 5 RIGHTBUTTONFN) () LookupAttachedMenu :D8 (L (2 button 1 menu 0 ITEM)) A !Hg @dg]IgH H IJ J Hg Hdg 3kHg 3mk H gH (142 SHRINKW 127 Lookup-StartProcess 121 ShowLookUpString 108 GETWINDOWUSERPROP 92 GETWINDOWUSERPROP 80 GETWINDOWUSERPROP 68 TERPRI 61 PRIN1 53 GETPROMPTWINDOW 47 Lookup-KillProcess 24 GETWINDOWUSERPROP 10 MAINWINDOW 5 WFROMMENU) (133 SHRINK 103 lastEntryIndex 87 lastFileIndex 75 searchString 34 NEXT 19 searchString) () LookupStringA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) 'go `hdohddd (36 TTYIN 14 SETTOPVAL) (19 *LookupPrompt* 4 TTYINREADMACROS) ( 26 (STRING NORAISE) 9 ((19 T CONS))) LookupString :D8 (L (0 mainWindow) P 3 SI::*RESETFORMS*) @ @ !H H  hH h@gg gd hg $Yd@ Q@g Z`H JH H J@dg @g mk ZI@ P(213 ShowLookUpString 203 ShowLookUpString 192 GETWINDOWUSERPROP 181 GETWINDOWUSERPROP 167 TERPRI 160 PRIN1 152 PRIN1 138 GETWINDOWUSERPROP 123 PROCESS.RETURN 117 SHRINKW 101 SI::RESETUNWIND 96 \MVLIST 91 LookupStringA0001 75 GETTOPVAL 63 PUTWINDOWPROP 44 OPENWP 36 TTY.PROCESS 31 THIS.PROCESS 26 TTYDISPLAYSTREAM 20 CLEARW 11 GETPROMPTWINDOW 5 OPENW) (187 lastEntryIndex 176 lastFileIndex 146 *LookupPrompt* 133 searchString 86 SI::RESETUNWIND 69 TTYINREADMACROS 58 Lookup-RightbuttonFn 53 RIGHTBUTTONFN) () MakeLookupWindow :D8 (L (6 iconTitle 5 iconPosition 4 iconMask 3 iconBM 2 editRegion 1 processName 0 fileList)) l`di dododgdg dgjdndhHdI ogB` Hlo HCDEF Hgg Hgg HggH $ Hgg HggHg  hHhdo Hgg Hg@ddh HgAg H #dYgi Igg gHh H H(360 SHRINKW 354 ADD.PROCESS 335 PUTWINDOWPROP 318 PUTWINDOWPROP 302 ALLATTACHEDWINDOWS 296 PUTWINDOWPROP 277 PUTWINDOWPROP 258 PUTWINDOWPROP 242 OPENTEXTSTREAM 227 PUTWINDOWPROP 221 GETWINDOWUSERPROP 199 PUTWINDOWPROP 183 PUTWINDOWPROP 175 \INSUREWINDOW 158 WINDOWADDPROP 142 WINDOWADDPROP 126 Lookup-MakeIconWindow 115 GETPROMPTWINDOW 99 CREATEMENUEDWINDOW) (345 Lookup-CacheFiles 330 NILL 325 RIGHTBUTTONFN 312 PASSTOMAINCOMS 291 Lookup 283 ProcessName 264 FileList 253 Lookup-TitleMenuFn 248 TEDIT.TITLEMENUFN 216 SHRINKFN 210 Lookup-KillProcess 205 SHRINKFN 194 Lookup-RightbuttonFn 189 RIGHTBUTTONFN 169 Lookup-KillProcess 164 CLOSEFN 153 Lookup-WhenOpenedFn 148 EXPANDFN 137 Lookup-WhenOpenedFn 132 OPENFN 94 LOOKUP-DEFAULT-EDITREGION 86 TOP 52 DEFAULTMENUHELDFN 43 CLRPROMPT 34 LookupAttachedMenu 4 |MENUTYPE#|) ( 236 (READONLY T TEDIT.TITLEMENUFN Lookup-TitleMenuFn) 110 (HELVETICA 12 BOLD) 81 "" 25 (("Shrink" SHRINK "Shrink window to an icon") ("Next Occurrence" NEXT "Find next occurrence of string.")) 16 (HELVETICA 12 BOLD)) ShowLookUpString :D8 (L (3 start-pos 2 lst-index 1 window 0 name-or-string)) hBkbCjbAg@ Ag B BRH`Agh Agh Ago @o Ahdo k@ gi hZ\ Lg Agh @LCJhd` [AgK J^Kk@ IAg NM 6AgoJ AgI NAhdo Mg NiM jbHIkԹ(342 TEDIT.SHOWSEL 334 TEDIT.SET.SEL.LOOKS 322 OPENTEXTSTREAM 306 PUTWINDOWPROP 293 PUTWINDOWPROP 288 CONCAT 268 TEDIT.NORMALIZECARET 260 EQP 255 GETWINDOWUSERPROP 242 TEDIT.SETSEL 237 NCHARS 222 PUTWINDOWPROP 205 FILEPOS 183 PUTWINDOWPROP 170 OPENSTREAM 157 OPENP 140 TEDIT.SETSEL 128 NCHARS 121 OPENTEXTSTREAM 107 OPENSTREAMSTRING 102 CONCAT 90 PUTWINDOWPROP 73 PUTWINDOWPROP 60 PUTWINDOWPROP 40 NTH 34 GETWINDOWUSERPROP 23 PUTWINDOWPROP) (329 PENDINGDEL 300 lastFileIndex 276 TITLE 250 lastFileIndex 216 lastEntryIndex 199 UPPERCASEARRAY 177 lastFileIndex 165 INPUT 133 RIGHT 80 TITLE 67 lastEntryIndex 54 lastFileIndex 29 CacheForFiles 17 searchString) ( 316 (READONLY T) 281 "Looking in: " 115 (READONLY T) 97 " not found." 85 "") expand-Lookup-Notify :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) *@!HHgggIhoJNIL (25 OPENWP 20 OR 15 PRINTOUT) ( 34 (PROMPTWINDOW)) (SETF-MACRO-FUNCTION (QUOTE Lookup-Notify) (QUOTE expand-Lookup-Notify)) expand-busy-protect :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @aHHZJ\LggIogggIoKhggIhgIhhgIhMhNgIogIhhhNIL (128 Lookup-StartProcess 115 WINDOWPROP 98 Lookup-KillProcess 85 CLEARW 76 OPENWP 71 AND 54 WINDOWPROP 49 PROGN 44 CL:UNWIND-PROTECT 31 WINDOWPROP 26 CL:UNLESS) ( 121 ((QUOTE BUSYACTION) NIL) 60 (QUOTE BUSYACTION) 37 ((QUOTE BUSYACTION))) (SETF-MACRO-FUNCTION (QUOTE busy-protect) (QUOTE expand-busy-protect)) (RPAQQ *LookupPrompt* "Lookup String: ") (RPAQQ DEFAULT-LOOKUP-BITMAP #*(62 92)OOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLN@@@@@@@@@@@@@ALL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@OOH@@@@@@@@@LL@COON@@@@@@@@@LL@GOOO@@@@@@@@@LL@OOOOH@@@@@@@@LLAOOOOL@@@@@@@@LLAOOOOL@@@@@@@@LLAOOOOL@@@@@@@@LLCOOOON@@@@@@@@LLCOOOON@@@@@@@@LLCOOOON@@@@D@@@LLCOOOON@@@@N@A@LLCOOOON@@@AO@C@LLCOOOON@@@COHG@LLCOOOON@@@GOLO@LLAOOOOL@@@OONO@LLAOOOOL@@AOOOG@LLAOOOOL@@COOOK@LL@OOOOH@@GOOOM@LL@GOOO@@@OOOOO@LL@COON@@AOOOOO@LL@@OOH@@COOOON@LL@L@@@@@GOOOOL@LL@N@@@@@GOOOOH@LL@OON@@@COOOO@@LL@OOO@@@AOOON@@LL@OOOH@@@OOOL@@LL@OOOL@@@GOOH@@LL@OOON@@@COO@@@LL@OOOO@@@AON@@@LL@OOOOH@@@OL@@@LL@OOOOL@@NGH@@@LL@OOOON@AOC@@@@LL@OOOOO@COH@@@@LL@OOOOOHGOH@@@@LL@OOOOOLOOH@@@@LL@OOOOOOOO@@@@@LL@OOOOOOON@@@@@LL@OOOOOOOL@@@@@LL@OOOOOOOH@@@@@LL@OOONOOO@@@@@@LL@OOONGON@@@@@@LL@OOONCOL@@@@@@LL@OOONAOH@@@@@@LL@OOON@O@@@@@@@LL@GOON@F@@@@@@@LL@COON@@@@@@@@@LL@AOON@@@@@@@@@LL@@OON@@@@@@@@@LL@@GON@@@@@@@@@LL@@CON@@@@@@@@@LL@@AON@@@@@@@@@LL@@@ON@@@@@@@@@LL@@@GN@@@@@@@@@LL@@@CN@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LL@@@@@@@@@@@@@@LOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOL ) (RPAQQ DEFAULT-LOOKUP-MASK #*(62 92)OOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOLOOOOOOOOOOOOOOOL ) (RPAQ LOOKUP-DEFAULT-EDITREGION (CREATEREGION 300 300 400 200)) (RPAQ LOOKUP-DEFAULT-ICONPOSITION (CREATEPOSITION 300 300)) (PUTPROPS LOOKUPINFILES COPYRIGHT ("Xerox Corporation" 1986 1988 1989)) NIL