$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>CD.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 R E A D T A B L E " I N
0000040 T E R L I S P " 036 P A C K A G
0000060 E " I N T E R L I S P " ) \r (
0000100 F I L E C R E A T E D " 1 4 -
0000120 D e c - 8 7 1 5 : 4 6 : 3 4 "
0000140 ( " c o m p i l e d o n "
0000160 | { P O G O : A I S N O R T H
0000200 : X E R O X } < C U T T I N G >
0000220 L I S P > C D . ; 2 | ) \r " 2
0000240 7 - A p r - 8 7 1 6 : 4 8 : 4
0000260 9 " t c o m p l ' d i n "
0000300 X e r o x L i s p 1 0 - J u
0000320 n - 8 7 . . . " d a t e d
0000340 " 1 0 - J u n - 8 7 1 0 : 5 1
0000360 : 4 0 " ) \r ( F I L E C R E A T
0000400 E D " 1 4 - D e c - 8 7 1 5
0000420 : 4 1 : 3 8 " | { P O G O : A
0000440 I S N O R T H : X E R O X } < C
0000460 U T T I N G > L I S P > C D . ;
0000500 2 | 1 6 7 7 7 p r e v i o u
0000520 s d a t e % : \r " 1 1 - D e
0000540 c - 8 7 1 5 : 2 4 : 1 7 " |
0000560 { P O G O : A I S N O R T H : X
0000600 E R O X } < C U T T I N G > L I
0000620 S P > C D . ; 1 | ) \r C D F u n
0000640 : D 4 \r ( P 6 t h i s P
0000660 5 p r e v P 4 d p P
0000700 3 s e p P 2 d i r P
0000720 1 h o s t P 0 t a r g
0000740 e t I 0 d ) \0 323 \a \0 \0 001
0000760 @ 265 \t \b \0 \0 \t \0 \0 020 k \n \0 \0 d g
0001000 \0 \0 360 225 277 @ \t \0 \0 020 g \0 \0 360 262 031
0001020 @ l 002 \n \0 \0 i \t \0 \0 g \0 \0 \n \0 \0
0001040 \n \0 \0 \t \0 \0 020 i \t \0 \0 021 A 004 H g
0001060 \0 \0 \n \0 \0 272 @ \t \0 \0 274 H g \0 \0 \n
0001100 \0 \0 Y \t \0 \0 [ 277 L \t \0 \0 j 361 262 e
0001120 L k \n \0 \0 g \0 \0 360 262 S L \t \0 \0 277
0001140 L k \n \0 \0 g \0 \0 360 262 ' L \t \0 \0 277
0001160 j 021 021 006 K J M k 324 \v \0 \0 ^ 265 , J
0001200 k M k 331 d j 361 241 277 j J \f \0 \0 Z 023
0001220 L k \n \0 \0 K 360 252 L k \n \0 \0 g \0 \0
0001240 360 262 247 L \t \0 \0 260 240 275 260 312 J K L \v
0001260 \0 \0 272 g \0 \0 I g \0 \0 J \f \0 \0 \t \0
0001300 \0 020 \0 ( 2 0 8 C h a n g e D i
0001320 r 2 0 5 P A C K F I L E N A
0001340 M E 1 9 3 P A C K * 1 8 2
0001360 G N C 1 7 2 N T H C H A R
0001400 1 6 4 N T H C H A R 1 5 7
0001420 S U B S T R I N G 1 3 9 S
0001440 T R P O S 1 2 6 G N C 1 1
0001460 6 N T H C H A R 1 1 0 G N
0001500 C 1 0 0 N T H C H A R 9 1
0001520 N C H A R S 8 5 C D S e p
0001540 r 8 1 F I L E N A M E F I E
0001560 L D 7 3 M K S T R I N G 6
0001600 8 F I L E N A M E F I E L D
0001620 5 8 D I R E C T O R Y N A M E
0001640 5 3 C h a n g e D i r 5 0
0001660 C D N a m e 4 7 F I L E N
0001700 A M E F I E L D 4 1 D I R E
0001720 C T O R Y N A M E 3 7 S U B
0001740 S T R I N G 2 4 C h a n g e
0001760 D i r 1 3 N T H C H A R 8
0002000 C h a n g e D i r 5 C D N
0002020 a m e ) \r ( 2 0 1 D I R E C T
0002040 O R Y 1 9 7 H O S T 1 7 5
0002060 > 1 1 9 % . 1 0 3 % .
0002100 7 8 H O S T 6 5 D I R E
0002120 C T O R Y 4 4 H O S T 2 8
0002140 < 1 7 { ) \r ( ) \r C D S e
0002160 p r : D 4 \r ( I 0 h o s t
0002200 ) \0 030 \0 \0 \0 001 @ ` \0 \0 026 002 265 020
0002220 @ \t \0 \0 ` \0 \0 026 002 265 005 g \0 \0 020 \0
0002240 ( 1 1 G E T O S T Y P E ) \r (
0002260 2 1 > 1 4 C D . O S . S E
0002300 P R S 3 C D . O S . S E P R
0002320 S ) \r ( ) \r C D N a m e : D 4
0002340 \r ( I 1 h o s t I 0 d
0002360 i r ) \0 i \0 \0 \0 002 A 245 ` \0 \0 b
0002400 002 277 @ 263 035 \b \0 \0 d g \0 \0 360 245 d g
0002420 \0 \0 360 222 277 i 201 277 h 225 ` \0 \0 b \0 277
0002440 g \0 \0 A g \0 \0 ` \0 \0 262 3 \b \0 \0 d
0002460 g \0 \0 360 245 d g \0 \0 360 222 277 i 201 277 h
0002500 237 ` \0 \0 d ` \0 \0 360 231 277 A g \0 \0 360
0002520 233 ` \0 \0 A \t \0 \0 @ \v \0 \0 200 @ \f \0
0002540 \0 020 \0 ( 1 0 2 P A C K F I L E
0002560 N A M E 9 7 P A C K * 9 3
0002600 C D S e p r 5 2 M A C H I
0002620 N E T Y P E 1 3 M A C H I N
0002640 E T Y P E ) \r ( 8 9 C D . D E
0002660 F A U L T . P R E F I X 8 4
0002700 D S K 7 7 L o c a l D i s k
0002720 V o l u m e 7 3 C D . D E F
0002740 A U L T . P R E F I X 6 2 D
0002760 O V E 5 6 D A N D E L I O N
0003000 4 7 C D . D E F A U L T . P
0003020 R E F I X 4 4 D I R E C T O
0003040 R Y 4 0 H O S T 3 4 C D
0003060 . D E F A U L T . U S E R 2 3
0003100 D O V E 1 7 D A N D E L I
0003120 O N 4 C D . D E F A U L T .
0003140 H O S T ) \r ( ) \r C h a n g e D
0003160 i r : D 4 \r ( I 0 d i r )
0003200 \0 \v \0 \0 \0 001 i \t \0 \0 @ \t \0 \0 032
0003220 020 \0 ( 7 / C N D I R 3 D I
0003240 R E C T O R Y N A M E ) \r N I L
0003260 \r ( ) \r R e s h o w C o n n :
0003300 D 4 \r ( P 3 F O N T P 2
0003320 R E G P 1 T T Y R E G
0003340 P 0 D N ) \0 324 004 \0 \0 \0 i \t
0003360 \0 \0 ` \0 \0 \t \0 \0 311 006 021 " 003 ` \0 \0
0003400 \t \0 \0 263 R j d l \n d h 032 032 032 032 Z
0003420 h d i \f \0 \0 027 \0 \0 g \0 \0 g \0 \0 \v
0003440 \0 \0 277 g \0 \0 l \b h d g \0 \0 i \r 006
0003460 \0 \0 [ 265 003 202 261 \0 201 J 002 002 002 j h `
0003500 \0 \0 \n \0 \0 325 h d \v \0 \0 030 277 ` \0 \0
0003520 J \n \0 \0 277 ` \0 \0 \t \0 \0 226 ` \0 \0 \t
0003540 \0 \0 277 ` \0 \0 \t \0 \0 311 006 h \n \0 \0 Z
0003560 d ` \0 \0 265 004 I 001 030 J 002 ` \0 \0 265 \r
0003600 I 002 001 I 002 002 002 001 k 331 330 030 J 002 002 H
0003620 ` \0 \0 \n \0 \0 h \n \0 \0 030 ` \0 \0 J \n
0003640 \0 \0 ` \0 \0 \t \0 \0 ` \0 \0 \t \0 \0 H `
0003660 \0 \0 \n \0 \0 h 020 ` \0 \0 \n \0 \0 277 261 377
0003700 { \0 ( 2 0 6 D S P F O N T 1
0003720 9 8 P R I N 3 1 9 1 O P E
0003740 N W 1 8 5 D S P R E S E T
0003760 1 7 9 S H A P E W 1 7 1 W
0004000 I D T H I F W I N D O W 1 6 7
0004020 S T R I N G W I D T H 1 2 8
0004040 \ A P P E N D 2 1 2 2 \ I
0004060 N S U R E W I N D O W 1 1 5
0004100 C L O S E W 1 0 8 A C T I V
0004120 E W P 1 0 1 S H A P E W 9
0004140 2 H E I G H T I F W I N D O W
0004160 8 6 D S P L I N E F E E D
0004200 6 7 F O N T C R E A T E 5 1
0004220 P U T W I N D O W P R O P 3
0004240 9 C R E A T E W 2 0 W I N
0004260 D O W P 9 \ I N S U R E W I
0004300 N D O W 3 D I R E C T O R Y
0004320 N A M E ) \r ( 2 0 3 C O N N W
0004340 I N D O W 1 9 5 C O N N W I
0004360 N D O W 1 8 8 C O N N W I N
0004400 D O W 1 8 2 C O N N W I N D
0004420 O W 1 7 5 C O N N W I N D O
0004440 W 1 6 4 C O N N W I N D O W
0004460 1 4 3 C D . D E F A U L T .
0004500 B O T T O M 1 3 3 C D . D E
0004520 F A U L T . L E F T 1 1 9 C
0004540 O N N W I N D O W 1 1 2 C O
0004560 N N W I N D O W 1 0 5 C O N
0004600 N W I N D O W 9 7 C O N N W
0004620 I N D O W 8 3 C O N N W I N
0004640 D O W 6 2 D I S P L A Y 5
0004660 5 H E L V E T I C A 4 8 S
0004700 h o w C D M e n u 4 5 B U T
0004720 T O N E V E N T F N 4 2 C O
0004740 N N W I N D O W 1 7 C O N N
0004760 W I N D O W 6 \ T o p L e v
0005000 e l T t y W i n d o w ) \r ( ) \r
0005020 S h o w C D M e n u A 0 0 0 4
0005040 : D 4 \r ( L ( 3 v a l s 2
0005060 k e y 1 m e n u 0 i t
0005100 e m ) ) \0 005 \0 \0 \0 004 B @ 032 020 \0
0005120 N I L \r N I L \r ( ) \r S h o w C
0005140 D M e n u A 0 0 1 0 : D 4 \r (
0005160 P 1 S I : : * C A T C H - R
0005200 E T U R N - F R O M * P 0
0005220 S I : : * D U M M Y - F O R - C
0005240 A T C H * F 2 S I : : N L
0005260 S E T Q - V A L U E ) \0 031 002 001
0005300 002 \0 i @ 021 002 001 \b \0 \0 250 h d 032 c 004
0005320 g \0 \0 020 \b \0 \0 277 260 357 \0 ( 2 0 B
0005340 L O C K 7 C O P Y B U T T O
0005360 N D O W N ? ) \r ( 1 6 : N O R
0005400 M A L ) \r ( ) \r S h o w C D M e
0005420 n u : D 4 \r ( P 9 $ d i r
0005440 $ P 8 * C O N D I T I O N
0005460 - H A N D L E R - B I N D I N G
0005500 S * P 7 S I : : * N L S E
0005520 T Q F L A G * P 6 * P R O
0005540 C E E D - C A S E S * P 5
0005560 S I : : N L S E T Q - V A L U E
0005600 P 3 m v P 2 c o p y
0005620 F l g I 0 c w F 1 0
0005640 * P R O C E E D - C A S E S *
0005660 F 1 1 * C O N D I T I O N -
0005700 H A N D L E R - B I N D I N G S
0005720 * ) \0 374 \n 002 \0 001 \b \0 \0 ` \0 \0 265
0005740 P ` \0 \0 037 d ` \0 \0 024 004 277 g \0 \0 l
0005760 \b h d g \0 \0 i \r 006 \0 \0 021 002 001 H d
0006000 I 024 020 277 022 d g \0 \0 024 026 277 d g \0 \0
0006020 024 277 d g \0 \0 024 034 277 j d n 177 377 d
0006040 h 032 032 032 032 021 002 001 H d I 024 \n 277 022 \t
0006060 \0 \0 021 022 004 K 264 003 202 261 \0 225 J 262 4 \b
0006100 \0 \0 264 003 202 261 \0 211 021 020 005 ` \0 \0 W 024
0006120 032 i o \0 \0 \0 W 026 032 021 003 \b N \t \0 \0
0006140 022 g \0 \0 360 264 003 M 022 264 e K 002 \t \0 \0
0006160 020 K 001 d g \0 \0 360 226 277 K 002 \t \0 \0 020
0006200 d g \0 \0 360 246 d g \0 \0 360 262 D 277 o \0
0006220 \0 \0 K 002 \n \0 \0 K 002 021 001 \t ` \0 \0 265
0006240 , ` \0 \0 037 d ` \0 \0 024 004 277 d g \0 \0
0006260 024 277 d g \0 \0 024 034 277 j d n 177 377 d
0006300 h 032 032 032 032 274 d L 024 \n 277 \t \0 \0 020 277
0006320 \b \0 \0 020 \0 ( 2 4 9 S H O U L D
0006340 N T 2 4 4 M E N U 1 8 9
0006360 P R O M P T P R I N T 1 6 5
0006400 C D F u n 1 5 0 B K S Y S B
0006420 U F 1 3 4 S h o w C D M e n
0006440 u A 0 0 1 0 1 0 4 C O P Y B
0006460 U T T O N D O W N ? 8 8 M E
0006500 N U 3 3 F O N T C R E A T E
0006520 2 C O P Y B U T T O N D O W
0006540 N ? ) \r ( 2 2 1 D E F A U L T
0006560 M E N U H E L D F N 2 1 4 C
0006600 L R P R O M P T 2 0 7 C D C
0006620 o m m a n d M e n u I t e m s
0006640 2 0 2 | 004 003 M E N U T Y P E #
0006660 | 1 9 7 C D C o m m a n d M
0006700 e n u 1 7 6 R I G H T 1 7
0006720 0 M I D D L E 1 5 7 L E F
0006740 T 1 3 8 : N O R M A L 1 1
0006760 6 S I : : N L S E T Q - P R O
0007000 C E E D - C A S E 6 1 D E F
0007020 A U L T M E N U H E L D F N 5
0007040 4 C L R P R O M P T 4 7 S
0007060 h o w C D M e n u A 0 0 0 4 2
0007100 8 D I S P L A Y 2 1 H E L
0007120 V E T I C A 1 5 C D M e n u
0007140 I t e m s 1 0 | 004 003 M E N U
0007160 T Y P E # | 5 C D M e n u )
0007200 \r ( 1 8 4 " C h o o s e a
0007220 c t i o n f o r d i r e c t
0007240 o r y " 1 2 4 ( C L : E R
0007260 R O R . S I : : N L S E T Q
0007300 H A N D L E R ) ) \r C O P Y B U
0007320 T T O N D O W N ? : D 4 \r N I
0007340 L \0 \b \0 \0 \0 \0 g \0 \0 \t \0 \0 020 \0
0007360 ( 5 S H I F T D O W N P ) \r (
0007400 2 S H I F T ) \r ( ) \r ( P R E
0007420 T T Y C O M P R I N T C D C O
0007440 M S ) \r ( R P A Q Q C D C O M
0007460 S ( ( F N S C D F u n C D
0007500 S e p r C D N a m e C h a n
0007520 g e D i r R e s h o w C o n n
0007540 S h o w C D M e n u C O P Y
0007560 B U T T O N D O W N ? ) ( I N
0007600 I T V A R S ( \r L o c a l D i
0007620 s k V o l u m e ( C O N D (
0007640 ( F M E M B ( M A C H I N E T
0007660 Y P E ) ( Q U O T E ( D A N
0007700 D E L I O N D O V E ) ) ) (
0007720 F I L E N A M E F I E L D ( D
0007740 I R E C T O R Y N A M E ( \r Q
0007760 U O T E { D S K } ) ) ( Q U
0010000 O T E D I R E C T O R Y ) ) )
0010020 ) ) ( C D . D E F A U L T . H
0010040 O S T ( Q U O T E D S K ) )
0010060 ( C D . D E F A U L T . P R E
0010100 F I X L o c a l D i s k V o l
0010120 u m e ) \r ( C D . D E F A U L
0010140 T . U S E R ( L E T ( ( p o
0010160 s ( S T R P O S " . " ( U
0010200 S E R N A M E ) ) ) ) ( C O N
0010220 D ( p o s ( P A C K * ( S
0010240 U B S T R I N G ( U S E R N A
0010260 M E ) 1 ( \r D I F F E R E N
0010300 C E p o s 1 ) ) ) ) ( T
0010320 ( U S E R N A M E ) ) ) ) ) (
0010340 C D . D E F A U L T . L E F T )
0010360 ( C D . D E F A U L T . B O T
0010400 T O M ) ( C D M e n u I t e m
0010420 s ) ( \r L O G I N H O S T / D
0010440 I R ( C D N a m e ) ) ( C O
0010460 N N W I N D O W ) ( C D M e n
0010500 u ) ( C D C o m m a n d M e n
0010520 u ) ) ( A D D V A R S ( L I
0010540 S P X C O M S C D ) ( \r A F
0010560 T E R S Y S O U T F O R M S (
0010600 S E T Q C D . D E F A U L T .
0010620 P R E F I X ( S E T Q L o c
0010640 a l D i s k V o l u m e ( C O
0010660 N D ( ( F M E M B ( M A C H
0010700 I N E T Y P E ) ( Q U O T E
0010720 ( \r D A N D E L I O N D O V E
0010740 ) ) ) ( F I L E N A M E F I E
0010760 L D ( D I R E C T O R Y N A M
0011000 E ( Q U O T E { D S K } ) )
0011020 ( Q U O T E D I R E C T O R
0011040 Y ) ) ) ) ) ) ) ( P O S T G R
0011060 E E T F O R M S \r ( S E T Q
0011100 C D . D E F A U L T . U S E R
0011120 ( L E T ( ( p o s ( S T R P
0011140 O S " . " ( U S E R N A M E
0011160 ) ) ) ) ( C O N D ( p o s
0011200 ( P A C K * ( S U B S T R I N
0011220 G ( U S E R N A M E ) 1 \r
0011240 ( D I F F E R E N C E p o s
0011260 1 ) ) ) ) ( T ( U S E R N A
0011300 M E ) ) ) ) ) ( S E T Q C D
0011320 . D E F A U L T . P R E F I X
0011340 ( S E T Q L o c a l D i s k V
0011360 o l u m e ( C O N D ( ( F M
0011400 E M B ( \r M A C H I N E T Y P
0011420 E ) ( Q U O T E ( D A N D E
0011440 L I O N D O V E ) ) ) ( F I
0011460 L E N A M E F I E L D ( D I R
0011500 E C T O R Y N A M E ( Q U O T
0011520 E { D S K } ) ) ( Q U O T E
0011540 D I R E C T O R Y ) ) \r ) ) )
0011560 ) ( S E T Q L O G I N H O S
0011600 T / D I R ( C D N a m e ) ) )
0011620 ( C D . O S . S E P R S ( D
0011640 S K . > ) ( U N I X .
0011660 / ) ( V M S . / ) ( N S
0011700 . > ) ( I F S . > ) )
0011720 ( \r C D C o m m a n d M e n u
0011740 I t e m s ( C o n n e c t (
0011760 C D F u n $ d i r $ ) " C o
0012000 n n e c t t o t h e d i r
0012020 e c t o r y " ) ( B r o w s e
0012040 ( A P P L Y * ( F U N C T I
0012060 O N F B ) \r $ d i r $ ) "
0012100 B r i n g u p a f i l e
0012120 b r o w s e r o n t h e d
0012140 i r e c t o r y " ) ( D e l e
0012160 t e ( P R O G N ( S E T Q
0012200 C D M e n u N I L ) ( S E T
0012220 Q C D M e n u I t e m s \r (
0012240 D R E M O V E $ d i r $ C D
0012260 M e n u I t e m s ) ) ) " R e
0012300 m o v e t h e d i r e c t o
0012320 r y f r o m t h e C D m
0012340 e n u " ) ) ) ( A D V I S E
0012360 C N D I R D I R E C T O R Y N
0012400 A M E ) \r ( L I S P X M A C R
0012420 O S C D ) ( C O M M A N D S
0012440 " C D " ) ( P ( ( L A M B
0012460 D A ( n e w ) ( C O N D (
0012500 ( F M E M B n e w C D M e n
0012520 u I t e m s ) C D M e n u I t
0012540 e m s ) ( T ( \r S E T Q C
0012560 D M e n u I t e m s ( C O N S
0012600 n e w C D M e n u I t e m s
0012620 ) ) ) ) ) ( P A C K * ( D I
0012640 R E C T O R Y N A M E ( Q U O
0012660 T E { D S K } ) ) ) ) ) ( P
0012700 R O P \r M A K E F I L E - E N
0012720 V I R O N M E N T C D ) ( D
0012740 E C L A R E % : D O N T E V A
0012760 L @ L O A D D O E V A L @ C O
0013000 M P I L E D O N T C O P Y (
0013020 G L O B A L V A R S C D . D E
0013040 F A U L T . H O S T \r C D . D
0013060 E F A U L T . P R E F I X C D
0013100 . O S . S E P R S L o c a l D
0013120 i s k V o l u m e C D . D E F
0013140 A U L T . U S E R C D . D E F
0013160 A U L T . L E F T C D . D E F
0013200 A U L T . B O T T O M \r C O N
0013220 N W I N D O W C D M e n u C
0013240 D M e n u I t e m s C D C o m
0013260 m a n d M e n u I t e m s C D
0013300 C o m m a n d M e n u ) ) ) ) \r
0013320 ( R P A Q ? L o c a l D i s k
0013340 V o l u m e ( C O N D ( ( F
0013360 M E M B ( M A C H I N E T Y P
0013400 E ) ( Q U O T E ( D A N D E
0013420 L I O N D O V E ) ) ) ( F I
0013440 L E N A M E F I E L D ( \r D I
0013460 R E C T O R Y N A M E ( Q U O
0013500 T E { D S K } ) ) ( Q U O T
0013520 E D I R E C T O R Y ) ) ) ) )
0013540 \r ( R P A Q ? C D . D E F A U
0013560 L T . H O S T ( Q U O T E D
0013600 S K ) ) \r ( R P A Q ? C D . D
0013620 E F A U L T . P R E F I X L o
0013640 c a l D i s k V o l u m e ) \r (
0013660 R P A Q ? C D . D E F A U L T
0013700 . U S E R ( L E T ( ( p o s
0013720 ( S T R P O S " . " ( U S
0013740 E R N A M E ) ) ) ) ( C O N D
0013760 ( p o s ( P A C K * ( S U
0014000 B S T R I N G ( U S E R N A M
0014020 E ) 1 \r ( D I F F E R E N C
0014040 E p o s 1 ) ) ) ) ( T (
0014060 U S E R N A M E ) ) ) ) ) \r ( R
0014100 P A Q ? C D . D E F A U L T .
0014120 L E F T ) \r ( R P A Q ? C D .
0014140 D E F A U L T . B O T T O M ) \r
0014160 ( R P A Q ? C D M e n u I t e
0014200 m s ) \r ( R P A Q ? L O G I N
0014220 H O S T / D I R ( C D N a m e
0014240 ) ) \r ( R P A Q ? C O N N W I
0014260 N D O W ) \r ( R P A Q ? C D M
0014300 e n u ) \r ( R P A Q ? C D C o
0014320 m m a n d M e n u ) \r ( A D D T
0014340 O V A R L I S P X C O M S C
0014360 D ) \r ( A D D T O V A R A F T
0014400 E R S Y S O U T F O R M S ( S
0014420 E T Q C D . D E F A U L T . P
0014440 R E F I X ( S E T Q L o c a
0014460 l D i s k V o l u m e ( C O N
0014500 D ( ( F M E M B ( M A C H I
0014520 N E T Y P E ) ( \r Q U O T E
0014540 ( D A N D E L I O N D O V E )
0014560 ) ) ( F I L E N A M E F I E L
0014600 D ( D I R E C T O R Y N A M E
0014620 ( Q U O T E { D S K } ) )
0014640 ( Q U O T E D I R E C T O R Y
0014660 ) ) ) ) ) ) ) \r ( A D D T O V A
0014700 R P O S T G R E E T F O R M S
0014720 ( S E T Q C D . D E F A U L
0014740 T . U S E R ( L E T ( ( p o
0014760 s ( S T R P O S " . " ( U
0015000 S E R N A M E ) ) ) ) ( C O N
0015020 D ( p o s ( P A C K * \r (
0015040 S U B S T R I N G ( U S E R N
0015060 A M E ) 1 ( D I F F E R E N
0015100 C E p o s 1 ) ) ) ) ( T
0015120 ( U S E R N A M E ) ) ) ) ) (
0015140 S E T Q C D . D E F A U L T .
0015160 P R E F I X ( S E T Q \r L o
0015200 c a l D i s k V o l u m e ( C
0015220 O N D ( ( F M E M B ( M A C
0015240 H I N E T Y P E ) ( Q U O T E
0015260 ( D A N D E L I O N D O V E
0015300 ) ) ) ( F I L E N A M E F I E
0015320 L D ( D I R E C T O R Y N A M
0015340 E ( \r Q U O T E { D S K } )
0015360 ) ( Q U O T E D I R E C T O
0015400 R Y ) ) ) ) ) ) ( S E T Q L
0015420 O G I N H O S T / D I R ( C D
0015440 N a m e ) ) ) \r ( A D D T O V A
0015460 R C D . O S . S E P R S ( D
0015500 S K . > ) ( U N I X .
0015520 / ) ( V M S . / ) ( N S
0015540 . > ) ( I F S . > ) )
0015560 \r ( A D D T O V A R C D C o m
0015600 m a n d M e n u I t e m s ( C
0015620 o n n e c t ( C D F u n $ d
0015640 i r $ ) " C o n n e c t t o
0015660 t h e d i r e c t o r y " )
0015700 ( B r o w s e ( A P P L Y *
0015720 ( \r F U N C T I O N F B )
0015740 $ d i r $ ) " B r i n g u p
0015760 a f i l e b r o w s e r
0016000 o n t h e d i r e c t o r y
0016020 " ) ( D e l e t e ( P R O G
0016040 N ( S E T Q C D M e n u N
0016060 I L ) ( S E T Q \r C D M e n
0016100 u I t e m s ( D R E M O V E
0016120 $ d i r $ C D M e n u I t e m
0016140 s ) ) ) " R e m o v e t h e
0016160 d i r e c t o r y f r o m
0016200 t h e C D m e n u " ) ) \r (
0016220 X C L : R E I N S T A L L - A D
0016240 V I C E ( Q U O T E C N D I
0016260 R ) : A R O U N D ( Q U O T
0016300 E ( ( : L A S T ( P R O G
0016320 ( ( v a l ( N L S E T Q * )
0016340 ) ) ( R e s h o w C o n n )
0016360 ( \r R E T U R N ( i f v a l
0016400 t h e n ( i f ( N O T (
0016420 F M E M B ( C A R v a l )
0016440 C D M e n u I t e m s ) ) t h
0016460 e n ( p u s h C D M e n u I
0016500 t e m s ( C A R v a l ) )
0016520 ( S E T Q \r C D M e n u N I
0016540 L ) ) ( C A R v a l ) e l
0016560 s e ( E R R O R ! ) ) ) ) ) )
0016600 ) ) \r ( X C L : R E I N S T A L
0016620 L - A D V I C E ( Q U O T E
0016640 D I R E C T O R Y N A M E ) :
0016660 A F T E R ( Q U O T E ( ( :
0016700 L A S T ( C O N D ( ( A N D
0016720 ( E Q ( Q U O T E D S K )
0016740 ( \r F I L E N A M E F I E L D
0016760 ! V A L U E ( Q U O T E H
0017000 O S T ) ) ) ( N O T ( F M E
0017020 M B ( N T H C H A R ! V A L
0017040 U E - 1 ) ( Q U O T E ( >
0017060 } ) ) ) ) ) ( S E T Q ! V
0017100 A L U E ( \r P A C K * ! V A
0017120 L U E " > " ) ) ) ) ) ) ) ) \r
0017140 ( R E A D V I S E C N D I R
0017160 D I R E C T O R Y N A M E ) \r (
0017200 A D D T O V A R L I S P X M A
0017220 C R O S ( C D ( C D F u n
0017240 ( C A R L I S P X L I N E ) )
0017260 ) ) \r ( A D D T O V A R L I S
0017300 P X C O M S C D ) \r ( D E F C
0017320 O M M A N D ( " C D " : E V
0017340 A L ) ( & O P T I O N A L X
0017360 C L - U S E R : : D I R - S P E
0017400 C ) \r " u n * x s t y l e
0017420 d i r e c t o r y c h a n g i
0017440 n g , e . g . c d f o o
0017460 ( u s e < < f o r . . ) "
0017500 ( L E T ( ( X C L - U S E R
0017520 : : D S X C L - U S E R : : D
0017540 I R - S P E C ) ) \r ( C D F u
0017560 n ( C L : I F ( E Q X C L
0017600 - U S E R : : D S ( Q U O T E
0017620 X C L - U S E R : : < < ) )
0017640 ( Q U O T E X C L - U S E R :
0017660 : | . . | ) X C L - U S E R :
0017700 : D S ) ) ) ) \r ( ( L A M B D A
0017720 ( n e w ) ( C O N D ( ( F
0017740 M E M B n e w C D M e n u I
0017760 t e m s ) C D M e n u I t e m
0020000 s ) ( T ( S E T Q C D M e
0020020 n u I t e m s ( C O N S n e
0020040 w C D M e n u I t e m s ) \r )
0020060 ) ) ) ( P A C K * ( D I R E
0020100 C T O R Y N A M E ( Q U O T E
0020120 { D S K } ) ) ) ) \r ( P U T P
0020140 R O P S C D M A K E F I L E
0020160 - E N V I R O N M E N T ( : R
0020200 E A D T A B L E " I N T E R L
0020220 I S P " : P A C K A G E " I
0020240 N T E R L I S P " ) ) \r ( P U T
0020260 P R O P S C D C O P Y R I G
0020300 H T ( " H e n r y T h o m p
0020320 s o n , D e p t . o f A r
0020340 t i f i c i a l I n t e l l i
0020360 g e n c e , U n i v . o f
0020400 E d i n b u r g h " 1 9 8 4
0020420 \r 1 9 8 5 1 9 8 6 1 9 8 7 )
0020440 ) \r N I L \r
0020446