(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 8-Jul-88 16:36:22" |{FS8:PARC:XEROX}<BOBROW>LISP>ADDRESSBOOK.;2|
 4326   

      changes to%:  (FILES LOOKUPINFILES)

      previous date%: "19-Nov-86 15:02:45" |{FS8:PARC:XEROX}<BOBROW>LISP>ADDRESSBOOK.;1|)


(* "
Copyright (c) 1986, 1988 by Xerox Corporation.  All rights reserved.
")

(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)))
)
(DEFINEQ

(MakeAddressBook

(LAMBDA NIL (* dgb%: "19-Nov-86 10:34") (* * Create a lookup window for address books) (MakeLookupWindow *AddressBookFiles* (QUOTE Address% Book) *Address-Book-Region* AddressBookBM AddressBookMask *Address-Book-Pos*))
)
)

(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)))

(RPAQQ AddressBookBM
 #*(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@@@@@
)

(RPAQQ AddressBookMask
 #*(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 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (798 1051 (MakeAddressBook 808 . 1049)))))
STOP