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