$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>WORM.DCOM!1
0000000 ( F I L E C R E A T E D " 2 1
0000020 - F e b - 8 6 1 6 : 4 1 : 5 1
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > K O T O > W O R M . ; 2 )
0000120 " 1 5 - F e b - 8 6 1 5 : 5
0000140 0 : 4 5 " \r r e c o m p i l e
0000160 d c h a n g e s : n o t h i
0000200 n g i n " X e r o x L i s
0000220 p 1 5 - F e b - 8 6 . . . "
0000240 d a t e d " 1 5 - F e b - 8
0000260 6 1 6 : 0 3 : 5 2 " ) \r ( F I
0000300 L E C R E A T E D " 2 1 - F e
0000320 b - 8 6 1 6 : 4 1 : 4 3 " {
0000340 E R I S } < L I S P U S E R S >
0000360 K O T O > W O R M . ; 2 6 3 5
0000400 7 c h a n g e s t o : ( V
0000420 A R S W O R M C O M S ) \r p
0000440 r e v i o u s d a t e : " 1
0000460 2 - A u g - 8 5 0 9 : 2 6 : 1
0000500 6 " { E R I S } < L I S P U S
0000520 E R S > K O T O > W O R M . ; 1
0000540 ) \r W O R M D 1 \r ( I 0 W
0000560 I N D O W ) \0 016 \0 \0 \0 001 l \n \t
0000600 \0 \0 277 @ \t \0 \0 277 260 365 \0 ( 1 1 Q
0000620 W O R M . A D V A N C E - W O R
0000640 M 4 D I S M I S S ) \r N I L
0000660 \r ( ) \r W O R M . A D V A N C E
0000700 - W O R M D 1 \r ( P 2 5 Q
0000720 W P 2 3 Q W P 2 1 Q
0000740 C L O S E S T - P O I N T P
0000760 2 0 Q S E C O N D - R O U N D
0001000 P 1 7 Q M I N I M A L - D
0001020 I S P 1 6 Q D I S P 1
0001040 5 Q I T E R A T I O N S P
0001060 1 4 Q C A N D I D A T E - L I
0001100 S T P 1 3 Q I P 1 0 Q
0001120 C E N T E R - P O I N T P
0001140 7 L A S T - D I R E C T I O N
0001160 P 6 L A S T - P O S P
0001200 5 N E W - D I R E C T I O N
0001220 P 4 O L D - D I R E C T I O
0001240 N P 3 O L D - P O S P
0001260 2 N E W - P O S P 1 I N
0001300 C P 0 W - R E G I 0
0001320 W I N D O W ) 002 5 026 \0 \0 001 021 240
0001340 \t j k \n \0 \0 _ 022 j 360 222 261 \0 233 O 022
0001360 005 003 265 003 202 261 \0 212 m 354 Y @ \t \0 \0 @
0001400 \t \0 \0 311 006 X d 002 002 001 l 002 333 H 002 002
0001420 002 001 l 002 333 032 _ 020 @ g \0 \0 \n \0 \0 263
0001440 p @ \t \0 \0 277 l 031 H 002 002 001 l 2 331 \n
0001460 \0 \0 l 031 H 002 002 002 001 l 2 331 \n \0 \0 032
0001500 Z 001 J 002 l 031 @ j \r 005 \0 \0 277 @ g \0
0001520 \0 J j h 032 032 h 032 \v \0 \0 277 @ g \0 \0
0001540 j \v \0 \0 277 l \t k 021 002 \v O 026 O 024 363
0001560 263 033 @ \t \0 \0 277 O 026 k 324 _ 026 260 360 \t
0001600 \0 \0 242 261 377 u l 024 261 377 r 023 261 \0 311 021
0001620 ` 021 j _ 032 277 @ g \0 \0 \n \0 \0 001 001 273
0001640 O 032 d l 022 363 242 261 \0 321 277 O 030 251 @ g
0001660 \0 \0 \n \0 \0 261 \0 240 o \0 \0 \0 _ 036 277 O
0001700 030 021 021 023 O $ 003 265 003 202 261 \0 215 023 O "
0001720 001 272 O " 002 001 275 @ g \0 \0 M \v \0 \0 277
0001740 J 001 J 002 l 031 @ M \r 005 \0 \0 277 @ g \0
0001760 \0 J M h 032 032 i \f \0 \0 277 @ g \0 \0 \n
0002000 \0 \0 \t \0 \0 l \n 363 262 E @ g \0 \0 \n \0
0002020 \0 \t \0 \0 001 001 001 @ g \0 \0 \n \0 \0 \t \0
0002040 \0 001 001 002 l 031 @ d g \0 \0 \n \0 \0 \t \0
0002060 \0 001 002 001 i \r 006 \0 \0 277 @ g \0 \0 @ g
0002100 \0 \0 \n \0 \0 \t \0 \0 001 \v \0 \0 277 @ g \0
0002120 \0 M \v \0 \0 h 020 001 _ & 001 O 020 \n \0 \0
0002140 _ 034 d O 036 375 363 226 _ 036 277 O & _ " 277
0002160 O $ 002 _ $ 261 377 Q k 324 _ 032 277 @ g \0
0002200 \0 \n \0 \0 \ O 221 I 206 m 354 l 024 \n \0
0002220 \0 330 275 @ g \0 \0 M \v \0 \0 277 K 001 K 002
0002240 l 2 M \f \0 \0 272 @ g \0 \0 \n \0 \0 021 021
0002260 025 O ( 003 265 = i 022 262 S J M h 032 032 O
0002300 030 032 _ 030 277 j d H 002 002 001 H 002 002 002 001
0002320 \f \0 \0 J 001 l 031 331 J 002 l 031 331 l 2 d
0002340 \f \0 \0 \n \0 \0 222 261 376 371 i _ 277 261 376
0002360 262 001 _ * 277 n \t a J O * 001 \n \0 \0 361
0002400 222 h 260 265 O ( 002 _ ( 260 252 i _ 277 261
0002420 376 221 \0 ( 1 0 4 0 Q W O R M . S
0002440 Q U A R - D I S T A N C E 1 0
0002460 0 7 Q S U B R E G I O N P 1
0002500 0 0 4 Q C R E A T E R E G I O
0002520 N 7 6 4 Q C R E A T E R E G
0002540 I O N 7 1 7 Q G E T W I N D
0002560 O W U S E R P R O P 7 0 7 Q
0002600 W O R M . F I N D - C O O R D I
0002620 N A T E S 6 7 4 Q P U T W I
0002640 N D O W P R O P 6 6 2 Q R A
0002660 N D 6 4 5 Q G E T W I N D O
0002700 W U S E R P R O P 6 0 1 Q W
0002720 O R M . S Q U A R - D I S T A N
0002740 C E 5 6 6 Q P U T W I N D O
0002760 W P R O P 5 5 5 Q W I N D O
0003000 W D E L P R O P 5 5 1 Q L A
0003020 S T 5 4 6 Q G E T W I N D O
0003040 W U S E R P R O P 5 3 2 Q W
0003060 O R M . D R A W - O N E - P A R
0003100 T 5 2 2 Q L A S T 5 1 7 Q
0003120 G E T W I N D O W U S E R P R
0003140 O P 5 0 2 Q L A S T 4 7 7
0003160 Q G E T W I N D O W U S E R P
0003200 R O P 4 6 5 Q L A S T 4 6
0003220 2 Q G E T W I N D O W U S E R
0003240 P R O P 4 4 6 Q L E N G T H
0003260 4 4 3 Q G E T W I N D O W U
0003300 S E R P R O P 4 3 3 Q W I N
0003320 D O W A D D P R O P 4 1 5 Q
0003340 W O R M . D R A W - O N E - P A
0003360 R T 4 0 0 Q P U T W I N D O
0003400 W P R O P 3 2 6 Q P U T W I
0003420 N D O W P R O P 2 7 6 Q G E
0003440 T W I N D O W U S E R P R O P
0003460 2 4 3 Q \ F Z E R O P 2 2 7
0003500 Q W O R M . A D V A N C E - W
0003520 O R M 2 0 5 Q P U T W I N D
0003540 O W P R O P 1 7 4 Q P U T W
0003560 I N D O W P R O P 1 5 5 Q W
0003600 O R M . D R A W - O N E - P A R
0003620 T 1 4 0 Q R A N D 1 2 3 Q
0003640 R A N D 1 0 6 Q C L E A R
0003660 W 1 0 0 Q G E T W I N D O W
0003700 U S E R P R O P 4 4 Q \ I N
0003720 S U R E W I N D O W 4 0 Q O
0003740 P E N W 7 R A N D ) \r ( 7 1
0003760 4 Q W O R M 6 7 0 Q W O R
0004000 M . D I R E C T I O N 6 4 2 Q
0004020 W O R M . D I R E C T I O N
0004040 5 6 2 Q W O R M . D I R E C T
0004060 I O N 5 4 3 Q W O R M 5 3
0004100 7 Q W O R M 5 1 4 Q W O R
0004120 M 4 7 4 Q W O R M 4 5 7 Q
0004140 W O R M 4 4 0 Q W O R M
0004160 4 2 2 Q W O R M 3 7 4 Q W
0004200 O R M . D I R E C T I O N 3 2
0004220 3 Q W O R M 2 7 3 Q W O R
0004240 M 2 0 1 Q W O R M . D I R E
0004260 C T I O N 1 6 2 Q W O R M
0004300 7 5 Q W O R M ) \r ( 3 3 5 Q
0004320 1 7 7 7 7 7 7 7 7 7 7 Q ) \r W
0004340 O R M . D R A W - O N E - P A R
0004360 T D 1 \r ( P 1 P O S 2 P
0004400 0 P O S 1 I 5 E R A S
0004420 E ? I 4 D I R E C T I O N
0004440 I 3 W I N D O W I 2
0004460 R A D I U S I 1 Y I 0
0004500 X ) \0 M 002 \0 \0 006 021 001 @ A B
0004520 E 221 j 202 n 377 377 C \r 005 \0 \0 E 263 7 @
0004540 A B l 006 331 D l Z 330 \f \0 \0 270 @ A B
0004560 l 006 331 D l Z 331 \f \0 \0 271 H 001 H 002 l
0004600 003 j C \r 005 \0 \0 277 I 001 I 002 l 003 j C
0004620 \r 005 \0 \0 h 020 \0 ( 1 1 1 Q F I L
0004640 L C I R C L E 7 4 Q F I L L
0004660 C I R C L E 5 7 Q W O R M .
0004700 F I N D - C O O R D I N A T E S
0004720 4 1 Q W O R M . F I N D - C
0004740 O O R D I N A T E S 2 1 Q F
0004760 I L L C I R C L E ) \r N I L \r (
0005000 ) \r W O R M . F I N D - C O O R
0005020 D I N A T E S D 1 \r ( I 3
0005040 A N G L E I 2 L E N G T H
0005060 I 1 Y 1 I 0 X 1 )
0005100 \0 027 \0 \0 \0 004 C \t \0 \0 B 352 @ 350 j 330
0005120 C \t \0 \0 B 352 A 350 j 330 032 020 \0 ( 1 5
0005140 Q S I N 3 C O S ) \r N I L
0005160 \r ( ) \r W O R M . S Q U A R - D
0005200 I S T A N C E D 1 \r ( I 1
0005220 P 2 I 0 P 1 ) \0 % \0 \0 \0
0005240 002 @ 001 A 001 331 \t \0 \0 @ 001 A 001 331 \t \0
0005260 \0 332 @ 002 A 002 331 \t \0 \0 @ 002 A 002 331 \t
0005300 \0 \0 332 330 020 \0 ( 4 0 Q A B S 3
0005320 0 Q A B S 1 7 Q A B S 7
0005340 A B S ) \r N I L \r ( ) \r ( P R
0005360 E T T Y C O M P R I N T W O R
0005400 M C O M S ) \r ( R P A Q Q W O
0005420 R M C O M S ( ( F N S W O R
0005440 M W O R M . A D V A N C E - W
0005460 O R M W O R M . D R A W - O N
0005500 E - P A R T W O R M . F I N D
0005520 - C O O R D I N A T E S \r W O
0005540 R M . S Q U A R - D I S T A N C
0005560 E ) ( A L I S T S ( I D L E
0005600 . F U N C T I O N S W o r m )
0005620 ) ) ) \r ( A D D T O V A R I D
0005640 L E . F U N C T I O N S ( W o
0005660 r m ( Q U O T E W O R M ) )
0005700 ) \r ( P U T P R O P S W O R M
0005720 C O P Y R I G H T ( " X e r
0005740 o x C o r p o r a t i o n "
0005760 1 9 8 5 1 9 8 6 ) ) \r N I L \r
0006000