(FILECREATED "19-Nov-86 15:02:58" ("compiled on " {PHYLUM}LISP>ADDRESSBOOK.;13) "12-Nov-85 14:59:23" recompiled exprs: MakeAddressBook in "LOOPS/KOTO 31-Oct-86 ..." dated "31-Oct-86 15:11:49") (FILECREATED "19-Nov-86 15:02:45" {PHYLUM}LISP>ADDRESSBOOK.;13 5377 changes to: (FNS EditAddressBookFile Lookup-WhenOpenedFn Lookup-WhenClosedFn Lookup-KillProcess Lookup-CacheFiles Lookup-TitleMenuFn Lookup-EditFile LookupString MakeAddressBook MakeLookupWindow CacheForAddressBook SearchFileList ShowLookUpString Address-BookWhenOpenedFn AddressBookCloseFn AddressBookKillProcess CachingWanted MakeAddressBookWindow) (VARS ADDRESSBOOKCOMS *LookupPrompt*) (RECORDS Lookup-CacheRecord AddressBookCache) previous date: "17-Nov-86 16:15:44" {PHYLUM}LISP>ADDRESSBOOK.;9) MakeAddressBook D1 (F 0 *AddressBookFiles* F 1 *Address-Book-Region* F 2 *Address-Book-Pos* F 3 AddressBookBM F 4 AddressBookMask) PgQSTR (13Q MakeLookupWindow) (3 Address% Book) () (PRETTYCOMPRINT ADDRESSBOOKCOMS) (RPAQQ ADDRESSBOOKCOMS ((FNS MakeAddressBook) (INITVARS (*Address-Book-Pos* (create POSITION XCOORD _ 970 YCOORD _ (DIFFERENCE SCREENHEIGHT 90))) (*Address-Book-Region* (CREATEREGION 300 (DIFFERENCE SCREENHEIGHT 500) 400 200)) (*AddressBookFiles* (COND ((BOUNDP (QUOTE PHONELISTFILES)) PHONELISTFILES) ))) (VARS AddressBookBM AddressBookMask) (FILES LOOKUPINFILES) (P (MakeAddressBook)))) (RPAQ? *Address-Book-Pos* (create POSITION XCOORD _ 970 YCOORD _ (DIFFERENCE SCREENHEIGHT 90))) (RPAQ? *Address-Book-Region* (CREATEREGION 300 (DIFFERENCE SCREENHEIGHT 500) 400 200)) (RPAQ? *AddressBookFiles* (COND ((BOUNDP (QUOTE PHONELISTFILES)) PHONELISTFILES))) (RPAQ AddressBookBM (READBITMAP)) (50 87 "@COOOOOOOOO@@@@@" "@OOOOOOOOOOL@@@@" "AN@@@@@@@@AN@@@@" "CH@@@@@@@@@G@@@@" "G@@@@@@@@@@CH@@@" "F@@@@@@@@@@AH@@@" "NCOOOOOOOOOAL@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@GOHL@@@" "LB@@@@@B@OOHL@@@" "LB@@@@@BAOOHL@@@" "LB@@@@@BC@GHL@@@" "LB@@@@@BAOOHL@@@" "LB@@@@@B@OOHL@@@" "LB@@@@@B@GOHL@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@BAIA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@B@AA@L@@@" "LB@@@@@COOA@L@@@" "LB@@@@@@@@A@L@@@" "LB@@@@@@@@A@L@@@" "LB@@@@@@@@A@L@@@" "LB@@@@@@@@A@L@@@" "LB@@@@@@@@A@L@@@" "LCOOOOOOOOO@L@@@" "N@@D@@@@@H@AL@@@" "F@@D@@@@@H@AH@@@" "G@@D@@@@@H@CH@@@" "CH@GOOOOOH@G@@@@" "AN@@@@@@@@AN@@@@" "@OOOOOOOOOOL@@@@" "@COOOOOOOOO@@@@@") (RPAQ AddressBookMask (READBITMAP)) (50 87 "@COOOOOOOOO@@@@@" "@OOOOOOOOOOL@@@@" "AOOOOOOOOOON@@@@" "COOOOOOOOOOO@@@@" "GOOOOOOOOOOOH@@@" "GOOOOOOOOOOOH@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOL@@@" "OOOOOOOOOOOOH@@@" "GOOOOOOOOOOOH@@@" "GOOOOOOOOOOO@@@@" "COOOOOOOOOON@@@@" "AOOOOOOOOOOL@@@@" "@OOOOOOOOOOH@@@@" "@COOOOOOOON@@@@@") (FILESLOAD LOOKUPINFILES) (MakeAddressBook) (PUTPROPS ADDRESSBOOK COPYRIGHT ("Xerox Corporation" 1986)) NIL