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