$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>CD.DCOM!1
0000000 ( F I L E C R E A T E D " 3 0
0000020 - D e c - 8 5 1 1 : 5 9 : 5 8
0000040 " ( " c o m p i l e d o n
0000060 " { D S K 1 9 } C D . ; 2 )
0000100 " 1 2 - N o v - 8 5 1 4 : 5 9
0000120 : 2 3 " r e c o m p i l e d
0000140 \r e x p l i c i t l y : n o t
0000160 h i n g i n " I N T E R L I
0000200 S P - D 2 2 - N o v - 8 5 .
0000220 . . " d a t e d " 2 2 - N o
0000240 v - 8 5 1 1 : 3 2 : 5 8 " ) \r
0000260 ( F I L E C R E A T E D " 3 0
0000300 - D e c - 8 5 1 1 : 5 9 : 2 7
0000320 " { D S K 1 9 } C D . ; 2 7
0000340 6 4 9 c h a n g e s t o :
0000360 ( V A R S C D C O M S ) p r
0000400 e v i o u s d a t e : \r " 3
0000420 0 - A p r - 8 5 1 7 : 3 8 : 0
0000440 4 " { I V Y } < H T H O M P S
0000460 O N > L I S P > U T I L > C D .
0000500 ; 4 ) \r C D F u n D 1 \r ( P
0000520 6 t h i s P 5 p r e v
0000540 P 4 d p P 3 s e p P
0000560 2 d i r P 1 h o s t
0000600 P 0 t a r g e t I 0 d
0000620 ) \0 323 \a \0 \0 001 @ 265 \t \b \0 \0 \t \0
0000640 \0 020 k \n \0 \0 d g \0 \0 360 225 277 @ \t \0
0000660 \0 020 g \0 \0 360 262 031 @ l 002 \n \0 \0 i \t
0000700 \0 \0 g \0 \0 \n \0 \0 \n \0 \0 \t \0 \0 020 i
0000720 \t \0 \0 021 A 004 H g \0 \0 \n \0 \0 272 @ \t
0000740 \0 \0 274 H g \0 \0 \n \0 \0 Y \t \0 \0 [ 277
0000760 L \t \0 \0 j 361 262 e L k \n \0 \0 g \0 \0
0001000 360 262 S L \t \0 \0 277 L k \n \0 \0 g \0 \0
0001020 360 262 ' L \t \0 \0 277 j 021 021 006 K J M k
0001040 324 \v \0 \0 ^ 265 , J k M k 325 d j 361 241
0001060 277 j J \f \0 \0 Z 023 L k \n \0 \0 K 360 252
0001100 L k \n \0 \0 g \0 \0 360 262 247 L \t \0 \0 260
0001120 240 275 260 312 J K L \v \0 \0 272 g \0 \0 I g
0001140 \0 \0 J \f \0 \0 \t \0 \0 020 \0 ( 3 2 0 Q
0001160 C h a n g e D i r 3 1 5 Q
0001200 P A C K F I L E N A M E 3 0 1
0001220 Q P A C K * 2 6 6 Q G N C
0001240 2 5 4 Q N T H C H A R 2 4
0001260 4 Q N T H C H A R 2 3 5 Q
0001300 S U B S T R I N G 2 1 3 Q S
0001320 T R P O S 1 7 6 Q G N C 1
0001340 6 4 Q N T H C H A R 1 5 6 Q
0001360 G N C 1 4 4 Q N T H C H A
0001400 R 1 3 3 Q N C H A R S 1 2
0001420 5 Q C D S e p r 1 2 1 Q F
0001440 I L E N A M E F I E L D 1 1 1
0001460 Q M K S T R I N G 1 0 4 Q
0001500 F I L E N A M E F I E L D 7 2
0001520 Q D I R E C T O R Y N A M E
0001540 6 5 Q C h a n g e D i r 6 2
0001560 Q C D N a m e 5 7 Q F I L
0001600 E N A M E F I E L D 5 1 Q D
0001620 I R E C T O R Y N A M E 4 5 Q
0001640 S U B S T R I N G 3 0 Q C
0001660 h a n g e D i r 1 5 Q N T H
0001700 C H A R 1 0 Q C h a n g e D
0001720 i r 5 C D N a m e ) \r ( 3 1
0001740 1 Q D I R E C T O R Y 3 0 5
0001760 Q H O S T 2 5 7 Q > 1 6
0002000 7 Q % . 1 4 7 Q % . 1 1
0002020 6 Q H O S T 1 0 1 Q D I R
0002040 E C T O R Y 5 4 Q H O S T
0002060 3 4 Q < 2 1 Q { ) \r ( ) \r
0002100 C D S e p r D 1 \r ( I 0 h
0002120 o s t F 0 N E T W O R K O
0002140 S T Y P E S ) \0 030 \0 001 \0 001 @ `
0002160 \0 \0 026 002 265 020 @ P 026 002 ` \0 \0 026 002 265
0002200 005 g \0 \0 020 \0 N I L \r ( 2 5 Q >
0002220 1 6 Q C D . O S . S E P R S
0002240 3 C D . O S . S E P R S ) \r
0002260 ( ) \r C D N a m e D 1 \r ( I
0002300 1 h o s t I 0 d i r )
0002320 \0 4 \0 \0 \0 002 A 245 ` \0 \0 b 002 277 @ 255
0002340 \b \0 \0 g \0 \0 360 225 ` \0 \0 b \0 277 g \0
0002360 \0 A g \0 \0 ` \0 \0 265 \a @ \f \0 \0 020 A
0002400 \t \0 \0 @ \v \0 \0 260 364 \0 ( 6 0 Q P
0002420 A C K * 5 4 Q C D S e p r
0002440 4 7 Q P A C K F I L E N A M E
0002460 1 4 Q M A C H I N E T Y P E
0002500 ) \r ( 4 1 Q C D . D E F A U L
0002520 T . P R E F I X 3 6 Q D I R
0002540 E C T O R Y 3 2 Q H O S T
0002560 2 4 Q C D . D E F A U L T . U
0002600 S E R 1 7 Q D A N D E L I O
0002620 N 4 C D . D E F A U L T . H
0002640 O S T ) \r ( ) \r C h a n g e D i
0002660 r D 1 \r ( I 0 d i r ) \0
0002700 \v \0 \0 \0 001 i \t \0 \0 @ \t \0 \0 032 020 \0
0002720 ( 7 / C N D I R 3 D I R E
0002740 C T O R Y N A M E ) \r N I L \r (
0002760 ) \r R e s h o w C o n n D 1 \r
0003000 ( P 3 F O N T P 2 R E
0003020 G P 1 T T Y R E G P 0
0003040 D N F 4 \ T o p L e v e
0003060 l T t y W i n d o w ) \0 313 004 001
0003100 \0 \0 i \t \0 \0 T \t \0 \0 311 006 021 " 003 `
0003120 \0 \0 \t \0 \0 263 M j d l \n d h 032 032 032
0003140 032 Z h d i \f \0 \0 027 \0 \0 g \0 \0 g \0
0003160 \0 \v \0 \0 277 g \0 \0 l \b h d g \0 \0 i
0003200 \r 006 \0 \0 [ 265 } J 002 002 002 h ` \0 \0 \n
0003220 \0 \0 \t \0 \0 \t \0 \0 030 277 ` \0 \0 J \n \0
0003240 \0 277 ` \0 \0 \t \0 \0 226 ` \0 \0 \t \0 \0 277
0003260 ` \0 \0 \t \0 \0 311 006 \t \0 \0 Z d ` \0 \0
0003300 265 004 I 001 030 J 002 ` \0 \0 265 \r I 002 001 I
0003320 002 002 002 001 k 331 330 030 J 002 002 H ` \0 \0 \n
0003340 \0 \0 \t \0 \0 030 ` \0 \0 J \n \0 \0 ` \0 \0
0003360 \t \0 \0 ` \0 \0 \t \0 \0 H ` \0 \0 \n \0 \0
0003400 h 020 ` \0 \0 \n \0 \0 277 261 377 ~ \0 ( 3 0
0003420 5 Q D S P F O N T 2 7 5 Q
0003440 P R I N 3 2 6 6 Q O P E N W
0003460 2 6 0 Q D S P R E S E T 2
0003500 5 2 Q S H A P E W 2 4 2 Q
0003520 W I D T H I F W I N D O W 2 3
0003540 7 Q S T R I N G W I D T H 1
0003560 7 0 Q \ A P P E N D 2 1 6 3
0003600 Q \ I N S U R E W I N D O W
0003620 1 5 4 Q C L O S E W 1 4 5 Q
0003640 A C T I V E W P 1 3 6 Q S
0003660 H A P E W 1 2 5 Q H E I G H
0003700 T I F W I N D O W 1 2 2 Q M
0003720 I N U S 1 1 7 Q D S P L I N
0003740 E F E E D 1 0 1 Q F O N T C
0003760 R E A T E 6 1 Q P U T W I N
0004000 D O W P R O P 4 5 Q C R E A
0004020 T E W 2 2 Q W I N D O W P
0004040 7 \ I N S U R E W I N D O W
0004060 3 D I R E C T O R Y N A M E )
0004100 \r ( 3 0 2 Q C O N N W I N D O
0004120 W 2 7 2 Q C O N N W I N D O
0004140 W 2 6 3 Q C O N N W I N D O
0004160 W 2 5 5 Q C O N N W I N D O
0004200 W 2 4 6 Q C O N N W I N D O
0004220 W 2 3 4 Q C O N N W I N D O
0004240 W 2 0 7 Q C D . D E F A U L
0004260 T . B O T T O M 1 7 5 Q C D
0004300 . D E F A U L T . L E F T 1 6
0004320 0 Q C O N N W I N D O W 1 5
0004340 1 Q C O N N W I N D O W 1 4
0004360 2 Q C O N N W I N D O W 1 3
0004400 2 Q C O N N W I N D O W 1 1
0004420 4 Q C O N N W I N D O W 7 4
0004440 Q D I S P L A Y 6 5 Q H E
0004460 L V E T I C A 5 6 Q S h o w
0004500 C D M e n u 5 3 Q B U T T O
0004520 N E V E N T F N 5 0 Q C O N
0004540 N W I N D O W 1 7 Q C O N N
0004560 W I N D O W ) \r ( ) \r S h o w C
0004600 D M e n u A 0 0 0 8 D 1 \r ( N
0004620 A M E E R R O R S E T ) \0 \r
0004640 \0 \0 002 \0 \b \0 \0 225 \b \0 \0 277 260 370 i 020
0004660 \0 ( 6 B L O C K 2 C O P Y
0004700 B U T T O N D O W N ? ) \r N I L
0004720 \r ( ) \r S h o w C D M e n u D
0004740 1 \r ( P 3 m v P 2 c o
0004760 p y F l g I 0 c w ) \0 t
0005000 004 \0 \0 001 \b \0 \0 ` \0 \0 265 I ` \0 \0 037
0005020 d ` \0 \0 024 004 277 g \0 \0 l \b h d g \0
0005040 \0 i \r 006 \0 \0 021 002 001 H d I 024 020 277 022
0005060 d g \0 \0 024 277 d g \0 \0 024 034 277 j d
0005100 n 177 377 d h 032 032 032 032 021 002 001 H d I 024
0005120 \n 277 022 \t \0 \0 021 002 003 K 264 027 J 262 025 \b
0005140 \0 \0 264 017 o \0 \0 \0 \t \0 \0 264 006 K \t \0
0005160 \0 020 K \t \0 \0 020 \0 ( 1 6 1 Q C D
0005200 F u n 1 5 4 Q B K S Y S B U
0005220 F 1 4 6 Q S h o w C D M e n
0005240 u A 0 0 0 8 1 3 5 Q C O P Y
0005260 B U T T O N D O W N ? 1 2 1 Q
0005300 M E N U 4 1 Q F O N T C R
0005320 E A T E 2 C O P Y B U T T O
0005340 N D O W N ? ) \r ( 6 6 Q D E F
0005360 A U L T M E N U H E L D F N 5
0005400 7 Q C L R P R O M P T 3 4 Q
0005420 D I S P L A Y 2 5 Q H E L
0005440 V E T I C A 1 7 Q C D M e n
0005460 u I t e m s 1 2 Q 004 003 M E N
0005500 U T Y P E # 5 C D M e n u )
0005520 \r ( 1 4 3 Q ( S h o w C D M
0005540 e n u A 0 0 0 8 ) ) \r C O P Y B
0005560 U T T O N D O W N ? D 1 \r ( F
0005600 0 \ L A S T K E Y S T A T E
0005620 ) \0 024 \0 001 \0 \0 P l ) \n \0 \0 j 360
0005640 265 \n P l < \n \0 \0 j 360 020 \0 ( 1 7 Q
0005660 \ G E T B A S E B I T 5 \
0005700 G E T B A S E B I T ) \r N I L \r
0005720 ( ) \r ( P R E T T Y C O M P R I
0005740 N T C D C O M S ) \r ( R P A Q
0005760 Q C D C O M S ( ( F N S C
0006000 D F u n C D S e p r C D N a
0006020 m e C h a n g e D i r R e s
0006040 h o w C o n n S h o w C D M e
0006060 n u C O P Y B U T T O N D O W
0006100 N ? ) ( I N I T V A R S ( \r
0006120 L o c a l D i s k V o l u m e
0006140 ( C O N D ( ( E Q ( M A C H
0006160 I N E T Y P E ) ( Q U O T E
0006200 D A N D E L I O N ) ) ( F I L
0006220 E N A M E F I E L D ( D I R E
0006240 C T O R Y N A M E ( Q U O T E
0006260 { D S K } \r ) ) ( Q U O T E
0006300 D I R E C T O R Y ) ) ) ) )
0006320 ( C D . D E F A U L T . H O S T
0006340 % ' D S K ) ( C D . D E F A
0006360 U L T . P R E F I X L o c a l
0006400 D i s k V o l u m e ) ( C D .
0006420 D E F A U L T . U S E R \r ( L
0006440 E T ( ( p o s ( S T R P O S
0006460 " . " U S E R N A M E ) ) )
0006500 ( C O N D ( p o s ( P A C
0006520 K * ( S U B S T R I N G U S
0006540 E R N A M E 1 ( D I F F E R
0006560 E N C E p o s 1 ) ) ) ) (
0006600 T \r U S E R N A M E ) ) ) )
0006620 ( C D . D E F A U L T . L E F T
0006640 ) ( C D . D E F A U L T . B O
0006660 T T O M ) ( C D M e n u I t e
0006700 m s ) ( L O G I N H O S T / D
0006720 I R ( C D N a m e ) ) ( C O
0006740 N N W I N D O W ) \r ( C D M e
0006760 n u ) ) ( A D D V A R S ( L
0007000 I S P X C O M S C D ) ( P O
0007020 S T G R E E T F O R M S ( S E
0007040 T Q C D . D E F A U L T . U S
0007060 E R U S E R N A M E ) ( S E
0007100 T Q L O G I N H O S T / D I R
0007120 \r ( C D N a m e ) ) ( C D F
0007140 u n ) ) ( C D . O S . S E P R
0007160 S ( D S K . > ) ( U N I
0007200 X . / ) ( V M S . / )
0007220 ( N S . > ) ( I F S .
0007240 > ) ) ) ( A D V I S E C N
0007260 D I R \r D I R E C T O R Y N A
0007300 M E ) ( G L O B A L V A R S
0007320 C D . D E F A U L T . H O S T
0007340 C D . D E F A U L T . P R E F I
0007360 X C D . O S . S E P R S L o
0007400 c a l D i s k V o l u m e \r C
0007420 D . D E F A U L T . U S E R C
0007440 D . D E F A U L T . L E F T C
0007460 D . D E F A U L T . B O T T O M
0007500 C O N N W I N D O W C D M e
0007520 n u C D M e n u I t e m s )
0007540 ( L I S P X M A C R O S C D )
0007560 ( P ( \r ( L A M B D A ( n
0007600 e w ) ( C O N D ( ( F M E M
0007620 B n e w C D M e n u I t e m
0007640 s ) C D M e n u I t e m s )
0007660 ( T ( S E T Q C D M e n u I
0007700 t e m s ( C O N S n e w C
0007720 D M e n u I t e m s ) ) \r ) ) )
0007740 ( P A C K * ( D I R E C T O
0007760 R Y N A M E ( Q U O T E { D
0010000 S K } ) ) ) ) ) ) ) \r ( R P A Q
0010020 ? L o c a l D i s k V o l u m
0010040 e ( C O N D ( ( E Q ( M A
0010060 C H I N E T Y P E ) ( Q U O T
0010100 E D A N D E L I O N ) ) ( F
0010120 I L E N A M E F I E L D ( D I
0010140 R E C T O R Y N A M E ( \r Q U
0010160 O T E { D S K } ) ) ( Q U O
0010200 T E D I R E C T O R Y ) ) ) )
0010220 ) \r ( R P A Q ? C D . D E F A
0010240 U L T . H O S T % ' D S K ) \r
0010260 ( R P A Q ? C D . D E F A U L
0010300 T . P R E F I X L o c a l D i
0010320 s k V o l u m e ) \r ( R P A Q ?
0010340 C D . D E F A U L T . U S E R
0010360 ( L E T ( ( p o s ( S T R
0010400 P O S " . " U S E R N A M E
0010420 ) ) ) ( C O N D ( p o s (
0010440 P A C K * ( S U B S T R I N G
0010460 U S E R N A M E 1 ( \r D I
0010500 F F E R E N C E p o s 1 ) )
0010520 ) ) ( T U S E R N A M E ) )
0010540 ) ) \r ( R P A Q ? C D . D E F
0010560 A U L T . L E F T ) \r ( R P A Q
0010600 ? C D . D E F A U L T . B O T
0010620 T O M ) \r ( R P A Q ? C D M e
0010640 n u I t e m s ) \r ( R P A Q ?
0010660 L O G I N H O S T / D I R ( C
0010700 D N a m e ) ) \r ( R P A Q ? C
0010720 O N N W I N D O W ) \r ( R P A Q
0010740 ? C D M e n u ) \r ( A D D T O
0010760 V A R L I S P X C O M S C D
0011000 ) \r ( A D D T O V A R P O S T
0011020 G R E E T F O R M S ( S E T Q
0011040 C D . D E F A U L T . U S E R
0011060 U S E R N A M E ) ( S E T Q
0011100 L O G I N H O S T / D I R (
0011120 C D N a m e ) ) ( C D F u n )
0011140 ) \r ( A D D T O V A R C D . O
0011160 S . S E P R S ( D S K . >
0011200 ) ( U N I X . / ) ( V M
0011220 S . / ) ( N S . > )
0011240 ( I F S . > ) ) \r ( P U T P
0011260 R O P S C N D I R R E A D V
0011300 I C E ( N I L ( A R O U N D
0011320 N I L ( P R O G ( ( v a l
0011340 ( N L S E T Q * ) ) ) ( R
0011360 e s h o w C o n n ) ( R E T U
0011400 R N ( i f v a l t h e n
0011420 ( \r i f ( N O T ( F M E M B
0011440 ( C A R v a l ) C D M e n
0011460 u I t e m s ) ) t h e n ( p
0011500 u s h C D M e n u I t e m s
0011520 ( C A R v a l ) ) ( S E T Q
0011540 C D M e n u N I L ) ) ( C
0011560 A R v a l ) \r e l s e ( E
0011600 R R O R ! ) ) ) ) ) ) ) \r ( P U
0011620 T P R O P S D I R E C T O R Y
0011640 N A M E R E A D V I C E ( N
0011660 I L ( A F T E R N I L ( C
0011700 O N D ( ( A N D ( E Q ( Q
0011720 U O T E D S K ) ( F I L E N
0011740 A M E F I E L D ! V A L U E
0011760 ( \r Q U O T E H O S T ) ) )
0012000 ( N O T ( F M E M B ( N T H
0012020 C H A R ! V A L U E - 1 )
0012040 ( Q U O T E ( > } ) ) ) ) )
0012060 ( S E T Q ! V A L U E ( P
0012100 A C K * ! V A L U E " > " )
0012120 ) ) ) ) ) ) \r ( R E A D V I S E
0012140 C N D I R D I R E C T O R Y
0012160 N A M E ) \r ( A D D T O V A R
0012200 L I S P X M A C R O S ( C D
0012220 ( C D F u n ( C A R L I S P
0012240 X L I N E ) ) ) ) \r ( A D D T O
0012260 V A R L I S P X C O M S C D
0012300 ) \r ( ( L A M B D A ( n e w )
0012320 ( C O N D ( ( F M E M B n
0012340 e w C D M e n u I t e m s )
0012360 C D M e n u I t e m s ) ( T
0012400 ( S E T Q C D M e n u I t e m
0012420 s ( C O N S n e w C D M e
0012440 n u I t e m s ) \r ) ) ) ) ( P
0012460 A C K * ( D I R E C T O R Y N
0012500 A M E ( Q U O T E { D S K }
0012520 ) ) ) ) \r ( P U T P R O P S C
0012540 D C O P Y R I G H T ( " H e
0012560 n r y T h o m p s o n , D e
0012600 p t . o f A r t i f i c i a
0012620 l I n t e l l i g e n c e ,
0012640 U n i v . o f E d i n b u r
0012660 g h " 1 9 8 4 \r 1 9 8 5 ) )
0012700 \r N I L \r
0012705