$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>archivebrowser!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 4 - M a r - 8 7 1 2 : 5 0 : 2
0000140 7 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > A R C H
0000200 I V E B R O W S E R . ; 1 006 001
0000220 2 6 5 1 7 \r \r p
0000240 r e v i o u s d a t e % : "
0000260 4 - M a r - 8 7 1 2 : 1 3 :
0000300 2 5 " { P H Y L U M } < L I S
0000320 P U S E R S > K O T O > A R C H
0000340 I V E B R O W S E R . ; 2 ) \r \r
0000360 \r ( * " \r C o p y r i g h t
0000400 ( c ) 1 9 8 6 , 1 9 8 7 b
0000420 y X e r o x C o r p o r a t
0000440 i o n . A l l r i g h t s
0000460 r e s e r v e d . \r " ) \r \r (
0000500 P R E T T Y C O M P R I N T A
0000520 R C H I V E B R O W S E R C O M
0000540 S ) \r \r ( R P A Q Q 006 002 A R C
0000560 H I V E B R O W S E R C O M S 006
0000600 001 ( ( * * t h e u s e r
0000620 ' s i n t e r f a c e t o
0000640 t h e a r c h i v e b r o w
0000660 s e r ) ( F N S A R C H I V
0000700 E B R O W S E R A B ) ( *
0000720 * c o m m a n d p r o c e s
0000740 s i n g f u n c t i o n s )
0000760 ( F N S A B . W h e n . S e l
0001000 e c t e d . F n A B . C o m m
0001020 a n d . F n A B . D e l e t e
0001040 . C o m m a n d A B . E x p u
0001060 n g e . C o m m a n d A B . F
0001100 i l t e r . C o m m a n d A B
0001120 . R e c o m p u t e . C o m m a
0001140 n d A B . R e t r i e v e . C
0001160 o m m a n d A B . R e t r i e
0001200 v e . D i r e c t o r y . C o m
0001220 m a n d A B . R e t r i e v e
0001240 . R e n a m e d . C o m m a n d
0001260 A B . R e t r i e v e . R e n
0001300 a m e d . A u x A B . S o r t
0001320 . C o m m a n d A B . U n d e
0001340 l e t e . C o m m a n d ) ( *
0001360 * m i s c e l l a n e o u s
0001400 f u n c t i o n s ) ( F N S
0001420 A B . S e t . B r o w s e r .
0001440 T i t l e A B . I c o n f n
0001460 A B . C l o s e f n A B . P r
0001500 i n t f n A B . P r o m p t .
0001520 F o r . I n p u t A B . R e a
0001540 d . D i r e c t o r y A B . S
0001560 u b i t e m p A B . M a k e .
0001600 C e d a r . F i l e n a m e )
0001620 ( * * t h e u s e r t h
0001640 a t g e t s r e t r i e v a
0001660 l r e q u e s t s ) ( I N I
0001700 T V A R S ( A B . a r c h i v
0001720 i s t " A r c h i v i s t " )
0001740 ) ( * * t h e s t r u c
0001760 t u r e f o r a n a r c h
0002000 i v e e n t r y ) ( R E C O
0002020 R D S A B . i t e m ) ( *
0002040 * t h e i c o n ) ( B I T
0002060 M A P S A B . i c o n A B .
0002100 i c o n . m a s k ) ( I N I T
0002120 V A R S ( A B . t i t l e d .
0002140 i c o n ( c r e a t e T I T
0002160 L E D I C O N I C O N _ A
0002200 B . i c o n M A S K _ A B
0002220 . i c o n . m a s k T I T L E
0002240 R E G _ ( C R E A T E R E G
0002260 I O N 7 8 6 0 2 4 ) ) )
0002300 ) ( * * t h e f o n t
0002320 f o r t h e b r o w s e r ,
0002340 w h i c h m u s t b e a
0002360 f i x e d p i t c h f o n
0002400 t f o r n o w ) ( V A R S
0002420 ( A B . b r o w s e r . f o n
0002440 t ( F O N T C R E A T E ( Q
0002460 U O T E T E R M I N A L ) 1
0002500 0 ) ) ) ( * * b a s e d
0002520 o n t h e T a b l e B r o w
0002540 s e r p a c k a g e ) ( F I
0002560 L E S T A B L E B R O W S E R
0002600 ) ( D E C L A R E % : E V A
0002620 L @ C O M P I L E D O N T C O
0002640 P Y F I R S T ( F I L E S
0002660 T A B L E B R O W S E R D E C L
0002700 S ) ) ( D E C L A R E % : D
0002720 O N T E V A L @ L O A D D O E
0002740 V A L @ C O M P I L E D O N T
0002760 C O P Y C O M P I L E R V A R
0003000 S ( A D D V A R S ( N L A M
0003020 A A B ) ( N L A M L ) ( L
0003040 A M A ) ) ) ) \r ) \r \f 006 004 ( *
0003060 * t h e u s e r ' s i n t
0003100 e r f a c e t o t h e a r
0003120 c h i v e b r o w s e r ) 006 001
0003140 \r \r ( D E F I N E Q \r \r ( 006 004 A
0003160 R C H I V E B R O W S E R 006 001 \r
0003200 ( L A M B D A ( a r c h i v e
0003220 f i l e s p e c f i l t e r )
0003240 ( * N . H . B r i g g s "
0003260 2 - M a r - 8 7 1 6 : 5 6 "
0003300 ) ( L E T * ( ( m e n u (
0003320 c r e a t e M E N U I T E M
0003340 S _ ( Q U O T E ( ( R e t
0003360 r i e v e A B . R e t r i e v
0003400 e . C o m m a n d " R e t r i
0003420 e v e s e l e c t e d f i l
0003440 e s " ( S U B I T E M S ( "
0003460 R e t r i e v e s e l e c t e
0003500 d f i l e s " A B . R e t r
0003520 i e v e . C o m m a n d " R e
0003540 t r i e v e s e l e c t e d
0003560 f i l e s " ) ( " R e t r i e
0003600 v e t o d i r e c t o r y "
0003620 A B . R e t r i e v e . D i r
0003640 e c t o r y . C o m m a n d "
0003660 R e t r i e v e s e l e c t e
0003700 d f i l e s t o a d i f
0003720 f e r e n t d i r e c t o r y
0003740 " ) ( " R e t r i e v e r e
0003760 n a m e d " A B . R e t r i e
0004000 v e . R e n a m e d . C o m m a
0004020 n d " R e t r i e v e s e l
0004040 e c t e d f i l e s s p e c
0004060 i f y i n g n e w n a m e
0004100 f o r e a c h f i l e " ) )
0004120 ) ( F i l t e r A B . F i l
0004140 t e r . C o m m a n d " S e t
0004160 f i l t e r f o r d i s p
0004200 l a y e d f i l e n a m e s
0004220 " ) ( S o r t A B . S o r t
0004240 . C o m m a n d " S o r t e
0004260 n t r i e s b y f i l e n
0004300 a m e " ( S U B I T E M S (
0004320 " S o r t b y f i l e n a
0004340 m e " A B . S o r t . C o m m
0004360 a n d " S o r t e n t r i e
0004400 s b y f i l e n a m e " )
0004420 ( " S o r t b y c r e a t
0004440 i o n d a t e " ( A B . S o
0004460 r t . C o m m a n d C r e a t
0004500 i o n D a t e ) " S o r t e
0004520 n t r i e s b y c r e a t i
0004540 o n d a t e o f t h e f
0004560 i l e " ) ( " S o r t b y
0004600 a r c h i v e d a t e " ( A
0004620 B . S o r t . C o m m a n d A
0004640 r c h i v e ) " S o r t e n
0004660 t r i e s b y d a t e t h
0004700 a t t h e f i l e w a s
0004720 a r c h i v e d " ) ( R e v e
0004740 r s e ( A B . S o r t . C o m
0004760 m a n d R e v e r s e ) " R
0005000 e v e r s e t h e o r d e r
0005020 o f t h e e n t r i e s "
0005040 ) ) ) ( R e c o m p u t e A
0005060 B . R e c o m p u t e . C o m m
0005100 a n d " R e d i s p l a y b
0005120 r o w s e r i t e m s a f t
0005140 e r r e - r e a d i n g a r
0005160 c h i v e d i r e c t o r y "
0005200 ( S U B I T E M S ( " S a m
0005220 e d i r e c t o r y " A B .
0005240 R e c o m p u t e . C o m m a n
0005260 d " R e d i s p l a y b r o
0005300 w s e r i t e m s a f t e r
0005320 r e - r e a d i n g a r c h
0005340 i v e d i r e c t o r y " )
0005360 ( " N e w d i r e c t o r y "
0005400 ( A B . R e c o m p u t e . C
0005420 o m m a n d T ) " B r o w s
0005440 e a d i f f e r e n t a r
0005460 c h i v e d i r e c t o r y "
0005500 ) ) ) ( " " N I L " d o
0005520 n o t h i n g - a s e p a
0005540 r a t o r " ) ( D e l e t e
0005560 A B . D e l e t e . C o m m a n
0005600 d " D e l e t e s e l e c t
0005620 e d i t e m s " ) ( U n d e
0005640 l e t e A B . U n d e l e t e
0005660 . C o m m a n d " U n d e l e
0005700 t e s e l e c t e d i t e m
0005720 s " ( S U B I T E M S ( " U
0005740 n d e l e t e s e l e c t e d
0005760 i t e m s " A B . U n d e l
0006000 e t e . C o m m a n d " U n d
0006020 e l e t e s e l e c t e d i
0006040 t e m s " ) ( " U n d e l e t
0006060 e A L L i t e m s " ( A B
0006100 . U n d e l e t e . C o m m a n
0006120 d T ) " U n d e l e t e a
0006140 l l d e l e t e d i t e m s
0006160 " ) ) ) ( " " N I L " d o
0006200 n o t h i n g - a s e p
0006220 a r a t o r s o y o u d o
0006240 n ' t a c c i d e n t a l l y
0006260 E x p u n g e " ) ( E x p u
0006300 n g e A B . E x p u n g e . C
0006320 o m m a n d " E x p u n g e
0006340 d e l e t e d i t e m s a n
0006360 d r e w r i t e t h e a r
0006400 c h i v e d i r e c t o r y "
0006420 ) ) ) C E N T E R F L G _
0006440 T T I T L E _ " C o m m
0006460 a n d s " W H E N S E L E C
0006500 T E D F N _ ( Q U O T E A
0006520 B . W h e n . S e l e c t e d .
0006540 F n ) ) ) ( p r o m p t f o n
0006560 t ( F O N T C R E A T E ( Q
0006600 U O T E H E L V E T I C A )
0006620 1 0 ) ) ( p r o m p t h e i g
0006640 h t ( H E I G H T I F W I N D
0006660 O W ( T I M E S 2 ( F O N
0006700 T P R O P p r o m p t f o n t
0006720 ( Q U O T E H E I G H T ) )
0006740 ) T ) ) ( p r o m p t w i n
0006760 d o w ) ( w i n d o w r e g i
0007000 o n ( G E T R E G I O N ( P
0007020 L U S ( f e t c h I M A G E
0007040 W I D T H o f m e n u ) 1
0007060 4 4 ) ( P L U S ( f e t c h
0007100 I M A G E H E I G H T o f
0007120 m e n u ) p r o m p t h e i g
0007140 h t ) ) ) ( w i n d o w ( C
0007160 R E A T E W ( C R E A T E R E
0007200 G I O N ( f e t c h L E F T
0007220 o f w i n d o w r e g i o n
0007240 ) ( f e t c h B O T T O M
0007260 o f w i n d o w r e g i o n )
0007300 ( D I F F E R E N C E ( f e
0007320 t c h W I D T H o f w i n
0007340 d o w r e g i o n ) ( f e t c
0007360 h I M A G E W I D T H o f
0007400 m e n u ) ) ( D I F F E R E N
0007420 C E ( f e t c h H E I G H T
0007440 o f w i n d o w r e g i o n
0007460 ) p r o m p t h e i g h t ) )
0007500 " " ) ) ( b r o w s e r (
0007520 T B . M A K E . B R O W S E R
0007540 N I L w i n d o w ( B Q U O
0007560 T E ( P R I N T F N A B . P
0007600 r i n t f n F O N T ( \ ,
0007620 A B . b r o w s e r . f o n t )
0007640 ) ) ) ) ) ( A T T A C H M E N
0007660 U m e n u w i n d o w ( Q
0007700 U O T E R I G H T ) ( Q U O
0007720 T E T O P ) ) ( T B . U S E
0007740 R D A T A b r o w s e r ( L
0007760 I S T ( Q U O T E A R C H I
0010000 V E ) ( P A C K F I L E N A M
0010020 E . S T R I N G ( Q U O T E
0010040 H O S T ) ( O R ( F I L E N
0010060 A M E F I E L D a r c h i v e
0010100 f i l e s p e c ( Q U O T E
0010120 H O S T ) ) ( F I L E N A M E
0010140 F I E L D ( D I R E C T O R Y
0010160 N A M E ) ( Q U O T E H O S
0010200 T ) ) ) ( Q U O T E D I R E
0010220 C T O R Y ) ( O R ( F I L E
0010240 N A M E F I E L D a r c h i v
0010260 e f i l e s p e c ( Q U O T E
0010300 D I R E C T O R Y ) ) ( C A
0010320 R ( F U L L U S E R N A M E
0010340 T ) ) ) ( Q U O T E N A M E
0010360 ) ( O R ( F I L E N A M E F
0010400 I E L D a r c h i v e f i l e
0010420 s p e c ( Q U O T E N A M E
0010440 ) ) ( Q U O T E A r c h i v
0010460 e ) ) ( Q U O T E E X T E N
0010500 S I O N ) ( O R ( F I L E N
0010520 A M E F I E L D a r c h i v e
0010540 f i l e s p e c ( Q U O T E
0010560 E X T E N S I O N ) ) ( Q U O
0010600 T E d i r e c t o r y ) ) (
0010620 Q U O T E B O D Y ) a r c h
0010640 i v e f i l e s p e c ) ( Q U
0010660 O T E F I L T E R ) ( O R
0010700 f i l t e r " * . * " ) ) )
0010720 ( * ( u s e s o m e t h i n
0010740 g l i k e t h i s i f t
0010760 h e " a t t i c " i s u s
0011000 e d ) L - C A S E ( O R f
0011020 i l t e r ( C O N C A T ( C
0011040 A R ( F U L L U S E R N A M E
0011060 T ) ) " > * . * " ) ) ) (
0011100 S E T Q p r o m p t w i n d o
0011120 w ( G E T P R O M P T W I N D
0011140 O W w i n d o w 2 ( F O N
0011160 T C R E A T E ( Q U O T E H
0011200 E L V E T I C A ) 1 0 ) ) )
0011220 ( A B . S e t . B r o w s e r .
0011240 T i t l e b r o w s e r ) (
0011260 W I N D O W P R O P p r o m p
0011300 t w i n d o w ( Q U O T E M
0011320 I N S I Z E ) ( C O N S 0
0011340 ( f e t c h ( R E G I O N H
0011360 E I G H T ) o f ( W I N D O
0011400 W P R O P p r o m p t w i n d
0011420 o w ( Q U O T E R E G I O N
0011440 ) ) ) ) ) ( W I N D O W P R O
0011460 P p r o m p t w i n d o w (
0011500 Q U O T E M A X S I Z E ) (
0011520 C O N S 6 4 0 0 0 ( f e t c
0011540 h ( R E G I O N H E I G H T
0011560 ) o f ( W I N D O W P R O P
0011600 p r o m p t w i n d o w ( Q
0011620 U O T E R E G I O N ) ) ) ) )
0011640 ( L I N E L E N G T H M A X
0011660 . S M A L L P p r o m p t w i
0011700 n d o w ) ( W I N D O W P R O
0011720 P w i n d o w ( Q U O T E
0011740 I C O N F N ) ( F U N C T I O
0011760 N A B . I c o n f n ) ) ( W
0012000 I N D O W A D D P R O P w i n
0012020 d o w ( Q U O T E C L O S E
0012040 F N ) ( F U N C T I O N A B
0012060 . C l o s e f n ) T ) ( A B
0012100 . C o m m a n d . F n ( S A S
0012120 S O C ( Q U O T E R e c o m
0012140 p u t e ) ( f e t c h ( M E
0012160 N U I T E M S ) o f m e n
0012200 u ) ) m e n u ( Q U O T E
0012220 L E F T ) ) ) ) \r ) \r \r ( 006 004 A
0012240 B 006 001 \r ( N L A M B D A f i l
0012260 e s p e c % f i l t e r ( *
0012300 N . H . B r i g g s " 4 -
0012320 M a r - 8 7 1 2 : 1 1 " ) (
0012340 L E T ( ( p a t t e r n a n d
0012360 f i l t e r ( N L A M B D A .
0012400 A R G S f i l e s p e c % f
0012420 i l t e r ) ) ) ( A R C H I V
0012440 E B R O W S E R ( C A R p a
0012460 t t e r n a n d f i l t e r )
0012500 ( C A D R p a t t e r n a n d
0012520 f i l t e r ) ) N I L ) ) \r )
0012540 \r ) \r \f 006 004 ( * * c o m m a
0012560 n d p r o c e s s i n g f u
0012600 n c t i o n s ) 006 001 \r \r ( D E F
0012620 I N E Q \r \r ( 006 004 A B . W h e n
0012640 . S e l e c t e d . F n 006 001 \r (
0012660 L A M B D A ( I t e m M e n
0012700 u K e y ) ( * N . H . B r
0012720 i g g s " 2 5 - J u n - 8 6
0012740 1 1 : 4 8 " ) ( i f ( A N D
0012760 ( L I S T P I t e m ) ( C
0013000 A D R I t e m ) ) t h e n
0013020 ( T B . P R O C E S S ( L I S
0013040 T ( F U N C T I O N A B . C
0013060 o m m a n d . F n ) ( K W O T
0013100 E I t e m ) ( K W O T E M
0013120 e n u ) ( K W O T E K e y )
0013140 ) ( P A C K * ( Q U O T E
0013160 A B - ) ( C A R I t e m ) )
0013200 ) ) ) \r ) \r \r ( 006 004 A B . C o m
0013220 m a n d . F n 006 001 \r ( L A M B D
0013240 A ( i t e m m e n u k e y
0013260 ) ( * N . H . B r i g g s
0013300 " 1 8 - J u n - 8 6 1 3 : 0 9
0013320 " ) ( R E S E T L S T ( L E
0013340 T * ( ( r e a l i t e m i t
0013360 e m ) ( w i n d o w ( W I N
0013400 D O W P R O P ( W F R O M M E
0013420 N U m e n u ) ( Q U O T E
0013440 M A I N W I N D O W ) ) ) ( b
0013460 r o w s e r ( W I N D O W P R
0013500 O P w i n d o w ( Q U O T E
0013520 T A B L E B R O W S E R ) ) )
0013540 ) ( i f ( N O T ( M E M B
0013560 E R i t e m ( f e t c h (
0013600 M E N U I T E M S ) o f m
0013620 e n u ) ) ) t h e n ( * A
0013640 s u b i t e m - - f e t c
0013660 h m a i n i t e m ) ( S E
0013700 T Q i t e m ( f o r I i
0013720 n ( f e t c h ( M E N U I
0013740 T E M S ) o f m e n u ) t
0013760 h e r e i s ( A B . S u b i t
0014000 e m p i t e m I ) ) ) ) (
0014020 i f ( O B T A I N . M O N I T
0014040 O R L O C K ( f e t c h ( T
0014060 A B L E B R O W S E R T B L O
0014100 C K ) o f b r o w s e r )
0014120 T T ) t h e n ( R E S E T
0014140 S A V E ( S H A D E I T E M
0014160 i t e m m e n u M E N U S E
0014200 L E C T S H A D E ) ( L I S T
0014220 ( F U N C T I O N S H A D E
0014240 I T E M ) i t e m m e n u
0014260 W H I T E S H A D E ) ) ( L E
0014300 T ( ( f u n c t i o n ( C A
0014320 D R r e a l i t e m ) ) ( p
0014340 r o m p t w i n d o w ( G E T
0014360 P R O M P T W I N D O W w i n
0014400 d o w ) ) e x t r a ) ( i f
0014420 ( O P E N W P p r o m p t w
0014440 i n d o w ) t h e n ( C L E
0014460 A R W p r o m p t w i n d o w
0014500 ) ) ( i f ( L I S T P f u
0014520 n c t i o n ) t h e n ( S E
0014540 T Q e x t r a ( C A D R f
0014560 u n c t i o n ) ) ( S E T Q
0014600 f u n c t i o n ( C A R f u
0014620 n c t i o n ) ) ) ( A P P L Y
0014640 * f u n c t i o n b r o w s
0014660 e r e x t r a ) ) e l s e
0014700 ( T B . B R O W S E R . B U S Y
0014720 b r o w s e r ) ) ) ) ) \r ) \r
0014740 \r ( 006 004 A B . D e l e t e . C o
0014760 m m a n d 006 001 \r ( L A M B D A
0015000 ( b r o w s e r ) ( * N . H
0015020 . B r i g g s " 1 6 - A p r -
0015040 8 6 2 0 : 5 6 " ) ( L E T
0015060 ( ( c o u n t 0 ) ) ( T B .
0015100 M A P . S E L E C T E D . I T E
0015120 M S b r o w s e r ( F U N C
0015140 T I O N ( L A M B D A ( b r
0015160 o w s e r i t e m ) ( T B .
0015200 D E L E T E . I T E M b r o w
0015220 s e r i t e m ) ( a d d c
0015240 o u n t 1 ) ) ) ) ( p r i n
0015260 t o u t ( G E T P R O M P T W
0015300 I N D O W ( T B . W I N D O W
0015320 b r o w s e r ) ) c o u n t
0015340 " i t e m " ( i f ( I G
0015360 R E A T E R P c o u n t 1 )
0015400 t h e n " s " e l s e "
0015420 " ) " m a r k e d f o r
0015440 d e l e t i o n . " ) ) ) \r ) \r
0015460 \r ( 006 004 A B . E x p u n g e . C
0015500 o m m a n d 006 001 \r ( L A M B D A
0015520 ( b r o w s e r ) ( * N .
0015540 H . B r i g g s " 1 8 - J u n
0015560 - 8 6 1 2 : 2 3 " ) ( i f
0015600 ( E Q ( f e t c h ( T A B L
0015620 E B R O W S E R T B # D E L E
0015640 T E D ) o f b r o w s e r )
0015660 0 ) t h e n ( p r i n t o
0015700 u t ( G E T P R O M P T W I N
0015720 D O W ( T B . W I N D O W b
0015740 r o w s e r ) ) " N o t h i n
0015760 g t o e x p u n g e ! " )
0016000 e l s e ( L E T ( ( d i r e
0016020 c t o r y s t r e a m ( O P E
0016040 N S T R E A M ( P A C K F I L
0016060 E N A M E ( Q U O T E V E R
0016100 S I O N ) N I L ( Q U O T E
0016120 B O D Y ) ( L I S T G E T
0016140 ( T B . U S E R D A T A b r o
0016160 w s e r ) ( Q U O T E A R C
0016200 H I V E ) ) ) ( Q U O T E O
0016220 U T P U T ) ) ) ) ( i f ( N
0016240 O T d i r e c t o r y s t r e
0016260 a m ) t h e n ( p r i n t o
0016300 u t ( G E T P R O M P T W I N
0016320 D O W ( T B . W I N D O W b
0016340 r o w s e r ) ) " E r r o r
0016360 o p e n i n g ( n e w v e r
0016400 s i o n o f ) a r c h i v e
0016420 d i r e c t o r y " ( L I
0016440 S T G E T ( T B . U S E R D A
0016460 T A b r o w s e r ) ( Q U O
0016500 T E A R C H I V E ) ) " .
0016520 . . a b o r t e d . " ) e l s
0016540 e ( L I N E L E N G T H M A
0016560 X . S M A L L P d i r e c t o
0016600 r y s t r e a m ) ( * e n s
0016620 u r e n o t h i n g w r a p
0016640 s a r o u n d ) ( L I S T P
0016660 U T ( T B . U S E R D A T A
0016700 b r o w s e r ) ( Q U O T E
0016720 A L L I T E M S ) ( f o r i
0016740 t e m i n ( L I S T G E T
0016760 ( T B . U S E R D A T A b r o
0017000 w s e r ) ( Q U O T E A L L
0017020 I T E M S ) ) w h e n ( N O
0017040 T ( T B . I T E M . D E L E T
0017060 E D ? b r o w s e r i t e m
0017100 ) ) c o l l e c t ( p r i n
0017120 t o u t d i r e c t o r y s t
0017140 r e a m ( f e t c h ( A B .
0017160 i t e m A B . F i l e n a m e
0017200 ) o f ( f e t c h ( T A B
0017220 L E I T E M T I D A T A ) o
0017240 f i t e m ) ) % , ( f e t
0017260 c h ( A B . i t e m A B . C
0017300 r e a t i o n . D a t e ) o f
0017320 ( f e t c h ( T A B L E I T
0017340 E M T I D A T A ) o f i t
0017360 e m ) ) ) ( f o r m e d i a
0017400 o n ( f e t c h ( A B . i
0017420 t e m A B . M e d i a ) o f
0017440 ( f e t c h ( T A B L E I T
0017460 E M T I D A T A ) o f i t
0017500 e m ) ) b y ( C D D R m e
0017520 d i a ) d o ( p r i n t o u
0017540 t d i r e c t o r y s t r e a
0017560 m % , , ( C A R m e d i a
0017600 ) ) ( p r i n t o u t d i r
0017620 e c t o r y s t r e a m % ,
0017640 ( C A D R m e d i a ) ) f i
0017660 n a l l y ( p r i n t o u t
0017700 d i r e c t o r y s t r e a m
0017720 T ) ) i t e m ) ) ( L I S T
0017740 P U T ( T B . U S E R D A T A
0017760 b r o w s e r ) ( Q U O T E
0020000 A R C H I V E ) ( L - C A S
0020020 E ( F U L L N A M E d i r e
0020040 c t o r y s t r e a m ) ) ) (
0020060 C L O S E F d i r e c t o r y
0020100 s t r e a m ) ( A B . S e t .
0020120 B r o w s e r . T i t l e b r
0020140 o w s e r ) ( T B . M A P . D
0020160 E L E T E D . I T E M S b r o
0020200 w s e r ( F U N C T I O N T
0020220 B . R E M O V E . I T E M ) ) )
0020240 ) ) ) \r ) \r \r ( 006 004 A B . F i l
0020260 t e r . C o m m a n d 006 001 \r ( L
0020300 A M B D A ( b r o w s e r )
0020320 ( * N . H . B r i g g s " 1
0020340 8 - J u n - 8 6 1 2 : 2 8 " )
0020360 ( L E T ( ( p a t t e r n
0020400 ( A B . P r o m p t . F o r . I
0020420 n p u t " F i l e s m a t c
0020440 h i n g w h a t ? " ( L I
0020460 S T G E T ( T B . U S E R D A
0020500 T A b r o w s e r ) ( Q U O
0020520 T E F I L T E R ) ) b r o w
0020540 s e r T ) ) ) ( i f p a t
0020560 t e r n t h e n ( L I S T P
0020600 U T ( T B . U S E R D A T A
0020620 b r o w s e r ) ( Q U O T E
0020640 F I L T E R ) ( L - C A S E
0020660 p a t t e r n ) ) ( A B . S e
0020700 t . B r o w s e r . T i t l e
0020720 b r o w s e r ) ( A B . R e c
0020740 o m p u t e . C o m m a n d b
0020760 r o w s e r ) ) ) ) \r ) \r \r ( 006
0021000 004 A B . R e c o m p u t e . C o
0021020 m m a n d 006 001 \r ( L A M B D A
0021040 ( b r o w s e r n e w d i r e
0021060 c t o r y ? ) ( * N . H . B
0021100 r i g g s " 1 9 - S e p - 8 6
0021120 1 2 : 3 4 " ) ( L E T * (
0021140 ( w i n d o w ( T B . W I N D
0021160 O W b r o w s e r ) ) ( w i
0021200 n d o w r e g i o n ( W I N D
0021220 O W P R O P w i n d o w ( Q
0021240 U O T E R E G I O N ) ) ) (
0021260 r e g i o n ( C R E A T E R E
0021300 G I O N 0 0 ( f e t c h
0021320 ( R E G I O N W I D T H ) o
0021340 f w i n d o w r e g i o n )
0021360 ( f e t c h ( R E G I O N H
0021400 E I G H T ) o f w i n d o w
0021420 r e g i o n ) ) ) ( n a m e w
0021440 i d t h 0 ) ( u s e r d a t
0021460 a ( T B . U S E R D A T A b
0021500 r o w s e r ) ) ( f i l t e r
0021520 ( D I R E C T O R Y . M A T C
0021540 H . S E T U P ( P A C K F I L
0021560 E N A M E ( Q U O T E B O D
0021600 Y ) ( L I S T G E T u s e r
0021620 d a t a ( Q U O T E F I L T
0021640 E R ) ) ) ) ) r e s u l t )
0021660 ( i f ( N O T ( Z E R O P
0021700 ( f e t c h ( T A B L E B R O
0021720 W S E R T B # D E L E T E D )
0021740 o f b r o w s e r ) ) ) t
0021760 h e n ( i f ( M E N U ( c
0022000 r e a t e M E N U I T E M S
0022020 _ ( Q U O T E ( ( " E x p
0022040 u n g e " ( Q U O T E E x p
0022060 u n g e ) " E x p u n g e i
0022100 t e m s m a r k e d f o r
0022120 d e l e t i o n " ) ( " D o n
0022140 ' t E x p u n g e " N I L
0022160 " D o n ' t e x p u n g e i
0022200 t e m s m a r k e d f o r
0022220 d e l e t i o n " ) ) ) T I T
0022240 L E _ " E x p u n g e d e
0022260 l e t e d i t e m s ? " C E
0022300 N T E R F L G _ T ) ) t h
0022320 e n ( A B . E x p u n g e . C
0022340 o m m a n d b r o w s e r ) )
0022360 ) ( i f ( A N D n e w d i
0022400 r e c t o r y ? ( S E T Q r
0022420 e s u l t ( A B . P r o m p t
0022440 . F o r . I n p u t " N e w
0022460 a r c h i v e d i r e c t o r
0022500 y ? " N I L b r o w s e r
0022520 T ) ) ) t h e n ( L I S T
0022540 P U T u s e r d a t a ( Q U
0022560 O T E A R C H I V E ) ( P A
0022600 C K F I L E N A M E . S T R I N
0022620 G ( Q U O T E N A M E ) (
0022640 O R ( F I L E N A M E F I E L
0022660 D r e s u l t ( Q U O T E
0022700 N A M E ) ) ( Q U O T E A r
0022720 c h i v e ) ) ( Q U O T E E
0022740 X T E N S I O N ) ( O R ( F
0022760 I L E N A M E F I E L D r e s
0023000 u l t ( Q U O T E E X T E N
0023020 S I O N ) ) ( Q U O T E d i
0023040 r e c t o r y ) ) ( Q U O T E
0023060 B O D Y ) r e s u l t ) ) )
0023100 ( i f ( O R ( N O T n e
0023120 w d i r e c t o r y ? ) ( A N
0023140 D n e w d i r e c t o r y ?
0023160 r e s u l t ) ) t h e n ( T
0023200 B . R E P L A C E . I T E M S
0023220 b r o w s e r ) ( L I S T P U
0023240 T u s e r d a t a ( Q U O T
0023260 E A L L I T E M S ) ( f o r
0023300 i t e m i n ( A B . R e a
0023320 d . D i r e c t o r y b r o w
0023340 s e r ) b i n d t a b l e i
0023360 t e m e a c h t i m e ( S E
0023400 T Q t a b l e i t e m ( c r
0023420 e a t e T A B L E I T E M T
0023440 I D A T A _ i t e m ) ) c
0023460 o l l e c t ( i f ( D I R E
0023500 C T O R Y . M A T C H f i l t
0023520 e r ( P A C K F I L E N A M E
0023540 ( Q U O T E B O D Y ) ( f
0023560 e t c h ( A B . i t e m A B
0023600 . F i l e n a m e ) o f i t
0023620 e m ) ) ) t h e n ( S E T Q
0023640 n a m e w i d t h ( M A X
0023660 n a m e w i d t h ( S T R I N
0023700 G W I D T H ( f e t c h ( A
0023720 B . i t e m A B . F i l e n a
0023740 m e ) o f i t e m ) A B .
0023760 b r o w s e r . f o n t ) ) )
0024000 ( T B . I N S E R T . I T E M
0024020 b r o w s e r t a b l e i t e
0024040 m ) ) t a b l e i t e m ) )
0024060 ( L I S T P U T u s e r d a t
0024100 a ( Q U O T E N A M E W I D
0024120 T H ) n a m e w i d t h ) (
0024140 T B . D I S P L A Y . L I N E S
0024160 b r o w s e r ( T B . F I R
0024200 S T . V I S I B L E . I T E M #
0024220 b r o w s e r r e g i o n )
0024240 ( T B . L A S T . V I S I B L
0024260 E . I T E M # b r o w s e r
0024300 r e g i o n ) ) ) ) ) \r ) \r \r (
0024320 006 004 A B . R e t r i e v e . C o
0024340 m m a n d 006 001 \r ( L A M B D A
0024360 ( b r o w s e r ) ( * N . H
0024400 . B r i g g s " 3 - M a r -
0024420 8 7 1 2 : 4 1 " ) ( D E C L
0024440 A R E ( G L O B A L V A R S
0024460 A B . a r c h i v i s t ) ) (
0024500 P R O G ( ( c o u n t 0 )
0024520 r e g i s t r y c o r e s t r
0024540 e a m ) ( S E T Q r e g i s
0024560 t r y ( S E L E C T Q ( O R
0024600 ( L A F I T E M O D E ) ( \
0024620 L A F I T E . I N F E R . M O D
0024640 E ) ) ( G V " . p a " ) (
0024660 N S " : P A " ) ( R E T U R
0024700 N ( p r i n t o u t ( G E T
0024720 P R O M P T W I N D O W ( T B
0024740 . W I N D O W b r o w s e r )
0024760 ) " C a n ' t r e t r i e v
0025000 e - - L a f i t e m o d e
0025020 m u s t b e s e t t o
0025040 G V o r N S " ) ) ) ) ( S
0025060 E T Q c o r e s t r e a m (
0025100 O P E N S T R E A M ( Q U O T
0025120 E { N O D I R C O R E } ) (
0025140 Q U O T E B O T H ) ) ) ( L
0025160 I N E L E N G T H M A X . S M
0025200 A L L P c o r e s t r e a m )
0025220 ( p r i n t o u t c o r e s
0025240 t r e a m " S u b j e c t :
0025260 R e t r i e v e r e q u e s t
0025300 " T " T o : " A B . a r
0025320 c h i v i s t r e g i s t r y
0025340 T " c c : " ( F U L L U
0025360 S E R N A M E ) T T ) ( T
0025400 B . M A P . S E L E C T E D . I
0025420 T E M S b r o w s e r ( F U
0025440 N C T I O N ( L A M B D A (
0025460 b r o w s e r i t e m ) ( p
0025500 r i n t o u t c o r e s t r e
0025520 a m " R e t r i e v e : "
0025540 ( f e t c h ( A B . i t e m
0025560 A B . F i l e n a m e ) o f
0025600 ( f e t c h ( T A B L E I T E
0025620 M T I D A T A ) o f i t e
0025640 m ) ) " o f " ( f e t c
0025660 h ( A B . i t e m A B . C r
0025700 e a t i o n . D a t e ) o f
0025720 ( f e t c h ( T A B L E I T E
0025740 M T I D A T A ) o f i t e
0025760 m ) ) " f r o m " ( C A
0026000 R ( f e t c h ( A B . i t e
0026020 m A B . M e d i a ) o f (
0026040 f e t c h ( T A B L E I T E M
0026060 T I D A T A ) o f i t e m
0026100 ) ) ) " o r " ( C A D R
0026120 ( f e t c h ( A B . i t e m
0026140 A B . M e d i a ) o f ( f
0026160 e t c h ( T A B L E I T E M
0026200 T I D A T A ) o f i t e m )
0026220 ) ) T ) ( a d d c o u n t
0026240 1 ) ) ) ) ( S E T Q c o r
0026260 e s t r e a m ( O P E N T E X
0026300 T S T R E A M c o r e s t r e
0026320 a m ) ) ( p r i n t o u t (
0026340 G E T P R O M P T W I N D O W
0026360 ( T B . W I N D O W b r o w s
0026400 e r ) ) " S e n d i n g m a
0026420 i l t o " A B . a r c h i
0026440 v i s t r e g i s t r y "
0026460 r e q u e s t i n g " c o u
0026500 n t " f i l e " ( i f (
0026520 N E Q c o u n t 1 ) t h e
0026540 n " s : " e l s e " :
0026560 " ) ) ( i f ( C A R (
0026600 E R S E T Q ( L A F I T E . S
0026620 E N D M E S S A G E c o r e s
0026640 t r e a m ) ) ) t h e n ( p
0026660 r i n t o u t ( G E T P R O M
0026700 P T W I N D O W ( T B . W I N
0026720 D O W b r o w s e r ) ) "
0026740 d o n e . " ) e l s e ( p r
0026760 i n t o u t ( G E T P R O M P
0027000 T W I N D O W ( T B . W I N D
0027020 O W b r o w s e r ) ) " f
0027040 a i l e d . " ) ) ) ) \r ) \r \r (
0027060 006 004 A B . R e t r i e v e . D i
0027100 r e c t o r y . C o m m a n d 006
0027120 001 \r ( L A M B D A ( b r o w s
0027140 e r ) ( * N . H . B r i g g
0027160 s " 3 - M a r - 8 7 1 2 :
0027200 4 1 " ) ( D E C L A R E ( G
0027220 L O B A L V A R S A B . a r c
0027240 h i v i s t ) ) ( P R O G (
0027260 ( c o u n t 0 ) r e g i s t
0027300 r y c o r e s t r e a m n e
0027320 w d i r e c t o r y ) ( S E T
0027340 Q r e g i s t r y ( S E L E
0027360 C T Q ( O R ( L A F I T E M
0027400 O D E ) ( \ L A F I T E . I N
0027420 F E R . M O D E ) ) ( G V "
0027440 . p a " ) ( N S " : P A " )
0027460 ( R E T U R N ( p r i n t o
0027500 u t ( G E T P R O M P T W I N
0027520 D O W ( T B . W I N D O W b
0027540 r o w s e r ) ) " C a n ' t
0027560 r e t r i e v e - - L a f i
0027600 t e m o d e m u s t b e
0027620 s e t t o G V o r N S "
0027640 ) ) ) ) ( i f ( N O T ( S
0027660 E T Q n e w d i r e c t o r y
0027700 ( A B . P r o m p t . F o r .
0027720 I n p u t " D i r e c t o r y
0027740 t o r e t r i e v e i n t
0027760 o ? " N I L b r o w s e r
0030000 T ) ) ) t h e n ( R E T U
0030020 R N ) ) ( S E T Q c o r e s
0030040 t r e a m ( O P E N S T R E A
0030060 M ( Q U O T E { N O D I R C
0030100 O R E } ) ( Q U O T E B O T
0030120 H ) ) ) ( L I N E L E N G T H
0030140 M A X . S M A L L P c o r e
0030160 s t r e a m ) ( p r i n t o u
0030200 t c o r e s t r e a m " S u
0030220 b j e c t : R e t r i e v e
0030240 r e q u e s t " T " T o :
0030260 " A B . a r c h i v i s t r
0030300 e g i s t r y T " c c : "
0030320 ( F U L L U S E R N A M E )
0030340 T T ) ( T B . M A P . S E L
0030360 E C T E D . I T E M S b r o w
0030400 s e r ( F U N C T I O N ( L
0030420 A M B D A ( b r o w s e r i
0030440 t e m ) ( p r i n t o u t c
0030460 o r e s t r e a m " R e t r i
0030500 e v e : " ( f e t c h ( A
0030520 B . i t e m A B . F i l e n a
0030540 m e ) o f ( f e t c h ( T
0030560 A B L E I T E M T I D A T A )
0030600 o f i t e m ) ) " o f
0030620 " ( f e t c h ( A B . i t e
0030640 m A B . C r e a t i o n . D a
0030660 t e ) o f ( f e t c h ( T
0030700 A B L E I T E M T I D A T A )
0030720 o f i t e m ) ) " f r o
0030740 m " ( C A R ( f e t c h
0030760 ( A B . i t e m A B . M e d i
0031000 a ) o f ( f e t c h ( T A
0031020 B L E I T E M T I D A T A )
0031040 o f i t e m ) ) ) " o r
0031060 " ( C A D R ( f e t c h (
0031100 A B . i t e m A B . M e d i a
0031120 ) o f ( f e t c h ( T A B
0031140 L E I T E M T I D A T A ) o
0031160 f i t e m ) ) ) " a s "
0031200 ( A B . M a k e . C e d a r .
0031220 F i l e n a m e ( P A C K F I
0031240 L E N A M E . S T R I N G ( Q
0031260 U O T E D I R E C T O R Y )
0031300 n e w d i r e c t o r y ( Q U
0031320 O T E V E R S I O N ) N I L
0031340 ( Q U O T E B O D Y ) ( f
0031360 e t c h ( A B . i t e m A B
0031400 . F i l e n a m e ) o f ( f
0031420 e t c h ( T A B L E I T E M
0031440 T I D A T A ) o f i t e m )
0031460 ) ) ) T ) ( a d d c o u n
0031500 t 1 ) ) ) ) ( S E T Q c o
0031520 r e s t r e a m ( O P E N T E
0031540 X T S T R E A M c o r e s t r
0031560 e a m ) ) ( p r i n t o u t
0031600 ( G E T P R O M P T W I N D O W
0031620 ( T B . W I N D O W b r o w
0031640 s e r ) ) " S e n d i n g m
0031660 a i l t o " A B . a r c h
0031700 i v i s t r e g i s t r y "
0031720 r e q u e s t i n g " c o
0031740 u n t " f i l e " ( i f
0031760 ( N E Q c o u n t 1 ) t h
0032000 e n " s : " e l s e "
0032020 : " ) ) ( i f ( C A R
0032040 ( E R S E T Q ( L A F I T E .
0032060 S E N D M E S S A G E c o r e
0032100 s t r e a m ) ) ) t h e n (
0032120 p r i n t o u t ( G E T P R O
0032140 M P T W I N D O W ( T B . W I
0032160 N D O W b r o w s e r ) ) "
0032200 d o n e . " ) e l s e ( p
0032220 r i n t o u t ( G E T P R O M
0032240 P T W I N D O W ( T B . W I N
0032260 D O W b r o w s e r ) ) "
0032300 f a i l e d . " ) ) ) ) \r ) \r \r
0032320 ( 006 004 A B . R e t r i e v e . R
0032340 e n a m e d . C o m m a n d 006 001
0032360 \r ( L A M B D A ( b r o w s e
0032400 r ) ( * N . H . B r i g g s
0032420 " 3 - M a r - 8 7 1 2 : 3
0032440 4 " ) ( D E C L A R E ( G L
0032460 O B A L V A R S A B . a r c h
0032500 i v i s t ) ) ( P R O G ( (
0032520 c o u n t 0 ) r e g i s t r
0032540 y c o r e s t r e a m ) ( D
0032560 E C L A R E ( S P E C V A R S
0032600 c o r e s t r e a m c o u n
0032620 t ) ) ( S E T Q r e g i s t
0032640 r y ( S E L E C T Q ( O R
0032660 ( L A F I T E M O D E ) ( \ L
0032700 A F I T E . I N F E R . M O D E
0032720 ) ) ( G V " . p a " ) ( N
0032740 S " : P A " ) ( R E T U R N
0032760 ( p r i n t o u t ( G E T P
0033000 R O M P T W I N D O W ( T B .
0033020 W I N D O W b r o w s e r ) )
0033040 " C a n ' t r e t r i e v e
0033060 - - L a f i t e m o d e
0033100 m u s t b e s e t t o G
0033120 V o r N S " ) ) ) ) ( S E
0033140 T Q c o r e s t r e a m ( O
0033160 P E N S T R E A M ( Q U O T E
0033200 { N O D I R C O R E } ) ( Q
0033220 U O T E B O T H ) ) ) ( L I
0033240 N E L E N G T H M A X . S M A
0033260 L L P c o r e s t r e a m )
0033300 ( p r i n t o u t c o r e s t
0033320 r e a m " S u b j e c t : R
0033340 e t r i e v e r e q u e s t "
0033360 T " T o : " A B . a r c
0033400 h i v i s t r e g i s t r y
0033420 T " c c : " ( F U L L U S
0033440 E R N A M E ) T T ) ( T B
0033460 . M A P . S E L E C T E D . I T
0033500 E M S b r o w s e r ( F U N
0033520 C T I O N A B . R e t r i e v
0033540 e . R e n a m e d . A u x ) )
0033560 ( i f ( E Q c o u n t 0 )
0033600 t h e n ( p r i n t o u t
0033620 ( G E T P R O M P T W I N D O W
0033640 ( T B . W I N D O W b r o w
0033660 s e r ) ) " N o t h i n g t
0033700 o r e t r i e v e . " ) ( C
0033720 L O S E F c o r e s t r e a m
0033740 ) ( R E T U R N ) ) ( S E T
0033760 Q c o r e s t r e a m ( O P
0034000 E N T E X T S T R E A M c o r
0034020 e s t r e a m ) ) ( p r i n t
0034040 o u t ( G E T P R O M P T W I
0034060 N D O W ( T B . W I N D O W
0034100 b r o w s e r ) ) " S e n d i
0034120 n g m a i l t o " A B .
0034140 a r c h i v i s t r e g i s t
0034160 r y " r e q u e s t i n g
0034200 " c o u n t " f i l e "
0034220 ( i f ( N E Q c o u n t 1
0034240 ) t h e n " s : " e l
0034260 s e " : " ) ) ( i f (
0034300 C A R ( E R S E T Q ( L A F
0034320 I T E . S E N D M E S S A G E
0034340 c o r e s t r e a m ) ) ) t h
0034360 e n ( p r i n t o u t ( G E
0034400 T P R O M P T W I N D O W ( T
0034420 B . W I N D O W b r o w s e r
0034440 ) ) " d o n e . " ) e l s
0034460 e ( p r i n t o u t ( G E T
0034500 P R O M P T W I N D O W ( T B
0034520 . W I N D O W b r o w s e r )
0034540 ) " f a i l e d . " ) ) ) )
0034560 \r ) \r \r ( 006 004 A B . R e t r i e
0034600 v e . R e n a m e d . A u x 006 001
0034620 \r ( L A M B D A ( b r o w s e
0034640 r i t e m ) ( * N . H . B
0034660 r i g g s " 3 - M a r - 8 7
0034700 1 2 : 3 8 " ) ( L E T ( (
0034720 n e w n a m e ( A B . P r o m
0034740 p t . F o r . I n p u t ( C O
0034760 N C A T " R e t r i e v e "
0035000 ( f e t c h ( A B . i t e m
0035020 A B . F i l e n a m e ) o f
0035040 ( f e t c h ( T A B L E I T
0035060 E M T I D A T A ) o f i t
0035100 e m ) ) " a s ? " ) ( f
0035120 e t c h ( A B . i t e m A B
0035140 . F i l e n a m e ) o f ( f
0035160 e t c h ( T A B L E I T E M
0035200 T I D A T A ) o f i t e m )
0035220 ) b r o w s e r " . . . s
0035240 k i p p e d " ) ) ) ( i f n
0035260 e w n a m e t h e n ( p r i
0035300 n t o u t c o r e s t r e a m
0035320 " R e t r i e v e : " ( f
0035340 e t c h ( A B . i t e m A B
0035360 . F i l e n a m e ) o f ( f
0035400 e t c h ( T A B L E I T E M
0035420 T I D A T A ) o f i t e m )
0035440 ) " o f " ( f e t c h
0035460 ( A B . i t e m A B . C r e a
0035500 t i o n . D a t e ) o f ( f
0035520 e t c h ( T A B L E I T E M
0035540 T I D A T A ) o f i t e m )
0035560 ) " f r o m " ( C A R
0035600 ( f e t c h ( A B . i t e m
0035620 A B . M e d i a ) o f ( f e
0035640 t c h ( T A B L E I T E M T
0035660 I D A T A ) o f i t e m ) )
0035700 ) " o r " ( C A D R (
0035720 f e t c h ( A B . i t e m A
0035740 B . M e d i a ) o f ( f e t
0035760 c h ( T A B L E I T E M T I
0036000 D A T A ) o f i t e m ) ) )
0036020 " a s " ( A B . M a k e
0036040 . C e d a r . F i l e n a m e
0036060 ( P A C K F I L E N A M E . S T
0036100 R I N G ( Q U O T E V E R S
0036120 I O N ) N I L ( Q U O T E
0036140 B O D Y ) n e w n a m e ) )
0036160 T ) ( a d d c o u n t 1 )
0036200 ) ( H E L P ) ) ) \r ) \r \r ( 006
0036220 004 A B . S o r t . C o m m a n d
0036240 006 001 \r ( L A M B D A ( b r o w
0036260 s e r s o r t t y p e ) ( *
0036300 N . H . B r i g g s " 1 7 -
0036320 J u n - 8 6 1 2 : 4 7 " ) (
0036340 L E T ( ( i t e m s ( f e t
0036360 c h ( T A B L E B R O W S E R
0036400 T B I T E M S ) o f b r o
0036420 w s e r ) ) ) ( i f ( E Q
0036440 s o r t t y p e ( Q U O T E
0036460 R e v e r s e ) ) t h e n (
0036500 S E T Q i t e m s ( D R E V
0036520 E R S E i t e m s ) ) e l s
0036540 e ( S O R T i t e m s ( S
0036560 E L E C T Q s o r t t y p e
0036600 ( C r e a t i o n D a t e ( F
0036620 U N C T I O N ( L A M B D A
0036640 ( x y ) ( I G R E A T E R P
0036660 ( I D A T E ( f e t c h (
0036700 A B . i t e m A B . C r e a t
0036720 i o n . D a t e ) o f ( f e
0036740 t c h ( T A B L E I T E M T
0036760 I D A T A ) o f x ) ) ) (
0037000 I D A T E ( f e t c h ( A B
0037020 . i t e m A B . C r e a t i o
0037040 n . D a t e ) o f ( f e t c
0037060 h ( T A B L E I T E M T I D
0037100 A T A ) o f y ) ) ) ) ) ) )
0037120 ( A r c h i v e ( F U N C T
0037140 I O N ( L A M B D A ( x y
0037160 ) ( I L E S S P ( f e t c h
0037200 ( A B . i t e m A B . S e q
0037220 u e n c e . N u m b e r ) o f
0037240 ( f e t c h ( T A B L E I T
0037260 E M T I D A T A ) o f x )
0037300 ) ( f e t c h ( A B . i t e
0037320 m A B . S e q u e n c e . N u
0037340 m b e r ) o f ( f e t c h
0037360 ( T A B L E I T E M T I D A T
0037400 A ) o f y ) ) ) ) ) ) ( F
0037420 U N C T I O N ( L A M B D A
0037440 ( x y ) ( A L P H O R D E R
0037460 ( f e t c h ( A B . i t e m
0037500 A B . F i l e n a m e ) o f
0037520 ( f e t c h ( T A B L E I T
0037540 E M T I D A T A ) o f x )
0037560 ) ( f e t c h ( A B . i t e
0037600 m A B . F i l e n a m e ) o
0037620 f ( f e t c h ( T A B L E I
0037640 T E M T I D A T A ) o f y
0037660 ) ) ( U P P E R C A S E A R R
0037700 A Y ) ) ) ) ) ) ) ( f o r i
0037720 t e m i n i t e m s a s
0037740 i f r o m 1 d o ( r e p
0037760 l a c e T I # o f i t e m
0040000 w i t h i ) ) ( T B . R E
0040020 P L A C E . I T E M S b r o w
0040040 s e r i t e m s ) ( T B . R
0040060 E D I S P L A Y . I T E M S b
0040100 r o w s e r ) ) ) \r ) \r \r ( 006 004
0040120 A B . U n d e l e t e . C o m m
0040140 a n d 006 001 \r ( L A M B D A ( b
0040160 r o w s e r a l l ? ) ( *
0040200 N . H . B r i g g s " 1 6 - A
0040220 p r - 8 6 2 1 : 0 1 " ) ( L
0040240 E T ( ( c o u n t 0 ) ) (
0040260 i f a l l ? t h e n ( T B
0040300 . M A P . D E L E T E D . I T E
0040320 M S b r o w s e r ( F U N C
0040340 T I O N ( L A M B D A ( b r
0040360 o w s e r i t e m ) ( T B .
0040400 U N D E L E T E . I T E M b r
0040420 o w s e r i t e m ) ( a d d
0040440 c o u n t 1 ) ) ) ) e l s
0040460 e ( T B . M A P . S E L E C T
0040500 E D . I T E M S b r o w s e r
0040520 ( F U N C T I O N ( L A M B
0040540 D A ( b r o w s e r i t e m
0040560 ) ( T B . U N D E L E T E . I
0040600 T E M b r o w s e r i t e m
0040620 ) ( a d d c o u n t 1 ) )
0040640 ) ) ) ( p r i n t o u t ( G
0040660 E T P R O M P T W I N D O W (
0040700 T B . W I N D O W b r o w s e
0040720 r ) ) c o u n t " i t e m
0040740 " ( i f ( N E Q c o u n t
0040760 1 ) t h e n " s " e l s
0041000 e " " ) " u n d e l e t e
0041020 d . " ) ) ) \r ) \r ) \r \f 006 004 ( *
0041040 * m i s c e l l a n e o u s
0041060 f u n c t i o n s ) 006 001 \r \r (
0041100 D E F I N E Q \r \r ( 006 004 A B . S
0041120 e t . B r o w s e r . T i t l e
0041140 006 001 \r ( L A M B D A ( b r o w
0041160 s e r ) ( * N . H . B r i g
0041200 g s " 1 7 - J u n - 8 6 1 5
0041220 : 4 5 " ) ( L E T ( ( a r c
0041240 h i v e ( L I S T G E T ( T
0041260 B . U S E R D A T A b r o w s
0041300 e r ) ( Q U O T E A R C H I
0041320 V E ) ) ) ( f i l t e r ( L
0041340 I S T G E T ( T B . U S E R D
0041360 A T A b r o w s e r ) ( Q U
0041400 O T E F I L T E R ) ) ) ) (
0041420 W I N D O W P R O P ( G E T P
0041440 R O M P T W I N D O W ( T B .
0041460 W I N D O W b r o w s e r ) )
0041500 ( Q U O T E T I T L E ) (
0041520 C O N C A T " A r c h i v e
0041540 B r o w s e r " ( O R ( A N
0041560 D a r c h i v e ( C O N C A
0041600 T " " a r c h i v e ) )
0041620 " " ) ( O R ( A N D f i l
0041640 t e r ( C O N C A T " -
0041660 f i l e s " f i l t e r ) )
0041700 " " ) ) ) ) ) \r ) \r \r ( 006 004 A
0041720 B . I c o n f n 006 001 \r ( L A M B
0041740 D A ( w i n d o w i c o n )
0041760 ( * N . H . B r i g g s "
0042000 1 9 - S e p - 8 6 1 8 : 5 8 "
0042020 ) ( D E C L A R E ( G L O B
0042040 A L V A R S A B . t i t l e d
0042060 . i c o n ) ) ( L E T * ( (
0042100 b r o w s e r ( W I N D O W P
0042120 R O P w i n d o w ( Q U O T
0042140 E T A B L E B R O W S E R ) )
0042160 ) ( a r c h i v e ( L I S T
0042200 G E T ( T B . U S E R D A T A
0042220 b r o w s e r ) ( Q U O T E
0042240 A R C H I V E ) ) ) ( d i r
0042260 e c t o r y ( U N P A C K F I
0042300 L E N A M E . S T R I N G a r
0042320 c h i v e ( Q U O T E D I R
0042340 E C T O R Y ) ) ) ( h o s t
0042360 ( U N P A C K F I L E N A M E .
0042400 S T R I N G a r c h i v e (
0042420 Q U O T E H O S T ) ) ) ( t
0042440 i t l e ( P A C K F I L E N A
0042460 M E . S T R I N G ( Q U O T E
0042500 H O S T ) h o s t ( Q U O
0042520 T E D I R E C T O R Y ) ( S
0042540 U B S T R I N G d i r e c t o
0042560 r y 1 ( S T R P O S d i r
0042600 e c t o r y " > " ) ) ) ) )
0042620 ( i f i c o n t h e n ( I
0042640 C O N W . T I T L E i c o n
0042660 t i t l e ) i c o n e l s e
0042700 ( T I T L E D I C O N W A B
0042720 . t i t l e d . i c o n t i t
0042740 l e ( F O N T C R E A T E (
0042760 Q U O T E M O D E R N ) 8 )
0043000 N I L N I L N I L ( C H
0043020 A R C O D E ( } ) ) ) ) ) ) \r
0043040 ) \r \r ( 006 004 A B . C l o s e f n
0043060 006 001 \r ( L A M B D A ( w i n d
0043100 o w ) ( * e d i t e d % :
0043120 " 2 0 - J u n - 8 6 1 2 : 4 2
0043140 " ) ( L E T ( ( b r o w s e
0043160 r ( W I N D O W P R O P w i
0043200 n d o w ( Q U O T E T A B L
0043220 E B R O W S E R ) ) ) ) ( i f
0043240 ( N O T ( Z E R O P ( f e
0043260 t c h ( T A B L E B R O W S E
0043300 R T B # D E L E T E D ) o f
0043320 b r o w s e r ) ) ) t h e n
0043340 ( i f ( M E N U ( c r e a
0043360 t e M E N U I T E M S _
0043400 ( Q U O T E ( ( " E x p u n g
0043420 e " ( Q U O T E E x p u n g
0043440 e ) " E x p u n g e i t e m
0043460 s m a r k e d f o r d e l
0043500 e t i o n " ) ( " D o n ' t
0043520 E x p u n g e " N I L " D o
0043540 n ' t e x p u n g e i t e m
0043560 s m a r k e d f o r d e l
0043600 e t i o n " ) ) ) T I T L E
0043620 _ " E x p u n g e d e l e t
0043640 e d i t e m s ? " C E N T E
0043660 R F L G _ T ) ) t h e n
0043700 ( A B . E x p u n g e . C o m m
0043720 a n d b r o w s e r ) ) ) N
0043740 I L ) ) \r ) \r \r ( 006 004 A B . P r
0043760 i n t f n 006 001 \r ( L A M B D A
0044000 ( b r o w s e r i t e m w i
0044020 n d o w ) ( * N . H . B r i
0044040 g g s " 2 2 - S e p - 8 6 1
0044060 3 : 0 9 " ) ( L E T * ( ( e
0044100 n t r y ( f e t c h T I D A
0044120 T A o f i t e m ) ) ( n a
0044140 m e w i d t h ( O R ( L I S
0044160 T G E T ( T B . U S E R D A T
0044200 A b r o w s e r ) ( Q U O T
0044220 E N A M E W I D T H ) ) 0 )
0044240 ) ( o f f s e t ( D S P X P
0044260 O S I T I O N N I L w i n d
0044300 o w ) ) ( d a t e s t a r t
0044320 ( I P L U S o f f s e t n a
0044340 m e w i d t h 1 0 ) ) ) ( *
0044360 i f t h i s i s t o w
0044400 o r k f o r v a r i a b l e
0044420 s p a c e d f o n t s i t
0044440 h a s t o b e s m a r t
0044460 a b o u t t h e w i d t h
0044500 s o f d a t e a n d m e
0044520 d i a f i e l d s t o o )
0044540 ( P R I N 1 ( f e t c h ( A
0044560 B . i t e m A B . F i l e n a
0044600 m e ) o f e n t r y ) w i
0044620 n d o w ) ( i f ( Z E R O P
0044640 n a m e w i d t h ) t h e n
0044660 ( P R I N 1 " " w i n d
0044700 o w ) e l s e ( B L T S H A
0044720 D E W H I T E S H A D E w i
0044740 n d o w ( D S P X P O S I T I
0044760 O N N I L w i n d o w ) (
0045000 I D I F F E R E N C E ( D S P
0045020 Y P O S I T I O N N I L w i
0045040 n d o w ) ( F O N T P R O P
0045060 A B . b r o w s e r . f o n t
0045100 ( Q U O T E D E S C E N T ) )
0045120 ) ( I D I F F E R E N C E d
0045140 a t e s t a r t ( D S P X P O
0045160 S I T I O N N I L w i n d o
0045200 w ) ) ( F O N T P R O P A B
0045220 . b r o w s e r . f o n t ( Q
0045240 U O T E H E I G H T ) ) ) (
0045260 D S P X P O S I T I O N d a t
0045300 e s t a r t w i n d o w ) )
0045320 ( P R I N 1 ( f e t c h ( A
0045340 B . i t e m A B . C r e a t i
0045360 o n . D a t e ) o f e n t r
0045400 y ) w i n d o w ) ( P R I N
0045420 1 " " w i n d o w )
0045440 ( f o r m e d i a i n ( f
0045460 e t c h ( A B . i t e m A B
0045500 . M e d i a ) o f e n t r y
0045520 ) d o ( P R I N 1 m e d i
0045540 a w i n d o w ) ( P R I N 1
0045560 " " w i n d o w ) ) ) ) \r
0045600 ) \r \r ( 006 004 A B . P r o m p t .
0045620 F o r . I n p u t 006 001 \r ( L A M
0045640 B D A ( p r o m p t d e f a
0045660 u l t b r o w s e r a b o r
0045700 t f l a g ) ( * N . H . B r
0045720 i g g s " 2 2 - A p r - 8 6
0045740 1 7 : 3 2 " ) ( * * P r o
0045760 m p t f o r i n p u t f o
0046000 r b r o w s e r b r o w s e
0046020 r w i t h q u e s t i o n
0046040 p r o m p t o f f e r i n g
0046060 d e f a u l t a n s w e r D
0046100 E F A U L T . I f a b o r t
0046120 f l a g i s t r u e a n d
0046140 r e s p o n s e i s N I L
0046160 , p r i n t s " . . . a b
0046200 o r t e d " o r a b o r t f
0046220 l a g ( s h o u l d b e a
0046240 t e x t s t r i n g ) ) (
0046260 L E T * ( ( p r o m p t w i n
0046300 d o w ( G E T P R O M P T W I
0046320 N D O W ( T B . W I N D O W
0046340 b r o w s e r ) ) ) ( p r o m
0046360 p t w i d t h ( S T R I N G W
0046400 I D T H p r o m p t p r o m
0046420 p t w i n d o w ) ) ( w i n d
0046440 o w w i d t h ( W I N D O W P
0046460 R O P p r o m p t w i n d o w
0046500 ( Q U O T E W I D T H ) ) )
0046520 r e s u l t ) ( C L E A R W
0046540 p r o m p t w i n d o w ) (
0046560 i f ( I G R E A T E R P ( I
0046600 P L U S p r o m p t w i d t h
0046620 ( S T R I N G W I D T H ( O
0046640 R d e f a u l t " X X X " )
0046660 p r o m p t w i n d o w ) )
0046700 w i n d o w w i d t h ) t h e
0046720 n ( * P r o m p t p l u s
0046740 d e f a u l t r e s p o n s
0046760 e w i l l o v e r f l o w
0047000 t h e w i d t h o f t h e
0047020 w i n d o w , s o b e a
0047040 n i c e g u y a n d b r
0047060 e a k i t u p ) ( f o r
0047100 i f r o m ( I D I F F E R E
0047120 N C E ( N C H A R S p r o m
0047140 p t ) 4 ) t o 1 0 b y
0047160 - 1 b i n d ( e x c e s s w
0047200 i d t h _ ( I D I F F E R E
0047220 N C E p r o m p t w i d t h
0047240 w i n d o w w i d t h ) ) w h
0047260 e n ( A N D ( E Q ( N T H
0047300 C H A R C O D E p r o m p t
0047320 i ) ( C H A R C O D E S P A
0047340 C E ) ) ( I G R E A T E R P
0047360 ( S T R I N G W I D T H ( S U
0047400 B S T R I N G p r o m p t i
0047420 ) p r o m p t w i n d o w )
0047440 e x c e s s w i d t h ) ) d o
0047460 ( R E T U R N ( S E T Q p
0047500 r o m p t ( C O N C A T ( S
0047520 U B S T R I N G p r o m p t
0047540 1 ( I P L U S i - 1 ) )
0047560 " \r " ( S U B S T R I N G p
0047600 r o m p t ( I P L U S i 1
0047620 ) ) ) ) ) ) ) ( S E T Q r e
0047640 s u l t ( C A R ( N L S E T
0047660 Q ( P R O M P T F O R W O R D
0047700 p r o m p t d e f a u l t
0047720 N I L p r o m p t w i n d o w
0047740 N I L ( Q U O T E T T Y )
0047760 ( C H A R C O D E ( C R E
0050000 S C ) ) ) ) ) ) ( i f ( A N
0050020 D ( E Q r e s u l t N I L
0050040 ) a b o r t f l a g ) t h e
0050060 n ( P R I N T O U T p r o m
0050100 p t w i n d o w ( i f ( E Q
0050120 a b o r t f l a g T ) t h
0050140 e n " . . . a b o r t e d "
0050160 e l s e a b o r t f l a g )
0050200 ) ) ( T E R P R I p r o m p
0050220 t w i n d o w ) r e s u l t )
0050240 ) \r ) \r \r ( 006 004 A B . R e a d .
0050260 D i r e c t o r y 006 001 \r ( L A M
0050300 B D A ( b r o w s e r ) ( *
0050320 N . H . B r i g g s " 2 2 -
0050340 S e p - 8 6 1 2 : 5 3 " ) (
0050360 L E T ( ( d i r e c t o r y s
0050400 t r e a m ( A N D ( L I S T
0050420 G E T ( T B . U S E R D A T A
0050440 b r o w s e r ) ( Q U O T E
0050460 A R C H I V E ) ) ( C A R
0050500 ( N L S E T Q ( O P E N S T R
0050520 E A M ( L I S T G E T ( T B
0050540 . U S E R D A T A b r o w s e
0050560 r ) ( Q U O T E A R C H I V
0050600 E ) ) ( Q U O T E I N P U T
0050620 ) ) ) ) ) ) ( l i n e r d t a
0050640 b l e ( C O P Y R E A D T A B
0050660 L E ( Q U O T E O R I G ) )
0050700 ) ( p r o m p t w i n d o w
0050720 ( G E T P R O M P T W I N D O W
0050740 ( T B . W I N D O W b r o w
0050760 s e r ) ) ) i t e m s ) ( i
0051000 f ( N O T d i r e c t o r y
0051020 s t r e a m ) t h e n ( p r
0051040 i n t o u t p r o m p t w i n
0051060 d o w " C a n ' t f i n d
0051100 a r c h i v e d i r e c t o r
0051120 y " ( L I S T G E T ( T B
0051140 . U S E R D A T A b r o w s e
0051160 r ) ( Q U O T E A R C H I V
0051200 E ) ) ) ( L I S T P U T ( T
0051220 B . U S E R D A T A b r o w s
0051240 e r ) ( Q U O T E A R C H I
0051260 V E ) N I L ) ( A B . S e t
0051300 . B r o w s e r . T i t l e b
0051320 r o w s e r ) N I L e l s e
0051340 ( L I S T P U T ( T B . U S
0051360 E R D A T A b r o w s e r )
0051400 ( Q U O T E A R C H I V E )
0051420 ( L - C A S E ( F U L L N A M
0051440 E d i r e c t o r y s t r e a
0051460 m ) ) ) ( A B . S e t . B r o
0051500 w s e r . T i t l e b r o w s
0051520 e r ) ( S E T S E P R ( L I
0051540 S T ( C O N S T A N T ( C H
0051560 A R C O D E E O L ) ) ) N I
0051600 L l i n e r d t a b l e ) (
0051620 S E T B R K N I L N I L l
0051640 i n e r d t a b l e ) ( b i n
0051660 d s t a r t e n d i n p u
0051700 t l i n e r e p e a t u n t i
0051720 l ( E O F P d i r e c t o r
0051740 y s t r e a m ) e a c h t i m
0051760 e ( S E T Q i n p u t l i n
0052000 e ( R S T R I N G d i r e c
0052020 t o r y s t r e a m l i n e r
0052040 d t a b l e ) ) ( R E A D C
0052060 d i r e c t o r y s t r e a m )
0052100 a s i f r o m 1 c o l
0052120 l e c t ( c r e a t e A B .
0052140 i t e m A B . F i l e n a m e
0052160 _ ( L - C A S E ( S U B S
0052200 T R I N G i n p u t l i n e
0052220 1 ( S U B 1 ( S E T Q e n
0052240 d ( S T R P O S " " i n
0052260 p u t l i n e ) ) ) ) ) A B .
0052300 C r e a t i o n . D a t e _
0052320 ( S U B S T R I N G i n p u t
0052340 l i n e ( A D D 1 e n d )
0052360 ( S U B 1 ( S E T Q e n d
0052400 ( S T R P O S " " i n p
0052420 u t l i n e ( A D D 1 e n d
0052440 ) ) ) ) ) A B . M e d i a _
0052460 ( f i r s t ( S E T Q e n
0052500 d ( A D D 1 e n d ) ) r e
0052520 p e a t w h i l e e n d e a
0052540 c h t i m e ( S E T Q s t a
0052560 r t ( A D D 1 e n d ) ) (
0052600 w h i l e ( E Q U A L ( S U
0052620 B S T R I N G i n p u t l i n
0052640 e s t a r t s t a r t ) "
0052660 " ) d o ( S E T Q s t a
0052700 r t ( A D D 1 s t a r t ) )
0052720 ) ( S E T Q e n d ( S T R
0052740 P O S " " i n p u t l i n
0052760 e s t a r t ) ) c o l l e c
0053000 t ( S U B S T R I N G i n p
0053020 u t l i n e s t a r t ( A N
0053040 D e n d ( S U B 1 e n d )
0053060 ) ) ) A B . S e q u e n c e .
0053100 N u m b e r _ i ) f i n a
0053120 l l y ( C L O S E F d i r e
0053140 c t o r y s t r e a m ) ) ) ) )
0053160 \r ) \r \r ( 006 004 A B . S u b i t e
0053200 m p 006 001 \r ( L A M B D A ( s u
0053220 b i t e m i t e m ) ( * N
0053240 . H . B r i g g s " 1 6 - A p
0053260 r - 8 6 1 8 : 3 2 " ) ( *
0053300 * T r u e i f s u b i t e
0053320 m a p p e a r s a m o n g
0053340 t h e s u b i t e m s o f
0053360 i t e m o r d e s c e n d e
0053400 n t s ) ( L E T ( ( s u b
0053420 ( C A D D D R i t e m ) ) )
0053440 ( A N D s u b ( E Q ( C A
0053460 R ( L I S T P s u b ) ) (
0053500 Q U O T E S U B I T E M S ) )
0053520 ( O R ( M E M B E R s u b
0053540 i t e m s u b ) ( f o r i
0053560 i n ( C D R s u b ) t h
0053600 e r e i s ( A B . S u b i t e
0053620 m p s u b i t e m i ) ) ) )
0053640 ) ) \r ) \r \r ( 006 004 A B . M a k e
0053660 . C e d a r . F i l e n a m e 006
0053700 001 \r ( L A M B D A ( f i l e n
0053720 a m e ) ( * N . H . B r i g
0053740 g s " 3 - M a r - 8 7 1 2
0053760 : 0 8 " ) ( L E T ( ( u n p
0054000 a c k e d f i l e n a m e ( U
0054020 N P A C K f i l e n a m e ) )
0054040 ) ( P A C K ( S U B L I S
0054060 ( Q U O T E ( ( { . % [ )
0054100 ( } . % ] ) ( ; . !
0054120 ) ) ) u n p a c k e d f i l e
0054140 n a m e ) ) ) ) \r ) \r ) \r \f 006 004
0054160 ( * * t h e u s e r t h
0054200 a t g e t s r e t r i e v a
0054220 l r e q u e s t s ) 006 001 \r \r \r
0054240 ( R P A Q ? 006 002 A B . a r c h
0054260 i v i s t 006 001 " A r c h i v i
0054300 s t " ) \r \f 006 004 ( * * t h e
0054320 s t r u c t u r e f o r a
0054340 n a r c h i v e e n t r y )
0054360 006 001 \r \r ( D E C L A R E % : E
0054400 V A L @ C O M P I L E \r \r ( R E
0054420 C O R D 006 002 A B . i t e m 006 001
0054440 ( A B . F i l e n a m e A B
0054460 . C r e a t i o n . D a t e A
0054500 B . M e d i a A B . S e q u e
0054520 n c e . N u m b e r ) ) \r ) \r \f
0054540 006 004 ( * * t h e i c o n )
0054560 006 001 \r \r \r ( R P A Q Q 006 002 A B
0054600 . i c o n 006 001 # * ( 7 3 7 3
0054620 ) O O O O O O O O O O O O O O O
0054640 O O O H @ O O O O O O O O O O O
0054660 O O O O O O O H @ O @ @ @ @ @ @
0054700 A N @ @ @ @ @ @ @ @ A H @ M L @
0054720 @ @ @ @ C K @ @ @ @ @ @ @ @ A H
0054740 @ L O O O O O O O O O O O O O O
0054760 O O I H @ L J @ @ @ @ @ D H G @
0055000 @ @ @ @ @ A I H @ L K @ @ @ @ A
0055020 H H A L @ @ @ @ @ F I H @ L I H
0055040 @ @ @ A @ H @ G H @ @ @ @ L I H
0055060 @ L H F @ @ @ G @ H @ @ O L @ @
0055100 G H I H @ L H C @ @ C O O O O O
0055120 O G O O O @ I H @ L H A H @ C @
0055140 C N @ @ A @ @ @ F @ I H @ L H @
0055160 L O N @ F K @ @ A @ @ A L @ I H
0055200 @ L H @ F N B A O O O O A @ @ C
0055220 L @ I H @ L H @ C L B C H H L @
0055240 A @ @ F H @ I H @ L H @ A K O O
0055260 O O O O I @ @ M H @ I H @ L H @
0055300 A D B @ @ L @ L A @ A I @ @ I H
0055320 @ L H @ A N B @ @ L @ C A @ F A
0055340 @ @ I H @ L H @ @ K C O O O O O
0055360 O M O C @ @ I H @ L H @ @ I H @
0055400 C L @ @ @ C J B @ @ I H @ L H @
0055420 @ H H @ F F @ @ @ G B B @ @ I H
0055440 @ L H @ @ H D A L G @ @ @ L F C
0055460 @ @ I H @ L H @ @ H C O O O O O
0055500 O H D A @ @ I H @ L H @ @ H C L
0055520 @ F @ @ G @ D A @ @ I H @ L H @
0055540 @ H A O O O O O O @ D A H @ I H
0055560 @ O H @ A H A O O O O O O @ D @
0055600 H @ I H @ L O @ C @ A O O O O O
0055620 O @ D @ L @ I H @ L I O N @ C A
0055640 H C @ F A @ D @ G H I H @ L H @
0055660 N @ F @ H A @ L A @ D @ A O I H
0055700 @ L H @ G N L @ D A A H A H B A
0055720 O @ I H @ L H @ B G O @ C A B @
0055740 @ L C O B @ I H @ L H @ B @ M N
0055760 A I F A O O O @ F @ I H @ L H @
0056000 B @ D C L O M N C H B @ D @ I H
0056020 @ L H @ B @ D @ C O O @ F @ B @
0056040 D @ I H @ L H @ B @ D @ @ F G L
0056060 B @ B @ D @ I H @ L H @ B @ L @
0056100 G L @ C O @ C @ F @ I H @ L H @
0056120 B @ H C L @ @ @ G N A H C @ I H
0056140 @ L H @ F A K L @ @ @ @ @ A O L
0056160 A H I H @ L H @ D A L @ @ @ @ @
0056200 @ @ A N @ L I H @ L H @ O O @ @
0056220 @ @ @ @ @ @ @ C N F I H @ L H C
0056240 L @ @ @ @ @ @ @ @ @ @ @ C N I H
0056260 @ O O O @ @ @ @ @ @ @ @ @ @ @ @
0056300 @ A I H @ L H @ @ @ @ @ @ @ @ @
0056320 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0056340 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0056360 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0056400 @ L H @ @ @ @ @ @ @ @ @ @ @ @ @
0056420 @ @ I H @ L H @ @ @ @ @ @ @ @ @
0056440 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0056460 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0056500 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0056520 @ L H @ @ @ @ @ @ @ @ @ @ @ @ @
0056540 @ @ I H @ L H @ @ @ @ @ @ @ @ @
0056560 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0056600 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0056620 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0056640 @ L H @ @ @ @ @ @ @ @ @ @ @ @ @
0056660 @ @ I H @ L H @ @ @ @ @ @ @ @ @
0056700 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0056720 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0056740 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0056760 @ L H @ @ @ @ @ @ @ @ @ @ @ @ @
0057000 @ @ I H @ L H @ @ @ @ @ @ @ @ @
0057020 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0057040 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0057060 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0057100 @ L H @ @ @ @ @ @ @ @ @ @ @ @ @
0057120 @ @ I H @ L H @ @ @ @ @ @ @ @ @
0057140 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0057160 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0057200 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0057220 @ L H @ @ @ @ @ @ @ @ @ @ @ @ @
0057240 @ @ I H @ L H @ @ @ @ @ @ @ @ @
0057260 @ @ @ @ @ @ I H @ L H @ @ @ @ @
0057300 @ @ @ @ @ @ @ @ @ @ I H @ L H @
0057320 @ @ @ @ @ @ @ @ @ @ @ @ @ @ I H
0057340 @ L O O O O O O O O O O O O O O
0057360 O O I H @ L @ @ @ @ @ @ @ @ @ @
0057400 @ @ @ @ @ @ A H @ L @ @ @ @ @ @
0057420 @ @ @ @ @ @ @ @ @ @ A H @ O O O
0057440 O O O O O O O O O O O O O O O H
0057460 @ O O O O O O O O O O O O O O O
0057500 O O O H @ \r ) \r \r ( R P A Q Q
0057520 006 002 A B . i c o n . m a s k 006 001
0057540 # * ( 7 3 7 3 ) O O O O O O
0057560 O O O O O O O O O O O O H @ O O
0057600 O O O O O O O O O O O O O O O O
0057620 H @ O O O O O O O O O O O O O O
0057640 O O O O H @ O O O O O O O O O O
0057660 O O O O O O O O H @ O O O O O O
0057700 O O O O O O O O O O O O H @ O O
0057720 O O O O O O O O O O O O O O O O
0057740 H @ O O O O O O O O O O O O O O
0057760 O O O O H @ O O O O O O O O O O
0060000 O O O O O O O O H @ O O O O O O
0060020 O O O O O O O O O O O O H @ O O
0060040 O O O O O O O O O O O O O O O O
0060060 H @ O O O O O O O O O O O O O O
0060100 O O O O H @ O O O O O O O O O O
0060120 O O O O O O O O H @ O O O O O O
0060140 O O O O O O O O O O O O H @ O O
0060160 O O O O O O O O O O O O O O O O
0060200 H @ O O O O O O O O O O O O O O
0060220 O O O O H @ O O O O O O O O O O
0060240 O O O O O O O O H @ O O O O O O
0060260 O O O O O O O O O O O O H @ O O
0060300 O O O O O O O O O O O O O O O O
0060320 H @ O O O O O O O O O O O O O O
0060340 O O O O H @ O O O O O O O O O O
0060360 O O O O O O O O H @ O O O O O O
0060400 O O O O O O O O O O O O H @ O O
0060420 O O O O O O O O O O O O O O O O
0060440 H @ O O O O O O O O O O O O O O
0060460 O O O O H @ O O O O O O O O O O
0060500 O O O O O O O O H @ O O O O O O
0060520 O O O O O O O O O O O O H @ O O
0060540 O O O O O O O O O O O O O O O O
0060560 H @ O O O O O O O O O O O O O O
0060600 O O O O H @ O O O O O O O O O O
0060620 O O O O O O O O H @ O O O O O O
0060640 O O O O O O O O O O O O H @ O O
0060660 O O O O O O O O O O O O O O O O
0060700 H @ O O O O O O O O O O O O O O
0060720 O O O O H @ O O O O O O O O O O
0060740 O O O O O O O O H @ O O O O O O
0060760 O O O O O O O O O O O O H @ O O
0061000 O O O O O O O O O O O O O O O O
0061020 H @ O O O O O O O O O O O O O O
0061040 O O O O H @ O O O O O O O O O O
0061060 O O O O O O O O H @ O O O O O O
0061100 O O O O O O O O O O O O H @ O O
0061120 O O O O O O O O O O O O O O O O
0061140 H @ O O O O O O O O O O O O O O
0061160 O O O O H @ O O O O O O O O O O
0061200 O O O O O O O O H @ O O O O O O
0061220 O O O O O O O O O O O O H @ O O
0061240 O O O O O O O O O O O O O O O O
0061260 H @ O O O O O O O O O O O O O O
0061300 O O O O H @ O O O O O O O O O O
0061320 O O O O O O O O H @ O O O O O O
0061340 O O O O O O O O O O O O H @ O O
0061360 O O O O O O O O O O O O O O O O
0061400 H @ O O O O O O O O O O O O O O
0061420 O O O O H @ O O O O O O O O O O
0061440 O O O O O O O O H @ O O O O O O
0061460 O O O O O O O O O O O O H @ O O
0061500 O O O O O O O O O O O O O O O O
0061520 H @ O O O O O O O O O O O O O O
0061540 O O O O H @ O O O O O O O O O O
0061560 O O O O O O O O H @ O O O O O O
0061600 O O O O O O O O O O O O H @ O O
0061620 O O O O O O O O O O O O O O O O
0061640 H @ O O O O O O O O O O O O O O
0061660 O O O O H @ O O O O O O O O O O
0061700 O O O O O O O O H @ O O O O O O
0061720 O O O O O O O O O O O O H @ O O
0061740 O O O O O O O O O O O O O O O O
0061760 H @ O O O O O O O O O O O O O O
0062000 O O O O H @ O O O O O O O O O O
0062020 O O O O O O O O H @ O O O O O O
0062040 O O O O O O O O O O O O H @ O O
0062060 O O O O O O O O O O O O O O O O
0062100 H @ O O O O O O O O O O O O O O
0062120 O O O O H @ O O O O O O O O O O
0062140 O O O O O O O O H @ O O O O O O
0062160 O O O O O O O O O O O O H @ O O
0062200 O O O O O O O O O O O O O O O O
0062220 H @ O O O O O O O O O O O O O O
0062240 O O O O H @ O O O O O O O O O O
0062260 O O O O O O O O H @ O O O O O O
0062300 O O O O O O O O O O O O H @ O O
0062320 O O O O O O O O O O O O O O O O
0062340 H @ O O O O O O O O O O O O O O
0062360 O O O O H @ O O O O O O O O O O
0062400 O O O O O O O O H @ O O O O O O
0062420 O O O O O O O O O O O O H @ \r )
0062440 \r \r ( R P A Q ? 006 002 A B . t i
0062460 t l e d . i c o n 006 001 ( c r e
0062500 a t e T I T L E D I C O N I
0062520 C O N _ A B . i c o n M A
0062540 S K _ A B . i c o n . m a s
0062560 k T I T L E R E G _ ( C R
0062600 E A T E R E G I O N 7 8 6
0062620 0 2 4 ) ) \r ) \r \f 006 004 ( * *
0062640 t h e f o n t f o r t h
0062660 e b r o w s e r , w h i c h
0062700 m u s t b e a f i x e d
0062720 p i t c h f o n t f o r
0062740 n o w ) 006 001 \r \r \r ( R P A Q 006
0062760 002 A B . b r o w s e r . f o n t
0063000 006 001 ( F O N T C R E A T E (
0063020 Q U O T E T E R M I N A L )
0063040 1 0 ) ) \r \f 006 004 ( * * b a s
0063060 e d o n t h e T a b l e B
0063100 r o w s e r p a c k a g e ) 006
0063120 001 \r \r ( F I L E S L O A D T A
0063140 B L E B R O W S E R ) \r ( D E C
0063160 L A R E % : E V A L @ C O M P
0063200 I L E D O N T C O P Y F I R
0063220 S T \r ( F I L E S L O A D T
0063240 A B L E B R O W S E R D E C L S
0063260 ) \r ) \r ( D E C L A R E % : D
0063300 O N T E V A L @ L O A D D O E
0063320 V A L @ C O M P I L E D O N T
0063340 C O P Y C O M P I L E R V A R
0063360 S \r \r ( A D D T O V A R 006 002
0063400 N L A M A 006 001 A B ) \r \r ( A D
0063420 D T O V A R 006 002 N L A M L 006 001
0063440 ) \r \r ( A D D T O V A R 006 002
0063460 L A M A 006 001 ) \r ) \r ( P U T P
0063500 R O P S A R C H I V E B R O W
0063520 S E R C O P Y R I G H T ( "
0063540 X e r o x C o r p o r a t i o
0063560 n " 1 9 8 6 1 9 8 7 ) ) \r (
0063600 D E C L A R E % : D O N T C O
0063620 P Y \r ( F I L E M A P ( N
0063640 I L ( 1 6 3 4 5 4 7 4 ( A
0063660 R C H I V E B R O W S E R 1 6
0063700 4 4 . 5 2 7 4 ) ( A B 5
0063720 2 7 6 . 5 4 7 2 ) ) ( 5 5
0063740 1 6 1 6 9 2 2 ( \r A B . W h
0063760 e n . S e l e c t e d . F n 5
0064000 5 2 6 . 5 7 6 5 ) ( A B .
0064020 C o m m a n d . F n 5 7 6 7
0064040 . 6 6 2 3 ) ( A B . D e l e
0064060 t e . C o m m a n d 6 6 2 5
0064100 . 6 9 5 9 ) ( \r A B . E x p
0064120 u n g e . C o m m a n d 6 9 6
0064140 1 . 8 3 5 7 ) ( A B . F i
0064160 l t e r . C o m m a n d 8 3 5
0064200 9 . 8 7 0 0 ) ( A B . R e
0064220 c o m p u t e . C o m m a n d
0064240 8 7 0 2 . 1 0 4 4 5 ) ( \r
0064260 A B . R e t r i e v e . C o m m
0064300 a n d 1 0 4 4 7 . 1 1 8 2
0064320 1 ) ( A B . R e t r i e v e .
0064340 D i r e c t o r y . C o m m a n
0064360 d 1 1 8 2 3 . 1 3 5 1 8 )
0064400 ( \r A B . R e t r i e v e . R
0064420 e n a m e d . C o m m a n d 1
0064440 3 5 2 0 . 1 4 7 0 6 ) ( A
0064460 B . R e t r i e v e . R e n a m
0064500 e d . A u x 1 4 7 0 8 . 1
0064520 5 5 0 0 ) ( A B . S o r t . C
0064540 o m m a n d \r 1 5 5 0 2 .
0064560 1 6 4 5 9 ) ( A B . U n d e l
0064600 e t e . C o m m a n d 1 6 4 6
0064620 1 . 1 6 9 2 0 ) ) ( 1 6 9
0064640 5 9 2 2 6 3 6 ( A B . S e t
0064660 . B r o w s e r . T i t l e 1
0064700 6 9 6 9 . 1 7 3 5 4 ) \r (
0064720 A B . I c o n f n 1 7 3 5 6
0064740 . 1 7 9 5 3 ) ( A B . C l o
0064760 s e f n 1 7 9 5 5 . 1 8 4
0065000 0 6 ) ( A B . P r i n t f n
0065020 1 8 4 0 8 . 1 9 3 2 9 ) (
0065040 A B . P r o m p t . F o r . I n
0065060 p u t \r 1 9 3 3 1 . 2 0 6
0065100 4 3 ) ( A B . R e a d . D i r
0065120 e c t o r y 2 0 6 4 5 . 2
0065140 2 1 3 0 ) ( A B . S u b i t e
0065160 m p 2 2 1 3 2 . 2 2 4 3 6
0065200 ) ( A B . M a k e . C e d a r
0065220 . F i l e n a m e \r 2 2 4 3 8
0065240 . 2 2 6 3 4 ) ) ) ) ) \r S T
0065260 O P \r
0065263