(FILECREATED "19-Nov-86 15:02:45" {PHYLUM}<BOBROW>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}<BOBROW>LISP>ADDRESSBOOK.;9)


(* Copyright (c) 1986 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)))

(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))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1207 1559 (MakeAddressBook 1217 . 1557)))))
STOP