$ od -c -N 50000 [phylum]<LISP>KOTO>Sources>XXGEOM.DCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - S e p - 8 5 1 2 : 5 3 : 3 9
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > X X G E O M
0000120 . ; 2 1 ) \r " 2 6 - A u g - 8
0000140 5 1 4 : 5 6 : 0 4 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 I R N D L I S T N O R M L O O
0000220 P P R E P L O O P M A K E L
0000240 I N E K N O T L I N E L I N
0000260 E . L E S S P i n \r " I N T
0000300 E R L I S P - D 2 6 - A u g -
0000320 8 5 . . . " d a t e d " 2
0000340 6 - A u g - 8 5 1 6 : 5 5 : 0
0000360 4 " ) \r ( F I L E C R E A T E D
0000400 " 3 - S e p - 8 5 1 2 : 5
0000420 2 : 1 7 " { E R I S } < L I S
0000440 P C O R E > S O U R C E S > X X
0000460 G E O M . ; 2 1 3 7 3 7 6 c
0000500 h a n g e s t o : ( F N S
0000520 I R N D L I S T \r N O R M L O
0000540 O P P R E P L O O P M A K E
0000560 L I N E L I N E . L E S S P
0000600 K N O T L I N E ) ( M A C R O
0000620 S H E A D P T Y N E X T P T
0000640 Y ) ( V A R S X X G E O M C
0000660 O M S ) p r e v i o u s \r d
0000700 a t e : " 2 9 - A u g - 8 5
0000720 1 7 : 0 9 : 4 1 " { E R I S }
0000740 < L I S P C O R E > S O U R C E
0000760 S > X X G E O M . ; 1 9 ) \r R N
0001000 D D 1 \r ( L ( 1 D 0 N
0001020 ) ) \0 ) \0 \0 \0 002 j d A 363 233 @ 331
0001040 b \0 277 j A 331 b 002 277 j @ 363 231 @ k 347
0001060 A 331 A k 347 333 020 A @ k 347 330 A k 347 333
0001100 020 \0 N I L \r N I L \r ( ) \r M A K
0001120 E X Y P T D 1 \r ( L ( 1 I
0001140 Y 0 I X ) ) \0 005 \0 \0 \0 002 @
0001160 A 032 020 \0 N I L \r N I L \r ( ) \r I
0001200 R N D L I S T D 1 \r ( L ( 0
0001220 P A T H ) ) \0 A 006 \0 \0 001 021 0
0001240 002 021 0 005 @ 260 4 d 001 Z 001 270 J 002 271 H
0001260 3 250 H o \0 \0 \0 324 j 330 270 I 3 250
0001300 I o \0 \0 \0 324 j 330 271 H I 032 273 L 265 \a
0001320 K h 032 ] 201 K & 274 002 003 265 315 M 020 \0 N
0001340 I L \r N I L \r ( 4 6 Q . 5
0001360 3 1 Q . 5 ) \r N O R M L O O P
0001400 D 1 \r ( P 6 A N T I S G N
0001420 P 5 P R E V S G N P 4
0001440 Y 2 P 3 Y 1 P 2 L
0001460 A S T P 1 H E A D P 0
0001500 L O O P I 0 L I S T )
0001520 \0 225 \a \0 \0 001 021 p 006 @ \t \0 \0 X d \t
0001540 \0 \0 Z d H 031 H 001 002 [ H 002 001 002 \ H
0001560 J 360 257 K L 360 233 H 002 270 L 273 H 002 001 002
0001600 274 260 356 L K 331 j 361 221 k 211 j L K 331 361
0001620 222 m 377 200 j ] d j 360 227 H 002 271 H h 031
0001640 I 020 L [ H 002 002 001 002 \ K L 331 j 361 221
0001660 k 211 j K L 331 361 222 m 377 200 j d M 360 263
0001700 # H 002 270 L 273 H 002 002 001 002 274 K L 331 j
0001720 361 222 k 260 352 j K L 331 361 223 m 377 260 340 j
0001740 260 335 H 002 Y H h 031 I 020 \0 ( 1 3 Q
0001760 L A S T 6 C O P Y ) \r N I L
0002000 \r ( ) \r S L I T L O O P D 1 \r
0002020 ( P 7 C U R R P 6 L A
0002040 S T P 5 C U R R P 4
0002060 P R E V P 3 P R E V S G N
0002100 P 2 C U R R S G N P 1
0002120 C U R R L I S T P 0 S E
0002140 C T L I S T I 0 K L S T )
0002160 \0 221 \b \0 \0 001 021 p 006 @ \t \0 \0 b \0
0002200 d 001 \t \0 \0 ^ @ N h 032 \n \0 \0 b \0 d
0002220 001 \ @ 002 b \0 d 001 ] d 002 L 002 331 j 361
0002240 221 k 213 j M 002 L 002 331 361 222 m 377 200 j [
0002260 L h 032 Y d h 032 X @ 260 F d 001 021 001 \a
0002300 O 016 002 L 002 331 j 361 221 k 214 j O 016 002 L
0002320 002 331 361 222 m 377 200 j Z d j 360 222 277 K Z
0002340 K 360 226 O 016 I \n \0 \0 216 O 016 L \t \0 \0
0002360 h 032 032 Y H 032 270 J [ 277 O 016 \ 023 002 003
0002400 265 273 H \t \0 \0 020 \0 ( 2 1 6 Q R E
0002420 V E R S E 1 7 0 Q C O P Y
0002440 1 6 1 Q A T T A C H 2 5 Q
0002460 \ N C O N C 2 1 5 Q C O P Y
0002500 6 C O P Y ) \r N I L \r ( ) \r
0002520 P R E P L O O P D 1 \r ( P 4
0002540 I P 3 T L I S T P 2
0002560 L L I S T P 1 I L I S T
0002600 P 0 N L I S T I 0 P
0002620 a t h O r P a t h L i s t ) \0
0002640 + 005 \0 \0 001 021 P 004 @ d 001 001 3 020 262 034
0002660 h 032 b \0 260 026 d 001 \ \t \0 \0 \t \0 \0 X
0002700 \t \0 \0 [ I \n \0 \0 271 002 003 265 353 I 020 \0
0002720 ( 4 2 Q \ N C O N C 2 3 5 Q
0002740 S L I T L O O P 3 1 Q N O
0002760 R M L O O P 2 6 Q I R N D L
0003000 I S T ) \r N I L \r ( ) \r Y M A P
0003020 L I S T D 1 \r ( P 1 1 Q I
0003040 P 1 0 Q D Y P 7 D X
0003060 P 6 Y 0 P 5 X 0 P
0003100 4 N E X T P T P 3 C U
0003120 R R P T P 2 Y P 1 X
0003140 P 0 Y M A P I 1 P A
0003160 T H 2 I 0 P A T H 1 ) \0
0003200 n \n \0 \0 002 021 220 \b A 001 002 Z @ 234 J @
0003220 001 002 375 361 245 @ 002 b \0 260 364 @ 260 N d 001
0003240 021 001 \t O 022 002 272 A 002 235 J A 002 001 002 375
0003260 361 245 A 002 b 002 260 362 A 002 262 . A 001 273 A
0003300 002 001 274 K 001 275 K 002 276 L 001 M 331 _ 016 277
0003320 L 002 N 331 _ 020 277 M N O 016 O 020 J \r 005
0003340 \0 \0 Y J 032 H 032 270 023 002 003 265 263 H \t \0
0003360 \0 020 \0 ( 1 5 3 Q R E V E R S E
0003400 1 3 4 Q M I D D X ) \r N I L
0003420 \r ( ) \r I M A P L I S T D 1 \r
0003440 ( P 2 2 Q V 1 P 2 1 Q
0003460 U 1 P 2 0 Q Y 1 P 1 7
0003500 Q X 1 P 1 6 Q D V P
0003520 1 5 Q D U P 1 4 Q V 0
0003540 P 1 3 Q U 0 P 1 2 Q D
0003560 Y P 1 1 Q D X P 1 0 Q
0003600 Y 0 P 7 X 0 P 6 N
0003620 E X T 2 P 5 C U R R 2 P
0003640 4 N E X T 1 P 3 C U R
0003660 R 1 P 2 P T P 1 I M
0003700 A P P 0 A D V A N C E I
0003720 1 P A T H 2 I 0 P A T
0003740 H 1 ) 001 023 023 \0 \0 002 021 360 016 021 @ 022
0003760 @ 001 [ A 001 ] @ 002 001 \ A 002 001 ^ L 002
0004000 _ N 002 _ $ d O 361 263 - l 002 270 M
0004020 001 _ " 277 M 002 _ $ 277 K 001 _ 016 277 K 002
0004040 _ 020 277 L 001 _ 036 O 016 331 _ 022 277 O O
0004060 020 331 _ 024 277 260 * k 270 K 001 _ 036 277 K 002
0004100 _ 277 M 001 _ 026 277 M 002 _ 030 277 N 001 _
0004120 " O 026 331 _ 032 277 O $ O 030 331 _ 034 277 @
0004140 002 242 261 \0 225 A 002 242 261 \0 217 H k 360 262 +
0004160 O 036 _ 016 277 O _ 020 277 @ 002 001 \ 001 _
0004200 036 277 L 002 _ 277 O 036 O 016 331 _ 022 277 O
0004220 O 020 331 _ 024 277 260 ) O " _ 026 277 O $
0004240 _ 030 277 A 002 001 ^ 001 _ " 277 N 002 _ $ 277
0004260 O " O 026 331 _ 032 277 O $ O 030 331 _ 034 277
0004300 O 016 O 020 O 022 O 024 O 026 O 030 O 032 O 034
0004320 \r \b \0 \0 Z 265 023 O $ O 361 257 A 002 b
0004340 002 277 l 002 270 261 377 z I 032 271 260 354 @ 002 b
0004360 \0 277 k 270 261 377 k I \t \0 \0 020 \0 ( 4 2
0004400 0 Q R E V E R S E 3 5 1 Q
0004420 X Y S E C T L S E G ) \r N I L \r
0004440 ( ) \r U N I Q L I S T D 1 \r (
0004460 P 2 N E W L I S T P 1
0004500 V P 0 Y I 0 L I S T
0004520 ) \0 ' 004 \0 \0 001 021 @ 003 @ 001 002 X @
0004540 001 h 032 Z @ 216 d 001 [ 002 271 H I 360 245 I
0004560 270 K J 032 272 002 003 265 357 J \t \0 \0 020 \0 (
0004600 4 4 Q R E V E R S E ) \r N I L
0004620 \r ( ) \r M E R G L I S T D 1 \r
0004640 ( P 4 Y 2 P 3 Y 1 P
0004660 2 C U R R 2 P 1 C U R
0004700 R 1 P 0 I M A P I 1
0004720 P A T H 2 I 0 P A T H 1 )
0004740 \0 n 005 \0 \0 002 021 P 004 @ 241 A 020 A 241
0004760 @ 020 @ 001 Y A 001 Z I 002 [ J 002 \ @ 242
0005000 A 262 N L K 361 263 3 J H 032 270 K L 360 262
0005020 030 I H 032 270 @ 002 b \0 265 \b ` \0 \0 [ 260
0005040 356 001 Y 002 [ 260 350 A 002 b 002 265 \b ` \0 \0
0005060 274 260 315 001 Z 002 274 260 307 I H 032 270 @ 002 b
0005100 \0 265 \b ` \0 \0 273 260 267 001 Y 002 273 260 261 H
0005120 \t \0 \0 020 \0 ( 1 5 3 Q R E V E R
0005140 S E ) \r ( 1 3 6 Q M A X . I N
0005160 T E G E R 1 1 0 Q M A X . I
0005200 N T E G E R 6 6 Q M A X . I
0005220 N T E G E R ) \r ( ) \r M M L T L
0005240 I S T D 1 \r ( L ( 6 M 2 3
0005260 5 M 2 2 4 M 2 1 3 M
0005300 1 3 2 M 1 2 1 M 1 1 0
0005320 K L I S T ) ) \0 = \b \0 \0 \a 021
0005340 P 004 021 0 \a @ 260 / d 001 \ 001 270 L 002 271
0005360 H A 326 I B 326 C 324 324 272 H D 326 I E 326
0005400 F 324 324 273 J K 032 275 N 265 \b M h 032 _ 016
0005420 201 M & 276 002 003 265 322 O 016 020 \0 N I L \r
0005440 N I L \r ( ) \r I M L T L I S T
0005460 D 1 \r ( L ( 6 M 2 3 5 M
0005500 2 2 4 M 2 1 3 M 1 3 2
0005520 M 1 2 1 M 1 1 0 K L I
0005540 S T ) ) \0 A \b \0 \0 \a 021 P 004 021 0
0005560 \a @ 260 3 d 001 \ 001 270 L 002 271 H A 326 I
0005600 B 326 C 324 324 272 H D 326 I E 326 F 324 324 273
0005620 J j 330 K j 330 032 275 N 265 \b M h 032 _ 016
0005640 201 M & 276 002 003 265 316 O 016 020 \0 N I L \r
0005660 N I L \r ( ) \r X Y P T . L E S S
0005700 P D 1 \r ( L ( 1 P T 2 0
0005720 P T 1 ) ) \0 002 \0 \0 002 021 001
0005740 @ 002 X A 002 Y H I 360 245 H I 361 h 360 020
0005760 @ 001 X A 001 Y H I 361 h 360 020 \0 N I L
0006000 \r N I L \r ( ) \r P A T H . L E S
0006020 S P D 1 \r ( L ( 1 P A T H
0006040 2 0 P A T H 1 ) ) \0 ` \b \0
0006060 \0 002 021 200 \a @ 241 i 020 A 241 h 020 @ 001 X
0006100 A 001 Y H 002 Z I 002 [ J K 360 245 J K 361
0006120 h 360 020 H 001 \ I 001 ] L M 360 233 @ 002 A
0006140 002 b 002 277 b \0 023 260 313 @ 002 262 A 002 262
0006160 034 @ 002 001 X A 002 001 Y H 001 ^ I 001 _ 016
0006200 L N 330 M O 016 330 361 h 360 020 L M 361 h 360
0006220 020 \0 N I L \r N I L \r ( ) \r C O N
0006240 V E X P D 1 \r ( P 2 5 Q T
0006260 A N G D Y P 2 4 Q T A N G
0006300 D X P 2 3 Q T A N G Y 0
0006320 P 2 2 Q T A N G X 0 P 2
0006340 1 Q C U R R D Y P 2 0 Q
0006360 C U R R D X P 1 7 Q C U R
0006400 R Y 0 P 1 6 Q C U R R X 0
0006420 P 1 5 Q O R I G D Y P
0006440 1 4 Q O R I G D X P 1 3 Q
0006460 O R I G Y 0 P 1 2 Q O R
0006500 I G X 0 P 1 1 Q L A S T Y
0006520 P 1 0 Q L A S T X P 7
0006540 Y P 6 X P 5 P T
0006560 P 4 O S G N P 3 C S G
0006600 N P 2 T S G N P 1 N
0006620 E G S G N P 0 R E S U L T
0006640 I 0 P A T H ) 001 C 026 \0 \0
0006660 001 021 360 016 021 p 025 @ \t \0 \0 l 003 361 241 i
0006700 020 @ 001 ] d 001 _ 024 M 002 _ 026 @ 002 001 ]
0006720 d 001 _ $ M 002 _ & O $ O 024 331 _ 030 O
0006740 & O 026 331 _ 032 @ 002 002 001 ] d 001 _ 020 M
0006760 002 _ 022 O 020 O $ 331 _ ( O 022 O & 331 _
0007000 * O 024 _ 034 O 026 _ 036 O 020 O 024 331 _
0007020 O 022 O 026 331 _ " j O 024 O 026 O 030 O 032
0007040 O 020 O 022 \r 006 \0 \0 331 Y d j 361 221 k 207
0007060 j I 361 222 m 377 200 j Y @ 002 002 002 b \0 i
0007100 X @ 265 004 H 020 001 ] 001 276 M 002 _ 016 277 O
0007120 $ O & O ( O * N O 016 \r 006 \0 \0 272 O
0007140 034 O 036 O O " N O 016 \r 006 \0 \0 273 O
0007160 024 O 026 O 030 O 032 N O 016 \r 006 \0 \0 274 J
0007200 j 361 221 k 207 j J 361 222 m 377 200 j 272 K j
0007220 361 221 k 207 j K 361 222 m 377 200 j 273 L j 361
0007240 221 k 207 j L 361 222 m 377 200 j 274 J I 360 247
0007260 K I 360 243 L I 360 221 h 020 @ 002 b \0 277 O
0007300 020 _ $ 277 O 022 _ & 277 N O 020 331 _ ( 277
0007320 O 016 O 022 331 _ * 277 N O 034 331 _ 277 O
0007340 016 O 036 331 _ " 277 N _ 020 277 O 016 _ 022 277
0007360 261 377 Q \0 ( 3 1 4 Q X P R O D
0007400 2 7 4 Q X P R O D 2 5 4 Q
0007420 X P R O D 1 6 6 Q X P R O D
0007440 1 1 Q L E N G T H ) \r N I L
0007460 \r ( ) \r M A K E L I N E D 1 \r
0007500 ( P 0 D I R I 3 D Y
0007520 I 2 D X I 1 Y 0 I
0007540 0 X 0 ) \0 6 001 \0 \0 004 021 020 \0 j
0007560 C 361 262 035 @ B 330 b \0 277 A C 330 b 002 277
0007600 j B 331 b 004 277 j C 331 b 006 277 m 377 200 k
0007620 270 @ A \n \0 \0 B C \n \0 \0 H h 032 032 032
0007640 020 \0 ( 5 6 Q M A K E X Y P T
0007660 5 1 Q M A K E X Y P T ) \r N I
0007700 L \r ( ) \r M S E C T D 1 \r ( L
0007720 ( 7 D X D V 6 D U 5
0007740 V 0 4 U 0 3 D U D Y 2
0007760 D X 1 Y 0 0 X 0 ) )
0010000 \0 031 \0 \0 \0 \b C @ 332 j G 016 D 332 331 B
0010020 F E A 331 332 332 330 330 C G 016 331 333 020 \0 N
0010040 I L \r N I L \r ( ) \r X S E C T
0010060 D 1 \r ( P 3 D X D V P 2
0010100 D U D Y P 1 Y P 0
0010120 X I 7 D V I 6 D U
0010140 I 5 V 0 I 4 U 0 I
0010160 3 D Y I 2 D X I 1
0010200 Y 0 I 0 X 0 ) \0 G 004 \0 \0
0010220 \b 021 @ 003 F C 332 Z B G 016 332 [ j B 361
0010240 241 B 202 j B 331 j C 361 241 C 202 j C 331 375
0010260 361 254 @ A B J D E F K \r \b \0 \0 020 A
0010300 @ C K E D G 016 J \r \b \0 \0 271 A @ C
0010320 B I \r 005 \0 \0 020 \0 ( 1 0 4 Q L I
0010340 N E Y 7 2 Q M S E C T 5 4
0010360 Q M S E C T ) \r N I L \r ( ) \r
0010400 Y S E C T D 1 \r ( P 3 D X
0010420 D V P 2 D U D Y P 1
0010440 Y P 0 X I 7 D V I
0010460 6 D U I 5 V 0 I 4
0010500 U 0 I 3 D Y I 2 D
0010520 X I 1 Y 0 I 0 X 0 )
0010540 \0 H 004 \0 \0 \b 021 @ 003 F C 332 Z B G
0010560 016 332 [ j B 361 241 B 202 j B 331 j C 361 241
0010600 C 202 j C 331 375 361 263 031 @ A B J D E F
0010620 K \r \b \0 \0 270 @ A B C H \r 005 \0 \0 020
0010640 A @ C K E D G 016 J \r \b \0 \0 020 \0 (
0010660 1 0 5 Q M S E C T 6 7 Q L
0010700 I N E Y 5 5 Q M S E C T ) \r
0010720 N I L \r ( ) \r X Y S E C T D 1
0010740 \r ( P 3 D X D V P 2 D
0010760 U D Y P 1 Y P 0 X
0011000 I 7 D V I 6 D U I
0011020 5 V 0 I 4 U 0 I 3
0011040 D Y I 2 D X I 1 Y 0
0011060 I 0 X 0 ) \0 _ 004 \0 \0 \b 021
0011100 @ 003 F C 332 Z B G 016 332 [ J K 360 263 M
0011120 j B 361 241 B 202 j B 331 j C 361 241 C 202 j
0011140 C 331 375 361 263 033 @ A B J D E F K \r \b
0011160 \0 \0 270 @ A B C H \r 005 \0 \0 271 260 032 A
0011200 @ C K E D G 016 J \r \b \0 \0 271 A @ C
0011220 B I \r 005 \0 \0 270 H I 032 020 h 020 \0 ( 1
0011240 2 6 Q L I N E Y 1 1 4 Q M
0011260 S E C T 7 4 Q L I N E Y 6
0011300 2 Q M S E C T ) \r N I L \r ( )
0011320 \r K N O T L I N E D 1 \r ( P
0011340 7 I P 6 P R E V Y P
0011360 5 P R E V X P 4 C U R R
0011400 Y P 3 C U R R X P 2
0011420 A L I N E P 1 A L I S T
0011440 P 0 I I 0 K N O T S )
0011460 \0 > \b \0 \0 001 021 p 006 @ 001 X d 001 ]
0011500 H 002 ^ @ 002 b \0 d 260 $ d 001 021 001 \a O
0011520 016 001 273 O 016 002 274 M N K M 325 L N 325 \f
0011540 \0 \0 Z I 032 271 K 275 L ^ 023 002 003 265 335 I
0011560 \t \0 \0 020 \0 ( 7 3 Q R E V E R S
0011600 E 5 2 Q M A K E L I N E ) \r
0011620 N I L \r ( ) \r K N O T L O O P
0011640 D 1 \r ( P 7 I P 6 P R
0011660 E V Y P 5 P R E V X P
0011700 4 C U R R Y P 3 C U R R
0011720 X P 2 A L I N E P 1
0011740 A L I S T P 0 I I 0
0011760 K N O T S ) \0 = \b \0 \0 001 021 p 006
0012000 @ \t \0 \0 001 X d 001 ] H 002 ^ @ 260 $ d
0012020 001 021 001 \a O 016 001 273 O 016 002 274 M N K M
0012040 331 L N 331 \f \0 \0 Z I 032 271 K 275 L ^ 023
0012060 002 003 265 335 I \t \0 \0 020 \0 ( 7 2 Q R
0012100 E V E R S E 5 1 Q M A K E L
0012120 I N E 6 L A S T ) \r N I L \r
0012140 ( ) \r L I N E . L E S S P D 1
0012160 \r ( L ( 1 A R G 2 0 A R
0012200 G 1 ) ) \0 & 004 \0 \0 002 021 @ 003 @ 001
0012220 002 X A 001 002 Y H I 360 245 H I 361 h 360 020
0012240 @ 002 001 002 Z A 002 001 002 [ J K 361 h 360 020
0012260 \0 N I L \r N I L \r ( ) \r L I N E
0012300 Y D 1 \r ( I 4 X I 3
0012320 D Y I 2 D X I 1 Y 0
0012340 I 0 X 0 ) \0 037 \0 \0 \0 005 B
0012360 j 360 243 C j 360 226 A C l 002 333 330 020 D @
0012400 331 b \b A D C 332 B \n \0 \0 330 020 \0 ( 3
0012420 3 Q R N D ) \r N I L \r ( ) \r M
0012440 I D D X D 1 \r ( I 4 Y I
0012460 3 D Y I 2 D X I 1
0012500 Y 0 I 0 X 0 ) \0 ? \0 \0
0012520 \0 005 B j 360 243 C j 360 226 @ B l 002 333 330
0012540 020 D A 331 b \b d j 361 221 k 207 j D 361 222
0012560 m 377 200 j C j 361 221 k 207 j C 361 222 m 377
0012600 200 j 360 241 @ 020 @ D B 332 C \n \0 \0 330 020
0012620 \0 ( 7 3 Q R N D ) \r N I L \r (
0012640 ) \r I N I T X D 1 \r ( L ( 4
0012660 Y 3 D Y 2 D X 1 Y
0012700 0 0 X 0 ) ) \0 B \0 \0 \0 005 B
0012720 j 360 243 C j 360 221 @ 020 D A 331 b \b d j
0012740 361 221 k 207 j D 361 222 m 377 200 j C j 361 221
0012760 k 207 j C 361 222 m 377 200 j 360 241 @ 020 @ D
0013000 B l 002 332 332 B 331 C l 002 332 333 k 330 330 020
0013020 \0 N I L \r N I L \r ( ) \r T E R M
0013040 X D 1 \r ( L ( 4 Y 3 D
0013060 Y 2 D X 1 Y 0 0 X 0
0013100 ) ) \0 B \0 \0 \0 005 B j 360 243 C j 360
0013120 223 @ B 330 020 D A 331 b \b d j 361 221 k 207
0013140 j D 361 222 m 377 200 j C j 361 221 k 207 j C
0013160 361 222 m 377 200 j 360 241 @ 020 @ B D B l 002
0013200 332 332 330 C l 002 332 333 330 020 \0 N I L \r N
0013220 I L \r ( ) \r S C A N X D 1 \r (
0013240 L ( 4 Y 3 D Y 2 D X
0013260 1 Y 0 0 X 0 ) ) \0 ] 004
0013300 \0 \0 005 021 @ 003 B j 360 243 C j 360 225 @ d
0013320 B 330 032 020 D A 331 b \b d j 361 221 k 207 j
0013340 D 361 222 m 377 200 j C j 361 221 k 207 j C 361
0013360 222 m 377 200 j 360 245 @ d B 330 032 020 D B l
0013400 002 332 332 X C l 002 332 Y @ H B 331 I 333 k
0013420 330 330 Z @ H B 330 I 333 330 [ J K 032 020 \0
0013440 N I L \r N I L \r ( ) \r X P R O D
0013460 D 1 \r ( L ( 5 Y 4 X
0013500 3 D Y 2 D X 1 Y 0 0
0013520 X 0 ) ) \0 023 \0 \0 \0 006 D @ 331 b
0013540 \b E A 331 b \n B E 332 C D 332 331 020 \0 N
0013560 I L \r N I L \r ( ) \r X Y S E C T
0013600 L S E G D 1 \r ( P 1 1 Q U
0013620 M I N P 1 0 Q U M A X P
0013640 7 X M I N P 6 X M A X
0013660 P 5 V T P 4 U T P
0013700 3 Y T P 2 X T P 1
0013720 Y P 0 P T I 7 D V
0013740 I 6 D U I 5 V 0 I
0013760 4 U 0 I 3 D Y I 2
0014000 D X I 1 Y 0 I 0 X
0014020 0 ) \0 o \n \0 \0 \b 021 240 \t @ B 330 Z
0014040 A C 330 [ D F 330 \ E G 016 330 ] j B 363
0014060 225 J _ 016 277 @ 204 @ _ 016 277 J 276 j F 363
0014100 225 L _ 022 277 D 204 D _ 022 277 L _ 020 277 N
0014120 O 022 361 264 \t O 020 O 016 361 241 h 020 @ A B
0014140 C D E F G 016 \r \b \0 \0 X d d 264 357 002
0014160 Y d A 361 264 350 K I 361 264 343 d E 361 264 336
0014200 M I 361 264 331 H 020 \0 ( 1 2 0 Q X Y
0014220 S E C T ) \r N I L \r ( ) \r M A K
0014240 E B R E S D 1 \r ( P 3 P X
0014260 Y P 2 P Y P 1 P X
0014300 P 0 S E L F I 3 D Y
0014320 I 2 D X I 1 Y 0 I
0014340 0 X 0 ) \0 376 005 \0 \0 004 021 P 004 `
0014360 \0 \0 037 X d 006 \0 \0 @ 024 002 277 H 006 \0 \0
0014400 A 024 004 277 H 006 \0 \0 B j 361 221 k 207 j B
0014420 361 222 m 377 200 j 024 \b 277 H 006 \0 \0 C j 361
0014440 221 k 207 j C 361 222 m 377 200 j 024 \n 277 j B
0014460 361 241 B 202 j B 331 271 j C 361 241 C 202 j C
0014500 331 272 I J 331 273 J d j 360 262 / 277 H 006 \0
0014520 \0 h 024 \0 277 H 006 \0 \0 @ B 330 024 002 277 H
0014540 006 \0 \0 k 024 \f 277 H 006 \0 \0 k 024 016 277 H
0014560 006 \0 \0 m 377 024 006 260 p I 361 263 < H 006 \0
0014600 \0 g \0 \0 024 \0 277 H 006 \0 \0 J l 002 332 274
0014620 k L 361 241 L 200 k 024 \f 277 H 006 \0 \0 H 006
0014640 \0 \0 311 \f I 331 024 006 277 H 006 \0 \0 J I 331
0014660 l 002 332 024 016 260 2 H 006 \0 \0 g \0 \0 024 \0
0014700 277 H 006 \0 \0 I l 002 332 024 016 277 H 006 \0 \0
0014720 H 006 \0 \0 311 016 J 331 024 006 277 H 006 \0 \0 I
0014740 J 331 l 002 332 024 \f H 020 \0 N I L \r ( 3
0014760 6 2 Q B R E S 3 4 7 Q B R
0015000 E S 3 4 3 Q B R E S 3 3 0
0015020 Q B R E S 3 2 1 Q Y 3 1
0015040 6 Q B R E S 3 0 0 Q B R E
0015060 S 2 6 5 Q B R E S 2 6 1 Q
0015100 B R E S 2 3 6 Q B R E S
0015120 2 2 7 Q X 2 2 4 Q B R E S
0015140 2 0 6 Q B R E S 1 7 6 Q
0015160 B R E S 1 6 6 Q B R E S 1
0015200 5 4 Q B R E S 1 4 4 Q B R
0015220 E S 6 0 Q B R E S 3 3 Q
0015240 B R E S 2 3 Q B R E S 1 3
0015260 Q B R E S 5 004 003 B R E S T
0015300 Y P E # ) \r ( ) \r T R A P L O O
0015320 P D 1 \r ( P 2 6 Q I P
0015340 2 2 Q K P 2 0 Q J P
0015360 1 6 Q I P 1 2 Q L O O P
0015400 P 1 1 Q P T . L E S S P
0015420 P 1 0 Q T E M P P 7 X
0015440 P A T H P 6 K P A T H P
0015460 5 J P A T H P 4 I P A
0015500 T H P 3 L E N P 2 C
0015520 L I S T P 1 P L I S T P
0015540 0 K N O T S I 0 P A T
0015560 H F 3 2 Q T R A P . D E B
0015600 U G ) 001 252 032 001 \0 001 021 240 \t g \0 \0
0015620 _ 022 @ \t \0 \0 Y @ \t \0 \0 b \0 d d 001
0015640 001 3 020 262 024 277 X 260 023 d 001 021 001 \n H O
0015660 024 \n \0 \0 X 023 002 003 265 361 021 0 \r I 260 2
0015700 d 001 021 001 016 O 034 001 002 O 034 \t \0 \0 001 002
0015720 361 225 O 034 \t \0 \0 201 O 034 022 _ 026 277 O 030
0015740 265 \t O 026 h 032 _ 032 202 O 026 & _ 030 277 002
0015760 003 265 317 O 032 022 Y W 4 227 o \0 \0 \0 \t \0
0016000 \0 277 I \t \0 \0 [ I \t \0 \0 Z K k 331 k
0016020 021 002 016 O 034 O 032 363 222 261 \0 222 I O 034 \n
0016040 \0 \0 001 274 K O 034 k 330 021 002 020 O O 036
0016060 363 263 p I O \n \0 \0 001 275 L M \n \0 \0
0016100 _ 016 277 K k 021 2 025 O $ O " 363 263 H J
0016120 O $ \n \0 \0 001 276 O $ O 034 360 245 O $ O
0016140 360 225 O 016 \t \0 \0 207 O 016 N \n \0 \0 _
0016160 020 N \n \0 \0 _ * 277 O ( 265 023 O * h 032
0016200 _ ( _ & 277 O $ k 324 _ $ 260 277 O * &
0016220 _ ( 277 260 362 O & 022 272 O k 324 _ 260
0016240 217 023 O 034 k 324 _ 034 261 377 m 023 W 4 227 o
0016260 \0 \0 \0 \t \0 \0 277 H O 022 \n \0 \0 021 0 \r
0016300 I 260 # d 001 021 001 016 H O 034 \n \0 \0 022 _
0016320 026 277 O 030 265 \t O 026 h 032 _ 032 202 O 026 &
0016340 _ 030 277 002 003 265 336 O 032 022 _ 020 K k 021 2
0016360 031 O , O * 363 263 4 O 020 O , \n \0 \0 001
0016400 J O , \n \0 \0 001 \n \0 \0 _ 2 277 O 0 265
0016420 023 O 2 h 032 _ 0 _ . 277 O , k 324 _ ,
0016440 260 323 O 2 & _ 0 277 260 362 O . 022 Z d \t
0016460 \0 \0 020 \0 ( 6 4 7 Q T R A P M A
0016500 K E 5 7 7 Q M E R G L I S T
0016520 5 7 3 Q N T H 5 6 4 Q N
0016540 T H 5 0 3 Q Y M A P L I S T
0016560 4 6 2 Q S O R T 4 5 3 Q
0016600 D V 3 5 2 Q M E R G L I S T
0016620 3 4 4 Q Y M A P L I S T 3
0016640 3 5 Q C O P Y 3 1 2 Q N T
0016660 H 2 6 5 Q I M A P L I S T
0016700 2 5 6 Q N T H 2 2 7 Q N T
0016720 H 2 0 0 Q C O P Y A L L 1
0016740 7 3 Q L E N G T H 1 6 6 Q
0016760 D V 1 1 4 Q R E V E R S E
0017000 1 0 3 Q L A S T 5 1 Q \ N
0017020 C O N C 2 2 0 Q C O P Y A L
0017040 L 1 3 Q P R E P L O O P ) \r
0017060 ( 5 X Y P T . L E S S P ) \r (
0017100 4 5 0 Q ( C L I S T ) 1 6
0017120 3 Q ( P L I S T ) ) \r T R A P
0017140 M A K E D 1 \r ( P 1 3 Q A
0017160 L I S T P 1 2 Q C U R R Y
0017200 P 1 1 Q T R A P P 1 0
0017220 Q P T 4 P 7 P T 3 P
0017240 6 P T 2 P 5 P T 1 P
0017260 4 L I S T 2 P 3 L I S T
0017300 1 P 2 P T R P 1 U N
0017320 F I N I S H E D P 0 T R A
0017340 P L I S T I 0 E D G E L I
0017360 S T ) \0 366 \f \0 \0 001 021 300 \v i Y I
0017400 242 261 \0 354 @ g \0 \0 \n \0 \0 277 @ 001 001 002
0017420 _ 024 277 @ 272 h _ 026 277 O 024 J 001 001 002 360
0017440 242 261 \0 260 J 001 273 J 002 001 274 K 001 275 K 002
0017460 001 276 L 001 _ 020 277 L 002 001 _ 016 277 M 002 N
0017500 002 360 262 035 K 002 262 031 N 275 K 002 [ 002 001 276
0017520 260 355 O 016 _ 020 277 L 002 \ 002 001 _ 016 277 O
0017540 020 002 O 016 002 360 223 L 002 263 351 M N O 016 O
0017560 020 h 032 032 032 032 _ 022 277 N 002 K \t \0 \0 001
0017600 002 375 361 227 K 002 O 026 032 _ 026 277 O 016 002 L
0017620 \t \0 \0 001 002 375 361 227 L 002 O 026 032 _ 026 277
0017640 M 002 O 020 002 360 227 N 002 O 016 002 360 263 030 o
0017660 \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277 o \0 \0
0017700 \0 \t \0 \0 277 O 022 H 032 270 J 002 002 272 261 377
0017720 K O 026 J g \0 \0 \v \0 \0 b \0 277 l 002 @
0017740 \t \0 \0 361 242 261 377 032 h Y 261 377 026 H 020 \0
0017760 ( 3 5 0 Q L E N G T H 3 3 7
0020000 Q M E R G E 3 1 1 Q D V
0020020 3 0 1 Q T E R P R I 2 7 4 Q
0020040 P R I N 1 2 3 0 Q L A S T
0020060 2 0 4 Q L A S T 2 0 Q S
0020100 O R T ) \r ( 3 3 4 Q P A T H .
0020120 L E S S P 1 5 Q P A T H . L
0020140 E S S P ) \r ( 3 0 6 Q ( T R
0020160 A P ) 2 7 0 Q " N O N - T R
0020200 A P E Z O I D F O U N D ! " )
0020220 \r ( P R E T T Y C O M P R I N T
0020240 X X G E O M C O M S ) \r ( R P
0020260 A Q Q X X G E O M C O M S (
0020300 ( * * I n t e g e r G e o
0020320 m e t r y L i b r a r y *
0020340 * ) ( * * S c a l a r m
0020360 e t h o d s * * ) ( M A C
0020400 R O S S G N ) ( F N S R N
0020420 D ) \r ( * * X Y p t o b
0020440 j e c t a n d m e t h o d s
0020460 * * ) ( R E C O R D S X
0020500 Y P T ) ( M A C R O S X Y
0020520 ) ( M A C R O S H E A D P T
0020540 N E X T P T H E A D P T Y
0020560 N E X T P T Y ) ( \r F N S M
0020600 A K E X Y P T I R N D L I S T
0020620 N O R M L O O P S L I T L O
0020640 O P P R E P L O O P Y M A P
0020660 L I S T I M A P L I S T U N
0020700 I Q L I S T M E R G L I S T
0020720 M M L T L I S T I M L T L I S
0020740 T \r X Y P T . L E S S P P A
0020760 T H . L E S S P C O N V E X P
0021000 ) ( * * L i n e o b j e
0021020 c t a n d m e t h o d s *
0021040 * ) ( R E C O R D S L I N
0021060 E ) ( M A C R O S G E T L I
0021100 N E D I F F \r G E T L I N E O
0021120 R I G \ G E T L I N E D I F F
0021140 \ G E T L I N E O R I G Y \
0021160 G E T L I N E D I F F Y ) ( F
0021200 N S M A K E L I N E M S E C
0021220 T X S E C T Y S E C T X Y
0021240 S E C T K N O T L I N E \r K
0021260 N O T L O O P L I N E . L E S
0021300 S P ) ( F N S L I N E Y M
0021320 I D D X I N I T X T E R M X
0021340 S C A N X X P R O D ) ( *
0021360 * l i n e s e g m e n t
0021400 m e t h o d s * * ) ( F N
0021420 S \r X Y S E C T L S E G ) (
0021440 * * B r e s e n h a m l i
0021460 n e o b j e c t a n d m e
0021500 t h o d s * * ) ( R E C O
0021520 R D S B R E S ) ( F N S M
0021540 A K E B R E S ) ( M A C R O S
0021560 B R E S S T E P \r ) ( * *
0021600 D e b u g g i n g c o n t r
0021620 o l p a n e l * * ) ( V
0021640 A R S G E O M . P A N E L )
0021660 ( * * T r a p e z o i d a l
0021700 d e c o m p o s i t i o n *
0021720 * ) ( F N S \r T R A P L O
0021740 O P T R A P M A K E ) ( V A
0021760 R S T R A P . P A N E L T R
0022000 A P . D E B U G ) ) ) \r ( P U T
0022020 P R O P S S G N D M A C R O
0022040 ( ( V A L ) ( i f ( I G R
0022060 E A T E R P V A L 0 ) t h
0022100 e n 1 e l s e i f ( I L E
0022120 S S P V A L 0 ) t h e n
0022140 - 1 e l s e 0 ) ) ) \r ( R E
0022160 C O R D X Y P T ( X . Y
0022200 ) ) \r ( P U T P R O P S X D
0022220 M A C R O ( ( P T ) ( C A R
0022240 P T ) ) ) \r ( P U T P R O P S
0022260 Y D M A C R O ( ( P T )
0022300 ( C D R P T ) ) ) \r ( P U T P
0022320 R O P S H E A D P T D M A C
0022340 R O ( ( P A T H ) ( C A R
0022360 P A T H ) ) ) \r ( P U T P R O P
0022400 S N E X T P T D M A C R O
0022420 ( ( P A T H ) ( C A D R P A
0022440 T H ) ) ) \r ( P U T P R O P S
0022460 H E A D P T Y D M A C R O (
0022500 ( P A T H ) ( C D A R P A T
0022520 H ) ) ) \r ( P U T P R O P S N
0022540 E X T P T Y D M A C R O ( (
0022560 P A T H ) ( C D A D R P A T
0022600 H ) ) ) \r ( R E C O R D L I N
0022620 E ( O R I G D I F F W I N
0022640 D ) ) \r ( P U T P R O P S G E
0022660 T L I N E D I F F D M A C R O
0022700 ( ( S E L F D X D Y ) (
0022720 * e d i t e d " 1 - J a n
0022740 - 0 0 0 0 : 0 0 " ) ( * *
0022760 E x t e r n a l m e t h o d
0023000 , g e t d x , \r d y f r
0023020 o m l i n e * * ) ( W I
0023040 T H L I N E S E L F ( * )
0023060 ( S E T Q D X ( f f e t c
0023100 h ( X Y P T X ) o f D I
0023120 F F ) ) ( S E T Q D Y ( f
0023140 f e t c h ( X Y P T Y ) o
0023160 f \r D I F F ) ) ) ) ) \r ( P U
0023200 T P R O P S G E T L I N E O R
0023220 I G D M A C R O ( ( S E L F
0023240 O X O Y ) ( * e d i t e
0023260 d " 1 - J a n - 0 0 0 0 :
0023300 0 0 " ) ( * * E x t e r n
0023320 a l m e t h o d , g e t d
0023340 x , \r d y f r o m l i n e
0023360 * * ) ( W I T H L I N E
0023400 S E L F ( * ) ( S E T Q
0023420 O X ( f f e t c h ( X Y P T
0023440 X ) o f O R I G ) ) ( S
0023460 E T Q O Y ( f f e t c h (
0023500 X Y P T Y ) o f \r O R I G
0023520 ) ) ) ) ) \r ( P U T P R O P S
0023540 \ G E T L I N E D I F F D M A
0023560 C R O ( ( S E L F D X D Y
0023600 ) ( * e d i t e d " 1 -
0023620 J a n - 0 0 0 0 : 0 0 " ) (
0023640 * * D e g e n e r a t e p
0023660 r i v a t e \r m e t h o d ,
0023700 g e t d x , d y f r o m
0023720 l i n e * * ) ( W I T H
0023740 ( L I N E S E L F ) ( * )
0023760 ( S E T Q D X ( F F E T C H
0024000 ( X Y P T X ) O F D I F
0024020 F ) ) ( S E T Q D Y ( \r F
0024040 F E T C H ( X Y P T Y ) O
0024060 F D I F F ) ) ) ) ) \r ( P U T
0024100 P R O P S \ G E T L I N E O R
0024120 I G Y D M A C R O ( ( S E L
0024140 F Y P T R ) ( S E T Q Y P
0024160 T R ( F F E T C H ( X Y P T
0024200 Y ) o f ( F F E T C H (
0024220 L I N E O R I G ) o f S E
0024240 L F \r ) ) ) ) ) \r ( P U T P R O
0024260 P S \ G E T L I N E D I F F Y
0024300 D M A C R O ( ( S E L F Y
0024320 P T R ) ( S E T Q Y P T R
0024340 ( F F E T C H ( X Y P T Y )
0024360 o f ( F F E T C H ( L I N
0024400 E D I F F ) o f S E L F \r
0024420 ) ) ) ) ) \r ( D A T A T Y P E
0024440 B R E S ( M A J O R X Y
0024460 P I X I Y I P X I P Y )
0024500 ) \r ( / D E C L A R E D A T A T
0024520 Y P E ( Q U O T E B R E S )
0024540 ( Q U O T E ( P O I N T E R
0024560 P O I N T E R P O I N T E R
*
0024640 P O I N T E R \r ) ) ( Q U O
0024660 T E ( ( B R E S 0 P O I N
0024700 T E R ) ( B R E S 2 P O I
0024720 N T E R ) ( B R E S 4 P O
0024740 I N T E R ) ( B R E S 6 P
0024760 O I N T E R ) ( B R E S 8
0025000 P O I N T E R ) ( B R E S \r
0025020 1 0 P O I N T E R ) ( B R E
0025040 S 1 2 P O I N T E R ) ( B
0025060 R E S 1 4 P O I N T E R ) )
0025100 ) ( Q U O T E 1 6 ) ) \r ( P
0025120 U T P R O P S B R E S S T E P
0025140 D M A C R O ( ( S E L F S
0025160 C A N Y I N I T X T E R M X
0025200 ) ( * * A s s u m e t h
0025220 a t t h i s Y i s e x a
0025240 c t l y i n c r e m e n t e d
0025260 b y \r o n e f r o m t h
0025300 e l a s t c a l l , s o
0025320 D D A c a n b e u s e d .
0025340 T h e n p a s s e d p a r
0025360 a m e t e r s c a n y i s
0025400 n o t u s e d . ) ( L E T
0025420 ( X 0 D X D \r D D X D D
0025440 Y ) ( W I T H B R E S S E
0025460 L F ( * ) ( S E T Q X 0
0025500 X ) ( S E T Q D X I X )
0025520 ( S E T Q D P ) ( S E T Q
0025540 D D X I P X ) ( S E T Q
0025560 D D Y I P Y ) ) ( S E T Q
0025600 \r I N I T X X 0 ) ( I F (
0025620 E Q ( F E T C H ( B R E S
0025640 M A J O R ) O F S E L F )
0025660 ( Q U O T E X ) ) T H E N
0025700 ( w h i l e ( I L E S S P D
0025720 0 ) d o ( S E T Q X 0
0025740 ( I P L U S \r X 0 D X ) )
0025760 ( S E T Q D ( I P L U S D
0026000 D D X ) ) ) ( I F ( I L E
0026020 Q I N I T X X 0 ) T H E N
0026040 ( S E T Q T E R M X X 0 )
0026060 E L S E ( S E T Q T E R M
0026100 X I N I T X ) ( S E T Q \r
0026120 I N I T X X 0 ) ) ( S E T Q
0026140 X 0 ( I P L U S X 0 D X
0026160 ) ) ( S E T Q D ( I P L U
0026200 S D D D Y ) ) E L S E (
0026220 S E T Q T E R M X X 0 ) (
0026240 i f ( I L E S S P D 0 )
0026260 t h e n \r ( S E T Q D ( I
0026300 P L U S D D D Y ) ) e l s
0026320 e ( S E T Q D ( I P L U S
0026340 D D D X ) ) ( S E T Q X
0026360 0 ( I P L U S X 0 D X ) )
0026400 ) ) ( W I T H B R E S S E
0026420 L F ( * ) ( S E T Q \r X
0026440 X 0 ) ( S E T Q P D ) ) )
0026460 ) ) \r ( R P A Q Q G E O M . P
0026500 A N E L ( ( * * D e b u g
0026520 g i n g c o n t r o l p a n
0026540 e l * * ) ( P R O G N I
0026560 L ( S E T Q Q K L I S T (
0026600 ( 1 0 . 1 0 ) ( 2 0 .
0026620 2 0 ) ( 3 0 \r . 2 0 ) (
0026640 4 0 . 3 0 ) ( 5 0 . 1
0026660 0 ) ( 3 0 . 0 ) ) ) ( S
0026700 E T Q N L I S T ( N O R M L
0026720 O O P K L I S T ) ) ( S E T
0026740 Q S L I S T ( S L I T L O O
0026760 P N L I S T ) ) ( \r M Y P G
0027000 O N M Y W I N K L I S T )
0027020 ( M Y N U M B M Y W I N K L
0027040 I S T ) ) ) ) \r ( R P A Q Q T
0027060 R A P . P A N E L ( ( W H I L
0027100 E ( E Q M Y W I N ( W H I
0027120 C H W ( G E T P O S I T I O N
0027140 ) ) ) D O ( C L E A R W M
0027160 Y W I N 2 ) ( C L E A R W M
0027200 Y W I N ) ( N I L L ( \r S E
0027220 T Q R L I S T ( M Y R A N D
0027240 M Y W I N 7 ) ) ) ( M Y P
0027260 G O N M Y W I N 2 R L I S T
0027300 ) ( P O L Y S H A D E . D I S
0027320 P L A Y M Y W I N 2 R L I S
0027340 T G R A Y S H A D E ) ( N I
0027360 L L ( \r S E T Q R Z O I D
0027400 ( T R A P L O O P R L I S T )
0027420 ) ) ( P R I N T O U T M Y W
0027440 I N " N U M B E R O F T R
0027460 A P E Z O I D S : " ( L E N
0027500 G T H R Z O I D ) T ) ( F
0027520 O R I I N \r R Z O I D D
0027540 O ( P O L Y S H A D E . D I S
0027560 P L A Y M Y W I N I ( R A
0027600 N D ) ) ) ( M Y P G O N M Y
0027620 W I N R L I S T ) ) ( N I L
0027640 L ( N I L L ( S E T Q R L
0027660 I S T ( M Y R A N D \r M Y W
0027700 I N 5 ) ) ) ( M Y P G O N
0027720 M Y W I N R L I S T ) ( F O
0027740 R I I N R Z O I D D O
0027760 ( M Y P G O N M Y W I N I )
0030000 ) ( M Y P G O N M Y W I N
0030020 ( C A R ( N T H R Z O I D
0030040 2 7 ) \r ) ) ( F O R I F R
0030060 O M 2 3 T O 2 5 D O (
0030100 P O L Y S H A D E . D I S P L A
0030120 Y M Y W I N ( C A R ( N T
0030140 H R Z O I D I ) ) G R A Y
0030160 S H A D E ) ) ) ( N I L L (
0030200 W H I L E ( E Q \r M Y W I N
0030220 ( W H I C H W ( G E T P O S
0030240 I T I O N ) ) ) D O ( C L E
0030260 A R W M Y W I N ) ( S E T Q
0030300 R L I S T ( M Y D R A W M
0030320 Y W I N N I L ) ) ( M Y P G
0030340 O N M Y W I N R L I S T )
0030360 ( \r P R I N T O U T M Y W I N
0030400 " C O N V E X : " ( C O N
0030420 V E X P R L I S T ) T ) ) )
0030440 ) ) \r ( R P A Q Q T R A P . D
0030460 E B U G N I L ) \r ( P U T P R
0030500 O P S X X G E O M C O P Y R
0030520 I G H T ( " X e r o x C o r
0030540 p o r a t i o n " 1 9 8 5 ) )
0030560 \r N I L \r
0030565