(FILECREATED " 9-Jan-87 19:45:47" ("compiled on " {ERIS}KOTO>PHONE-DIRECTORY.;3) "12-Nov-85 14:59:23" recompiled exprs: Cache-Phone-Directory-Files Let-your-fingers-do-the-walking Phone-Directory-Kill-Proc Phone-Window-ButtonEventFn Lookup-Person Phone-Window-WhenOpenedFn in "LOOPS/KOTO 12-Dec-86 ..." dated "12-Dec-86 17:07:40") (FILECREATED " 9-Jan-87 19:45:25" {ERIS}KOTO>PHONE-DIRECTORY.;3 7991 changes to: (FNS Cache-Phone-Directory-Files) previous date: "22-Aug-86 15:54:28" {ERIS}KOTO>PHONE-DIRECTORY.;2) Cache-Phone-Directory-Files D1 (P 13Q localFile P 12Q file P 5 f P 0 oldFiles I 0 msgStream F 14Q PHONELISTFILES) Í@ ¿o@ `WAIµJQNµ-O¿H±‹£I½h„I½I¹M ¼Kµ Lh[º°ÐL&»°Ë_²P@ ¿o@ ¿O@ ¿o@ ¿ggghgO _¿OO ¿O_¿OµOh__¿N^±ÿ|O&_¿°ôd ¿µøho h h (312Q TERPRI 306Q TERPRI 302Q PRIN1 264Q DELFILE 216Q COPYFILE 204Q PACKFILENAME.STRING 160Q PRIN1 147Q PRIN1 140Q PRIN1 127Q TERPRI 76Q FINDFILE 14Q PRIN1 3 TERPRI) (176Q BODY 172Q VERSION 167Q CORE 164Q HOST 51Q *Cached-Phone-Directory-Files* 17Q *Cached-Phone-Directory-Files*) ( 277Q "done" 154Q "..." 134Q "Caching " 10Q "Caching phone directory files...") Let-your-fingers-do-the-walkingA0001 D1 (I 1 icon I 0 w) Aµ```i(17Q ICONW) (13Q *Phone-Directory-Pos* 10Q fingersIconMask 5 fingersIconBM) () Let-your-fingers-do-the-walkingA0002 D1 (I 0 w) @ É.ðšg@h @ (31Q DOWINDOWCOM 24Q ADD.PROCESS 6 \INSUREWINDOW 2 THIS.PROCESS) (15Q DOWINDOWCOM) () Let-your-fingers-do-the-walking D1 (P 0 w) Z`o HggHggHggHggHggHggHggH H(126Q SHRINKW 122Q PUTWINDOWPROP 110Q PUTWINDOWPROP 76Q WINDOWADDPROP 64Q WINDOWADDPROP 52Q WINDOWADDPROP 40Q WINDOWADDPROP 26Q PUTWINDOWPROP 11Q CREATEW) (117Q Let-your-fingers-do-the-walkingA0002 114Q RIGHTBUTTONFN 105Q Phone-Window-ButtonEventFn 102Q BUTTONEVENTFN 73Q Phone-Directory-Kill-Proc 70Q SHRINKFN 61Q Phone-Directory-Kill-Proc 56Q CLOSEFN 47Q Phone-Window-WhenOpenedFn 44Q EXPANDFN 35Q Phone-Window-WhenOpenedFn 32Q OPENFN 23Q Let-your-fingers-do-the-walkingA0001 20Q ICONFN 2 *Phone-Directory-Region*) ( 6 "Phone directory") Phone-Directory-Kill-Proc D1 (P 0 proc I 0 window) @ É.H ´H ”i ¿H (34Q DEL.PROCESS 27Q TTY.PROCESS 22Q TTY.PROCESSP 14Q PROCESSP 3 \INSUREWINDOW) NIL () Phone-Window-ButtonEventFn D1 (I 0 w) B¿`låHjðµH´H ³#h@ @ @ ¯o ´ ` h(75Q Cache-Phone-Directory-Files 65Q MENU 55Q INSIDEP 52Q LASTMOUSEY 46Q LASTMOUSEX 42Q DSPCLIPPINGREGION 32Q \FZEROP 2 GETMOUSESTATE) (72Q PROMPTWINDOW 6 LASTMOUSEBUTTONS) ( 62Q (create MENU ITEMS _ (QUOTE ("Recache the directory files?")))) Lookup-Person D1 (P 0 name I 0 w) @@ @ `¤i ¿@ ¡h¿ohdoX²çH` ¿°Ý(73Q GREP 61Q TTYIN 43Q TERPRI 35Q OPENWP 25Q Cache-Phone-Directory-Files 15Q TTY.PROCESS 12Q THIS.PROCESS 7 TTYDISPLAYSTREAM 3 OPENW) (70Q *Cached-Phone-Directory-Files* 20Q *Cached-Phone-Directory-Files*) ( 56Q (STRING NORAISE) 50Q "Name: ") Phone-Window-WhenOpenedFn D1 (I 0 w) ,@ É.™@ É. @ g@hggg@ (51Q ADD.PROCESS 24Q OPENW 17Q TTY.PROCESS 12Q \INSUREWINDOW 3 \INSUREWINDOW) (44Q WINDOW 41Q Lookup-Person 36Q NAME 27Q Lookup-Person) () (PRETTYCOMPRINT PHONE-DIRECTORYCOMS) (RPAQQ PHONE-DIRECTORYCOMS ((FNS Cache-Phone-Directory-Files Let-your-fingers-do-the-walking Phone-Directory-Kill-Proc Phone-Window-ButtonEventFn Lookup-Person Phone-Window-WhenOpenedFn) (BITMAPS fingersIconMask fingersIconBM) (INITVARS (*Cached-Phone-Directory-Files* NIL) (*Phone-Directory-Pos* (create POSITION XCOORD _ 15 YCOORD _ (DIFFERENCE SCREENHEIGHT 75))) (*Phone-Directory-Region* ( CREATEREGION 15 (DIFFERENCE SCREENHEIGHT 258) 400 250))) (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* *Phone-Directory-Region* fingersIconMask fingersIconBM) (FILES GREP) (P ( Let-your-fingers-do-the-walking)))) (RPAQ fingersIconMask (READBITMAP)) (57 62 "AOOOOOOOOOOOOL@@" "GOOOOOOOOOOOOO@@" "GOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOH@" "GOOOOOOOOOOOOO@@" "GOOOOOOOOOOOOO@@" "COOOOOOOOOOOON@@" "@OOOOOOOOOOOOH@@") (RPAQ fingersIconBM (READBITMAP)) (57 62 "AOOOOOOOOOOOOL@@" "GOOOOOOOOOOOOO@@" "GOOOOOOOOOOOOO@@" "O@@@@@@@@@@@@GH@" "N@@@@@@@@@@@@CH@" "N@@GOOL@@@@@@CH@" "N@@COON@@@@@@CH@" "N@@AOON@@@@@@CH@" "N@@AOOO@@@@@@CH@" "N@@AOOO@@@@@@CH@" "N@@COOO@@@@@@CH@" "N@@COOOH@@@@@CH@" "N@@COOOH@@@@@CH@" "N@@COOOL@@@@@CH@" "N@@COOOL@@@@@CH@" "N@@@OOON@@@@@CH@" "N@@@OOON@@@@@CH@" "N@@@OOOO@@@@@CH@" "N@@@GOOO@@@@@CH@" "N@@@GOOOH@@@@CH@" "N@@@OOOOH@@@@CH@" "N@@AOOGOL@@@@CH@" "N@@AONCOL@@@@CH@" "N@@COHIOL@@@@CH@" "N@@COIION@@@@CH@" "N@@GOALON@@@@CH@" "N@@GLCLOO@@@@CH@" "N@@OHCNGO@@@@CH@" "N@@@@GNGOH@@@CH@" "N@@@@GOCOH@@@CH@" "N@@@@ONAOH@@@CH@" "N@@@AOLAOL@@@CH@" "N@@@AOL@OL@@@CH@" "N@@@COH@ON@@@CH@" "N@@@COH@GN@@@CH@" "N@@@GO@@GO@@@CH@" "N@@@GN@@CO@@@CH@" "N@@@OL@@AO@@@CH@" "N@@@OL@@AOH@@CH@" "N@@AOH@@@OH@@CH@" "N@@AO@@@@OL@@CH@" "N@@AO@@@@GL@@CH@" "N@@AN@@@@CN@@CH@" "N@@AL@@@@CN@@CH@" "N@@@@@@@@AO@@CH@" "N@@@@@@@@@O@@CH@" "N@@@@@@@@@F@@CH@" "O@@@GOHAON@@@GH@" "O@@AOONCOOH@@GH@" "OL@GOOOGOON@AOH@" "OOOOL@OOHAOOOOH@" "OOOO@@GO@@GOOOH@" "NOOL@@GO@@AOOKH@" "NAO@@@CN@@@GLCH@" "N@@@@@CN@@@@@CH@" "N@@@@@@@@@@@@CH@" "N@@@@@@@@@@@@CH@" "N@@@@@@@@@@@@CH@" "G@@@@@@@@@@@@G@@" "GOOOOOOOOOOOOO@@" "COOOOOOOOOOOON@@" "@OOOOOOOOOOOOH@@") (RPAQ? *Cached-Phone-Directory-Files* NIL) (RPAQ? *Phone-Directory-Pos* (create POSITION XCOORD _ 15 YCOORD _ (DIFFERENCE SCREENHEIGHT 75))) (RPAQ? *Phone-Directory-Region* (CREATEREGION 15 (DIFFERENCE SCREENHEIGHT 258) 400 250)) (FILESLOAD GREP) (Let-your-fingers-do-the-walking) (PUTPROPS PHONE-DIRECTORY COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL