$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PHONE-DIRECTORY!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 2 - F e b - 8 7 1 0 : 3 8 : 1
0000140 9 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > P H O N
0000200 E - D I R E C T O R Y . ; 1 006 001
0000220 9 0 2 9 \r \r
0000240 c h a n g e s t o % : ( V
0000260 A R S P H O N E - D I R E C T
0000300 O R Y C O M S ) \r \r
0000320 p r e v i o u s d a t e % :
0000340 " 9 - J a n - 8 7 1 9 : 4 5
0000360 : 2 5 " { E R I S } < L I S P
0000400 U S E R S > K O T O > P H O N E
0000420 - D I R E C T O R Y . ; 3 ) \r \r
0000440 \r ( * " \r C o p y r i g h t
0000460 ( c ) 1 9 8 6 , 1 9 8 7 b
0000500 y X e r o x C o r p o r a t
0000520 i o n . A l l r i g h t s
0000540 r e s e r v e d . \r " ) \r \r (
0000560 P R E T T Y C O M P R I N T P
0000600 H O N E - D I R E C T O R Y C O
0000620 M S ) \r \r ( R P A Q Q 006 002 P H
0000640 O N E - D I R E C T O R Y C O M
0000660 S 006 001 ( ( F N S C a c h e -
0000700 P h o n e - D i r e c t o r y -
0000720 F i l e s L e t - y o u r - f
0000740 i n g e r s - d o - t h e - w a
0000760 l k i n g \r
0001000
0001020 P h o n e - D i
0001040 r e c t o r y - K i l l - P r o
0001060 c P h o n e - W i n d o w - B
0001100 u t t o n E v e n t F n L o o
0001120 k u p - P e r s o n \r
0001140
0001160 P h o
0001200 n e - W i n d o w - W h e n O p
0001220 e n e d F n ) \r
0001240
0001260 ( V A R S f i n g e r
0001300 s I c o n M a s k f i n g e r
0001320 s I c o n B M ) \r
0001340
0001360 ( I N I T V A R S (
0001400 * C a c h e d - P h o n e - D i
0001420 r e c t o r y - F i l e s * N
0001440 I L ) \r
0001460
0001500 ( * P h o n e - D
0001520 i r e c t o r y - P o s * ( c
0001540 r e a t e P O S I T I O N X
0001560 C O O R D _ 1 5 Y C O O R
0001600 D _ \r
0001620
*
0001700 ( D I F F E R E N C E
0001720 S C R E E N H E I G H T 7 5
0001740 ) ) ) \r
0001760
0002000 ( * P h o n e - D
0002020 i r e c t o r y - R e g i o n *
0002040 ( C R E A T E R E G I O N 1
0002060 5 ( D I F F E R E N C E \r
0002100
*
0002220 S C R E E N H E I G H T
0002240 2 5 8 \r
0002260
*
0002360 ) \r
0002400
*
0002500 4 0 0 2 5 0 ) ) ) \r
0002520
0002540 ( G L O B A L V A
0002560 R S * C a c h e d - P h o n e
0002600 - D i r e c t o r y - F i l e s
0002620 * * P h o n e - D i r e c t o
0002640 r y - P o s * \r
0002660
0002700 * P h o
0002720 n e - D i r e c t o r y - R e g
0002740 i o n * f i n g e r s I c o n
0002760 M a s k f i n g e r s I c o n
0003000 B M ) \r
0003020
0003040 ( F I L E S G R E P ) \r
0003060
0003100 ( P ( L e t
0003120 - y o u r - f i n g e r s - d o
0003140 - t h e - w a l k i n g ) ) ) )
0003160 \r ( D E F I N E Q \r \r ( 006 004 C a
0003200 c h e - P h o n e - D i r e c t
0003220 o r y - F i l e s 006 001 \r [ L
0003240 A M B D A ( m s g S t r e a m
0003260 ) 006 006 006 001
0003300
0003320 006 006 (
0003340 * s m L " 9 - J a n - 8 7
0003360 1 9 : 4 0 " ) 006 001 \r
0003400 \r
0003420 006 006 ( * * C a c h e t h e
0003440 p h o n e d i r e c t o r y
0003460 f i l e s i n c o r e ) 006
0003500 001 \r \r ( p r i n t o u t
0003520 m s g S t r e a m T " C a
0003540 c h i n g p h o n e d i r e
0003560 c t o r y f i l e s . . . " )
0003600 \r ( L E T ( ( o l d F
0003620 i l e s * C a c h e d - P h o
0003640 n e - D i r e c t o r y - F i l
0003660 e s * ) ) \r (
0003700 S E T Q * C a c h e d - P h o
0003720 n e - D i r e c t o r y - F i l
0003740 e s * ( 006 002 f o r 006 001 f i l
0003760 e 006 002 i n 006 001 ( 006 002 f o r 006
0004000 001 f 006 002 i n s i d e 006 001 P
0004020 H O N E L I S T F I L E S \r
0004040
*
0004120 006 002 c o
0004140 l l e c t 006 001 ( F I N D F I L
0004160 E f ) ) 006 002 b i n d 006 001 l
0004200 o c a l F i l e \r
0004220
*
0004260 006 002 w h e n
0004300 006 001 ( N O T ( N U L L f i
0004320 l e ) ) \r
0004340
*
0004400 006 002 c o l l e c t 006
0004420 001 ( p r i n t o u t m s g S
0004440 t r e a m T " C a c h i n g
0004460 " f i l e " . . . " ) \r
0004500
*
0004560 ( S E T Q l o c a
0004600 l F i l e ( P A C K F I L E N
0004620 A M E . S T R I N G \r
0004640
*
0004740 ' H O S T \r
0004760
*
0005060 ' C O R E \r
0005100
*
0005160 '
0005200 V E R S I O N N I L ' B O D
0005220 Y f i l e ) ) \r
0005240
*
0005320 ( C O P Y F I L E f i l e l
0005340 o c a l F i l e ) \r
0005360
*
0005440 l o c a l F i l e ) ) \r
0005460 ( 006 002 f o r 006 001 f
0005500 i l e 006 002 i n 006 001 o l d F i
0005520 l e s 006 002 d o 006 001 ( D E L F
0005540 I L E f i l e ) ) ) \r
0005560 ( p r i n t o u t N I L " d
0005600 o n e " T T ] ) \r \r ( 006 004 L
0005620 e t - y o u r - f i n g e r s -
0005640 d o - t h e - w a l k i n g 006 001
0005660 \r [ L A M B D A N I L 006 006
0005700 006 001
0005720
*
0005760 006 006 ( * s m L " 2 1 - A
0006000 u g - 8 6 1 4 : 0 8 " ) 006 001 \r
0006020 \r
0006040 006 006 ( * * C r e a
0006060 t e a d i r e c t o r y l
0006100 o o k u p w i n d o w ) 006 001 \r
0006120 \r ( L E T ( ( w ( C
0006140 R E A T E W * P h o n e - D i
0006160 r e c t o r y - R e g i o n *
0006200 " P h o n e d i r e c t o r y
0006220 " N I L ) ) ) \r
0006240 [ W I N D O W P R O P w
0006260 ' I C O N F N ( F U N C T I O
0006300 N ( L A M B D A ( w i c o
0006320 n ) \r
0006340
0006360 ( O
0006400 R i c o n ( I C O N W f i
0006420 n g e r s I c o n B M f i n g
0006440 e r s I c o n M a s k \r
0006460
*
0006540 * P h o n e - D
0006560 i r e c t o r y - P o s * T ]
0006600 \r ( W I N D O
0006620 W A D D P R O P w ' O P E N
0006640 F N ( F U N C T I O N P h o
0006660 n e - W i n d o w - W h e n O p
0006700 e n e d F n ) ) \r
0006720 ( W I N D O W A D D P R O P
0006740 w ' E X P A N D F N ( F U
0006760 N C T I O N P h o n e - W i n
0007000 d o w - W h e n O p e n e d F n
0007020 ) ) \r ( W I N
0007040 D O W A D D P R O P w ' C L
0007060 O S E F N ( F U N C T I O N
0007100 P h o n e - D i r e c t o r y -
0007120 K i l l - P r o c ) ) \r
0007140 ( W I N D O W A D D P
0007160 R O P w ' S H R I N K F N
0007200 ( F U N C T I O N P h o n e -
0007220 D i r e c t o r y - K i l l - P
0007240 r o c ) ) \r (
0007260 W I N D O W P R O P w ' B U
0007300 T T O N E V E N T F N ( F U N
0007320 C T I O N P h o n e - W i n d
0007340 o w - B u t t o n E v e n t F n
0007360 ) ) \r [ W I N
0007400 D O W P R O P w ' R I G H T
0007420 B U T T O N F N ( F U N C T I
0007440 O N ( L A M B D A ( w ) \r
0007460
*
0007540 ( 006 002 i f 006 001 ( E Q ( T H
0007560 I S . P R O C E S S ) \r
0007600
*
0007660 ( W I N D O W P R O
0007700 P w ' P R O C E S S ) ) \r
0007720
*
0010000 006 002 t h e n 006 001 [ A
0010020 D D . P R O C E S S ` ( D O W
0010040 I N D O W C O M , w ] \r
0010060
*
0010140 006 002 e l s e 006 001 ( D O W I N
0010160 D O W C O M w ] \r
0010200 ( S H R I N K W w ) \r
0010220 w ] ) \r \r ( 006 004
0010240 P h o n e - D i r e c t o r y -
0010260 K i l l - P r o c 006 001 \r [ L
0010300 A M B D A ( w i n d o w ) 006 006
0010320 006 001
0010340
0010360 006 006 (
0010400 * s m L " 2 1 - A u g - 8 6
0010420 1 3 : 0 5 " ) 006 001 \r
0010440 \r
0010460 006 006 ( * * K i l l t h e
0010500 p h o n e d i r e c t o r y
0010520 p r o c e s s a s s o c i a t
0010540 e d w i t h t h e w i n d
0010560 o w ) 006 001 \r \r ( L E T
0010600 [ ( p r o c ( W I N D O W P R
0010620 O P w i n d o w ' P R O C E
0010640 S S ] \r ( 006 002
0010660 i f 006 001 ( P R O C E S S P p
0010700 r o c ) \r
0010720 006 002 t h e n 006 001 ( 006 002 i f
0010740 006 001 ( T T Y . P R O C E S S P
0010760 p r o c ) \r
0011000 006 002 t
0011020 h e n 006 001 ( T T Y . P R O C E
0011040 S S T ) ) \r
0011060 ( D E L . P R
0011100 O C E S S p r o c ] ) \r \r ( 006
0011120 004 P h o n e - W i n d o w - B u
0011140 t t o n E v e n t F n 006 001 \r
0011160 [ L A M B D A ( w ) 006 006 006 001
0011200
*
0011240 006
0011260 006 ( * s m L " 1 - A u g -
0011300 8 6 0 9 : 3 7 " ) 006 001 \r
0011320 \r
0011340 006 006 ( * * T h e b u t
0011360 t o n e v e n t f n f o r
0011400 t h e p h o n e d i r e c
0011420 t o r y l o o k u p w i n d
0011440 o w - \r 006 001
0011460 006 006 i f t h e u s e r b
0011500 u g s i n t h e t i t l e
0011520 , l e t s t h e m r e - c
0011540 a c h e t h e p h o n e l
0011560 i s t ) 006 001 \r \r ( 006 002 i
0011600 f 006 001 [ A N D ( N O T ( M
0011620 O U S E S T A T E U P ) ) \r
0011640 ( N O T
0011660 ( I N S I D E P ( D S P C L
0011700 I P P I N G R E G I O N N I L
0011720 w ) \r
0011740 ( L A
0011760 S T M O U S E X w ) \r
0012000
0012020 ( L A S T M O U S E Y
0012040 w ) ) ) \r
0012060 ( M E N U ( L O A D T I
0012100 M E C O N S T A N T ( 006 002 c r
0012120 e a t e 006 001 M E N U \r
0012140
*
0012200 I T E M S _
0012220 ' ( " R e c a c h e t h e d
0012240 i r e c t o r y f i l e s ? "
0012260 ] \r 006 002 t h e n
0012300 006 001 ( 006 002 C a c h e - P h o n
0012320 e - D i r e c t o r y - F i l e
0012340 s 006 001 P R O M P T W I N D O W
0012360 ] ) \r \r ( 006 004 L o o k u p - P e
0012400 r s o n 006 001 \r [ L A M B D A
0012420 ( w ) 006 006 006 001
0012440
*
0012500 006 006 ( * s m L
0012520 " 2 1 - A u g - 8 6 1 3 : 4
0012540 6 " ) 006 001 \r
0012560 \r 006 006 ( *
0012600 * T h e m a i n p r o g r
0012620 a m f o r t h e P h o n e
0012640 - D i r e c t o r y ) 006 001 \r \r
0012660 ( O P E N W w ) \r
0012700 ( T T Y D I S P L A Y S T R E
0012720 A M w ) \r ( T T Y . P
0012740 R O C E S S ( T H I S . P R O
0012760 C E S S ) ) \r ( O R *
0013000 C a c h e d - P h o n e - D i r
0013020 e c t o r y - F i l e s * ( 006
0013040 002 C a c h e - P h o n e - D i r
0013060 e c t o r y - F i l e s 006 001 T
0013100 ) ) \r ( 006 002 b i n d 006 001
0013120 n a m e 006 002 d o 006 001 ( T E
0013140 R P R I ) \r
0013160 ( S E T Q n a
0013200 m e ( T T Y I N " N a m e :
0013220 " N I L N I L ' ( S T
0013240 R I N G N O R A I S E ) N I
0013260 L N I L N I L N I L ) ) \r
0013300
0013320 ( 006 002 i f 006 001 ( N O T (
0013340 N U L L n a m e ) ) \r
0013360
0013400 006 002 t h e n 006 001 ( G R E P
0013420 n a m e * C a c h e d - P h
0013440 o n e - D i r e c t o r y - F i
0013460 l e s * ) ) \r 006 002
0013500 u n t i l 006 001 ( N O T ( O P
0013520 E N W P w ] ) \r \r ( 006 004 P h o
0013540 n e - W i n d o w - W h e n O p
0013560 e n e d F n 006 001 \r [ L A M B
0013600 D A ( w ) 006 006 006 001
0013620
*
0013660 006 006 ( * s
0013700 m L " 2 1 - A u g - 8 6 1 3
0013720 : 2 1 " ) 006 001 \r
0013740 \r 006 006 (
0013760 * * T h e O P E N F N f
0014000 o r t h e P h o n e l o o
0014020 k u p w i n d o w ) 006 001 \r \r
0014040 ( 006 002 i f 006 001 ( W I N D
0014060 O W P R O P w ' P R O C E S
0014100 S ) \r 006 002 t h e
0014120 n 006 001 ( T T Y . P R O C E S S
0014140 ( W I N D O W P R O P w '
0014160 P R O C E S S ) ) \r
0014200 006 002 e l s e 006 001 ( O P E N W
0014220 w ) \r ( A
0014240 D D . P R O C E S S ` ( 006 002 L
0014260 o o k u p - P e r s o n 006 001 ,
0014300 w ) ' N A M E ' L o o k u p
0014320 - P e r s o n ' W I N D O W
0014340 w ] ) \r ) \r \r ( R P A Q Q 006 002
0014360 f i n g e r s I c o n M a s k 006
0014400 001 # * ( 5 7 6 2 ) A O O O O
0014420 O O O O O O O O L @ @ G O O O O
0014440 O O O O O O O O O @ @ G O O O O
0014460 O O O O O O O O O @ @ O O O O O
0014500 O O O O O O O O O H @ O O O O O
*
0016240 O O O O O O O O O H @ G O O O O
0016260 O O O O O O O O O @ @ G O O O O
0016300 O O O O O O O O O @ @ C O O O O
0016320 O O O O O O O O N @ @ @ O O O O
0016340 O O O O O O O O H @ @ \r ) \r \r (
0016360 R P A Q Q 006 002 f i n g e r s I
0016400 c o n B M 006 001 # * ( 5 7 6 2
0016420 ) A O O O O O O O O O O O O L @
0016440 @ G O O O O O O O O O O O O O @
*
0016500 @ O @ @ @ @ @ @ @ @ @ @ @ @ G H
0016520 @ N @ @ @ @ @ @ @ @ @ @ @ @ C H
0016540 @ N @ @ G O O L @ @ @ @ @ @ C H
0016560 @ N @ @ C O O N @ @ @ @ @ @ C H
0016600 @ N @ @ A O O N @ @ @ @ @ @ C H
0016620 @ N @ @ A O O O @ @ @ @ @ @ C H
*
0016660 @ N @ @ C O O O @ @ @ @ @ @ C H
0016700 @ N @ @ C O O O H @ @ @ @ @ C H
*
0016740 @ N @ @ C O O O L @ @ @ @ @ C H
*
0017000 @ N @ @ @ O O O N @ @ @ @ @ C H
*
0017040 @ N @ @ @ O O O O @ @ @ @ @ C H
0017060 @ N @ @ @ G O O O @ @ @ @ @ C H
0017100 @ N @ @ @ G O O O H @ @ @ @ C H
0017120 @ N @ @ @ O O O O H @ @ @ @ C H
0017140 @ N @ @ A O O G O L @ @ @ @ C H
0017160 @ N @ @ A O N C O L @ @ @ @ C H
0017200 @ N @ @ C O H I O L @ @ @ @ C H
0017220 @ N @ @ C O I I O N @ @ @ @ C H
0017240 @ N @ @ G O A L O N @ @ @ @ C H
0017260 @ N @ @ G L C L O O @ @ @ @ C H
0017300 @ N @ @ O H C N G O @ @ @ @ C H
0017320 @ N @ @ @ @ G N G O H @ @ @ C H
0017340 @ N @ @ @ @ G O C O H @ @ @ C H
0017360 @ N @ @ @ @ O N A O H @ @ @ C H
0017400 @ N @ @ @ A O L A O L @ @ @ C H
0017420 @ N @ @ @ A O L @ O L @ @ @ C H
0017440 @ N @ @ @ C O H @ O N @ @ @ C H
0017460 @ N @ @ @ C O H @ G N @ @ @ C H
0017500 @ N @ @ @ G O @ @ G O @ @ @ C H
0017520 @ N @ @ @ G N @ @ C O @ @ @ C H
0017540 @ N @ @ @ O L @ @ A O @ @ @ C H
0017560 @ N @ @ @ O L @ @ A O H @ @ C H
0017600 @ N @ @ A O H @ @ @ O H @ @ C H
0017620 @ N @ @ A O @ @ @ @ O L @ @ C H
0017640 @ N @ @ A O @ @ @ @ G L @ @ C H
0017660 @ N @ @ A N @ @ @ @ C N @ @ C H
0017700 @ N @ @ A L @ @ @ @ C N @ @ C H
0017720 @ N @ @ @ @ @ @ @ @ A O @ @ C H
0017740 @ N @ @ @ @ @ @ @ @ @ O @ @ C H
0017760 @ N @ @ @ @ @ @ @ @ @ F @ @ C H
0020000 @ O @ @ @ G O H A O N @ @ @ G H
0020020 @ O @ @ A O O N C O O H @ @ G H
0020040 @ O L @ G O O O G O O N @ A O H
0020060 @ O O O O L @ O O H A O O O O H
0020100 @ O O O O @ @ G O @ @ G O O O H
0020120 @ N O O L @ @ G O @ @ A O O K H
0020140 @ N A O @ @ @ C N @ @ @ G L C H
0020160 @ N @ @ @ @ @ C N @ @ @ @ @ C H
0020200 @ N @ @ @ @ @ @ @ @ @ @ @ @ C H
*
0020260 @ G @ @ @ @ @ @ @ @ @ @ @ @ G @
0020300 @ G O O O O O O O O O O O O O @
0020320 @ C O O O O O O O O O O O O N @
0020340 @ @ O O O O O O O O O O O O H @
0020360 @ \r ) \r \r ( R P A Q ? 006 002 * C
0020400 a c h e d - P h o n e - D i r e
0020420 c t o r y - F i l e s * 006 001 N
0020440 I L ) \r \r ( R P A Q ? 006 002 * P
0020460 h o n e - D i r e c t o r y - P
0020500 o s * 006 001 ( c r e a t e P O
0020520 S I T I O N X C O O R D _
0020540 1 5 Y C O O R D _ ( D I F
0020560 F E R E N C E S C R E E N H E
0020600 I G H T 7 5 ) ) ) \r \r ( R P A
0020620 Q ? 006 002 * P h o n e - D i r e
0020640 c t o r y - R e g i o n * 006 001
0020660 ( C R E A T E R E G I O N 1 5
0020700 ( D I F F E R E N C E S C R
0020720 E E N H E I G H T 2 5 8 ) \r
0020740
*
0021000 4 0 0 2 5 0 ) ) \r
0021020 ( D E C L A R E % : D O E V A
0021040 L @ C O M P I L E D O N T C O
0021060 P Y \r \r ( G L O B A L V A R S
0021100 * C a c h e d - P h o n e - D i
0021120 r e c t o r y - F i l e s * *
0021140 P h o n e - D i r e c t o r y -
0021160 P o s * * P h o n e - D i r e
0021200 c t o r y - R e g i o n * \r
0021220 f i n g e r s I c o
0021240 n M a s k f i n g e r s I c o
0021260 n B M ) \r ) \r ( F I L E S L O A
0021300 D G R E P ) \r ( L e t - y o u
0021320 r - f i n g e r s - d o - t h e
0021340 - w a l k i n g ) \r ( P U T P R
0021360 O P S P H O N E - D I R E C T
0021400 O R Y C O P Y R I G H T ( "
0021420 X e r o x C o r p o r a t i o
0021440 n " 1 9 8 6 1 9 8 7 ) ) \r (
0021460 D E C L A R E % : D O N T C O
0021500 P Y \r ( F I L E M A P ( N
0021520 I L ( 1 6 4 9 6 3 7 3 ( C
0021540 a c h e - P h o n e - D i r e c
0021560 t o r y - F i l e s 1 6 5 9
0021600 . 2 9 5 4 ) ( L e t - y o u
0021620 r - f i n g e r s - d o - t h e
0021640 - w a l k i n g \r 2 9 5 6 .
0021660 4 2 5 1 ) ( P h o n e - D i
0021700 r e c t o r y - K i l l - P r o
0021720 c 4 2 5 3 . 4 6 8 4 ) (
0021740 P h o n e - W i n d o w - B u t
0021760 t o n E v e n t F n 4 6 8 6
0022000 . 5 3 6 2 ) ( \r L o o k u p
0022020 - P e r s o n 5 3 6 4 . 5
0022040 9 7 6 ) ( P h o n e - W i n d
0022060 o w - W h e n O p e n e d F n
0022100 5 9 7 8 . 6 3 7 1 ) ) ) ) )
0022120 \r S T O P \r
0022126