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