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