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