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